<%

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

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

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

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

Back to ASP