Email validation & HTTP 500.100 Error

[DanielTech]

Hi,
I am trying to validate the email in a form and then insert them into a database. I try the validation and it works, however when I try to populate a database with the emails it works the first time, after that it gives me the HTTP 500.100 Error. Here is my code:


<%
Dim strSql
Dim objConn, objRS

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Emails.mdb"))

Dim email, ID

email= Request.Form("email")

Dim flag

flag = False

Function ValidEmail(email2)
Dim veRegEx
Set veRegEx = New RegExp
veRegEx.Pattern = "^[\w\.-][email protected][\w\.-]+\.[a-zA-Z]{2,}"
ValidEmail = veRegEx.Test(email2)
End Function



If ValidEmail(email) = True Then
Response.Write "The email is good!"
flag= True
Else
Response.Write "The email is bad!"
flag =False
End If


'I am suppose to insert the emails into the database here but I got the error even before inserting anything


objConn.Close
Set objConn =Nothing




%>

Thanks,

DanielTech

[Roy Sinclair]

In IE > Tools > Internet Options > Advanced > Show Friendly HTTTP error messages -- Turn OFF that checkbox.

Then you'll get the WHOLE error message which should help you narrow down the problem.

[DanielTech]

The error:

Error Type:
Provider (0x80004005)
Unspecified error
/email.asp, line 46

that's this line:

objConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("email.mdb"))

If I do something like "On Error Resume Next" I get:
"Operation is not allowed when the object is closed"


??

[A1ien51]

I would believe your whole error is caused by you placing a function in the middle of the code....move the function to above the other code.

[oracleguy]

If that doesn't work, then the error being specified is a real pain. I just had to diagnose the problem last week, it has to do with permissions and the connection string.

Try changing the connection string to:
objConn.Open("DRIVER={Microsoft Access Driver (*.mdb)};uid=;pwd=;DBQ=" & Server.MapPath("email.mdb"))

[DanielTech]

I solved it. It had to do with the write permissions.
Thanks,
DanielTech