|
Inlägg
markerade med 
innehåller svar som är högst en dag
gamla. Om du vill ha svar snabbt så kan du söka
i forumet efter gamla frågor och svar! För
att göra ett inlägg i forumet klicka
här, eller rulla ner längst ner på
sidan!
| RUBRIK |
SKRIVET
AV |
DATUM |
SVAR
|
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("forum.mdb")&";"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From asp WHERE REF_ID = 0 ORDER BY DATUM DESC"
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
X=0
DO UNTIL X=25 OR RecSet.EOF ' <-- Här visar vi bara de 25 senaste trådarna
nytt = "no"
Set RecSet2 = Server.CreateObject("ADODB.Recordset")
Addera2 = "Select DATUM From asp WHERE REF_ID = " &RecSet("ID")
RecSet2.Open Addera2, Connect, adOpenStatic, adLockOptimistic
DO UNTIL RecSet2.EOF OR nytt = "yes"
IF RecSet2("DATUM") > NOW - 1 THEN
nytt = "yes"
END IF
RecSet2.MOVENEXT
LOOP
RecSet2.CLOSE
%>
|
">
<% IF nytt = "yes" THEN %>
<% END IF %>
<%=RecSet("RUBRIK")%> |
<%=RecSet("NAMN")%> |
<%=RecSet("DATUM")%> |
<%=RecSet("ANTALSVAR")%>
|
<%
RecSet.MOVENEXT
LOOP
RecSet.CLOSE
Connect.CLOSE
Set RecSet = nothing
Set Connect = nothing
%>
Skriv
ett inlägg
<%
IF Session("fel") <> "" THEN
Response.WRITE Session("fel")
Session("fel") = ""
END IF
%>
|
