Live Support Status:
Testimonials
Welcome to our testimonials page.
Here you can find comments and feedback we've received from our clients. If you'd like to send us a comment or simply have a question please contact us.
<% 'Dimension variables Dim adoCon 'Holds the Database Connection Object Dim rsTest 'Holds the recordset for the records in the database Dim strSQL 'Holds the SQL query for the database 'Create an ADO connection odject Set adoCon = Server.CreateObject("ADODB.Connection") 'Set an active connection to object adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../private/test.mdb") 'Create an ADO recordset object Set rsTest = Server.CreateObject("ADODB.Recordset") 'Init the strSQL variable with SQL statement strSQL = "SELECT tblComments.Name, tblComments.Comments FROM tblComments;" 'Open the recordset with the SQL query rsTest.Open strSQL, adoCon 'Loop through the recordset Do While not rsTest.EOF 'Write the HTML Response.Write ("
")
Response.Write ("
")
Response.Write ("") Response.Write ("
") Response.Write ("
") Response.Write (rsTest("Comments")) Response.Write ("
") Response.Write ("