Ayuda con un formulario y db?

[u_goldman]

Trata así:

Response.Buffer = true
dim cnn,rst
' Creamos la conexión a la base de datos sin DSN
set cnn = Server.CreateObject("ADODB.Connection")
cnn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("dbx.mdb"))


'Recogemos los datos y validamos que no haya ningun campo vacio
dim usermail
usermail = Request.Form("usermail")

if usermail ="" or usermail ="" then
error = "<center><font face=verdana size=2><b>Debe completar todos los datos correctamente.</b></font></center>"
Response.Write error
Response.End
end if

'Si está todo correcto, procedemos a ingresar los datos a la base de datos

Set rs= Server.CreateObejct("ADODB.Recordset")
strSQL= "SELECT * FROM mails WHERE mail='" & usermail & "'"
rs.Open strSQL, cnn, 3, 3

If rs.EOF Then
rs.Close
Cnn.Execute("INSERT INTO mails(mail) VALUES('"&usermail&"')")
Else
rs.Close
'Mensaje
End If
Set rs= Nothing
'Terminamos e imprimimos un mensaje
Response.Write "<br><br><br><font face=verdana size=3><b>¡Gracias por tu Registro!</b></font><br><br>"