東區晶典2-毅陽建設,TMOK,好來屋,新屋情報網,台南建案,台南別墅
東區晶典2-毅陽建設

東區晶典2-毅陽建設 - 東區晶典2-毅陽建設
%> Response.Write"" Response.Write"" conn.close : set conn = nothing function pic() Response.Write"" content="" & 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 end function function news() ns="" & 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 end function function service() html2=html2&"" & 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&"" & vBCrLf rs2.close set rs2=nothing end function %>