Script til visning af indhold samt delete-funktion

Måske noget i stil med disse to scripts?

=== visAlleForumIndaeg.asp ===

sql = "SELECT id FROM forumTabel ORDER BY id DESC"
Set sql = Conn.Execute(sql)

Do While Not rs.EOF
    Response.Write "<a href='sletForumIndlaeg.asp?id=" & rs("id") & "'>Slet indlæg nr. " & rs("id") & "</a><br>"
    rs.MoveNext
Loop


=== sletForumIndlaeg.asp ===

id = Request.QueryString("id")
sql = "DELETE FROM forumTabel WHERE id = " & id
Conn.Execute(sql)

Response.Redirect("visAlleForumIndaeg.asp")

Ja, det ligner det rigtige! sletforum filen giver mig dog følgende fejlmeddelse:

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'id ='.

sletForumIndlaeg.asp, line 13

Hvor er fejlen?

Prøv lige at lave en Vis Kilde på visAlleForumIndaeg.asp. Kommer der overhovedet en værdi med i enden af:

sletForumIndlaeg.asp?id= <??? kommer der noget her ???>

- linkene?

Ja! Der kommer noget frem: <a href='sletForumIndlaeg.asp?id=8'>Slet indlæg nr. 8</a>

Men når man så trykker på linket, så kommer ovenstående fejlmeddelse...

Underligt - så burde det da virke...

Prøv med lidt debug-udskrift:

=== sletForumIndlaeg.asp ===

id = Request.QueryString("id")
sql = "DELETE FROM forumTabel WHERE id = " & id
Response.Write "DEBUG: " & sql & "<br>"
Conn.Execute(sql)

Nu virker det sgu! Tror det var en forkert reference til en tabel... Så dit script virkede! Nu skal jeg kun gætte mig til hvilket indlæg der har hvilket id...

Tak for hjælpen!

Du kan modifisere din kode lidt sådan at du kan se selve teksten; Noget i denne stil:

sql = "SELECT indlaeg, id FROM forumTabel ORDER BY id DESC"
Set sql = Conn.Execute(sql)

Do While Not rs.EOF
    Response.Write rs("indlaeg") & "<br>"
    Response.Write "<a href='sletForumIndlaeg.asp?id=" & rs("id") & "'>Slet</a><br>"
    rs.MoveNext
Loop

Tak, det fandt jeg selv ud af, omend det blev knapt så kønt... ;)

Nu kender jeg jo ikke dine data, så jeg kan ikke rigtigt vurdere hvad der ville være kønnere.

Men du kan jo f.eks. prøve at ændre:

Response.Write rs("indlaeg") & "<br>"

- til:

Response.Write Left(rs("indlaeg"), 20) & " ..."

Så mangler du bare at acceptere svaret :^)

Havde forsøgt flere gange, men det var sgu ikke for smart en godkendelse process, når man ikke kender den... Men nu skulle den gerne være der! Mvh E.

Takker for point - jeg tror at den er lavet, som den er, for at man kan acceptere (eller afvise) svarene fra flere som hver har lagt et svar.