---
title: "Login"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/41243-login"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Mini"
published: "2002-04-09T16:54:39.000Z"
updated: "2002-04-09T17:30:49.000Z"
replies: 5
views: 267
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/41243-login"
---

# Login

## #1 — Mini, 2002-04-09T16:54Z

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"

%\>

Permalänk: https://www.webforum.nu/p/41243

## #2 — LarsG, 2002-04-09T17:06Z

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

Permalänk: https://www.webforum.nu/p/640498

## #3 — Mini, 2002-04-09T17:10Z

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

Permalänk: https://www.webforum.nu/p/640501

## #4 — Jörgen HP, 2002-04-09T17:12Z

Hej,

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

Permalänk: https://www.webforum.nu/p/640505

## #5 — Mini, 2002-04-09T17:22Z

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

Permalänk: https://www.webforum.nu/p/640516

## #6 — LarsG, 2002-04-09T17:30Z

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

Det finns ingen end if som avslutar denna if.

Permalänk: https://www.webforum.nu/p/640522

---

Tråden på webben: https://www.webforum.nu/amne/asp/41243-login