Apostolic Christian Genealogy - Clipping Collection
A
B
C
D
E
F
G
H
I
J
K
L
M
N
O
P
Q
R
S
T
U
V
W
Y
Z
N
<%
'Dimension variables
Dim adoCon 'Holds the Database Connection Object
Dim rsGuestbook '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")
adoCon.Mode=1
'Set an active connection to the Connection object using a DSN-less connection
'adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../../databases/gable.mdb")
'Set an active connection to the Connection object using DSN connection
'adoCon.Open "DSN=guestbook"
adoCon.Open "DSN=acgen; uid=acgen_user; pwd=Barr0n319!!"
'Create an ADO recordset object
Set rsGuestbook = Server.CreateObject("ADODB.Recordset")
'Initialise the strSQL variable with an SQL statement to query the database
strSQL = "SELECT tblacclip.* FROM tblacclip WHERE name IS NOT NULL AND name LIKE 'N%' ORDER BY name;"
'Open the recordset with the SQL query
rsGuestbook.Open strSQL, adoCon
If rsGuestbook.EOF Then
Response.Write ("| No Records Found | ")
Else
'Loop through the recordset
Do While not rsGuestbook.EOF
'Write the HTML to display the current record in the recordset
Response.Write ("")
Response.Write (rsGuestbook("name"))
Response.Write ("
(")
Response.Write (rsGuestbook("byr"))
Response.Write (" - ")
Response.Write (rsGuestbook("dyr"))
Response.Write (") | ")
Response.Write (rsGuestbook("doctype"))
Response.Write ("
")
Response.Write (rsGuestbook("source"))
Response.Write (" | ")
Response.Write (rsGuestbook("cem"))
Response.Write (" | ")
Response.Write (rsGuestbook("ch"))
Response.Write (" | ")
'Move to the next record in the recordset
rsGuestbook.MoveNext
Loop
End If
'Reset server objects
rsGuestbook.Close
Set rsGuestbook = Nothing
Set adoCon = Nothing
%>
|