Hej,
Behöver hjälp med en sak.
Har min medlem som är username.

De som jag lagrar i databasen är username, datum(now), albumid.
Jag vill inte att medlemmen skall bomba med kommentarer, därför tillåter ja max 1 kommentar, per timme, per album.

De ja vill ha hjälp med är att innan jag kör en connect execute så vill ja ha en select sats som tex:

Select username from Forum where datum = dagens.datum - 1 timme
if recset.oef then

Du får bara kommentera 1 gång per timme.

Else

lagra kommentaren.



tacksam för svar.

Nåt sånt här?:
<code>
strsql = "SELECT datum FROM Forum WHERE " &_
"username='" & username & "' AND " &_
"albumid=" & albumid &_
" ORDER BY datum DESC"
rs.open strsql,dbc,,3
If Not rs.EOF Then
lastDate = cDate(rs("datum"))
Else
lastDate = cDate("1900-01-01")
End If
rs.Close
If datediff("n",Now(),lastDate)<60 Then
' Ej ok att kommentera
Else
' Ok att kommentera
End If
</code>

Tack för ditt svar:
Får ej detta att funka.

<code>
Set Recset = Connect.Execute("SELECT tid FROM Forum WHERE username ='" & Session("username") & "' AND albumid=" & Albumid & "")

lastDate = cDate(Recset("tid"))
Recset.Close
If datediff("n",Now(),lastDate)<60 Then ' 60 min
Response.Write "De går ej att kommentera"
Else


Connect.Execute("Insert Into forum(username,datum,ip,abuse,albumid,artistid,tid,comment) Values('" & Username & "','" & Datum & "','" & Ip & "','" & Abuse & "','" & Albumid & "','" & Artistid & "','" & Tid & "','" & Comment & "')")
Response.Redirect "artist.asp?albumid=" & Albumid & "&id=" & Artistid & "&letter=" & Letter & ""

End If
End If
</code>

Har även testat detta, får alltid Ej okej att kommentera, fastän ja har 2 timmars skillad eller att databasen e tom.

<code>
Set Recset = Connect.Execute("SELECT tid FROM forum WHERE username = '" & Session("username") & "' AND albumid= '" & Albumid & "'")

If Not Recset.EOF Then
lastDate = cDate(Recset("tid"))
Else
lastDate = cDate("1900-01-01")
End If
Recset.Close

If datediff("n",Now(),lastDate)<60 Then
Response.Write "Ej Okej att kommentera" ' Ej ok att kommentera
Else
Response.Write "Okej att kommentera" ' Ok att kommentera
End If
</code>

1. Vad innehåller Recset("tid")?
2. Prova byta plats på Now() och lastDate i datediff-funktionen

Recset("tid") innehåller Datetime, ex: 2007-12-26 23:15:21

Har även testat byta plats, nu går de att kommentera hela tiden.

Har du verifierat att lastDate har rätt värde när jämförelsen görs?