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