---
title: "BOF och EOF"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/69261-bof-och-eof/page2"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "DiDjo"
published: "2003-02-24T18:44:47.000Z"
updated: "2003-03-06T19:00:57.000Z"
replies: 27
views: 581
page: 2
pages: 2
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/69261-bof-och-eof"
---

# BOF och EOF

_Sida 2 av 2._

## #21 — SannyW, 2003-03-06T17:51Z

Gjorde några små ändringar. Får inga fel medd. Hänvisad till index.asp - Funkar det inte så hoppas jag någon av de stabila killarna kan hjälpa dig :) Ganska ny på detta, men gjorde ett försök!

```
<%
namn 	= Request.Form("anv")
losen 	= Request.Form("los")
humor 	= Request.Form("humor")

if Len(losen) <1 OR Len(namn) <1 then
session("felet") = "Du måste skriva in både användarnamn och lösenord"
Response.Redirect("index.asp")
end if

Set connection = server.createObject("adodb.connection")
connection.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("test.mdb")&";"
SQL = "SELECT * FROM anv WHERE anv = '"&namn&"' AND Losen = '"&losen&"' "
set RS = Connection.Execute(SQL)

IF NOT RS.EOF then
session("inloggad") = "ja"
Session("fel") = ""
session("anv") = rs("anv")
session("user") = rs("anv")
session("vaktare") = rs("vaktare")
if rs("tid")&"" = "" then
session("tid")=0
else
session("tid")=rs("tid")
end if

Response.Cookies("didjocom")("anv") = rs("anv")
Response.Cookies("didjocom").Expires = "December 10, 2010"

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("test.mdb")&";"
Set rs = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM anv WHERE anv = '"&namn&"' AND Losen = '"&losen&"' "
rs.Open Addera, Connect, 3, 3 

rs("online") = "1"
rs("inlogg")= rs("inlogg") +1
rs("senaste")= now
rs("loggain")= now
rs("humor")= Request.Form("humor")

rs.update

set Connect = Server.CreateObject("ADODB.Connection")
Connect.Provider = "Microsoft.Jet.OleDB.4.0" 
Connect.DataSource = Server.MapPath("test.mdb")
Connect.Open

Set rs1 = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM didjo"

Set rs1 = Connect.Execute (Addera) 

   Connect.Execute "UPDATE didjo SET inloggn = inloggn + 1;", , 128

Response.Redirect("start.asp")

Else
Session("fel") = "Du skrev fel lösenord eller användarnamn!"
Response.Redirect("index.asp")
end if

RS.close
rs1.close
Connection.Close
connect.Close
%>
```

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

## #22 — DiDjo, 2003-03-06T17:59Z

Tack sannyw men jag får detta fel nu:

```
Microsoft VBScript runtime error '800a01be' 

Object doesn't support named arguments: 'Connect.DataSource' 

/!egna/loggain.asp, line 49
```

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

## #23 — SannyW, 2003-03-06T18:08Z

Du tänkte på att ändra databasen?

Ändrade följande:
dbq=" & Server.MapPath("*test.mdb*")**&**";"
"Set rs1 = Connect.Execute Addera, , 1" **(Addera)**

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

## #24 — DiDjo, 2003-03-06T18:14Z

så här eller:

```
set Connect = Server.CreateObject("ADODB.Connection")
Connect.Provider = "Microsoft.Jet.OleDB.4.0" 
Connect.dbq=" & Server.MapPath("****")&";" 
"Set rs1 = Connect.Execute Addera, , 1" (Addera)

Set rs1 = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM didjo"
```

Men då får jag:

```
Microsoft VBScript compilation error '800a0401' 

Expected end of statement 

/!egna/loggain.asp, line 50 

Connect.dbq=" & Server.MapPath("****************")&";"
--------------------------------^
```

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

## #25 — SannyW, 2003-03-06T18:21Z

Förlåt, jag försökte visa förändringarna med fet text.

Strulade till det:

Jag menade att du var tvungen att byta test.mdb mot vad din databas heter och det var frågan.

connection.open "driver={Microsoft Access Driver (\*.mdb)};dbq=" & Server.MapPath("*test.mdb*")&";"

Sedan ändrade jag den andra raden till bara:

Set rs1 = Connect.Execute (Addera) 

Se det jag skickade tidigare.

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

## #26 — SannyW, 2003-03-06T18:23Z

Måste iväg nu, hoppas det löser sig. Du får väl skricka efter LarsG, annars. Säg något som den killen inte kan - grym!

Korta och raka svar.

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

## #27 — DiDjo, 2003-03-06T18:58Z

jo jag ändrade till min! Annars skulle den säga att den inte hittade databasen...

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

## #28 — DiDjo, 2003-03-06T19:00Z

Jaaaaaaa! Det fungerar nu! Så här ser koden ut:

```
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("databasen.mdb")&";"
Set rs1 = Connect.Execute (Addera)

Set rs1 = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM didjo"

 

   Connect.Execute "UPDATE didjo SET inloggn = inloggn + 1;", , 128

Response.Redirect("start.asp")
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/69261-bof-och-eof/page2  
Föregående sida: https://www.webforum.nu/amne/asp/69261-bof-och-eof.md