<%
d = datediff("n", session("start") , now() )
b = dateadd("n", d , now)
c = datediff("n", session("start"), b)
session("minonline") = c
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 = '" & c & "' where id = " & session("id"),,128
set rs = server.createobject("adodb.recordset")
sql = "Select * From members Order By id Desc"
rs.open sql, connect22, 2, 2
connect22.execute "update members set status = 'offline' where dateadd('n',2,[start]) < now() and status = 'online'",,128
connect22.close : set connect22 = nothing
%>
och vart ska man
lägga in denna kod
har querystringen svara.asp?rubrik=re: bla bla
If Left(strRubrik,3) = "Re:" Then
' Re: finns redan
Else
' Lägg till Re: på rubriken
strRubrik = "Re: " & strRubrik
End If
Logiken i den där biten kod är att kolla ifall inlägget är ett svar eller inte. (Den kollar ju ifall de tre första tecknena i rubriken är "re:", för då är det ju ett svar.)
Den borde lämpligtvis ligga någonstans precis innan du visar rubriken/texten eller när du slänger in det i databasen, var någonstans det är i din kod kan jag inte se, för den verkar sannerligen inte passa in i den biten du postat ovan.
Var ligger den nu?
[redigering]
såg att du sa att kodbiten låg i en tom sida.. den kanske includeras på sidan genom en
<!--#include virtual="/vadsomhelst.asp"-->
men det låter lite långsökt. Det är alltså inget mer i den filen?
