Hi,
Iam making an E-COMMERCE web-site and this is an ASP code that i have been using to connect the ACCESS DATA BASE but the problem i have been facing is that this code is not connecting with the DATA BASE could any one please help me out that what is the problem in it.
reply as soon as possible
thanks gilca
<!-- METADATA TYPE="typelib"
FILE="C:\Program Files\Common Files\SYSTEM\ADO\msado15.dll" -->
<%
Dim objconn
Set objconn = Server.CreateObject ("ADODB.Connection"
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection"
objconn.open "DSN=abs"
If Session("blnValidUser" = True and Session("PersonID" = "" Then
Dim rsPersonIDCheck
Set rsPersonIDCheck = Server.CreateObject("ADODB.Recordset"
Dim strSQL
strSQL = "SELECT PersonID FROM Person " & _
"WHERE EMailAddress = '" & Session("EMailAddress" & "';"
rsPersonIDCheck.Open strSQL, objConn
If rsPersonIDCheck.EOF Then
Session("blnValidUser" = False
Else
Session("PersonID" = rsPersonIDCheck("PersonID"
End If
rsPersonIDCheck.Close
Set rsPersonIDCheck = Nothing
End If
%>
Iam making an E-COMMERCE web-site and this is an ASP code that i have been using to connect the ACCESS DATA BASE but the problem i have been facing is that this code is not connecting with the DATA BASE could any one please help me out that what is the problem in it.
reply as soon as possible
thanks gilca
<!-- METADATA TYPE="typelib"
FILE="C:\Program Files\Common Files\SYSTEM\ADO\msado15.dll" -->
<%
Dim objconn
Set objconn = Server.CreateObject ("ADODB.Connection"
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection"
objconn.open "DSN=abs"
If Session("blnValidUser" = True and Session("PersonID" = "" Then
Dim rsPersonIDCheck
Set rsPersonIDCheck = Server.CreateObject("ADODB.Recordset"
Dim strSQL
strSQL = "SELECT PersonID FROM Person " & _
"WHERE EMailAddress = '" & Session("EMailAddress" & "';"
rsPersonIDCheck.Open strSQL, objConn
If rsPersonIDCheck.EOF Then
Session("blnValidUser" = False
Else
Session("PersonID" = rsPersonIDCheck("PersonID"
End If
rsPersonIDCheck.Close
Set rsPersonIDCheck = Nothing
End If
%>