Alabama Association of Chiefs of Police

 

Home Contact AACOP Member Login Committees Search

AACOP

Forging Excellence in Alabama Law Enforcement Since 1971

spacer spacer

Member Directory...

The 2008 AACOP Annual Dues Drive has begun! Click for the Dues Payment form.

The AACOP Member Directory is still under construction, please continue to check back. <% 'Dimension variables Dim adoCon 'Holds the Database Connection Object Dim objRS 'Holds the recordset for the records in the database Dim strSQL 'Holds the SQL query for the database 'Create an ADO connection odject - Required, don't touch Set adoCon = Server.CreateObject("ADODB.Connection") 'Set an active connection to the Connection object using a DSN-less connection - This is how the page finds the database 'The database is in the "montana3" folder to make it harder to guess at locating, since it is in our webspace and could possibly be downloaded with the right link. adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\montana3\members.mdb") 'Create an ADO recordset object - Required, don't touch Set objRS = Server.CreateObject("ADODB.Recordset") 'Initialise the strSQL variable with an SQL statement to query the database. strSQL = "SELECT * FROM chiefs" 'Open the recordset with the SQL query - prepares to write the fields. objRS.Open strSQL, adoCon objRS.Open strsql,objCN,adOpenForwardOnly,adLockReadOnly,adCmdText i = 0 Response.write "

" Do While Not objRS.EOF i = i + 1 Response.write "" Response.write "" Response.write "" Response.write "" & vbCrLf objRS.MoveNext Loop objRS.Close Response.write "
" & objRS(0) & "" & objRS(1) & "
" %>