<!-- #include file="inc/adovbs.inc" -->
<%

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/main.mdb"))

Set RecSet = Server.CreateObject("ADODB.Recordset")
Radera = "SELECT Name, Email, Subject, Message FROM mail"
RecSet.Open Radera, Connect, adOpenStatic, adLockOptimistic

Response.Write("<table width=100% border=1 cellpadding=10 cellspacing=0>")
Response.Write("<tr><td bgcolor=#708090><font color=#FFFFFF>Namn</font></td>")
Response.Write("<td bgcolor=#708090><font color=#FFFFFF>E-post</font></td>")
Response.Write("<td bgcolor=#708090><font color=#FFFFFF>Ämne</font></td>")
Response.Write("<td bgcolor=#708090><font color=#FFFFFF>Meddelande</font></td>")
'Response.Write("<td bgcolor=#708090><font color=#FFFFFF>Ta bort</font></td></tr>")

Do Until RecSet.EOF

Response.Write("<tr>")
Response.Write("<td bgcolor=#800000><font color=#FFFFFF><B>"<=RecSet("Name")>"</B></font></td>")
Response.Write("<td bgcolor=#800000><font color=#FFFFFF><B>"<=RecSet("Email")>"</B></font></td>")
Response.Write("<td bgcolor=#800000><font color=#FFFFFF><B>"<=RecSet("Subject")>"</B></font></td>")
Response.Write("<td bgcolor=#800000><font color=#FFFFFF><B>"<=RecSet("Message")>"</B></font></td>")
Response.Write("<td bgcolor=#800000><font color=#FFFFFF><B>"">Radera</td></tr>")

RecSet.MoveNext
Loop
Response.Write("</table>")
RecSet.Close
Connect.Close

%>

Varför går det inte att lista posterna och radera en singelpost????

Tilla på din sista response.write-rad:
Response.Write("<td bgcolor=#800000><font color=#FFFFFF><B>"">Radera</td></tr>")

Du har glömt att du befinner dig i en sträng som ska ut och innehåller variabler. Om jag fattar det rätt så ska det se ut såhär:
Response.Write("<td bgcolor=#800000><font color=#FFFFFF><B>Radera</b></td></tr>")

Kompileringsfel i Microsoft VBScript fel '800a03ee'

')' förväntas.

/kick-box/mailcheck.asp, rad 74

Response.Write("<td bgcolor=#800000><font color=#FFFFFF><B>Radera</td></tr>")

Den pekar på ett felmeddelande på "d i delete.asp..............men vad är det som är fel här???

testa med detta...

Response.Write "<td bgcolor=""#800000""><font color=""#FFFFFF""><B>Radera</td></tr>"

mvh Stefan

ytterligare ett felmeddelande

TrueTrueTrueTrue
ADODB.Recordset fel '800a0cc1'

Objektet kunde inte hittas i mängden med det begärda namnet eller numret.

/kick-box/mailcheck.asp, rad 74

Kolumnen ID ingår inte i din select-fråga.

Deletesatsen gick in nu, men på fel plats


TrueTrueTrueTrue
TrueTrueTrueTrue
TrueTrueTrueTrue
TrueTrueTrueTrue
Namn E-post Ämne Meddelande Ta bort

Radera
Radera
Radera
Radera

Så här ser det ut i tabellen nu..........varför???

Hej.
Jag skulle helt ta bort dubbelfjomparna i din Response sträng.
Response.Write "<td bgcolor=""#800000""><font color=""#FFFFFF""><B>Radera</td></tr>"
Eftersom du inleder med "<tdbgcolor... så skall inga mer fjompar anges förrän i slutet av strängen. Alltså här... </tr>"
Så här borde sen se ut istället: Response.Write "<td bgcolor=#800000><font color=#FFFFFF><B>Radera</td></tr>"

Beträffande dina dubbletter i listningen så kan de bero på att i din SELECT sats inte anger något villkor för vilka träffar du vill åt. Du nmatar helt enkelt fram allt ur tabellen Mail.

Om det ändå är så du vill Selectera prova ändå med att ange DISTINCT efter SELECT i din sats och se om det hjälper.
Alltså... SELECT DISTINCT bla bla bla FROM Mail

Hej:)

Hej igen...
Jag har läst din kod lite bättre nu för att försöka se vad du vill få ut av den. Du vill lista tabellen Mails värden och avlsuta med en delete möjlighet i slutet av varje listad träff. OK. Anledningen till att du inte kan radera rätt inlägg beror just på att du använder samma SQL sats som den som listar allt. Du måste ange ID för vilket inlägg det gäller.

Jag skulle ha använt mig av två SQL satser. Den ena för att först lista allt ur databasen och den andra då du trycker på länken för radera.

Exempel:
Lägg till en kontrollvariabel
Dim KontrollVariabel
KontrollVariabel = Request.Querystring("ID")

If KontrollVariabel = EMPTY Then
strSQL = "SELECT bla bla bla FROM Mail"
Else
strSQL = "SELECT bla bla bla FROM Mail WHERE ID = KontrollVariabel"
End If

Typ så... Nu finns här två silda SQL satser som läses vid två olika tillfällen