epost if exist

<%
Response.Buffer = true
dim cnn,rst
set cnn = Server.CreateObject(\"ADODB.Connection\")
cnn.Open \"driver={Microsoft Access Driver (*.mdb)};;DBQ=\" & server.mappath(\"db.mdb\")
sqltext = \"SELECT * FROM Epost\"
set rs = cnn.execute(\"SELECT * FROM Epost where epost = \'\" & Epost & \"\'\")
if rs.eof then
set rst = Server.CreateObject(\"ADODB.RecordSet\")
rst.Open sqltext,cnn,3,3

dim Epost
Epost = Request.Form(\"Epost\")

rst.AddNew
rst(\"Epost\") = Epost
rst.update

Response.Redirect \"ok.asp\"
else
response.redirect \"er_i_db.asp\"
end if
%>

<%
Response.Buffer = true
dim cnn,rst
set cnn = Server.CreateObject(\"ADODB.Connection\")
cnn.Open \"driver={Microsoft Access Driver (*.mdb)};;DBQ=\" & server.mappath(\"db.mdb\")
sqltext = \"SELECT * FROM Epost\"
set rs = cnn.execute(\"SELECT * FROM Epost where epost = \'\" & Epost & \"\'\")
if rs.eof or rs.bof then \'******* 1 **** KIG HER******
set rst = Server.CreateObject(\"ADODB.RecordSet\")
rst.Open sqltext,cnn,3,3

dim Epost
Epost = Request.Form(\"Epost\")

rst.AddNew
rst(\"Epost\") = Epost
rst.update

Response.Redirect \"ok.asp\"
else \'***** Ellers ************
response.redirect \"er_i_db.asp\"
end if \'******* Vi lukker denne If sætning! *****
%>



Forklaringer
**1**
Hvis den ikke kan finde noget ( End of file - Beginning og file )

cyigen >> Du gør jo fuldstændig det samme som mig...

jaja jeg ved men jeg har bare tilføjet rs.bof og kommentare...

Det gamle svar skulle faktisk også være en kommentar!
Så lad være med at acceptere mit svar!!!

hm det går ikke, samme epost kommer inn 2 ganger selv om jeg bruker deres eksempler... jeg skjønner ikke hva som kan være galt her..