Set True if ?

Prøv sådan...

<%
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRs = Server.CreateObject("ADODB.Recordset")
Sql = "select * from buddylist"
Set rs = objConn.Execute(sql)

If Session("brugerNavn") = Rs("brugerNavn") Then

objRs.Open(strSQL, objConn, 1, 3)
rs.AddNew
rs("onlinestatus") = true
rs.update
Rs.Close

Else
Response.Write "Fejl"
End if
%>

//>Rune

Prøv følgende i stedet


Sql = "select * from buddylist"
Set rs = Conn.Execute(sql)

If Session("brugerNavn") = Rs("brugerNavn") Then

Conn.Execute("Update buddylist set onlinestatus=True Where brugernavn='" & Session("brugernavn") & "'"
Else
Response.Write "Fejl"
End if
rs.Close
Set rs=Nothing
Conn.Close
Set Conn = Nothing

medions:
Fejltype:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A0414)
Der kan ikke bruges parenteser ved kald af en Sub
/windows_klient/onlinestatus.asp, line 14, column 33
objRs.Open(strSQL, objConn, 1, 3)
--------------------------------^


Hmm... Radion:
Fejltype:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A03EE)
Tegnet ')' var ventet
/windows_klient/onlinestatus.asp, line 13, column 102
Conn.Execute("Update buddylist set onlinestatus=True Where brugernavn='" & Session("brugernavn") & "'"
-----------------------------------------------------------------------------------------------------^

Conn.Execute("Update buddylist set onlinestatus=True Where brugernavn='" & Session("brugernavn") & "'")

sorry - untestet code

Det virkede.. tak tak :-) Du aner ikke hvor lang tid jeg har bøvler med det nu... Deeeeejligt :-)

Hmm.. lille ekstra spm:

Kan du forklare hvorfor det her ikke virker på min logud side?

<%
' Databaseforbindelse
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/db/db.mdb")
Conn.Open DSN

Sql = "select * from buddylist"
Set rs = Conn.Execute(sql)

Conn.Execute("Update buddylist set onlinestatus=False Where brugerbuddy='" & Session("brugernavn") & "'")

rs.Close
Set rs=Nothing
Conn.Close
Set Conn = Nothing

Session.Abandon
Response.redirect "default.asp"
%>

hvad får du af fejl?

Du behøver forresten ikke

Sql = "select * from buddylist"
Set rs = Conn.Execute(sql)

rs.Close
Set rs=Nothing


på din logud side

der kommer ingen fejl... onlinestatus bliver bare ved med at være true

Prøv at lave den om til følgende og fortæl hvad den skriver

' Databaseforbindelse
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/db/db.mdb")
Conn.Open DSN

Conn.Execute("Update buddylist set onlinestatus=False Where brugerbuddy='" & Session("brugernavn") & "'")

Sql = "select brugerbuddy from buddylist"
Set rs = Conn.Execute(sql)
Response.Write "DATABASE: " & rs("brugerbuddy") & "<br />"
Session.Abandon
Response.Write "Session: " & Session("brugernavn")

rs.Close
Set rs=Nothing
Conn.Close
Set Conn = Nothing

Hehehe.. det er mig der klummer i det, jeg sidder og redigerer i den forkerte fil.. Hmm, men ellers mange tak for hjælpen :-)

np. happy coding

tnx 4 points