<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
Bishopstrade Pty Ltd
<%
DIM objConn
DIM objRS
DIM strSQL
DIM wpID
wpID = Request.QueryString("dbc")
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("btlsa.mdb")
Set objRS = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT gbName,gbEmail,gbCountry,gbStateProvince,gbMessage FROM guestbook ORDER BY id_gBook DESC;"
objRS.Open strSQL,objConn
%>
The Bishopsgate Guestbook
Name
Country
State / Province
Message
<%
DO WHILE NOT objRS.EOF
%>
<%=objRS("gbName")%>
<%=objRS("gbCountry")%>
<%=objRS("gbStateProvince")%>
<%
objRS.MoveNext
LOOP
%>
<%
objRS.Close
Set objRS = Nothing
Set objConn = Nothing
%>
