gästboken

Får man felmeddelande kan det ju vara bra att kasta med det också. Lättare att hjälpa dig då, serru.

Koden är skriven så den bara uppdaterar den första posten, eftersom du inte loopar.

För att den ska söka igenom hela, eller delar av databasen måste du ju använda dig av en Do ... Loop om jag inte har helt fel...

'################################# kompisar select read #################################
Set Connect666 = Server.CreateObject("ADODB.Connection") 
Connect666.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/gb.mdb")&""
Set RecSet666 = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From gb Where tillID = " &session("id")&" Order By Datum DESC"
RecSet666.Open Addera, Connect666, adOpenStatic, adLockOptimistic
'############################### select ################################################# 
[b]Do Until RecSet.EOF[/b]

If RecSet666("read") = 0 Then
RecSet666("read") = 1 
RecSet666.Update
End If

[b]RecSet.MoveNext
Loop[/b]

Typ...

------------------
// Ronny "KoTTeN" Andersson

Fast om det ska stämma med de recset666 så... ;)

 Do Until RecSet666.EOF
If RecSet666("read") = 0 Then
RecSet666("read") = 1 
RecSet666.Update
End If

RecSet666.MoveNext
Loop

------------------
Mvh. Wiberg

Jo, men man gör inte sådana lösningar.

Set Connect666 = Server.CreateObject("ADODB.Connection") 
Connect666.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/gb.mdb")&""
sql = "update gb set [read] = 0 where [read] = 1 and tillID = " &session("id")

Connect666.execute sql,,128
Connect666.close
set Connect666 = nothing

------------------
essentitia preter non sans multiplicandum

nu blir sidan helt cp och käkar upp hela mitt minne heheh cp iis men det tar tid och den laddar????
nu har jag fixat lite koden men den sätter forfarande första inlägget till 0
och resten 1

tack LarsG du är bäst
och resten med hehehe

[Redigerat av hacktheplanet den 20 jan 2002]

Har du använt LarsGs kod?

Dåså! :D

[Redigerat av @nders den 20 jan 2002]

men när man går in i nån annans gästbok så sätts det till 0 :(

ops funkar förlåt jag loggade in med admin och sen hacktheplanet heheh

nej det e helt sjukt nu sätts dom inte till 0 när jag går in i min egen gästbok

när jag typ går in i nån annans gästbok så står det att jag har 0 nya gästboksinlägg!!!

sql = "update gb set [read] = 1 where [read] = 0 and tillid = " &Request.QueryString("id")

sen så kör du i länken

<%If session("id") = recset("id") Then%>&id=<%=RecSet("id")%><%else%><%end if%>

------------------
ASP är bäst fuck the rest!!!

men om man skriver in medlemmens id nummer så nollställs hans nyagbinlägg
men annars funkar det perfekt
bara det felet

 [url="http://localhost/gastbok.asp?tillid=1&id=2"]http://localhost/gastbok.asp?tillid=1&id=2[/url]

skapa en kolumn med frånid
så kanske det funkar???

sql = "update gb set [read] = 1 where [read] = 0 and tillid and fromid = " &Request.QueryString("id")

------------------
ASP är bäst fuck the rest!!!

nu nollställs allas!!!

nån som vet hur man gör :q

så här kanske??

sql = "update gb set [read] = 1 where [read] = 0 and tillid = " &session("id")&" and fromid = "&Request.QueryString("tillid")

------------------
ASP är bäst fuck the rest!!!

nope funkar inte :(

det här ska funka!!

sql = "update gb set [read] = 1 where [read] = 0 and tillid = " &session("id")&" and tillid = "&Request.QueryString("tillid")

------------------
ASP är bäst fuck the rest!!!