Chek for dubletter

Ved f.eks. at sætte feltet email til Indekseret: Ja - Ingen dubletter.

Eller ved først at checke om den allerede eksisterer vha. SQL..

strEmail = \"eksperten@tdaugaard.dk\"
sql=\"SELECT * FROM din_tabel WHERE email=\'\" & strEmail & \"\';\"
set rs=conn.execute(sql)
bolIsEmail = Not (rs.bof Or rs.eof)
set rs=nothing

if not bolIsEmail then
\'den eksistere ikke
end if

strEmail = \"eksperten@tdaugaard.dk\"
sql=\"SELECT * FROM din_tabel WHERE email=\'\" & strEmail & \"\';\"
set rs=conn.execute(sql)
if rs.bof then
  sql=\"INSERT INTO din_tabel ... bla bla\"
  conn.execute sql
end if

set rs=nothing


er nok bedre.

Kan du ikke prøve at sætte det ind???


<%


strconn = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"& Server.MapPath(\"mailing.mdb\")
    set conn = server.createobject(\"adodb.connection\")
    conn.open(strconn)

sql= \"insert into mailingliste(Email) values(\" & \"\'\" & request(\"mail\") & \"\'\" & \")\"
conn.execute(sql)

Conn.Close
set Conn = nothing

Response.Redirect(\"default.htm\")




%>

Se\'følig:

<%
    strEmail = Request(\"mail\")

    Set Conn = Server.CreateObject(\"ADODB.Connection\")
    Set Rs = Server.CreateObject(\"ADODB.RecordSet\")

    strConn = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"& Server.MapPath(\"mailing.mdb\")
    Conn.Open strConn

    strSQL = \"SELECT * FROM mailingliste WHERE email=\'\" & strEmail & \"\';\"
    Set Rs = Conn.Execute(strSQL)

    If Rs.BOF Then \' Emailen eksistere ikke
        strSQL = \"INSERT INTO mailingliste (email) VALUES(\'\" & strEmail & \"\');\"
        Conn.Execute strSQL
    End If

    Set Rs = Nothing
    Conn.Close: Set Conn = Nothing

    Response.Redirect(\"default.htm\")
%>

således...

Hvad gør den så Hvis mailen eksistere??

Not a god damn thing! Ikke en meter..

Her er koden til hvis du vil redirecte til forskellige sider alt efter om den gik igennem eller ej ..

<%
    strEmail = Request(\"mail\")

    Set Conn = Server.CreateObject(\"ADODB.Connection\")
    Set Rs = Server.CreateObject(\"ADODB.RecordSet\")

    strConn = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"& Server.MapPath(\"mailing.mdb\")
    Conn.Open strConn

    strSQL = \"SELECT * FROM mailingliste WHERE email=\'\" & strEmail & \"\';\"
    Set Rs = Conn.Execute(strSQL)

    If Rs.BOF Then \' Emailen eksistere ikke
        strSQL = \"INSERT INTO mailingliste (email) VALUES(\'\" & strEmail & \"\');\"
        Conn.Execute strSQL

        strRedir = \"default.htm\"
    Else
        strRedir = \"fejl.htm\"
    End If

    Set Rs = Nothing
    Conn.Close: Set Conn = Nothing

    Response.Redirect strRedir
%>