HTML Code

<% language = javascript %> <% Response.Expires=0 %> HTML Code

COMMENTS FOR WESTERN AUTHOR JOHN J KOBLAS' WEB PAGE <% // "Declared" the variables dim adoConn dim rs dim mySQL dim SQL2 // ******** Make a database object and connect it to the database********* set adoConn = Server.CreateObject("ADODB.Connection") adoConn.open("Provider='Microsoft.Jet.OLEDB.4.0'; Data Source='" + Server.MapPath("agstbook.mdb") + "'") set rs = Server.CreateObject("ADODB.Recordset") //******* SQL STATEMENT ******* mySQL = "SELECT * from tblSignData;" set rs=adoConn.Execute(mySQL) rs.MoveFirst() Response.Write("

") do while not rs.eof Response.Write("") Response.Write("") Response.Write("") Response.Write("

") Response.Write("From: " + rs("nametbl").Value + "") Response.Write(" " + rs("timeintbl").Value + "") Response.Write("
" + rs("comtbl").Value) Response.Write("") Response.Write("

") rs.MoveNext() loop Response.Write("

") adoConn.close %>