Voici un exemple de page forum affichant tous les messages
et qui passe à la page suivante quand il y a plus de 10 question...
Le forum complet se trouve quelque part dans la rubrique ASP du site (en anglais) www.scriptsearch.com
Bon amusement
<%
dim CONNECTIONSTRING
Select Case Request.QueryString("Direction")
Case ""
Session("CurrentPage") = 1
Case "Next"
Session("CurrentPage") = Session("CurrentPage") + 1
Case "Prev"
Session("CurrentPage") = Session("CurrentPage") - 1
End Select
Const adOpenKeyset = 1
Set objConnection = Server.CreateObject("ADODB.Connection")
objConnection.CONNECTIONSTRING = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("forum.mdb") & ";"
ObjConnection.Open
Dim strSQL
Dim strSQL2
strSQL = strSQL & "Select * from questions"
Set RsMain = Server.CreateObject("ADODB.Recordset")
strSQL2 = strSQL2 & "Select * from reponses"
Set RsSecondary= Server.CreateObject("ADODB.Recordset")
RsMain.PageSize = 10
RsMain.Open strSQL, objConnection, adOpenKeyset
RsSecondary.Open strSQL2, objConnection, adOpenKeyset
RsMain.AbsolutePage = CLng(Session("CurrentPage"))
%>
<html>
<head>
<title>Mon Forum</title>
</head>
<body marginwidth="0" bgcolor="#990026" leftmargin="0">
<%
Dim r
For r = 1 To RsMain.PageSize
%>
<%
dim i
dim pic
pic = ("<img src=reline.jpg width=8 height=10 alt=reline.jpg (802 bytes)>")
break = "<br>"
i =" "
Response.Write("<font color=black size=2 face=Verdana, Arial, Helvetica, sans-serif> . " & " " & "<a href=" & Chr(34) & "bbresponse.asp?ID=" & rsmain.Fields("ID") & Chr(34) & ">" & rsmain.Fields("Subject") & "</A>" & " Envoyé par" & "<strong><i>" & " " & rsmain.Fields("username") & "</i></strong>" & " le " & rsmain.Fields("date") & "</font><br>")
If NOT RSSecondary.BOF Then
rsSecondary.MoveFirst
Do Until rsSecondary.EOF
If rsSecondary.Fields("Subjectid") = rsMain.Fields("Subjectid") then
response.write(i & pic & "<strong> >></strong><a href=" & Chr(34) & "bbremark.asp?ID=" & rsSecondary.Fields("ID") & Chr(34) & "><font color=black size=2 face=Verdana, Arial, Helvetica, sans-serif>" & rsSecondary.Fields("subject") & "</A></font> <font color=black size=2 face=Verdana, Arial, Helvetica, sans-serif>" & " " & "(" & rsSecondary.Fields("username") & ")" & "</font><br>")
i = i + " "
End if
rsSecondary.MoveNext
Loop
End If
%>
<% RsMain.MoveNext
If RsMain.EOF then
exit for
End If
Next
%><br>
<%If CLng(Session("CurrentPage")) > 1 Then %>
<a href="forum.asp?Direction=Prev"><font size="2" face="Verdana, Arial, Helvetica, sans-serif" color="#CCCCCC">Précédents</font></a>
<% End If %>
<%If CLng(Session("CurrentPage")) < RsMain.Pagecount Then %>
<a href="forum.asp?Direction=Next"><font size="2" face="Verdana, Arial, Helvetica, sans-serif" color="#CCCCCC">Suivants</font></a>
<% End If %>
<%
RsMain.Close
RsSecondary.close
objConnection.Close
Set RsMain = Nothing
Set RsSecondary=Nothing
Set objConnection = Nothing
%>
</body>
</html>
-------------------------------
Réponse au message :
-------------------------------
salut,
j'ai crée un forum en asp/vbscript
le seul probleme est que j'ai pas trouvé une bonne soluce pour afficher l'aborescence des messages/reponses respectives, je pense que le probleme peut etre resolu en utilisant la recursisvité !! comment faire de la recursivite est VBScript ???
merci
a+
PS : voici mon pb, si vous avez une soluce ...
table access : message(ID, msg, idRep) : idRep est l'id de la reponse du message d'identifiant ID, il faut juste extraire toutes les reponses et leur reponses successives d'un message donné