webForumDet fria alternativet

Total

30 svar · 368 visningar · startad av jboy_87

jboy_87Medlem sedan aug. 20011 099 inlägg
#1

varför plussas det dubbelt??:

minutes = datediff("n",cdate(session("totalminonline")),now())
Set connect55 = server.createobject("adodb.connection")
Connect55.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb")&""
connect55.execute "update members set totalminonline = totalminonline +" & minutes & " where id = " & session("id"),,128

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

jboy_87Medlem sedan aug. 20011 099 inlägg
#2

..........

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

icaaqMedlem sedan okt. 20005 273 inlägg
#3

Vad innehåller session("totalminonline")??

------------------
kolung.....det tål att tänkas på!

webzonenMedlem sedan feb. 2001390 inlägg
#4

annars kan du alltid testa detta:

Response.Write(TypeName(minutes))

så får du se vad det är för typ på varibeln minutes!

------------------
FEL!!
FÖR MYCKET NAKENHET I SIGNATUREN

[Redigerat av webzonen den 06 jan 2002]

jboy_87Medlem sedan aug. 20011 099 inlägg
#5

Session("totalminonline") = now() när man loggar in

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

jboy_87Medlem sedan aug. 20011 099 inlägg
#6

nån

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

HarbackMedlem sedan juni 2001206 inlägg
#7

Hmm.....testa att göra om minutes till en integer...

minutes = datediff("n",cdate(session("totalminonline")),now())
Set connect55 = server.createobject("adodb.connection")
Connect55.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb")&""
connect55.execute "update members set totalminonline = totalminonline + " & cint(trim(minutes)) & " where id = " & session("id"),,128

EDIT: fattade fel....

------------------
mvh
Harback
HiFiguiden.nu

[Redigerat av Harback den 06 jan 2002]

jboy_87Medlem sedan aug. 20011 099 inlägg
#8

nix funkar inte

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

jboy_87Medlem sedan aug. 20011 099 inlägg
#9

plussas fortfarande dubbelt :-(

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

jboy_87Medlem sedan aug. 20011 099 inlägg
#10

nån

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

@ndersMedlem sedan juni 200032 969 inlägg
#11

Jag tror du får visa lite mer kod som passar in i sammanhanget.

Mvh,

jboy_87Medlem sedan aug. 20011 099 inlägg
#12

så här ser hela ut:

<%
minutes = datediff("n",cdate(session("minonline")),now())
response.write "" & minutes & "" %><%minutes = datediff("n",cdate(session("minonline")),now())
set connect22 = server.createobject("adodb.connection")
Connect22.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb")&""
connect22.execute "update members set minonline = " & minutes & " where id = " & session("id"),,128

minutes = datediff("n",cdate(session("minonline")),now())
if minutes > 60 then
points = 3
connect22.execute "update members set minonline = " & minutes & " , poang = " & points &" where id = " & session("id"),,128
Connect22.close
Set Connect22 = nothing
end if

minutes2 = datediff("n",cdate(session("totalminonline")),now())
Set connect55 = server.createobject("adodb.connection")
Connect55.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb")&""
connect55.execute "update members set totalminonline = totalminonline + 0" & minutes2 & " where id = " & session("id"),,128

%>

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

jboy_87Medlem sedan aug. 20011 099 inlägg
#13

nån som kan hjälpa mig

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

icaaqMedlem sedan okt. 20005 273 inlägg
#14

först uppdaterar du minutes en gång här

<%
minutes = datediff("n",cdate(session("minonline")),now())
response.write "" & minutes & "" %><%minutes = datediff("n",cdate(session("minonline")),now())
set connect22 = server.createobject("adodb.connection")
Connect22.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb")&""
connect22.execute "update members set minonline = " & minutes & " where id = " & session("id"),,128
minutes = datediff("n",cdate(session("minonline")),now())
if minutes > 60 then
points = 3
connect22.execute "update members set minonline = " & minutes & " , poang = " & points &" where id = " & session("id"),,128
Connect22.close
Set Connect22 = nothing
end if

sen uppdaterar du den en gång till här

minutes2 = datediff("n",cdate(session("totalminonline")),now())
Set connect55 = server.createobject("adodb.connection")
Connect55.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb")&""
connect55.execute "update members set totalminonline = totalminonline + 0" & minutes2 & " where id = " & session("id"),,128

%>

inte konstigt att det blir dubbelt :)

------------------
kolung.....det tål att tänkas på!

icaaqMedlem sedan okt. 20005 273 inlägg
#15

mär jag tittat lite närmare så märkte jar att om man har varit där i mer än 60 minuter uppdateras minuterna 3 ggr..... :OO

------------------
kolung.....det tål att tänkas på!

jboy_87Medlem sedan aug. 20011 099 inlägg
#16

nope funkar inte

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

jboy_87Medlem sedan aug. 20011 099 inlägg
#17

det blir sek istället!!!!

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

jboy_87Medlem sedan aug. 20011 099 inlägg
#18

fattar inte riktigt ?????

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

icaaqMedlem sedan okt. 20005 273 inlägg
#19

Vad är det du inte fattar... ;)
här lägger du in totalminutes första gången:

<%
minutes = datediff("n",cdate(session("minonline")),now())
response.write "" & minutes & "" %><%minutes = datediff("n",cdate(session("minonline")),now())
set connect22 = server.createobject("adodb.connection")
Connect22.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb")&""
connect22.execute "update members set minonline = " & minutes & " where id = " & session("id"),,128

sen uppdaterar du tabellen en gång till om man varit inloggad 60 minuter


minutes = datediff("n",cdate(session("minonline")),now())
if minutes > 60 then
points = 3
connect22.execute "update members set minonline = " & minutes & " , poang = " & points &" where id = " & session("id"),,128
Connect22.close
Set Connect22 = nothing
end if

och sen uppdaterar du en sista gång


minutes2 = datediff("n",cdate(session("totalminonline")),now())
Set connect55 = server.createobject("adodb.connection")
Connect55.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/members.mdb")&""
connect55.execute "update members set totalminonline = totalminonline + 0" & minutes2 & " where id = " & session("id"),,128

%>

hmmmmmm ......varför vet jag inte

------------------
kolung.....det tål att tänkas på!

jboy_87Medlem sedan aug. 20011 099 inlägg
#20

det blir ju samma sak

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

133 ms totalt · 3 externa anrop · v20260731065814-full.30151723
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
131 ms — hämta tråd, inlägg och bilagor (db)