Login

Hej! jag fösker få igång på ett loginscript... men jag lyckas inte så väl...
Det är är en blading av 2st scripts jag hittade på https://www.aspsidan.nu
Jag vet ej som är fel.. den säger att det är line 73 det är fel på...
Vore mycket tacksam om ni kan rätta till felet

<!-- #include file="adovbs.inc" -->
<!-- ## Detta script är nerladdat från https://www.kross.nu/aspsidan/ ## --!>
<%

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("medlemar.mdb")&";pwd=losen32"

Set RecSet = Server.CreateObject("ADODB.Recordset")

Addera = "Select * From medlemar"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

Do Until RecSet.EOF

If RecSet("status") = "online" AND DateDiff("n", RecSet("datum"), Now) > 45 Then
RecSet("status") = "offline"
RecSet.Update
End If

RecSet.MoveNext
Loop

RecSet.Close

RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

Do Until RecSet.EOF

If RecSet("username") = Request.Form("username") AND RecSet("losen") = Request.Form("losen") Then

RecSet("datum") = Now
RecSet("status") = "online"
RecSet.Update
Session("namn") = RecSet("fnamn")
Session("fnamn") = RecSet("fnamn")
Session("username") = RecSet("username")
Session("login") = "ok"
Session("id") = RecSet("id")
Session("status") = "online"
Session("epost") = RecSet("epost")

Session.TimeOut = 40 '<-- Kontrollera

form_namn = Request.Form("username")
form_losen = Request.Form("losen")

Do UNTIL RecSet.EOF

namn=RecSet("username")
losen=RecSet("losen")

If namn=form_namn AND losen=form_losen Then
gotoPage = RecSet("gotoPage")
RecSet.Close
Connect.Close
Session("behorig") = "YES"
Response.Redirect "../../" &gotoPage
End If

RecSet.MoveNext

loop

RecSet.Close
Connect.Close
Session("meddelande") = "Fel!"
Response.Redirect "felsida.asp"

%>

Vilken rad är 73?
Vilket fel får du?

Det här..

Error Type:
Microsoft VBScript compilation (0x800A03FB)
Expected 'Loop'
/pracc.se/scripts/login/login_check.asp, line 71

Browser Type:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)

Page:
POST 43 bytes to /pracc.se/scripts/login/login_check.asp

Hej,

du har 3st Do Until RecSet.EOF men bara 2st RecSet.movenext och loop.

Samma..

RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

Do Until RecSet.EOF

If RecSet("status") = "online" AND DateDiff("n", RecSet("datum"), Now) \> 45 Then
	RecSet("status") = "offline"
	RecSet.Update
End If

RecSet.MoveNext
Loop

RecSet.Close

RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

Do Until RecSet.EOF

If RecSet("username") = Request.Form("username") AND RecSet("losen") = Request.Form("losen") Then

	RecSet("datum") = Now
	RecSet("status") = "online"
	RecSet.Update		
	Session("namn") = RecSet("fnamn")
	Session("fnamn") = RecSet("fnamn")
	Session("username") = RecSet("username")
	Session("login") = "ok"
	Session("id") = RecSet("id")
	Session("status") = "online"
	Session("epost") = RecSet("epost")

	Session.TimeOut = 40 '\<-- Kontrollera

RecSet.MoveNext
Loop

RecSet.Close

RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic

form_namn = Request.Form("username")
form_losen = Request.Form("losen")

Do UNTIL RecSet.EOF

	namn=RecSet("username")
	losen=RecSet("losen")

	If namn=form_namn AND losen=form_losen Then
		gotoPage = RecSet("gotoPage")
		RecSet.Close
		Connect.Close
		Session("behorig") = "YES"
		Response.Redirect "../../" &gotoPage
	End If

	RecSet.MoveNext

loop

RecSet.Close
Connect.Close
Session("meddelande") = "Fel!"
Response.Redirect "felsida.asp"

%>

Nu har jag 3st men fortfarnade..

Error Type:
Microsoft VBScript compilation (0x800A040E)
'loop' without 'do'
/pracc.se/scripts/login/login_check.asp, line 47
Loop

Browser Type:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)

Page:
POST 43 bytes to /pracc.se/scripts/login/login_check.asp

If RecSet("username") = Request.Form("username") AND RecSet("losen") = Request.Form("losen") Then

Det finns ingen end if som avslutar denna if.