Essex Website Design, Essex Web Design, From Creativei Media. Essex Website Design, Essex Web Design.
|
|
<%
Dim adoCon 'Holds the Database Connection Object
Dim rsCart 'Holds the recordset for the records in the database
Dim strSQL 'Holds the SQL query for the database
Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("meta/db.mdb")
Set rsCart = Server.CreateObject("ADODB.Recordset")
%>
<%
'Initialise the strSQL variable with an SQL statement to query the database
strSQL = "SELECT DISTINCT pl_keywords FROM PageLog order by pl_keywords"
'Open the recordset with the SQL query
rsCart.Open strSQL, adoCon
%>
<%
Do While not rsCart.EOF
If Len(rsCart("pl_keywords")) > 2 then
Response.Write ("")
Response.Write ("")
Response.Write rsCart("pl_keywords")
Response.Write ("")
Response.Write ("")
else
end if
'Move to the next record in the recordset
rsCart.MoveNext
Loop
'Reset server objects
rsCart.Close
Set rsCart = Nothing
Set adoCon = Nothing
%>
|
|
|