Jag ska göra en kod som ska kålla om man har några nya gästboksinlägg eller inte. Som på lunarstorm ex: det blinkar en bild om man har ett nytt gästboksinlägg. Kan du försöka omformulera dig lite? Och kolla svenskan... <code> Tycker du angriper problemet fel. Istället för att flagga inläggen. Skapa ett fält i användar tabellen.Gästbok 2
Alla medelanden som skrivs i gästböckerna får read=0
Den här koden ska göra om alla medelanden som är skickade till ens gästbok med read=0 till read=1 när man går in i gästboken. Men den gör bara om read=1 om det bara finns ett medelande i din gästbok om det är fler så skriver den inte över read=0 till read=1.
<!-- #include file="adovbs.inc" -->
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/gb.mdb")&";"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "select * from gb where tillID="&Session("ID")
RecSet.Open Addera, Connect, AdopenKeyset, adLockOptimistic
if not recset.eof then
RecSet("read") = "1"
RecSet.Update
end if
RecSet.Close
Connect.close
Set RecSet = nothing
Set Connect = nothing
Response.Redirect "gastbok3.asp?tillID =" & Session("ID")
%>
(IF satsen är på en egen sida och inte i gästboken)
En if sats som ska kålla om det finns några nya inlägg (altså inlägg med read=0) och om det finns så ska den byta en bild (Som på lunarstorm)
Men min IF sats gör en bild till varje inlägg som finns i ens egen gästbok istället för att kålla om det bara finns en rad med read=0. Varför?
Altså om det finns en rad i ens egen gastbok med read=0 så ska den här koden visa en bild men om det inte finns nån rad med read=0 så visar den en annan.
<!-- #include file="adovbs.inc" -->
<% Session.lcid = 1053 %>
<%
If Session("login") <> "ok" Then
Session("meddelande") = "You have to be online!"
Response.Redirect "login.asp"
End If
%>
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/gb.mdb")&";"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From gb where tillID="&Session("ID")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
%>
<% dim datum
datum = DateAdd("h",6,Now)
%>
<html>
<head>
<LINK REL=stylesheet HREF="style.css" TYPE="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta http-equiv="Content-Language" content="sv">
</head>
<body align="top" valign="top" background="images/menu.gif">
<table width="100%" height="100%">
<tr>
<td align="bottom" valign="bottom" width="100%" height="100%">
<%
DO Until RecSet.EOF
%>
<%if recset("read") = "0" then%> " target="frame">
<%else%> " target="frame">
<%end if%>
<%
RecSet.movenext
loop
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
%>
</tr>
<tr>
<td align="bottom" valign="bottom" width="100%" height="1">
</tr>
</table>
</html>
Sv: Gästbok 2
Jag har inte en aning om vad du vill göra...Sv: Gästbok 2
<%
DO Until RecSet.EOF
%>
<%if recset("read") = "0" then%> " target="frame"> <%else%> " target="frame"> <%end if%>
<%
RecSet.movenext
loop
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
%>
</code>
får nog bli:
<code>
<%
havenotread=false
DO Until RecSet.EOF
if recset("read") = "0" then havenotread=true end if
RecSet.movenext
loop
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
if havenotread=true then%> " target="frame"> <%else%> " target="frame"> <%end if
%>
</code>
tror jag...Sv: Gästbok 2
När du infogar ett gästboks inlägg säter du den till True.
När användaren läser gästboken sätter du tden till False.
Slipper du kontrollera flera poster.
Skulle gissa på att det är samma teknik som LunarStorm använder.