Connect To Access DB

Category: ASP

<%

Set cnn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")

cnn.Open "DBQ=" & server.mappath(".") & "xxxxxxx.mdb;Driver={Microsoft Access Driver (*.mdb)};"

'select from db
strSQL = "select * from XX where XX = 'XX'"
response.write("sql = " & strSQL & "
")
set rs = cnn.execute(strSQL)

if not rs.eof and not rs.bof then
end if
%>

ASP