<% CnSohoChinaButton13="a" CnSohoChinaLeftButton8="a" iInfoID =Request.questring("id") If iInfoID="" Then SqlStr="select * from tblInfo where iPass=1 and lang=1 and iClassId=15 order by iTop desc,rResort asc,iInfoID desc" Else SqlStr="select * from tblInfo where iPass=1 and iInfoID="&iInfoID End If Set objRs=server.CreateObject("Adodb.RecordSet") objRs.Open SqlStr,conn,1,1 If not objRs.eof Then vTitle =objRs("vTitle") tContent =objRs("tContent") End If objRs.Close Set objRs=Nothing %>

<%=vTitle%>

<%=tContent%>

<% Set objRs=Server.CreateObject("Adodb.RecordSet") objRs.Open"select * from tblInfo where iPass=1 and lang=1 and iClassId=15 order by iTop desc,rResort asc,iInfoID desc",conn,1,1 While Not objRs.Eof %> <% objRs.Movenext Wend %>


	"><%=objRs("vTitle")%>