<%@ language=VBscript %> <% option Explicit %> <% Server.scriptTimeout = 10000%> BSBMB ::: The Previous Messages

The previous Messages

<% dim objConn set objconn = server.createobject("ADODB.Connection") objconn.Open = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source= " & Server.MapPath("\db\gstbk.mdb") 'Set objConn = Server.CreateObject("ADODB.Connection") 'objConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & 'Server.MapPath("\db\gstbk.mdb")) dim strsql,num strsql = "SELECT * FROM guestbook ORDER by dt DESC" dim objrs set objrs=server.createObject("ADODB.Recordset") objrs.open strsql,objconn %> <% Do while not objrs.EOF %> <% objrs.movenext Loop objrs.close set objrs=NOTHING objconn.close set objconn=NOTHING %>
From: <%= objrs("name")%> (<%=objrs("uni")%>)
<%=objrs("dt")%>
<%=objrs("messege")%>
Email: <%=objrs("email")%>
[Back to post message]