Check om e-mail eksisterer i databasen

Sql = "SELECT email FROM users WHERE email = '"& [input mailadresse] &"'"

Set Rs = Conn.Execute(Sql)

If Rs.EOF THEN
Response.write("Mail adressen findes ikke!")
Else
Response.write("Mail adressen findes!")End If

Det vil sige at min Sql sætning bliver denne :

<%
'Create DB connection
    Set cnnID = Server.CreateObject("ADODB.Connection")
    cnnID.Open Application("DSN")

SQL = "SELECT email FROM poll WHERE email = '"&  =" & Request.Querystring("Email") &"'"
Set Rs = CnnID.Execute(Sql)

If Rs.EOF THEN
'Response.write("Mail adressen findes ikke!")
Response.Redirect "2send.asp"
Else
Response.write("Mail adressen findes!")
End If

%>

<%
'Create DB connection
    Set cnnID = Server.CreateObject("ADODB.Connection")
    cnnID.Open Application("DSN")

SQL = "SELECT email FROM poll WHERE email = '" & Request.Querystring("Email") & "'"
Set Rs = CnnID.Execute(Sql)

If Not Rs.EOF THEN
Response.Redirect "2send.asp"
Else
Response.write("Mail adressen findes!")
End If
%>

//>Rune

Ok, nu har jeg kogt det sammen med min anden sql sætning som skal smide det ned i databasen, hvis email adressen ikke findes... Men det virker ikke helt - kan i se fejlen:

<%
'Create DB connection
    Set cnnID = Server.CreateObject("ADODB.Connection")
    cnnID.Open Application("DSN")

SQL = "SELECT email FROM poll WHERE email = '" & Request.Querystring("Email") & "'"
Set Rs = CnnID.Execute(Sql)

If Rs.EOF THEN
SQL = "Insert into Poll ([YesNo],Software,YesNo1,FindUS,Andet,Evt,Email,MarketingOK) values('" & Request.Form("YesNo") & "','" & Request.Form("Software") & "','" & Request.Form("YesNo1") & "','" & Request.Form("FindUS") & "','" & Request.Form("Andet") & "','" & Request.Form("Evt") & "','" & Request.Form("Email")  & "','" & Request.Form("MarketingOK") & "')"
CnnID.Execute(SQL)
    Response.Redirect "tak.htm"
Else
Response.Write ("Mail adressen findes!")
End If
%>

er der en fejl meddelse?

det var bedre hvis du havde lagt fejl beskeden. men er den nu rigtig:
....
Set Rs = CnnID.Execute(Sql)
.....
If Rs.EOF THEN
....
CnnID.Execute(SQL)
måske fejlen opstår her da den første RS ikke er lukket.

Det burde ikke have noget med Rs at goere vil jeg mene da det er et helt andet object der bliver brugt. Naar du bruger CnnID.Execute(Sql) er det jo kun forbindelsen til db'en, det har jo ikke noget med recordsettet at goere.

Hvis der er tale om en SQL fejl kunne det godt vaere nogle af dine felter som den er gal med. [YesNo], YesNo1 osv. er boolean felter skal der saa vidt jeg ved ikke ' og ' omkring.

Nu har jeg udkommenteret det som tjekker om emailen allerede eksistere:

<%
'Create DB connection
    Set cnnID = Server.CreateObject("ADODB.Connection")
    cnnID.Open Application("DSN")

'SQL = "SELECT email FROM poll WHERE email = '" & Request.Querystring("Email") & "'"
'Set Rs = CnnID.Execute(Sql)
'If Rs.EOF THEN
    SQL = "Insert into Poll (JaNej,Software,JaNej1,FindUS,Andet,Evt,Email,MarketingOK) values('" & Request.Form("JaNej") & "','" & Request.Form("Software") & "','" & Request.Form("JaNej1") & "','" & Request.Form("FindUS") & "','" & Request.Form("Andet") & "','" & Request.Form("Evt") & "','" & Request.Form("Email")  & "','" & Request.Form("MarketingOK") & "')"
    Set Rs = CnnID.Execute(Sql)
    Response.Redirect "tak.htm"
'Else
'    Response.Write ("Mail adressen findes!")
'End If
%>

Så sender den fint - men tjekker jo ikke om email adressen allerede er oprettet i databasen.! Før skrev den bare konsekvent - Email adressen findes!