<%Com_ID=SafeRequest("ID",1) Set Objrs=Conn.execute("Select name,fax,tell,e_mail,web,postcode,address,principal,synopsis from Company where ID="&Com_ID) if not Objrs.eof then Com_Name=Objrs(0) Fax=Objrs(1) Tel=Objrs(2) Email=Objrs(3) Website=Objrs(4) PostCode=Objrs(5) Address=Objrs(6) Contact=Objrs(7) Content=Objrs(8) end if Objrs.close Set Objrs=nothing dim rs dim sql,area2 dim count set Objrs=Conn.execute("select * from area order by id desc") area2=Objrs.getrows() Objrs.close Set Objrs=nothing set rs=server.createobject("adodb.recordset") sql = "select * from [city] order by ID desc" rs.open sql,conn,1,1 %> 深圳珠宝网-->企业黄页

<%=Com_Name%>

    <%=HtmlCode(Content)%>

公司地址: <%=Address%>
电话: <%=Tel%>
传真号码: <%=Fax%>
联系人: <%=Contact%>
邮编: <%=PostCode%>
网址: <%=Website%>
E-mail: <%=Email%>
 
<%Conn_Close()%>