webForumDet fria alternativet

Jag blir galen på mitt script!

ASP

2 svar · 147 visningar · startad av sudden

Medlem sedan okt. 2002341 inlägg
Frågan#1

Jag´har ett script som jag inte får att funka såsom jag vill hade!
Jag blir tokig snart!
Meningen med scriptet är att det ska kolla ifall användaren har skrivit in rätt uppgifter i login formuläret!
Här är koden:

<html>
<head>
     <title> SpelaRoll </title>

<style type="text/css">
<!--
form                  { font-family: Tahoma; font-size: 7pt; }
input                 { font-family: Tahoma; font-size: 7pt; border-width: 1px; border-color: #FFFFFF; background-color: #FFFFFF}
a:hover               { color: #E79E20 }
a:link                { text-decoration: none; color: #7A7A7A}
a:visited             { text-decoration: none; color: #7A7A7A}
a:active              { text-decoration: none; color: #7A7A7A}
a:hover               { color: #E79E20 }

-->
</style>

</head>
<body background="bg2.gif">

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\script1987\db\databas.mdb")

strSQL = "SELECT nick, pass FROM users WHERE nick='"& Replace(request.form("nick"), "'", "''") &"' And pass='"& Replace(request.form("pass"), "'", "''") &"'"
Set RS = Conn.Execute(strSQL)
If Not RS.EOF Then
%>

  <!--SKAPA HUVUDTABELLEN-->
  
     <table width="1000" height="650" border="0" cellpadding="0" cellspacing="0">
       <td align="center" valign="middle">
       
       <!--tabellen till vänster-->
     <td align="left" valign="middle">
      <table width="150" height="300" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
       <td>
      <table width="150" height="300" border="0" cellpadding="0" cellspacing="1" bgcolor="#E9E9E9">
        <td>  </td>
       </table>
      </table>
     </td>
       <!----------------------->
     
       <td>
       <!--MITTERSTA TABELLEN-->
      <table width="700" height="300" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
       <td>
      <table width="700" height="300" border="0" cellpadding="0" cellspacing="1" bgcolor="#E9E9E9">
      
       <div align="center" valign="top">
        <td valign="top">
        
        <a href="default.asp" target="_top">Start</a>
        &nbsp;
        <a href="medlem.asp target="_top">Din sida</a>
        &nbsp;
        <a href="medlem.asp?category=GASTBOK" target="_top">Gästbok</a>
        &nbsp;
        <a href="medlem.asp?category=MESS" target="_top">Meddelanden</a>
        &nbsp;
        <a href="forum.asp" target="_top">Forum</a>
        &nbsp;
        <a href="kalender.asp" target="_top">Kalender</a>
        &nbsp;
        <a href="default.asp?category=REG" target="_top">Registrera</a>
        &nbsp;
        <a href="Chatt" target="_top">Chatt</a>
        &nbsp;
        <a href="Install" target="_top">Inställningar</a>
        &nbsp;
        <a href="sok" target="_top">Sök</a>
        &nbsp;
        <a href="default.asp?category=LOGOUT" target="_top">Logga ut</a>
       
        
       
        
       <hr width="700" color="#000000" NOSHADE>
        </td>
       </div><tr>
       
      <!------------------------------>
        <td align="left">
<font color="#000000" size="2" face="Verdana, Arial">Välkommen till SpelaRoll! Communityt för dig som har tröttnat på allt annat =)<br>
Här kan du träffa nya kompisar, chatta med andra och delta i livliga disskusioner.<br>
Om det är nått du undrar över så maila till <a href="mailto:sudden1987@hotmail.com">sudden</a></font>
       </td>
   <!--------------------->
   
      <tr>
        <td valign="bottom" align="center">
       <hr color="#000000" width="700" NOSHADE">
      
      </td><tr>
        <td height="10" valign="bottom" align="center">
        
       </td>
         
       </table>
       </table>
      
     </td>
      </table>
     
<%
Conn.Close
Set Conn = Nothing
Set RS = Nothing

      ElseIf Not Request.Form("nick") = Replace(request.form("nick")) OR Request.Form("pass") = Replace(request.form("pass")) Then
      Response.Write"<b><font color='red' size='2' face='Verdana, Arial'>Fel användarnamn eller lösenord</font></b>"

      ElseIf Request.Form("nick") = "" OR Request.Form("pass") = "" Then
      Response.Write"<b><font color='red' size='2' face='Verdana, Arial'>Fel användarnamn eller lösenord</font></b>"
End If
%>

</body>
</html>

Den genererar ett felmeddelande om man skrivit fel uppgifter, vilket är rätt hittils!
Men när man lämnar båda fälten tomma, så loggas man in iallafall!
Jag har testat allt!
Snälla hjäälp! :(

Medlem sedan okt. 20005 273 inlägg
#2

Kolla högst upp om fälten är tomma

[red]
If Request.Form("nick") = "" OR Request.Form("pass") = "" Then
     'Skicka felmess
Else
     Fortsätt processa sidan
[/red]

mvh icaaq

Medlem sedan okt. 2002341 inlägg
#3

Tack så mycket! =)

264 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
125 ms — deklarationer (db)
0 ms — hämta statistik (cache)
136 ms — hämta tråd, inlägg och bilagor (db)
124 ms — ändringar (db)