Script fejl ?

Her er koderne!

<%@ Language=VBScript %>
<%option explicit%>
<!--#include file ="SpawnedHead.asp"-->
<%
Dim email,conn,rsMail
email = Request.Form("eaddy")
response.write( email )

if email = "" then
response.write("Gå venligst tilbage og skriv din e-mail adresse som du vil slette.")

else

If InStr(1,email,"@",vbTextCompare) = 0 then

response.write(" Dette er ikke en korrekt e-mail adresse, prøv venligst igen!")

else

set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("../../db/SpawnedMailer.mdb"))

set rsMail = Server.CreateObject("ADODB.recordset")
rsMail.Open "Delete * FROM MailingList WHERE MailingAddy='" & email & "'", conn

    If rsMail.EOF Then
        Response.Write "Din e-mail findes ikke!"
        else
        Response.Write "Du er nu frameldt nyhedsbrevet!"
        end if

rsMail.close
conn.close
end if
end if
%>
<!--#include file ="SpawnedFoot.asp"-->

Det der egentlig skal ske, er at scriptet bare skal lukkes uden det laver fejl, for scriptet udføger det så det skal - så hvis der er nogle der har en fiks ide, sidder jeg klar til at prøve det af:)

Der er et par ting galt...

1. Du skal ikke have en * i din delete sætning...
"DELETE FROM MailingList WHERE MailingAddy='" & email & "'", conn

2. Hvis du bruger en Delete SQL-sætning, så kan du ikke køre igennem dit recordset bagefter... Så skal du bruge en SELECT statement først.

Og det var self. et svar! :)

Hej

Tak for hjælpen, men du skriver at jeg skal bruge en SELECT statement først - men det forstår jeg ikke helt.

Vil du ikke prøve at lave det i koden ??

Justdoit:)

lukket