Hvad er fejlen her!!
HejDette er et script hvor brugeren kan afmelde sig sit nyhedsbrev, men der opstår en fejl som jeg ikke kan gennemskuge!
Dette er fejlmeldingen:
ADODB.Recordset fejl '800a0e78'
Den handling, programmet anmodede om, er ikke tilladt, hvis objektet er lukket.
nyhedsbrev/frameld.asp, linje 27
...Og her 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"-->
