ASP Mail - Set up Autoresponders

Set up autoresponders based on from elements

[kris]

I am looking for a script that will send autorespond emails to the user based upon certain form variables. If they select "Blue Widgets" they will get the "Blue Widgets" email. All in all about 15 different emails. Does anybody know where I can find a good resource to do something like that? It sure would be a lifesaver!

[WebJoe]

I have something similar, where the recipient is evaluatet upon the users selection:

<%
'* **********************************************************************
'* MODULE : frmkontakthandler.asp
'* AUTHOR : WebJoe
'* CREATED : Dec 11 2002
'* COMPATIBILITY : MS WinNT 4.0 Server, IIS4 w/ Option Pack 4 & simple SMTP
'* DESCRIPTION : Sends mail with text from a form
'* The following fields are mandatory in the form:
'* cmbKontakt, tbsEmail, tbsCc, tbsBcc, tbsSubject,
'* tbnImportance, tbsAnswerfile.
'* COPYRIGHT : Copyright (c) 2002 WebJoe.
'* DISTRIBUTION : Freely redistributable. Use at your own risk.
'* **********************************************************************

Dim lsKontakt, lsFrmField, lsMsgBody
Dim lsFrmFrom, lsFrmTo, lsFrmCc, lsFrmBcc, lsFrmSubject, lsFrmImportance, lsFrmRedirect
Dim lsClientIP, lsClientUA
Dim loCDOMail

'-------------------------------------------------------
' Get values from hidden fields for sending the mail
'-------------------------------------------------------

lnKontakt = Request.Form("cmbKontakt")

lsFrmFrom = Request.Form("tbsEmail")
lsFrmCc = Request.Form("tbsCc")
lsFrmBcc = Request.Form("tbsBcc")
lsFrmSubject = Request.Form("tbsSubject")
lsFrmImportance = Request.Form("tbnImportance")
lsFrmRedirect = Request.Form("tbsAnswerfile")

'-------------------------------------------------------
' Evaluate recipient
'-------------------------------------------------------

Select Case lnKontakt
Case 1
lsfrmTo = "[e-mail]"
Case 2
lsfrmTo = "[e-mail]"
Case 3
lsFrmTo = "[e-mail]"
Case 4
lsFrmTo = "[e-mail]"
Case 5
lsFrmTo = "[e-mail]"
Case 6
lsFrmTo = "[e-mail]"
Case 7
lsFrmTo = "[e-mail]"
Case 8
lsFrmTo = "[e-mail]"
Case 9
lsFrmTo = "[e-mail]"
Case 10
lsFrmTo = "[e-mail]"
Case 11
lsFrmTo = "[e-mail]"
Case 12
lsFrmTo = "[e-mail]"
Case 13
lsFrmTo = "[e-mail]"
Case 14
lsFrmTo = "[e-mail]"
Case 15
lsFrmTo = "[e-mail]"
Case 16
lsFrmTo = "[e-mail]"
Case 17
lsFrmTo = "[e-mail]"
Case 18
lsFrmTo = "[e-mail]"
Case 19
lsFrmTo = "[e-mail]"
Case 20
lsFrmTo = "[e-mail]"
Case 21
lsFrmTo = "[e-mail]"
Case 22
lsFrmTo = "[e-mail]"
Case 23
lsFrmTo = "[e-mail]"
Case 24
lsFrmTo = "[e-mail]"
Case 25
lsFrmTo = "[e-mail]"
Case 26
lsFrmTo = "[e-mail]"
Case 27
lsFrmTo = "[e-mail]"
Case 28
lsFrmTo = "[e-mail]"
Case 29
lsFrmTo = "[e-mail]"
Case 30
lsFrmTo = "[e-mail]"
Case Else
lsFrmTo = "[e-mail]"
End Select

'-------------------------------------------------------
' If values are empty, put in some defaults
'-------------------------------------------------------

If lsFrmFrom = "" Then
lsFrmFrom = "contact form <[e-mail]>"
End If

If lsFrmCc = "" Then
lsFrmCc = lsFrmCc
End If

If lsFrmBcc = "" Then
lsFrmBcc = "[e-mail]"
End If

If lsFrmSubject = "" Then
lsFrmSubject = "Default subject"
End If

If lsFrmImportance = "" Then
lsFrmImportance = 1 ' 0: Low, 1: Normal, 2: High
End If

If lsFrmRedirect = "" Then
lsFrmRedirect = ""
End If

'-------------------------------------------------------
'Get all form elements and structure the e-mail
'-------------------------------------------------------

For Each lsFrmField In Request.Form
Select Case lsFrmField
Case "tbsEmail", "cmbKontakt", "tbsCc", "tbsBcc", "tbsSubject", "tbnImportance", "tbsAnswerfile"
lsMsgBody = lsMsgBody
Case Else
lsMsgBody = lsMsgBody & Mid(lsFrmField, 4, Len(lsFrmField)-3) & _
Space(25-Len(lsFrmField)) & ": " & Request.Form(lsFrmField) & vbCrLf
End Select
Next

lsMsgBody = "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" & vbCrLf & _
lsFrmSubject & vbCrLf & _
"~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" & vbCrLf & vbCrLf & _
lsMsgBody & vbCrLf & _
"~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" & vbCrLf & vbCrLf & _
"Script Provided by Chris A. Lutz" & vbCrLf

If lsFrmTo = "[e-mail]" Or lsFrmTo = "[e-mail]" then
lsMsgBody = lsMsgBody & _
"~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" & vbCrLf & _
"User agent : " & lsClientUA & vbCrLf & _
"Remote address : " & lsClientIP & vbCrLf
End If

'-------------------------------------------------------
'Get values from hidden fields for sending the mail
'-------------------------------------------------------

Set loCDOMail = Server.CreateObject("CDONTS.NewMail")

loCDOMail.BodyFormat = 1
loCDOMail.MailFormat = 1
loCDOMail.From = lsFrmFrom
loCDOMail.To = lsFrmTo
loCDOMail.CC = lsFrmCc
loCDOMail.BCC = lsFrmBcc
loCDOMail.Subject = lsFrmSubject
loCDOMail.Importance = lsFrmImportance
loCDOMail.Body = lsMsgBody

'--------------------------------------------------
'Sending the text and error handling
'--------------------------------------------------

loCDOMail.Send

If Err.Number = 0 Then ' OK?
If lsFrmRedirect = "" Then
Response.Write "<P>Thank you.</P>"
Else
Response.Redirect(lsFrmRedirect)
End If
Else ' Not OK!
Response.Write "<P>An error has occured. Please " _
& "contact the administrator." _
& "Error: " & objSend.Response & "</P>"
End If

Set loCDOMail = Nothing

%>