Using MySQL with ASP - Script Explained
(Page 3 of 4 )
To start with, we declare that we are using the VBScript language, and then we start the HTML page:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml"><!-- InstanceBegin template="Templates/guestbook.dwt.php" codeOutsideHTMLIsLocked="false" -->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<!-- InstanceBeginEditable name="doctitle" -->
<title>Untitled Document</title>
<!-- InstanceEndEditable -->
<!-- InstanceBeginEditable name="head" --><!-- InstanceEndEditable -->
<link href="user.css" rel="stylesheet" type="text/css" />
</head>
<body>
<table width="100%" border="1">
<tr>
<td colspan="2" class="welcomeheader">Welcome to Davids Website </td>
</tr>
<tr>
<td colspan="2"><!-- InstanceBeginEditable name="EditRegion3" -->
Then we build a table that will host the entries of the guest book:
<table width="100%" border="0">
<%
Then we finally start the ASP. First we set up the connections:
Set conx = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
The DSN name or data source name also needs to be added in the initial connection set up stage:
conx.Open "DSN=mysqlasp" ' Data source name
We then start to build the SQL query that will extract all the records from the database:
strSQL = "SELECT * FROM guests"
Then we execute the statement and start a do while loop. This loop will run until it reaches the end of file:
' Execute SQL statement
Set rs = conx.Execute(strSQL)
Do while not rs.eof
%>
As it is iterating through the result set, the the code builds a dynamic set of rows that contains the name, comment and date of each entry that was made in the database:
<tr>
<td width="13%" bgcolor="#999999"><strong>Name:</strong></td>
<td width="87%"><% Response.Write rs("name") %></td>
</tr>
<tr>
<td bgcolor="#999999"><strong>Comment:</strong></td>
<td><% Response.Write rs("comment") %></td>
</tr>
<tr>
<td bgcolor="#999999"><strong>Date:</strong></td>
<td><% Response.Write rs("dateAdd") %></td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
Finally, the database connection is closed and the conx variable is released:
<%
rs.MoveNext
loop
conx.close ' Close database connection
Set conx = nothing 'obj variable released
%>
</table>
<!-- InstanceEndEditable --></td>
</tr>
<tr>
<td colspan="2" class="copy">©2008</td>
</tr>
</table>
</body>
<!-- InstanceEnd --></html>
Next: Conclusion >>
More ASP Articles
More By David Web
