kontroller om en email adresse allerede findes i databasen

<%
Set DataConn = Server.CreateObject(\"ADODB.connection\")   
DataConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"database.mdb\")
Set rs = Server.CreateObject(\"ADODB.RecordSet\")

rs.Open \"Select email from din_tabel where email=\'\" & request.form(\"email\") & \"\')\",dataconn

if rs.EOF or rs.BOF then
  \' Hvis den ikke findes
  rs.Open \"insert into din_tabel values(\'\" & request.form(\"email\") & \"\',\'ON\')\",dataconn
else
  \' Hvis den findes
  rs.Open \"insert into din_tabel values(\'\" & request.form(\"email\") & \"\',\'OFF\')\",dataconn
end if

DataConn.Close
Set dataconn = nothing
set rs = nothing
%>

//Claus