"Klaus Egebjerg" <klausegebjerg@get2net.dk> wrote in message
news:wl1t8.26339$iY5.843516@news010.worldonline.dk...
> Det var fordi den script stykke, kun var en del af et længere stykke (
> jeg tod bare det stykke jeg troede var relavant. Der ser i sin helhed
> således ud:
Jeg kan ikke umiddelbart se nogen fejl, men jeg vil anbefale dig at lave
scriptet sådan her (Så slipper du for On error resume next som er ret
ressource krævende):
------------------------------------------------
<br><br>
<form action="<%= Request.ServerVariables ("SCRIPT_NAME") %>" method="post">
<table>
<tr>
<td>Mail:</td>
<td><input type="text" size="40" name="Mail"></td>
</tr>
<tr>
<td>Password</td>
<td><input type="password" size="40" name="Password"></td>
</tr>
<tr>
<td><input type="submit" name="do" value="Hent kundedata"></td>
<td><input type="submit" name="do" value="Fortryd"></td>
</tr>
</table>
<%
' Funktioner -----------------------------------------------------
Function Fortryd()
Response.Redirect "menu.htm"
Response.End
End Function
Function HentKundedata( Email, Password )
OpenConn("opskrifter.mdb")
strMail = Trim(Replace(Mail, "'", "''"))
strPassword = Replace(strPassword , "'", "''")
'Passwordet er med i Queryen, så vi ikke behøver at tjekke det senere
strQuery = "SELECT Kundenr, Navn, Password FROM Kunder WHERE Mail='"&
strMail &"' AND Password = '" & strPassword & "'"
Set rs = Conn.Execute(strQuery)
'Hvis recordsettet er tomt er brugeren ikke godkendt
If rs.BOF Then
Response.Write( "<script type=""text/javascript"">alert(""Forkert
email eller Password"");</script>" )
Else
Response.Write( "Du er godkendt" )
Session("kilde") = "retminadresse"
Response.Write rs("Navn")
End if
End Funciton
Dim Conn
Function OpenConn (DBName)
Set Conn = Server.CreateObject("ADODB.Connection")
ODBCpath = left(request.ServerVariables("PATH_TRANSLATED"),
instrrev(request.ServerVariables("PATH_TRANSLATED"), "\"))
Conn.Open "DBQ=" & ODBCpath & DBName & ";DefaultDir=" & ODBCpath
&";Driver={Microsoft Access Driver (*.mdb)}"
End function
' Slut på funktioner -----------------------------------------------------
'Her tjekker vi hvor vi er:
If Request.Form( "do" ) = "Hent kundedata" Then
HentKundedata Request.Form( "Email" ), Request.Form( "Password" )
Elseif Request.Form( "do" ) = "Fortryd" Then
Fortryd
End if
%>
----------------------------------------------------------------------