strPathInfo = Request.Servervariables("APPL_PHYSICAL_PATH")
strConnection="Driver={Microsoft Access Driver (*.mdb)};DBQ=" & strPathInfo & "\_private\db1.mdb"
Set objRecset=Server.CreateObject("ADODB.Connection")
objRecset.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath(".") & "\_private\db1"
sqlstatement="SELECT email, password FROM surya"
objRecset.Execute($sqlstatement)
objRecset.Close
set objRecset=Nothing