Autoresponder

[JuztinMedia]

Does anyone know of a good ASP script that will do this...

Someone fills out a form with their name, e-mail, etc. IT will put all of that into an Access database, e-mail me, and reply back to them automatically?

Thanks!

Help. Thanks!
-JusTin

 

[adamsoderqvist]

Maybe something like this..

***********Add the info to the DB:************
'Create the connection string....
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection&quot
objConn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Request.ServerVariables("APPL_PHYSICAL_PATH&quot & "MyDB.mdb"
objConn.Open

'Declare recordset object...
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset&quot

'Open the database! (NOTE: for the DB to updateable, you
'MUST set the lock type to "adLockOptimistic"!)

objRS.Open "tblUsers", objConn, , adLockOptimistic

'Perform add action...
objRS.AddNew
objRS("PostDate&quot = Date()
objRS("PostTime&quot = Time()
objRS("Name&quot = strName
objRS("Email&quot = strEmail
objRS.Update

'Close objects...
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing

********mail section:*************
'Now send the mail...

Dim objMail
Set objMail = CreateObject("CDONTS.NewMail&quot

objMail.From = "me@me.com"
objMail.Subject = "Your subscription"
objMail.To = "you@you.com"
objMail.Body = "Hello!"
objMail.Send

Response.Write("Mail was Sent&quot

'close the object!
Set objMail = nothing

[/code]

NOTE: your server must be running an SMTP service, or the "NewMail-object" won't be created!

good luck.