Can you explain me this code lines

Herminio · Sep 16, 2002

I have this code lines in one page(login.asp)

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL&quot

If Request.QueryString <>"" Then MM_LoginAction = MM_LoginAction + "?" + Request.QueryString
MM_valUsername=CStr(Request.Form("textfield&quot

)
If MM_valUsername <> "" Then
MM_fldUserAuthorization=""
MM_redirectLoginSuccess="teste1.asp"
MM_redirectLoginFailed="invalidlog.asp"
MM_flag="ADODB.Recordset"
set MM_rsUser = Server.CreateObject(MM_flag)
MM_rsUser.ActiveConnection = MM_teste_STRING
MM_rsUser.Source = "SELECT Colect, password"
If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization
MM_rsUser.Source = MM_rsUser.Source & " FROM member WHERE Colect='" & Replace(MM_valUsername,"'","''&quot

&"' AND password='" & Replace(Request.Form("textfield2&quot

,"'","''&quot

& "'"
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&quot

= MM_valUsername
If (MM_fldUserAuthorization <> "&quot

Then
Session("MM_UserAuthorization&quot

= CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
Else
Session("MM_UserAuthorization&quot

= ""
End If
if CStr(Request.QueryString("accessdenied&quot

) <> "" And true Then
MM_redirectLoginSuccess = Request.QueryString("accessdenied&quot

End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginSuccess)
End If
MM_rsUser.Close
Response.Redirect(MM_redirectLoginFailed)
End If
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<form name="form1" method="POST" action="<%=MM_LoginAction%>">
<label>username
<input type="text" name="textfield">
</label>
<br>
<label>password
<input type="text" name="textfield2">
<br>
<input type="submit" name="Submit" value="login">
</label>
</form>
<br>
</body>
</html>

when i get to the teste1.asp page i use request.querystring("textfield&quot

to make the SQL statement but i can't get the information passed from the first page.
Can you explain me how this works.

in this lines here i can understand that it's getting the value to assign to the URL from somewhere, but it doesn't work.

MM_LoginAction = Request.ServerVariables("URL&quot

If Request.QueryString <>"" Then MM_LoginAction = MM_LoginAction + "?" + Request.QueryString

Herminio · Sep 16, 2002

Please someone help me i'm stuck

GaryC123 · Sep 16, 2002

try request.form("textfield&quot

onpnt · Sep 16, 2002

Just want to clarify for the learning aspect of things.
method="POST"
and
method="GET"
are the two choices we have in how we submit form fields/values. If you use GET then you would use the Request.Querystring reuest, and for POST it would be Request.Form. This is fairly important as you have found out here, but they are from what I have seen most commeonly confused on how and where they are used. A little more, if you are posting to the same page and for some instances Request(" &quot

will also be available to use. You will surly see this at one time or another.

hope that clears things up and helps out

http://www.onpntwebdesigns.com

admin@onpntwebdesigns.com

Herminio · Sep 16, 2002

i'm aware of that onpt, but i'm using Dreamweaver and if you see the code i've posted you see that the form action is a variable that DWMX creates and we've tried to use request.form also but it just doesn't work.

Gorkem · Sep 16, 2002

Onpnt,

I just simply always use REQUEST(" &quot

because some people press ENTER from a form (Sends using GET) and others press SUBMIT (sends using POST) even though the form method is set to POST. I find using just REQUEST(" &quot

works 100% of the time for me.

Cheers,

Gorkem.

onpnt · Sep 16, 2002

Gorkem
good tip, however I have run into some issues before with restricting to that method

Herminio
Can you explain me how this works.
It sounded like that is what you were asking for. how to send values to the next page etc..

onpnt

http://www.onpntwebdesigns.com

admin@onpntwebdesigns.com

Gorkem · Sep 16, 2002

I think the problem lies in the fact that your using Dreamweaver.. I find using WYSIWYG products always end up messing up the final code. Why not try Visual InterDev, since it is specifically geared towards ASP development.

Just a thought..

Cheers,

Gorkem.

Herminio · Sep 16, 2002

i know that it makes a messy code, but that's not the cause for the error, if it makes things that way probably they(on Macromedia)think is the best way, but it must work the same as if i was writting the code myself, don't you think?

Herminio · Sep 16, 2002

I've used Session Variable to pass the value for the next page, is this correct, what are the problems with using session variable, on this situation?

khorjak · Sep 16, 2002

Right at the top of the next page (upon a user hitting the submit button), do this:

Response.Write Request.Form("textfield&quot

Response.Write Request.Form("textfield2&quot

See if you're actually getting any data at all from the form. From the code, it doesn't look like there should be any problems.
To err is human, but to really foul things up requires a computer.
- Farmers' Almanac, 1978

Herminio · Sep 16, 2002

If i use Session Variable it works just fine

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Session("usr&quot <> "&quot Then
Recordset1__MMColParam = Session("usr&quot
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset&quot
Recordset1.ActiveConnection = MM_teste_STRING
Recordset1.Source = "SELECT * FROM member WHERE Colect = '" + Replace(Recordset1__MMColParam, "'", "''&quot + "'"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>

<% If not Recordset1.eof Then %>
</p>
<p>This is your information </p>
<p>Username: <%=(Recordset1.Fields.Item("Colect&quot.Value)%></p>
<p>Password: <%=(Recordset1.Fields.Item("password&quot.Value)%></p>
<% End If %>

</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>

Is it correct to use Session Variable in this case

onpnt · Sep 16, 2002

that is absolutely fine to do!

http://www.onpntwebdesigns.com

admin@onpntwebdesigns.com

onpnt · Sep 16, 2002

it always seems easier to declare variables in the beginning of any script with the proper values and then use those for calculations and or conditions.

http://www.onpntwebdesigns.com

admin@onpntwebdesigns.com

Herminio · Sep 16, 2002

Thanks guys

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Can you explain me this code lines

Herminio

Technical User

Herminio

Technical User

GaryC123

Programmer

onpnt

Programmer

Herminio

Technical User

Gorkem

Programmer

onpnt

Programmer

Gorkem

Programmer

Herminio

Technical User

Herminio

Technical User

khorjak

Programmer

Herminio

Technical User

onpnt

Programmer

onpnt

Programmer

Herminio

Technical User

Similar threads

Part and Inventory Search

Sponsor