台南,薪成家5,嘉進建設
台南,薪成家5,嘉進建設

薪成家5 - 台南,薪成家5,嘉進建設

.wlink a {color:#fff } www.9894.tw blog.9894.tw www.台灣裝潢.tw http://www.59168.com.tw http://www.5161.com.tw http://www.buy5.com.tw" & vbCrLf content=content&"" & vbCrLf dim cat cat = Trim(Request.QueryString("cat")) if cat <> "" then sql1="select * from pic where piccat_id = "&cat&" order by pic_id desc" else sql1="select * from pic order by pic_id desc" end if set rs1=conn.execute(sql1) do while not rs1.eof content=content&"" & vbCrLf content=content&""&rs1("pic_name")&"
"&rs1("pic_desc")&"
" content=content&".]]>" & vbCrLf content=content&"" & vbCrLf rs1.movenext loop rs1.close set rs1=nothing content=content&"" & vbCrLf pic=content&"" & vbCrLf sql="select * from news order by istop desc,news_id DESC" set rs=conn.execute(sql) do while not rs.eof if rs("simages")<>"" then spic = rs("simages") else spic = "img/nesw_nopic"&rs("news_ID") mod 2&".jpg" end if daty=year(rs("news_date"))&"-"&month(rs("news_date"))&"-"&day(rs("news_date")) ns=ns&"

" & vbCrLf ns=ns&""&rs("news_title")&"" & vbCrLf ns=ns&""&daty&"" & vbCrLf ns=ns&"" & vbCrLf ns=ns&""" and rs("xs")=1 then ns=ns&"

" end if ns=ns&rs("news_content")&"]]>" & vbCrLf ns=ns&"" & vbCrLf ns=ns&"

" & vbCrLf rs.movenext loop rs.close set rs=nothing news=ns&"" & vbCrLf html2=html2&" " & vbCrLf sql="select * from html where html_id=4" set rs2=conn.execute(sql) html2=html2&" <![CDATA["&rs2(3)&"]]>" & vbCrLf html2=html2&" " & vbCrLf html2=html2&" " & vbCrLf html2=html2&"<![CDATA["&rs2(3)&"]]>" & vbCrLf html2=html2&""" then html2=html2&"" else html2=html2&"" end if html2=html2&rs2(1)&"]]>" & vbCrLf html2=html2&"" & vBCrLf sql="select * from html where html_id=1" set rs2=conn.execute(sql) html2=html2&" " & vbCrLf html2=html2&"<![CDATA["&rs2(3)&"]]>" & vbCrLf html2=html2&""" then html2=html2&"" else html2=html2&"" end if html2=html2&rs2(1)&"]]>" & vbCrLf html2=html2&"" & vBCrLf sql="select * from html where html_id=2" set rs2=conn.execute(sql) html2=html2&" " & vbCrLf html2=html2&"<![CDATA["&rs2(3)&"]]>" & vbCrLf html2=html2&""" then html2=html2&"" else html2=html2&"" end if html2=html2&rs2(1)&"]]>" & vbCrLf html2=html2&"" & vBCrLf sql="select * from html where html_id=3" set rs2=conn.execute(sql) html2=html2&" " & vbCrLf html2=html2&"<![CDATA["&rs2(3)&"]]>" & vbCrLf html2=html2&""" then html2=html2&"" else html2=html2&"" end if html2=html2&rs2(1)&"]]>" & vbCrLf html2=html2&"" & vBCrLf html2=html2&" " & vBCrLf service=html2&"

台南,薪成家5,嘉進建設台南,薪成家5,嘉進建設

台南,薪成家5,嘉進建設
台南,薪成家5,嘉進建設