ASP-teori

Forklar lidt nærmere hvad det skal bruges til.

Jeg ved det er forvirrende :>

\'Lav connection object
ReplyId = Request.QueryString.Item(\"Id\")
SQL = \"SELECT felt1, felt2 FROM Tabel WHERE d_replyid = \" & RelyId
Set objRS = objConn.Execute(SQL)

Do while not objRS.EOF
Response.write objRS(\"felt1\") & \"<br>\"
Response.write objRS(\"felt1\") & \"<br><hr><br>\"
objRS.Movenext
Loop

objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing

Jeg er ved at lave et forum... Der har jeg først en side (Side1) der er en oversigt over posterne - man kan så klikke på dem (a href=show.asp?id=1) og de bliver vist i show.asp. Som det fungere nu kan man kun poste et nyt emne --> man kan ikke gove et svar. Det vil jeg så løse ved hver gang et nyt emne bliver postet for det replyid\'et det som posten før +1 -> men hvis nogle svarer på det nye emne for den post det samme replyid som emnet.

Dvs. når man klikker på et emne --> så bliver der vist alle svar dertil (altså de poster med samme replyid)

:P

got it?

Det er ikke noget du lige laver på 10sek.

Jeg har desværre ikke tid.

Har dog lavet noget ligne. www.sexinformation.dk, men kan desværre ikke give dig hele sourcen.

Okay jeg skal bvare bruge en sourcecode til når jeg finder en post med et id så skal den finde den posts replyid og så selecte resten med samme replyid

Sorry. Mit system er så advanceret, at du får en masse andet lort med : (

buuuhuu...jeg skal have den op at køre senest på mandag....

Sorry. Hvis du vil betale dig ud af det, kan vi godt finde ud af noget. Ellers har jeg desværre tid... Prøv at spørge nogle af de andre...

Hmmm...det vil jeg ikke :) Men jeg tror ikke der er andre som har opdaget spørgsmålet...

EKSPERTEEEEEEEER!!!! ASP, POINT

;-)

Hehe. : )

Hvis du satte pointene lidt til op ville jeg godt hjælpe :-))

Ej pjat. Jeg går udfra at du vil have en opstilling af dine poster som dette:

Besked
-Reply
  -Reply to Reply
-Reply

også kaldet threaded. Dette gøres vha. en rekursiv funktion dvs. en funktion som kalder sig selv.

Lad os sige at du har en tabel som denne:

[tblForum]
Id(Autonummerering) | Subject(text) | Besked(text) | Dato(datetime) | Parent(intreger) |


Så smides et NYT indlæg ind på denne måde:


INSERT INTO tblForum(Subject, Besked, Dato)
VALUES(\'\" & Request.Form(\"Subject\") & \"\',\'\" & Request.Form(\"Besked\") & \"\', Now() )

Og et reply på denne måde:

INSERT INTO tblForum(Subject, Besked, Dato, Parent)
VALUES(\'\" & Request.Form(\"Subject\") & \"\',\'\" & Request.Form(\"Besked\") & \"\', Now() , Request.Form(\"ParentID\"))


Når du så skal trække datane ud bruger du en sådan her funktion:

Function ThreadBesked(BeskedID)
Dim objConn, objRS
Set objConn = Server.CreateObject(\"ADODB.Connection\")
objConn.Connectionstring = \"xxxxxxxxxxxxxxxxxxxx\"
Set objRS = objConn.Execute(\"SELECT Id, Subject FROM tblForum WHERE Id = \" & BeskedID)

Do while Not objRS.EOF
  Response.write objRS(\"Subject\")
  ThreadBesked(objRS(\"Id\"))
objRS.Movenext
Loop

End Function

Du skal så kalde funktionen med Idet fra den besked du vil \"tråde\" sådan her:

ThreadBesked(Request.Querystring(\"id\"))

og så skulle der gerne ske noget.

Ellers spørg igen.

Hov der sneg sig lige en fejl ind i SQLerne:

Så smides et NYT indlæg ind på denne måde:


INSERT INTO tblForum(Subject, Besked, Dato)
VALUES(\'\" & Request.Form(\"Subject\") & \"\',\'\" & Request.Form(\"Besked\") & \"\', \" & Now())

Og et reply på denne måde:

INSERT INTO tblForum(Subject, Besked, Dato, Parent)
VALUES(\'\" & Request.Form(\"Subject\") & \"\',\'\" & Request.Form(\"Besked\") & \"\', \" & Now() & \" ,\" & Request.Form(\"ParentID\"))

Undskyld det tog så lang tid - jeg har været på ferie :) Jeg går i gang nu... :)