Question
Problem updating and inserting data do MS Access
I'm working on a site with ASP technology (VBScript) and a MS
Access database.
Everything's been working just fine untill I started building the backoffice.
Since I've been using the Dreamweaver server objects to help me out and my server host didn't give direct access, I solved the problem using 2 different Connection files: one is used locally and refers to the database in Inetpub, the other is remote and uses de function "Mappath". I'm only telling this, in case it might has something to do with the problem I'm having.
So, when I build a page like a simple login to my users, and click the "submit" button on the form, the result is that it neither shows up any error nor it goes to a an of the pages I indicated on the "Login user" Server behaviour. It dows a refresh, and that's it.
Does anyone can help?
Here's the code for a simple login:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/ligSocomage.asp" -->
<%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString)
MM_valUsername=CStr(Request.Form("_login"))
If MM_valUsername <> "" Then
MM_fldUserAuthorization=""
MM_redirectLoginSuccess="_entrada.asp"
MM_redirectLoginFailed="_erroLogin.asp"
MM_flag="ADODB.Recordset"
set MM_rsUser = Server.CreateObject(MM_flag)
MM_rsUser.ActiveConnection = MM_ligSocomage_STRING
MM_rsUser.Source = "SELECT uLogin, uPass"
If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization
MM_rsUser.Source = MM_rsUser.Source & " FROM Utilizadores WHERE uLogin='" & Replace(MM_valUsername,"'","''") &"' AND uPass='" & Replace(Request.Form("_pass"),"'","''") & "'"
MM_rsUser.CursorType = 0
MM_rsUser.CursorLocation = 2
MM_rsUser.LockType = 3
MM_rsUser.Open
If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then
' username and password match - this is a valid user
Session("MM_Username") = MM_valUsername
If (MM_fldUserAuthorization <> "") Then
Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
Else
Session("MM_UserAuthorization") = ""
End If
if CStr(Request.QueryString("accessdenied")) <> "" And false Then
MM_redirectLoginSuccess = Request.QueryString("accessdenied")
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginSuccess)
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginFailed)
End If
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" " http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns=" http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitled Document</title>
</head>
<body>
<form id="form" name="formLogin" method="POST" action="<%=MM_LoginAction%>">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><div align="right">login</div></td>
<td><input name="_login" type="text" id="_login" /> </td>
</tr>
<tr>
<td><div align="right">pass</div></td>
<td><label>
<input name="_pass" type="text" id="_pass" />
</label></td>
</tr>
<tr>
<td><div align="right"></div></td>
<td><label>
<input type="submit" name="Submit" value="Submit" />
</label></td>
</tr>
</table>
</form>
</body>
</html>
Everything's been working just fine untill I started building the backoffice.
Since I've been using the Dreamweaver server objects to help me out and my server host didn't give direct access, I solved the problem using 2 different Connection files: one is used locally and refers to the database in Inetpub, the other is remote and uses de function "Mappath". I'm only telling this, in case it might has something to do with the problem I'm having.
So, when I build a page like a simple login to my users, and click the "submit" button on the form, the result is that it neither shows up any error nor it goes to a an of the pages I indicated on the "Login user" Server behaviour. It dows a refresh, and that's it.
Does anyone can help?
Here's the code for a simple login:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/ligSocomage.asp" -->
<%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL")
If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString)
MM_valUsername=CStr(Request.Form("_login"))
If MM_valUsername <> "" Then
MM_fldUserAuthorization=""
MM_redirectLoginSuccess="_entrada.asp"
MM_redirectLoginFailed="_erroLogin.asp"
MM_flag="ADODB.Recordset"
set MM_rsUser = Server.CreateObject(MM_flag)
MM_rsUser.ActiveConnection = MM_ligSocomage_STRING
MM_rsUser.Source = "SELECT uLogin, uPass"
If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization
MM_rsUser.Source = MM_rsUser.Source & " FROM Utilizadores WHERE uLogin='" & Replace(MM_valUsername,"'","''") &"' AND uPass='" & Replace(Request.Form("_pass"),"'","''") & "'"
MM_rsUser.CursorType = 0
MM_rsUser.CursorLocation = 2
MM_rsUser.LockType = 3
MM_rsUser.Open
If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then
' username and password match - this is a valid user
Session("MM_Username") = MM_valUsername
If (MM_fldUserAuthorization <> "") Then
Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
Else
Session("MM_UserAuthorization") = ""
End If
if CStr(Request.QueryString("accessdenied")) <> "" And false Then
MM_redirectLoginSuccess = Request.QueryString("accessdenied")
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginSuccess)
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginFailed)
End If
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" " http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns=" http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitled Document</title>
</head>
<body>
<form id="form" name="formLogin" method="POST" action="<%=MM_LoginAction%>">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><div align="right">login</div></td>
<td><input name="_login" type="text" id="_login" /> </td>
</tr>
<tr>
<td><div align="right">pass</div></td>
<td><label>
<input name="_pass" type="text" id="_pass" />
</label></td>
</tr>
<tr>
<td><div align="right"></div></td>
<td><label>
<input type="submit" name="Submit" value="Submit" />
</label></td>
</tr>
</table>
</form>
</body>
</html>
AdChoices