Jeg ved ikke hvor meget af koden som er nødvendig - here goes:
<%@ LCID=1030%>
<% Option Explicit%>
<%response.buffer=true%>
<HTML><HEAD>
<TITLE>XXX - login</TITLE>
<!-- #include file="header.inc" -->
<!-- Minus AutoDato -->
<META NAME="Generator" CONTENT="Stone's WebWriter 3">
</HEAD>
<body bgcolor="#FFFFFF" text="#185242" background="../stuff/sort.gif">
<font face="Arial, Helvetica, sans-serif">
<%
Dim SQL_Kald, MitRecordset
dim pword,bruger,id
id = 0
Session("pwd") = 0
bruger=Replace(Request.Form("brugernavn"),"'","" )
pword=Replace(Request.Form("password"),"'","" )
id=request.queryString("vindue")
'nulstil loginAntal første gang man forsøger login
if request.queryString("fundet")= "" and id = "" then
if session("loginAntal") < 1 then
session("loginAntal") = 0
end if
end if
'hent evt. variablen 'fundet', som er sat på ved redirect
if request.queryString("fundet")="fejl1" then
response.write "<FONT COLOR=""Red""><h3>Det indtastede brugernavn eksisterer ikke</h3></FONT><P>"
id = 0
end if
if request.queryString("fundet")="fejl2" then
response.write "<FONT COLOR=""Red""><h3>Det indtastede password er forkert</h3></FONT><P>"
id = 0
end if
if request.queryString("fundet")="fejl" then
response.write "<FONT COLOR=""Red""><h3>Der er opstået en fejl - kontakt Millward Brown</h3></FONT><P>"
id = 0
end if
if session("loginAntal") = 3 then
response.redirect("loginFejl.htm")
end if
'Hvis brugeren har ønsket at logge på
If id = 1 then
SQL_Kald="SELECT * FROM Bruger Where usrnavn like '"&bruger&"'"
'Erklær og opret MitRecordset
Set MitRecordset=Server.CreateObject("ADODB.Recordset")
'Jeg åbner min db med cursor Static, så jeg kan få et tal på, hvor mange record, der læses til mit recordsset.
MitRecordset.open SQL_Kald,MinForbindelse,3
'Hvis der ikke findes nogle match på det indtastede password og brugernavn - returner 'og skriv fejlmeddelelse
If MitRecordset.recordcount = 0 then
'Brugernavnet eksisterer ikke - luk databasen og returner med en fejl
' Luk recordsettet
MitRecordset.Close
' Afslut med frigørelse af objektet MitRecordSet
set MitRecordset = Nothing
' Luk forbindelsen
MinForbindelse.Close
' Afslut med frigørelse af objektet MinForbindelse
set MinForbindelse = Nothing
session("loginAntal")=session("loginAntal") + 1
response.redirect("login.asp?fundet=fejl1")
End if
If MitRecordset.recordcount = 1 then
if pword = mitrecordset("usrpwd") then
Session("pwd") = "on"
Session("usr") = mitrecordset("usrnavn")
'her opsættes menuen for den besøgende
%>
<table border="0" width="100%">
<tr>
<td width="30%">
<td width="30%">
<img src="dandy.gif">
<td width="30%">
</tr>
</table>
<br>
<table border="0" width="100%">
<tr>
<td width="100%">
<p align="center"><font face="Arial, Helvetica, sans-serif" size="6"><b>Dandy ATP<font size="6" face="Arial, Helvetica, sans-serif">™</font><font face="Arial, Helvetica, sans-serif"> </font></p>
</td>
</tr>
