Vad gör jag för fel?

Patrik81Medlem sedan okt. 2001538 inlägg

Frågan27 nov. 2001 16:43#1

Hejsan jag håller på att göra ett litet login-script och det fungerar bra så länge man fyller i de loginuppgifter man har... men om man dabbar sig och fyller i ett av fältetn (login eller password) fel och försöker logga in så kommer inte "login misslyckades" sidan upp utan istället får jag upp ett felmeddelande i stil med:
"Ett undantag har uppstått
rad 100"
jag sitter inte vid min arbetsdator, så jag kan tyvärr inte ge er det exakta meddelandet (men det var ett undantag på rad 100 enligt fel sidan som kom upp)
Så ser någon av er vad som är fel? Och hur jag isåfall kan rätta till det?

<% @LANGUAGE = VBScript %>
<% Option Explicit %>
<%
Dim strLogin, strPassword, strSQLGet, strSQLLogin, strSQLPassword, strSQLAccess, objConn, objRS 
If Request.ServerVariables("CONTENT_LENGTH") = 0 Then %>

<html>
<head>
 <title>OMG Command</title>
 <link rel="stylesheet" href="css/index.css">
</head>
<body>
<table border="0" cellspacing="0" cellpadding="0" width="100%" height="100%">
<tr height="37%">
 <td class="dblue" valign="top" colspan="3">
  <div align="right">
   <table border="0" cellspacing="5"><tr><td>
    <div align="right">
     <span class="version">Version 3.0 Gamma</span><br>
     <a href="log.asp">History</a>
    </div>
   </td></tr></table>
  </div>
 </td>
</tr>

<tr height="26%">
 <td class="lblue" valign="middle" colspan="3">
  <div align="center">
   <table border="0">
    <tr><td valign="middle">
     <div align="center">
     <img src="gfx/omg_logo-online.png" width="400" height="100" border="1">
     </div>
    </td></tr>
    <tr><td valign="top">
     <div align="center">
      <a href="thanks.asp">THANKS TO</a>   &#0124;   <a href="disclaimer.asp">DISCLAIMER</a>   &#0124;   <a href="whatis.asp">WHAT IS</a>   &#0124;   <a href="contact.asp">CONTACT</a>
     </div>
    </td></tr>
   </table>
  </div>
 </td>
</tr>

<tr height="37%">
 <td width="25%" class="dblue">
   
 </td>
 <td width="50%" valign="middle" class="dblue">
  <div align="center">
   <table border="0" cellspacing="0" cellpadding="3" class="dblue" bordercolor="#000000">
    <tr><td valign="top">
     <div align="center">
      <form name="loginform" method="post" action="<%= Request.ServerVariables("SCRIPT_NAME") %>">
       <span class="gold"><LOGIN></span><br>
        <input type="text" class="input" name="login"><br>
       <span class="gold"><PASSWORD></span><br>
        <input type="password" class="input" name="password"><br>
       <input type="submit" value="LOGIN" class="button">
      </form>
     </div>
    </td></tr>
   </table>
  </div>
  <p> </p>
  <p> </p>

 </td>
 <td class="dblue" valign="bottom" width="25%">
  <div align="right">
   <table border="0" cellspacing="5"><tr><td valign="bottom">
   <span class="version">
    Design by: Deus Ex Codex
   </span>
   </td></tr></table>
  </div>
 </td>
</tr></table>

<script language="JavaScript">
<!--
document.loginform.login.focus();
//-->
</script>

</body>
</html>

<% Else

strLogin = Trim(Request.Form("login"))
strPassword = Trim(Request.Form("password"))
strSQLGet = "SELECT * FROM users WHERE tblLogin = '" & strLogin & "' AND tblPassword = '" & strPassword & "'"

 Set objConn = Server.CreateObject("ADODB.Connection")
 objConn.Open "command"
  Set objRS = objConn.Execute(strSQLGet)

[b]If objRS("tblLogin") = strLogin And objRS("tblPassword") = strPassword Then[/b] 

strSQLLogin = objRS("tblLogin")
strSQLPassword = objRS("tblPassword")
strSQLAccess = objRS("tblAccess")

  objRS.Close
  Set objRS = Nothing
 objConn.Close
 Set objConn = Nothing

Response.Kaka("Login")("Name") = strSQLLogin
Response.Kaka("Login")("Access") = strSQLAccess
Response.Kaka("Login")("Verify") = "exists"
Response.Redirect("index2.asp")

Else 

  objRS.Close
  Set objRS = Nothing
 objConn.Close
 Set objConn = Nothing

%>

<html>
<head>
 <title>OMG Command - login failed</title>
 <link rel="stylesheet" href="css/index.css">
</head>
<body>
<table border="0" cellspacing="0" cellpadding="0" width="100%" height="100%">
<tr height="37%">
 <td class="dblue" valign="top" colspan="3">
  <div align="right">
   <table border="0" cellspacing="5"><tr><td>
    <div align="right">
     <span class="version">Version 3.0 Gamma</span><br>
     <a href="log.asp">History</a>
    </div>
   </td></tr></table>
  </div>
 </td>
</tr>

<tr height="26%">
 <td class="lblue" valign="middle" colspan="3">
  <div align="center">
   <table border="0">
    <tr><td valign="middle">
     <div align="center">
     <img src="gfx/login_failed.gif" width="400" height="100" border="1">
     </div>
    </td></tr>
    <tr><td valign="top">
     <div align="center">
      <a href="thanks.asp">THANKS TO</a>   &#0124;   <a href="disclaimer.asp">DISCLAIMER</a>   &#0124;   <a href="whatis.asp">WHAT IS</a>   &#0124;   <a href="contact.asp">CONTACT</a>
     </div>
    </td></tr>
   </table>
  </div>
 </td>
</tr>

<tr height="37%">
 <td width="25%" class="dblue">
   
 </td>
 <td width="50%" valign="middle" class="dblue">
  <div align="center">
   <table border="0" cellspacing="0" cellpadding="3" class="dblue" bordercolor="#000000">
    <tr><td valign="top">
     <div align="center">
      <form name="loginform" method="post" action="<%= Request.ServerVariables("SCRIPT_NAME") %>">
       <span class="gold"><LOGIN></span><br>
        <input type="text" class="input" name="login"><br>
       <span class="gold"><PASSWORD></span><br>
        <input type="password" class="input" name="password"><br>
       <input type="submit" value="LOGIN" class="button">
      </form>
     </div>
    </td></tr>
   </table>
  </div>
  <p> </p>
  <p> </p>

 </td>
 <td class="dblue" valign="bottom" width="25%">
  <div align="right">
   <table border="0" cellspacing="5"><tr><td valign="bottom">
   <span class="version">
    Design by: Deus Ex Codex
   </span>
   </td></tr></table>
  </div>
 </td>
</tr></table>

<script language="JavaScript">
<!--
document.loginform.login.focus();
//-->
</script>

</body>
</html>

<%
End If 
End If
%>

Mycket tacksam för svar

MVH Patrik

PS. Nej jag vet att det står Response.Kaka men cookies var förbjudet att skriva...
DS.

------------------
Minds are like parachutes;
they only work when they´re open

[Redigerat av Patrik81 den 27 nov 2001]

LarsGMedlem sedan dec. 200012 464 inlägg

27 nov. 2001 16:46#2

Byt ut denna rad

If objRS("tblLogin") = strLogin And objRS("tblPassword") = strPassword Then

mot

if not objRS.eof then

------------------
essentitia preter non sans multiplicandum

Patrik81Medlem sedan okt. 2001538 inlägg

27 nov. 2001 17:06#3

Tack för ditt snabba svar Lars, skall kolla denna kod det första jag gör imorgon.

Får jag fråga exakt vad denna koden gör för jag förstår den inte riktigt, oh vad var det för fel med sättet jag försökte göra det på?

MVH Patrik

------------------
Minds are like parachutes;
they only work when they´re open

LarsGMedlem sedan dec. 200012 464 inlägg

27 nov. 2001 17:18#4

if not objrs.eof then

innebär att man kontrollerar om recordset innehåller någon post.
Om inte användarnamn eller lösenord stämmer så får du ett recordset utan innehåll.

------------------
essentitia preter non sans multiplicandum

Patrik81Medlem sedan okt. 2001538 inlägg

27 nov. 2001 17:28#5

Jamen det låter ju vettigt *nu fattar jag*

Eftersom jag vet att du kan din sak så passar jag på att ge lite uppmuntrande tack så mycket redan nu, för jag vet redan innan jag testat att jag inte blir besviken
TACK

MVH Patrik

------------------
Minds are like parachutes;
they only work when they´re open

Patrik81Medlem sedan okt. 2001538 inlägg

28 nov. 2001 08:54#6

Funkar ju utmärkt.
TACK så mycket

MVH Patrik

------------------
Minds are like parachutes;
they only work when they´re open