Forums

This topic is locked

IF LOGIN FAILS

Posted 16 Sep 2004 12:40:13
1
has voted
16 Sep 2004 12:40:13 Ric A posted:
There is a script that control a part of code in a conditional statement example if login fails redirect in other section of the page like this site dmxzone.com?
In this site when you put a wrong login and password in the right of the page appear a message in the same place:

<b><font color=red>Invalid Username or password! </b></font id=red>
Username:
Password:

Save Password?

Forgot your Password?
Sign up / register

Can we help me to write the script of the conditional statement if login fails changes only the right portion of the page with message (INVALID USERNAME OR PASSWORD) and the other portion of the page like section left and center do not change?

Thanks a lot (sorry for my bad english)

Replies

Replied 17 Sep 2004 13:20:15
17 Sep 2004 13:20:15 Lee Diggins replied:
Hi

Are you using the 'Log In User' server behaviour? If you are then set the 'If Login Fails, Go To:' field to the name of your login page and ?err=1, like this:

myLoginPageName.asp?err=1

You can then check for 'err=1' in the quesrystring and display text if it exists, like this:

&lt;%
If Request.QueryString("err" = "1" Then
Response.Write("Invalid Username or Password"
End If
%&gt;

Digga

Sharing Knowledge Saves Valuable Time!!!
Replied 17 Sep 2004 14:36:40
17 Sep 2004 14:36:40 Ric A replied:
Thanks Digga

But If the users wants logging in every moment I must set a page for error logging, there is a way where the user when insert username and password in every moment (each section of the site) change only the include file which contains username and password fields like this site?

If you want I send you the code!

Thanks a lot
Ric
Replied 17 Sep 2004 15:04:18
17 Sep 2004 15:04:18 Lee Diggins replied:
Pulls

I'm sorry but I do not understand what you want, I've answered your original question, well I thought I had, maybe you don't understand the answer.

Then again I probably don't understand your question.

Digga

Sharing Knowledge Saves Valuable Time!!!
Replied 17 Sep 2004 17:33:46
17 Sep 2004 17:33:46 Jeremy Conn replied:
Digga,
Not sure if Pulls found this useful, but I did... thanks for the easy method of showing that error.

<b>Connman21</b>
www.conncreativemedia.com
<b>DEVELOPMENT SETUP</b>
DWMX 2004 Studio
Web Server: IIS5
DB: Access2003/SQL2000
OS: XP Pro
Language: ASP/VB
Replied 17 Sep 2004 18:36:14
17 Sep 2004 18:36:14 Lee Diggins replied:
You're welcome!

Any idea where I missed the point on this one?

Digga

Sharing Knowledge Saves Valuable Time!!!
Replied 17 Sep 2004 19:09:16
17 Sep 2004 19:09:16 Ric A replied:
Ok, I try to rewrite the question the most clear I can.
When you see this topic at URL

www.dmxzone.com/forum/topic.asp?TOPIC_ID=29474&FORUM_ID=544&CAT_ID=2&Topic_Title=IF+LOGIN+FAILS&Forum_Title=%2A%2A%2A+Macromedia+MX+%2A%2A%2A

you can see both you are logged and not.
In first case if you are logged in the right section of the page appear the USER STATS and active user.


<img src="www.studioarletti.it/2.jpg" border=0>

In the second case if you are not logged appear the form field with username and password.

<img src="www.studioarletti.it/1.jpg" border=0>

Now if you want to login in anytime, only the right section of the page changes, and the URL is the same.
How I can do this?
There is a way to don't set a redirect URL, but only redirect an other section of the page wich contain a LOGIN FAIL or a LOGGED SUCCESSFULLY?

Thanks a lot

Ric

Edited by - pulls on 17 Sep 2004 19:49:39

Edited by - pulls on 17 Sep 2004 19:52:16
Replied 20 Sep 2004 11:56:46
20 Sep 2004 11:56:46 Lee Diggins replied:
Hi Pulls

Okay I understand I think.

The answer I gave will do want you want but the 'Log In User' server behaviour will need to be changed when a user fails to login correctly, set the 'If Login Fails, Go To:':

&lt;% Request.ServerVariables("HTTP_REFERER" & "&err=1" %&gt;

instead of:

myLoginPageName.asp?err=1

And use the code below to check and display the error message:

&lt;%
If Request.QueryString("err" = "1" Then
Response.Write("Invalid Username or Password"
End If
%&gt;

Digga

Sharing Knowledge Saves Valuable Time!!!
Replied 21 Sep 2004 18:38:36
21 Sep 2004 18:38:36 Ric A replied:
THANKS DIGGA BUT I HAVE AN ERROR

Tipo di errore:
Errore di compilazione di Microsoft VBScript (0x800A0401)
Prevista fine istruzione
/datasetservice/includes/menu_dx.asp, line 10, column 52
MM_redirectLoginFailed="&lt;% Request.ServerVariables("HTTP_REFERER" & "&err=1"
---------------------------------------------------^

I don't now if it is.

Any help?

<BLOCKQUOTE id=quote><font size=1 face="Verdana, Arial, Helvetica" id=quote>quote:<hr height=1 noshade id=quote>
Hi Pulls

Okay I understand I think.

The answer I gave will do want you want but the 'Log In User' server behaviour will need to be changed when a user fails to login correctly, set the 'If Login Fails, Go To:':

&lt;% Request.ServerVariables("HTTP_REFERER" & "&err=1" %&gt;

instead of:

myLoginPageName.asp?err=1

And use the code below to check and display the error message:

&lt;%
If Request.QueryString("err" = "1" Then
Response.Write("Invalid Username or Password"
End If
%&gt;

Digga

Sharing Knowledge Saves Valuable Time!!!
<hr height=1 noshade id=quote></BLOCKQUOTE id=quote></font id=quote><font face="Verdana, Arial, Helvetica" size=2 id=quote>
Replied 22 Sep 2004 11:02:34
22 Sep 2004 11:02:34 Lee Diggins replied:
Make sure this line only contains the following code and nothing else:

MM_redirectLoginFailed = Request.ServerVariables("HTTP_REFERER" & "&err=1"


Digga

Sharing Knowledge Saves Valuable Time!!!
Replied 23 Sep 2004 19:18:08
23 Sep 2004 19:18:08 Ric A replied:
Thanks Digga

When the login fails in the URL there is
&err%3D1
and not err=1

The page not be found

Any help?

Ric
Replied 24 Sep 2004 11:09:05
24 Sep 2004 11:09:05 Lee Diggins replied:
Hi Ric

Sorry my mistake.

You need to insert this code your asp page above the MM_redirectLoginFailed line:

&lt;%
Dim myRedirect, myReferer

myReferer = Request.ServerVariables("HTTP_REFERER"

If (InStr(1, myReferer, "?", 1) = 0 And Request.QueryString &lt;&gt; "" Then
myRedirect = myReferer & "?err=1"
Else
myRedirect = myReferer & "&err=1"
End If

%&gt;

And change the MM_redirectLoginFailed to:

MM_redirectLoginFailed = myRedirect

If you are still having problems, then post your code.

Digga

Sharing Knowledge Saves Valuable Time!!!
Replied 24 Sep 2004 20:38:09
24 Sep 2004 20:38:09 Ric A replied:
Maybe the code is correctly. But there is an error message

ASP 0158 (0x80004005)
specify an URL

Any idea?

Thanks
Replied 27 Sep 2004 10:51:01
27 Sep 2004 10:51:01 Lee Diggins replied:
Can you post your entire asp page?

Digga

Sharing Knowledge Saves Valuable Time!!!
Replied 27 Sep 2004 15:20:00
27 Sep 2004 15:20:00 Ric A replied:
This is the code:

&lt;%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL"
If Request.QueryString&lt;&gt;"" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString)
MM_valUsername=CStr(Request.Form("username")
If MM_valUsername &lt;&gt; "" Then
MM_fldUserAuthorization=""
MM_redirectLoginSuccess="#"
MM_redirectLoginFailed = myRedirect
MM_flag="ADODB.Recordset"
set MM_rsUser = Server.CreateObject(MM_flag)
MM_rsUser.ActiveConnection = MM_dataset_STRING
MM_rsUser.Source = "SELECT nome_utente, password"
If MM_fldUserAuthorization &lt;&gt; "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization
MM_rsUser.Source = MM_rsUser.Source & " FROM registrazione WHERE nome_utente='" & Replace(MM_valUsername,"'","''" &"' AND password='" & Replace(Request.Form("password","'","''" & "'"
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 &lt;&gt; "" Then
Session("MM_UserAuthorization" = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
Else
Session("MM_UserAuthorization" = ""
End If
if CStr(Request.QueryString("accessdenied") &lt;&gt; "" 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
%&gt;
&lt;script language="JavaScript"&gt;
&lt;!--

function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i&lt;a.length; i++)
if (a[i].indexOf("#"!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

//--&gt;
&lt;/script&gt;
&lt;style type="text/css"&gt;
&lt;!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
.style4 {color: #000000}
--&gt;
&lt;/style&gt;
&lt;link href="../stile.css" rel="stylesheet" type="text/css"&gt;
&lt;script language="JavaScript" type="text/JavaScript"&gt;
&lt;!--
function MM_swapImgRestore() { //v3.0
var i,x,a=document.MM_sr; for(i=0;a&&i&lt;a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?")&gt;0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i&lt;d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i&lt;d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_swapImage() { //v3.0
var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i&lt;(a.length-2);i+=3)
if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//--&gt;
&lt;/script&gt;
&lt;style type="text/css"&gt;
&lt;!--
.style7 {font-size: 11px}
.style5 { font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 12px;
font-weight: bold;
color: #000000;
}
--&gt;
&lt;/style&gt;
&lt;body bgcolor="#ff9900" onLoad="MM_preloadImages('../porzioni/menu/menu_r16_c1_f2.gif','../porzioni/menudx/menudx_r2_c1_f2.gif','../porzioni/menudx/menudx_r3_c1_f2.gif','../porzioni/menudx/menudx_r4_c1_f2.gif','../porzioni/menudx/menudx_r6_c1_f2.gif')"&gt;
&lt;% IF Session("MM_Username" &lt;&gt; "" THEN %&gt;
&lt;table width="230" height="162" border="0" cellpadding="0" cellspacing="0"&gt;
&lt;tr&gt;
&lt;td height="22"&gt;&lt;img src="../imgs/area_ris.gif" width="230" height="22"&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td height="130"&gt;
&lt;table width="224" border="0" align="center" cellpadding="0" cellspacing="0"&gt;
&lt;tr&gt;
&lt;td height="61"&gt;&lt;div align="center" class="txt"&gt;&lt;span class="testo"&gt;S&lt;span class="style4"&gt;alve&nbsp;&lt;strong&gt;&lt;%= Session("MM_Username" %&gt;&lt;/strong&gt;&nbsp;adesso pu&ograve; accedere &lt;br&gt;
all'area riservata cliccando sui link sottostanti &lt;/span&gt;&lt;/span&gt;&lt;span class="style4"&gt;&lt;span class="style7"&gt;&lt;br&gt;
&lt;/span&gt;&lt;/span&gt;&lt;/div&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;/table&gt;
&lt;table width="230" border="0" cellspacing="0" cellpadding="0"&gt;
&lt;tr&gt;
&lt;td width="230"&gt;&lt;table border="0" cellpadding="0" cellspacing="0" width="230"&gt;
&lt;tr&gt;
&lt;td&gt;&lt;img src="../porzioni/menudx/spacer.gif" width="230" height="1" border="0" alt=""&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;/table&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td&gt;&lt;table border="0" cellpadding="0" cellspacing="0" width="230"&gt;
&lt;tr&gt;
&lt;td&gt;&lt;img src="../porzioni/menudx/spacer.gif" width="230" height="1" border="0" alt=""&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td&gt;&lt;img name="menudx_r1_c1" src="../porzioni/menudx/menudx_r1_c1.gif" width="230" height="23" border="0" alt=""&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td&gt;&lt;a href="#" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('menudx_r2_c11','','../porzioni/menudx/menudx_r2_c1_f2.gif',1)"&gt;&lt;img src="../porzioni/menudx/menudx_r2_c1.gif" alt="" name="menudx_r2_c11" width="230" height="22" border="0" id="menudx_r2_c11"&gt;&lt;/a&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td&gt;&lt;a href="#" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('menudx_r3_c11','','../porzioni/menudx/menudx_r3_c1_f2.gif',1)"&gt;&lt;img src="../porzioni/menudx/menudx_r3_c1.gif" alt="" name="menudx_r3_c11" width="230" height="22" border="0" id="menudx_r3_c11"&gt;&lt;/a&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td&gt;&lt;a href="#" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('menudx_r4_c11','','../porzioni/menudx/menudx_r4_c1_f2.gif',1)"&gt;&lt;img src="../porzioni/menudx/menudx_r4_c1.gif" alt="" name="menudx_r4_c11" width="230" height="22" border="0" id="menudx_r4_c11"&gt;&lt;/a&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td&gt;&lt;img name="menudx_r5_c1" src="../porzioni/menudx/menudx_r5_c1.gif" width="230" height="5" border="0" alt=""&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td&gt;&lt;a href="#" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('menudx_r6_c11','','../porzioni/menudx/menudx_r6_c1_f2.gif',1)"&gt;&lt;img src="../porzioni/menudx/menudx_r6_c1.gif" alt="" name="menudx_r6_c11" width="230" height="22" border="0" id="menudx_r6_c11"&gt;&lt;/a&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;/table&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;/table&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;/table&gt;
&lt;% else %&gt;
&lt;form name="form1" method="POST" action="&lt;%=MM_LoginAction%&gt;"&gt;
&lt;table width="230" height="162" border="0" cellpadding="0" cellspacing="0"&gt;
&lt;tr&gt;
&lt;td height="22"&gt;&lt;img src="../imgs/area_ris.gif" width="230" height="22"&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td height="130"&gt;&lt;table width="230" border="0" cellspacing="0" cellpadding="0"&gt;
&lt;tr&gt;
&lt;td width="82" height="22" class="form"&gt;&lt;div align="right"&gt;Nome utente: &lt;/div&gt;&lt;/td&gt;
&lt;td width="148"&gt;
&lt;div align="left"&gt;
&lt;input name="username" type="text" class="sform" onfocus="if(this.value=='mario.rossi')this.value='';" id="username" value="mario.rossi"&gt;
&lt;/div&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td class="form"&gt;&lt;div align="right"&gt;Password: &lt;/div&gt;&lt;/td&gt;
&lt;td&gt;
&lt;div align="left"&gt;
&lt;input name="password" type="password" class="sform" onfocus="if(this.value=='aaaaaa')this.value='';" id="password" value="aaaaaa"&gt;
&lt;/div&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td height="25"&gt;&nbsp;&lt;/td&gt;
&lt;td&gt;&lt;input name="imageField" type="image" src="../imgs/login.gif" width="57" height="21" border="0"&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td height="31" colspan="2" class="link"&gt;&lt;div align="center" class="style4"&gt;Non hai ancora nome utente e password?&lt;strong&gt; &lt;/strong&gt;&lt;a href="../registrati/registrati.asp"&gt;&lt;strong&gt;registrati &lt;/strong&gt;&lt;/a&gt;&lt;/div&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td colspan="2"&gt;&lt;table border="0" cellpadding="0" cellspacing="0" width="230"&gt;
&lt;!-- fwtable fwsrc="menudx.png" fwbase="menudx.gif" fwstyle="Dreamweaver" fwdocid = "742308039" fwnested="0" --&gt;
&lt;tr&gt;
&lt;td&gt;&lt;img src="../porzioni/menudx/spacer.gif" width="230" height="1" border="0" alt=""&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;/table&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td colspan="2"&gt;&lt;table border="0" cellpadding="0" cellspacing="0" width="230"&gt;
&lt;!-- fwtable fwsrc="menudx.png" fwbase="menudx.gif" fwstyle="Dreamweaver" fwdocid = "742308039" fwnested="0" --&gt;
&lt;tr&gt;
&lt;td&gt;&lt;img src="../porzioni/menudx/spacer.gif" width="230" height="1" border="0" alt=""&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td&gt;&lt;img name="menudx_r1_c1" src="../porzioni/menudx/menudx_r1_c1.gif" width="230" height="23" border="0" alt=""&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td&gt;&lt;a href="#" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('menudx_r2_c1','','../porzioni/menudx/menudx_r2_c1_f2.gif',1)"&gt;&lt;img name="menudx_r2_c1" src="../porzioni/menudx/menudx_r2_c1.gif" width="230" height="22" border="0" alt=""&gt;&lt;/a&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td&gt;&lt;a href="#" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('menudx_r3_c1','','../porzioni/menudx/menudx_r3_c1_f2.gif',1)"&gt;&lt;img name="menudx_r3_c1" src="../porzioni/menudx/menudx_r3_c1.gif" width="230" height="22" border="0" alt=""&gt;&lt;/a&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td&gt;&lt;a href="#" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('menudx_r4_c1','','../porzioni/menudx/menudx_r4_c1_f2.gif',1)"&gt;&lt;img name="menudx_r4_c1" src="../porzioni/menudx/menudx_r4_c1.gif" width="230" height="22" border="0" alt=""&gt;&lt;/a&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td&gt;&lt;img name="menudx_r5_c1" src="../porzioni/menudx/menudx_r5_c1.gif" width="230" height="5" border="0" alt=""&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td&gt;&lt;a href="#" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('menudx_r6_c1','','../porzioni/menudx/menudx_r6_c1_f2.gif',1)"&gt;&lt;img name="menudx_r6_c1" src="../porzioni/menudx/menudx_r6_c1.gif" width="230" height="22" border="0" alt=""&gt;&lt;/a&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;/table&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;/table&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;/table&gt;
&lt;/form&gt;
&lt;% end if %&gt;
&lt;%
Dim myRedirect, myReferer

myReferer = Request.ServerVariables("HTTP_REFERER"

If (InStr(1, myReferer, "?", 1) = 0 And Request.QueryString &lt;&gt; "" Then
myRedirect = myReferer & "?err=1"
Else
myRedirect = myReferer & "&err=1"
End If

%&gt;

&lt;/span&gt;
&lt;/body&gt;
Replied 27 Sep 2004 17:28:47
27 Sep 2004 17:28:47 Lee Diggins replied:
Hi

I've quickly checked the code and you've put this code at the bottom of the page:

&lt;%
Dim myRedirect, myReferer

myReferer = Request.ServerVariables("HTTP_REFERER"

If (InStr(1, myReferer, "?", 1) = 0 And Request.QueryString &lt;&gt; "" Then
myRedirect = myReferer & "?err=1"
Else
myRedirect = myReferer & "&err=1"
End If

%&gt;

I advised you to put it before the MM_redirectLoginFailed line....

<BLOCKQUOTE id=quote><font size=1 face="Verdana, Arial, Helvetica" id=quote>quote:<hr height=1 noshade id=quote>You need to insert this code your asp page <b>above the MM_redirectLoginFailed</b> line:

&lt;%
Dim myRedirect, myReferer

myReferer = Request.ServerVariables("HTTP_REFERER"

If (InStr(1, myReferer, "?", 1) = 0 And Request.QueryString &lt;&gt; "" Then
myRedirect = myReferer & "?err=1"
Else
myRedirect = myReferer & "&err=1"
End If

%&gt;

And change the MM_redirectLoginFailed to:

MM_redirectLoginFailed = myRedirect

If you are still having problems, then post your code.
<hr height=1 noshade id=quote></BLOCKQUOTE id=quote></font id=quote><font face="Verdana, Arial, Helvetica" size=2 id=quote>

Digga

Sharing Knowledge Saves Valuable Time!!!
Replied 27 Sep 2004 20:23:27
27 Sep 2004 20:23:27 Ric A replied:
Thanks Digga I'm so stupid, but I have the same error the page was not found.

I send you the code:

&lt;%
' *** Validate request to log in to this site.
MM_LoginAction = Request.ServerVariables("URL"
If Request.QueryString&lt;&gt;"" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString)
MM_valUsername=CStr(Request.Form("username")
If MM_valUsername &lt;&gt; "" Then
MM_fldUserAuthorization=""
MM_redirectLoginSuccess="#"

Dim myRedirect, myReferer

myReferer = Request.ServerVariables("HTTP_REFERER"

If (InStr(1, myReferer, "?", 1) = 0 And Request.QueryString &lt;&gt; "" Then
myRedirect = myReferer & "?err=1"
Else
myRedirect = myReferer & "&err=1"
End If


MM_redirectLoginFailed = myRedirect
MM_flag="ADODB.Recordset"
set MM_rsUser = Server.CreateObject(MM_flag)
MM_rsUser.ActiveConnection = MM_dataset_STRING
MM_rsUser.Source = "SELECT nome_utente, password"
If MM_fldUserAuthorization &lt;&gt; "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization
MM_rsUser.Source = MM_rsUser.Source & " FROM registrazione WHERE nome_utente='" & Replace(MM_valUsername,"'","''" &"' AND password='" & Replace(Request.Form("password","'","''" & "'"
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 &lt;&gt; "" Then
Session("MM_UserAuthorization" = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value)
Else
Session("MM_UserAuthorization" = ""
End If
if CStr(Request.QueryString("accessdenied") &lt;&gt; "" 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
%&gt;
&lt;script language="JavaScript"&gt;
&lt;!--

function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i&lt;a.length; i++)
if (a[i].indexOf("#"!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

//--&gt;
&lt;/script&gt;
&lt;style type="text/css"&gt;
&lt;!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
.style4 {color: #000000}
--&gt;
&lt;/style&gt;
&lt;link href="../stile.css" rel="stylesheet" type="text/css"&gt;
&lt;script language="JavaScript" type="text/JavaScript"&gt;
&lt;!--
function MM_swapImgRestore() { //v3.0
var i,x,a=document.MM_sr; for(i=0;a&&i&lt;a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?")&gt;0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i&lt;d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i&lt;d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_swapImage() { //v3.0
var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i&lt;(a.length-2);i+=3)
if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//--&gt;
&lt;/script&gt;
&lt;style type="text/css"&gt;
&lt;!--
.style7 {font-size: 11px}
.style5 { font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 12px;
font-weight: bold;
color: #000000;
}
--&gt;
&lt;/style&gt;
&lt;body bgcolor="#ff9900" onLoad="MM_preloadImages('../porzioni/menu/menu_r16_c1_f2.gif','../porzioni/menudx/menudx_r2_c1_f2.gif','../porzioni/menudx/menudx_r3_c1_f2.gif','../porzioni/menudx/menudx_r4_c1_f2.gif','../porzioni/menudx/menudx_r6_c1_f2.gif')"&gt;
&lt;% IF Session("MM_Username" &lt;&gt; "" THEN %&gt;
&lt;table width="230" height="162" border="0" cellpadding="0" cellspacing="0"&gt;
&lt;tr&gt;
&lt;td height="22"&gt;&lt;img src="../imgs/area_ris.gif" width="230" height="22"&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td height="130"&gt;
&lt;table width="224" border="0" align="center" cellpadding="0" cellspacing="0"&gt;
&lt;tr&gt;
&lt;td height="61"&gt;&lt;div align="center" class="txt"&gt;&lt;span class="testo"&gt;S&lt;span class="style4"&gt;alve&nbsp;&lt;strong&gt;&lt;%= Session("MM_Username" %&gt;&lt;/strong&gt;&nbsp;adesso pu&ograve; accedere &lt;br&gt;
all'area riservata cliccando sui link sottostanti &lt;/span&gt;&lt;/span&gt;&lt;span class="style4"&gt;&lt;span class="style7"&gt;&lt;br&gt;
&lt;/span&gt;&lt;/span&gt;&lt;/div&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;/table&gt;
&lt;table width="230" border="0" cellspacing="0" cellpadding="0"&gt;
&lt;tr&gt;
&lt;td width="230"&gt;&lt;table border="0" cellpadding="0" cellspacing="0" width="230"&gt;
&lt;tr&gt;
&lt;td&gt;&lt;img src="../porzioni/menudx/spacer.gif" width="230" height="1" border="0" alt=""&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;/table&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td&gt;&lt;table border="0" cellpadding="0" cellspacing="0" width="230"&gt;
&lt;tr&gt;
&lt;td&gt;&lt;img src="../porzioni/menudx/spacer.gif" width="230" height="1" border="0" alt=""&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td&gt;&lt;img name="menudx_r1_c1" src="../porzioni/menudx/menudx_r1_c1.gif" width="230" height="23" border="0" alt=""&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td&gt;&lt;a href="#" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('menudx_r2_c11','','../porzioni/menudx/menudx_r2_c1_f2.gif',1)"&gt;&lt;img src="../porzioni/menudx/menudx_r2_c1.gif" alt="" name="menudx_r2_c11" width="230" height="22" border="0" id="menudx_r2_c11"&gt;&lt;/a&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td&gt;&lt;a href="#" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('menudx_r3_c11','','../porzioni/menudx/menudx_r3_c1_f2.gif',1)"&gt;&lt;img src="../porzioni/menudx/menudx_r3_c1.gif" alt="" name="menudx_r3_c11" width="230" height="22" border="0" id="menudx_r3_c11"&gt;&lt;/a&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td&gt;&lt;a href="#" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('menudx_r4_c11','','../porzioni/menudx/menudx_r4_c1_f2.gif',1)"&gt;&lt;img src="../porzioni/menudx/menudx_r4_c1.gif" alt="" name="menudx_r4_c11" width="230" height="22" border="0" id="menudx_r4_c11"&gt;&lt;/a&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td&gt;&lt;img name="menudx_r5_c1" src="../porzioni/menudx/menudx_r5_c1.gif" width="230" height="5" border="0" alt=""&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td&gt;&lt;a href="#" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('menudx_r6_c11','','../porzioni/menudx/menudx_r6_c1_f2.gif',1)"&gt;&lt;img src="../porzioni/menudx/menudx_r6_c1.gif" alt="" name="menudx_r6_c11" width="230" height="22" border="0" id="menudx_r6_c11"&gt;&lt;/a&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;/table&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;/table&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;/table&gt;
&lt;% else %&gt;
&lt;form name="form1" method="POST" action="&lt;%=MM_LoginAction%&gt;"&gt;
&lt;table width="230" height="162" border="0" cellpadding="0" cellspacing="0"&gt;
&lt;tr&gt;
&lt;td height="22"&gt;&lt;img src="../imgs/area_ris.gif" width="230" height="22"&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td height="130"&gt;&lt;table width="230" border="0" cellspacing="0" cellpadding="0"&gt;
&lt;tr&gt;
&lt;td width="82" height="22" class="form"&gt;&lt;div align="right"&gt;Nome utente: &lt;/div&gt;&lt;/td&gt;
&lt;td width="148"&gt;
&lt;div align="left"&gt;
&lt;input name="username" type="text" class="sform" onfocus="if(this.value=='mario.rossi')this.value='';" id="username" value="mario.rossi"&gt;
&lt;/div&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td class="form"&gt;&lt;div align="right"&gt;Password: &lt;/div&gt;&lt;/td&gt;
&lt;td&gt;
&lt;div align="left"&gt;
&lt;input name="password" type="password" class="sform" onfocus="if(this.value=='aaaaaa')this.value='';" id="password" value="aaaaaa"&gt;
&lt;/div&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td height="25"&gt;&nbsp;&lt;/td&gt;
&lt;td&gt;&lt;input name="imageField" type="image" src="../imgs/login.gif" width="57" height="21" border="0"&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td height="31" colspan="2" class="link"&gt;&lt;div align="center" class="style4"&gt;Non hai ancora nome utente e password?&lt;strong&gt; &lt;/strong&gt;&lt;a href="../registrati/registrati.asp"&gt;&lt;strong&gt;registrati &lt;/strong&gt;&lt;/a&gt;&lt;/div&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td colspan="2"&gt;&lt;table border="0" cellpadding="0" cellspacing="0" width="230"&gt;
&lt;!-- fwtable fwsrc="menudx.png" fwbase="menudx.gif" fwstyle="Dreamweaver" fwdocid = "742308039" fwnested="0" --&gt;
&lt;tr&gt;
&lt;td&gt;&lt;img src="../porzioni/menudx/spacer.gif" width="230" height="1" border="0" alt=""&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;/table&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td colspan="2"&gt;&lt;table border="0" cellpadding="0" cellspacing="0" width="230"&gt;
&lt;!-- fwtable fwsrc="menudx.png" fwbase="menudx.gif" fwstyle="Dreamweaver" fwdocid = "742308039" fwnested="0" --&gt;
&lt;tr&gt;
&lt;td&gt;&lt;img src="../porzioni/menudx/spacer.gif" width="230" height="1" border="0" alt=""&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td&gt;&lt;img name="menudx_r1_c1" src="../porzioni/menudx/menudx_r1_c1.gif" width="230" height="23" border="0" alt=""&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td&gt;&lt;a href="#" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('menudx_r2_c1','','../porzioni/menudx/menudx_r2_c1_f2.gif',1)"&gt;&lt;img name="menudx_r2_c1" src="../porzioni/menudx/menudx_r2_c1.gif" width="230" height="22" border="0" alt=""&gt;&lt;/a&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td&gt;&lt;a href="#" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('menudx_r3_c1','','../porzioni/menudx/menudx_r3_c1_f2.gif',1)"&gt;&lt;img name="menudx_r3_c1" src="../porzioni/menudx/menudx_r3_c1.gif" width="230" height="22" border="0" alt=""&gt;&lt;/a&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td&gt;&lt;a href="#" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('menudx_r4_c1','','../porzioni/menudx/menudx_r4_c1_f2.gif',1)"&gt;&lt;img name="menudx_r4_c1" src="../porzioni/menudx/menudx_r4_c1.gif" width="230" height="22" border="0" alt=""&gt;&lt;/a&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td&gt;&lt;img name="menudx_r5_c1" src="../porzioni/menudx/menudx_r5_c1.gif" width="230" height="5" border="0" alt=""&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr&gt;
&lt;td&gt;&lt;a href="#" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('menudx_r6_c1','','../porzioni/menudx/menudx_r6_c1_f2.gif',1)"&gt;&lt;img name="menudx_r6_c1" src="../porzioni/menudx/menudx_r6_c1.gif" width="230" height="22" border="0" alt=""&gt;&lt;/a&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;/table&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;/table&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;/table&gt;
&lt;/form&gt;
&lt;% end if %&gt;
&lt;/span&gt;
&lt;/body&gt;
Replied 29 Sep 2004 15:41:20
29 Sep 2004 15:41:20 Lee Diggins replied:
Hi Pulls

Here's an update to the code:

<pre id=code><font face=courier size=2 id=code>&lt;%
Dim myRedirect, myReferer

myReferer = Request.ServerVariables("HTTP_REFERER"
myReferer = Replace(myReferer, "?err=1", ""
myReferer = Replace(myReferer, "&err=1", ""

If InStr(1, myReferer, chr(63), 1) = 0 Then
myRedirect = myReferer & "?err=1"
Else
myRedirect = myReferer & "&err=1"
End If
%&gt; </font id=code></pre id=code>

Not sure what going on there with the URL not being specified as I test the page here and it's fine.

Digga

Sharing Knowledge Saves Valuable Time!!!
Replied 04 Oct 2004 21:38:28
04 Oct 2004 21:38:28 Ric A replied:
Great, this is perfect

Thanks a lot Digga

Reply to this topic