<% Option Explicit %> <% dim rs,sql set rs=server.createobject("adodb.recordset") sql="select * from GuestBooks order by ID desc" rs.open sql,db,3,2 %> Forever Composites Co.,Ltd.







First Name
Last Name
Organization
Street Address
Address (cont.)
City
State/Province
Zip/Postal Code
Country
Work Phone
Fax
Mail
MESSAGE.


 
<% if not rs.bof and not rs.eof Then Dim page_size dim ly dim page_total page_size=5 if request("ly")="" then ly=1 else ly=cint(request("ly")) end if session("ly")=ly rs.pagesize=page_size page_total=rs.pagecount rs.absolutepage=ly dim I,J I=0 J=page_size do while not rs.eof and J>0 I=I+1 J=J-1 %>

<%=Trim(rs("Name"))%>

<% dim cs if rs("City") <> "" then cs=rs("City") response.Write("

CITY. "&cs&"") else response.Write("

") end if %> <% dim dzyj if rs("Mail") <> "" then dzyj=rs("Mail") response.Write("

MAIL. "&dzyj&"") else response.Write("

") end if %>

<% dim zhuye if rs("Url") <> "" then zhuye=rs("Url") response.Write("

URL. "&zhuye&"") else response.Write("

") end if %>

 

<%=Replace(rs("Content"),chr(13),"
")%>

<%=rs("Date")%>

<% dim glhf if rs("Reply") <> "" then glhf=rs("Reply") response.Write("
Reply. "&glhf&"

") else response.Write("") end if %>
<% rs.movenext loop end if %>

<% call select_page(ly,page_total) %>
 

管理入口 ]

 

COPYRIGHT © ALL RIGHTS RESERVED TO FOREVER COMPOSITES CO., LTD.
HOME   |   ABOUT US   |   PRODUCTS    |  PHOTO GALLERY  |  CONTACT US