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
2 svar · 147 visningar · startad av sudden
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>
<a href="medlem.asp target="_top">Din sida</a>
<a href="medlem.asp?category=GASTBOK" target="_top">Gästbok</a>
<a href="medlem.asp?category=MESS" target="_top">Meddelanden</a>
<a href="forum.asp" target="_top">Forum</a>
<a href="kalender.asp" target="_top">Kalender</a>
<a href="default.asp?category=REG" target="_top">Registrera</a>
<a href="Chatt" target="_top">Chatt</a>
<a href="Install" target="_top">Inställningar</a>
<a href="sok" target="_top">Sök</a>
<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! :(
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
Tack så mycket! =)