Alright, here's the code. As i said i can't provide you with the exact error message as i don't have access to a web server at this time. (The database name is changed for security purpuses) I would have provided it earlier but i needed to get access to the server and download it...
<%
'Designed by Paul Morgan
'in February 2003
'inserts record (email, name, and zip)
'into database...
'Connect to database
dim conn
set conn = Server.CreateObject("ADODB.Connection")
conn.Mode = adModeReadWrite
conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.Open "c:\inetpub\myfolder\databases\mydatabase.mdb"
'Open the recordset
dim rs
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "list", conn
'Create and set variables from querystring
dim fn
dim zip
dim email
fn = Request.Querystring("fname")
zip = Request.Querystring("zip")
email = Request.Querystring("email")
'Add the new record to the database
rs.AddNew
rs ("NameFirst") = fn
rs ("zip") = zip
rs ("EmailAddress") = email
rs.Update
'Clean up
rs.Close
conn = nothing
rs = nothing
fn = nothing
zip = nothing
email = nothing
%>