Submit knap
Jeg bruger dette lille script. MEN det submitter ikke ???<!--#include file="script/connect.inc"-->
<%
' Hvis der er blevet trykket på knappen "Login"
If Request.Form("Submit") = "Log ind" Then
' Her forberedes de indtastede værdier til validering
strUID = Trim(Replace(Request.Form("Brugernavn"),"'",""))
strPWD = Trim(Replace(Request.Form("Adgangskode"),"'",""))
' Hvis der er skrevet noget i både brugernavn, stednr og adgangskode
If Len(strUID) > 0 And Len(strPWD) > 0 Then
' Opbygning af SQL streng
strSQL = "SELECT * FROM tLeverandor WHERE (levnr = " & strUID & ") AND (password = '" & strPWD & "')"
Set rs = Conn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
' Hvis brugeren fandtes i databasen
intUID = rs("id")
Else
' Hvis brugeren ikke fandtes i databasen
strERR = "Du blev ikke godkendt af systemet"
End If
' Rydder op i vores connection objekt
Conn.Close
Set Conn = Nothing
If Len(intUID) Then
' Hvis variablen intUID indeholder en værdi sættes denne i sessionen "UserID" og brugeren bliver sendt videre
Session("id") = intUID
response.redirect ("kategori.asp")
End If
Else
' Hvis der ikke var angivet brugernavn og adgangskode
strErr = "Du skal skrive din adgangskode"
End If
If Len(strErr) > 0 Then
' Her laves fejlmeddelsen om til rød skrift
strErr = "<p><font color=red>" & strErr & "</font></p>"
End If
End If
%>
<html>
<head>
<title></title>
</head>
<body>
<%= strErr%>
<form action="test.asp" name="Submit" method="post">
<input type="text" name="Brugernavn" style="width:130" size="14">
<input type="password" name="Adgangskode" style="width:130" size="14">
<input type="image" src="images/knap_logind.gif" class="button" name="Submit" value="Log ind">
</form>
</body>
</html>
MVH Stig
