---
title: "Ändra i databas"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/11107-ändra-i-databas"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Fredriksson"
published: "2001-08-14T09:41:00.000Z"
updated: "2001-08-14T13:24:00.000Z"
replies: 6
views: 221
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/11107-ändra-i-databas"
---

# Ändra i databas

## #1 — Fredriksson, 2001-08-14T09:41Z

Jag vill göra följande m.h.a global.asa:

När en besökare går in på sidan och värdet i session("namn") \<\> "" så ska status = 1 i databladet folk där namn = värdet i session("namn").

När besökaren lämnar sidan ska status ändras tillbaka till 0.

Om det var nån som förstod så kanske vederbörade kan hjälpa mig ... :)

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

## #2 — icaaq, 2001-08-14T10:31Z

```
Sub Session_OnStart
'diverse kopplingar
strSQL ="UPDATE T_TABELL SET status = 1 WHERE Namn = '"&Session("Namn")
ObjConn.execute(strSQL)
'diverse stängningar av kopplingar
End Sub

Sub Session_OnEnd
'diverse kopplingar
strSQL ="UPDATE T_TABELL SET status = 0 WHERE Namn = '"&Session("Namn")
ObjConn.execute(strSQL)
'diverse stängningar av kopplingar
End Sub
```

 :OO

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

## #3 — Fredriksson, 2001-08-14T10:33Z

Testade nåt liknande innan med det vill inte funka. FÅr väl testa detta också då. 

Tack!

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

## #4 — Fredriksson, 2001-08-14T10:40Z

Testade med detta med det ville inte funka. :(

```
<SCRIPT LANGUAGE=VBScript RUNAT=Server> 

SUB Application_OnStart 
Application("Constring") = "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("DATABASEN.mdb") & ";" 
END SUB 

SUB Session_OnStart 
Session.TimeOut = 60 
END SUB 

Sub Session_OnEnd 
Set Connection1 = Server.CreateObject("ADODB.Connection") 
Connection1.Open Application("ConString") 
SQLStmt1 = "Update Folk set " 
SQLStm1t = SQLStmt1 & " Status = '0' " 
SQLStmt1 = SQLStmt1 & " where Medlem = '" & Session("namn") & "' " 
Connection1.Execute(SQLStmt1) 
Connection1.Close 
End Sub 

Sub Application_OnEnd 

On Error Resume Next 
Set Connection2 = Server.CreateObject("ADODB.Connection") 
Connection2.Open Application("ConString") 
SQLStmt2 = "Update Folk set " 
SQLStmt2 = SQLStmt2 & " Status = '0' " 
Connection2.Execute(SQLStmt2) 
Connection2.Close 
End Sub 

</SCRIPT>
```

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

## #5 — emission, 2001-08-14T10:42Z

Vid Session_OnStart kan Session("Namn") inte gärna ha något värde, så så kan man inte göra.

\[r\]Syftade på icaaqs kod\[/r\]

Sätt värdet samtidigt som Session("Namn") får sitt värde.

Är Status verkligen ett textfält?

\[Redigerat av emission den 14 aug 2001\]

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

## #6 — Fredriksson, 2001-08-14T10:56Z

ok. Men har session("namn") ett värde vid session_onEnd?

Att få status = 1 när sessionen sätts är inget problem. Men jag får inte tillbaka den till 0 när sessionen avslutas.

 :q

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

## #7 — LarsG, 2001-08-14T13:24Z

Såg ett fel i din kod

```
Sub Session_OnEnd 
Set Connection1 = Server.CreateObject("ADODB.Connection") 
Connection1.Open Application("ConString") 
SQLStmt1 = "Update Folk set " 
SQLStmt1 = SQLStmt1 & " Status = '0' " 
SQLStmt1 = SQLStmt1 & " where Medlem = '" & Session("namn") & "' " 
Connection1.Execute(SQLStmt1) 
Connection1.Close 
End Sub
```

du skrev sqlstm1t istf sqlstmt1 på ett ställe.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/11107-ändra-i-databas