theuglytree
Programmer
hi,
i have just entered the world of ASP and need some help... i can get the code (shown below) to work locally running iis but i want it to work on a server... i'm also using an inc file...
what am i doing wrong.... i would be grateful if you could help
thanks...
theuglytree
<%@ Language=VBScript %>
<% Option Explicit %>
<!--#include virtual="adovbs.inc"-->
<%
Dim objConn, objRS, bolFound, ManagementUserID
Set objConn = Server.CreateObject("ADODB.Connection"
objConn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=C:\My Websites\db\ManLog.mdb"
objConn.Open
bolFound = False
If (Request.Form("txtUserID" <> "" AND (Request.Form("txtPassword" <> "" Then
Set objRS = Server.CreateObject("ADODB.Recordset"
objRS.Open "tblLogin", objConn, adOpenStatic, adLockOptimistic, adCmdTable
ManagementUserID = Request.Form("txtUserID"
Do While Not (objRS.EOF OR bolFound)
If (strComp(objRS("txtUserID", Request.Form("txtUserID", vbTextCompare) = 0) AND (strComp(objRS("txtPassword", Request.Form("txtPassword", vbTextCompare) = 0) Then
bolFound = True
Else
objRS.MoveNext
End If
Loop
If bolFound Then
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
Response.Cookies("ManagementUserID"=ManagementUserID 'set cookie
Response.Redirect ("mngement/m_index.asp"
End If
End If
%>
i have just entered the world of ASP and need some help... i can get the code (shown below) to work locally running iis but i want it to work on a server... i'm also using an inc file...
what am i doing wrong.... i would be grateful if you could help
thanks...
theuglytree
<%@ Language=VBScript %>
<% Option Explicit %>
<!--#include virtual="adovbs.inc"-->
<%
Dim objConn, objRS, bolFound, ManagementUserID
Set objConn = Server.CreateObject("ADODB.Connection"
objConn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=C:\My Websites\db\ManLog.mdb"
objConn.Open
bolFound = False
If (Request.Form("txtUserID" <> "" AND (Request.Form("txtPassword" <> "" Then
Set objRS = Server.CreateObject("ADODB.Recordset"
objRS.Open "tblLogin", objConn, adOpenStatic, adLockOptimistic, adCmdTable
ManagementUserID = Request.Form("txtUserID"
Do While Not (objRS.EOF OR bolFound)
If (strComp(objRS("txtUserID", Request.Form("txtUserID", vbTextCompare) = 0) AND (strComp(objRS("txtPassword", Request.Form("txtPassword", vbTextCompare) = 0) Then
bolFound = True
Else
objRS.MoveNext
End If
Loop
If bolFound Then
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
Response.Cookies("ManagementUserID"=ManagementUserID 'set cookie
Response.Redirect ("mngement/m_index.asp"
End If
End If
%>