webForumDet fria alternativet

Fel i datumräkning

ASP

1 svar · 203 visningar · startad av KForsman

Medlem sedan jan. 20021 inlägg
Frågan#1

<%if request.querystring("visa") = "sena" then
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db_mapp/index.mdb")&";"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From medlem where datum = date() -30 order by username ASC"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
IF RecSet.EOF Then
response.write "Alla verkar ha loggat in på senaste tiden..."
else
Do Until RecSet.EOF
%>
<b><%=RecSet("username")%></b> loggade in <%=FormatDateTime(RecSet("datum"),vbLongdate)%>. <a href="007_license_to_edit.asp?del_oinloggad=<%=RecSet("username")%>"><img src="grafik/delete.gif" border="0"></a><br>
<%RecSet.Movenext
Loop
end if
end if
%>

Det ska lista ut alla som inte har loggat in inom 30 dagar, men enligt scriptet har alla gjort det... Ser någon nåt fel i koden?

Medlem sedan juni 200032 967 inlägg
#2

Välkommen hit! :)

Jag hade nog ställt SQL-frågan så här istället:

Addera = "Select * From medlem where datum > dateadd(""d"", -30, now()) order by username ASC"

Om jag förstod dig rätt, vill säga.

Mvh,

275 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
123 ms — deklarationer (db)
0 ms — hämta statistik (cache)
149 ms — hämta tråd, inlägg och bilagor (db)
118 ms — ändringar (db)