VB Code:
Dim StrConnect as String, StrOpen as string
Dim DBconn As OleDbConnection, DBcomm as OleDbCommand, DBread as OleDbDataReader
'connect
StrConnect = "Provider=Microsoft.Jet.OLEDB.4.0; " & _
Data Source=c:\inetpub\wwwroot\mysite\database\mysite.mdb"
DBconn=New OleDbConnection(StrConnect) 'connection to DB
DBconn.Open()
Stropen="Select * FROM cmodc_login WHERE (Active AND iduser='" & iduser & "')"
DBcomm=New OleDbCommand(Stropen,DBconn)
DBread=DBcomm.ExecuteReader()
If DBread.Read then
'the datareader contains a resultset.
Response.Write DBread("idname")
End If
DBconn.close()
'free memory
DBconn = nothing
DBread = nothing