<% dim cn,rs,qry,url_img set cn=Server.CreateObject ("ADODB.Connection") cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("tauqeer.mdb") set rs = Server.CreateObject ("ADODB.Recordset") rs.Open "select * from GuestBook where status=1 order by ID desc" ,cn,3,2 %>
  Contact Us   


    :: Guest Book

Sign the Guest book

 

<% if not rs.eof then While Not rs.EOF %>
<%=rs("username")%>, <%=rs("city")%> <%=formatdatetime(rs("t_date"),2)%>
<%=rs("message")%>

<% rs.MoveNext Wend rs.close() end if %>