Tilmelding til nyhedsbrev.

Hej alle eksperter...

Jeg gik for noget til siden over til mysql efter at havde brugt access. Men nu virker min tilmelding til mit nyhedsbrev ikke mere koden ser således ud:


<%
SQLserveradr="Mysql5.wannafind.dk"
SQLdatabase="xxx_db"
SQLlogin="xxx"
SQLpassword="xxx"

Set Conn = Server.CreateObject("ADODB.Connection")

conStr = "driver={MySql};server="& SQLserveradr &";database="& SQLdatabase
conStr = conStr & ";uid="& SQLlogin &";pwd="& SQLpassword & ";OPTION=16386"

Conn.Open conStr

Session.LCID = 1030

Dim useraction
Dim Email
Dim Action
Dim SQL

Email = request.form("Email")
useraction = request.form("Join_Quit")

set RS = server.createobject("adodb.recordset")
SQL = "SELECT * FROM List WHERE Email = '" & Email & "'"
RS.open SQL, conn, 2, 2

    select case useraction
    case "Join"
        if RS.bof and RS.eof then
    sql = "Insert Into List(Email) Values('"
    sql = sql & Request("Email") & "')"
 
            Action = "<br><img border=0 src=images/Ok.gif alt=Ok><br><br>Tak for tilmeldingen."
        else
            Action = "<br><img border=0 src=images/Ok.gif alt=Ok><br><br>Du er allerede tilmeldt."
        end if
    case "Quit"
        if RS.bof and RS.eof then
            Action = "<br><img border=0 src=images/fejl.gif alt=Fejl><br><br>Du er ikke blevet medlem."
        else           
            sql2="DELETE FROM List WHERE Email = '" & Email & "'"
            conn.execute(sql2)
           
            Action = "<br><img border=0 src=images/ok.gif alt=Ok><br><br>Du vil nu ikke længere modtage e-mails om opdateringer og andet godt her på xxx.dk."
        end if
    end select

RS.close
set RS = nothing

Jeg må indrømme at jeg er helt på bar bund med denne her...

På forhånd tak for hjælpen...

/Jens...