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é
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>
<%
Dim r
For r = 1 To RsMain.PageSize
%>
<%
dim i
dim pic
pic = ("")
break = "
"
i =" "
Response.Write(" . " & " " & "[ & Chr(34) & " & rsmain.Fields("Subject") & "]" & " Envoyé par" & " " & " " & rsmain.Fields("username") & " " & " le " & rsmain.Fields("date") & "
")
If NOT RSSecondary.BOF Then
rsSecondary.MoveFirst
Do Until rsSecondary.EOF
If rsSecondary.Fields("Subjectid") = rsMain.Fields("Subjectid") then
response.write(i & pic & " >>[ & Chr(34) & " & rsSecondary.Fields("subject") & "] " & " " & "(" & rsSecondary.Fields("username") & ")" & "
")
i = i + " "
End if
rsSecondary.MoveNext
Loop
End If
%>
<% RsMain.MoveNext
If RsMain.EOF then
exit for
End If
Next
%>
<%If CLng(Session("CurrentPage")) > 1 Then %>
[forum.asp?Direction=Prev Précédents]
<% End If %>
<%If CLng(Session("CurrentPage")) < RsMain.Pagecount Then %>
[forum.asp?Direction=Next Suivants]
<% End If %>
<%
RsMain.Close
RsSecondary.close
objConnection.Close
Set RsMain = Nothing
Set RsSecondary=Nothing
Set objConnection = Nothing
%>