Código:
MM_rsUser.Source = "SELECT id,nick, pass, nivel" If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization MM_rsUser.Source = MM_rsUser.Source & " FROM usuarios WHERE nick='" & Replace(MM_valUsername,"'","''") &"' AND pass='" & Replace(Request.Form("pass"),"'","''") & "'" . . . . if( MM_rsUser("nivel") = 0 )Then MM_redirectLoginSuccess="editorpaula.asp?id=" Response.Redirect(MM_redirectLoginSuccess) MM_rsUser.Close Else MM_redirectLoginSuccess="administrador/index.asp?id=" MM_rsUser.Close Response.Redirect(MM_redirectLoginSuccess) End If
Código HTML:
<table width="250" border="0" cellspacing="0" cellpadding="0" align="center" bordercolor="#0099FF"> <tr> <td> <table width=100% border=0 align="center" cellpadding="0" cellspacing="0" bordercolor="#e9e9e9" bgcolor="#CCFFCC"> <form action="<%=MM_LoginAction%>" method="post"> <tr bgcolor="#ffcc33"> <td colspan="2" height="45"> <div align="center"><font face="Arial" color="#0000cc" size=2><b>Identificación Usuarios<br> </b></font></div></td> </tr> <tr> <td colspan="2"> <div align="center"> <table width="100%" border="0" cellspacing="0" cellpadding="5"> <tr> <td width="39%" bgcolor="#e9e9e9"> <div align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Usuario : </font></div></td> <td width="61%" bgcolor="#e9e9e9"> <div align="left"> <input type="text" name="nick" size="15" class="imputbox"> </div></td> </tr> <tr> <td width="39%" bgcolor="#e9e9e9"> <div align="right"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Password : </font></div></td> <td width="61%" bgcolor="#e9e9e9"> <div align="left"> <input type="password" name="pass" size="15" class="imputbox"> </div></td> </tr> </table> </div></td> </tr> <tr valign="middle"> <td colspan="2" height="50" bgcolor="#e9e9e9"> <div align="center"><font face="Arial" color=black size=2> <input name=submit type=submit value=" Entrar " class="botones"> </font></div></td> </tr> </form> </table>
Código:
<% Dim editor__MMColParam editor__MMColParam = "id" If (Request.QueryString("id") <> "") Then editor__MMColParam = Request.QueryString("id") End If %>