asp formmail автоответчик

Question

У меня очень плохое кодирование

У меня есть asp formmail для подписки на электронную почту. Я получаю электронные письма, но я хочу отправить автоответчик, в котором говорится: «Спасибо за подписку». То же самое для моей контактной страницы formmail.

Ниже мой текущий код Можете ли вы рассказать мне, как мне обойтись.

<% 

dim sEmailContent 


sEmailContent = sEmailContent & "Subscribe : " & Request.Form("subscribe") & vbCrLf 

Response.Write(sEmailContent) 

'call send_email("here@herringboneandsui.com",sEmailContent) 
call send_email("here@herringboneandsui.com",sEmailContent) 

function send_email(sToEmail,sEmailBody) 
on error resume next 
    Dim ObjSendMail 
    Set ObjSendMail = CreateObject("CDO.Message") 

    'Configuration for remote SMTP server 

    'Network Send  
    ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 

    'Name of SMTP server 
    ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="relay-hosting.secureserver.net" 

    'SMTP port 
    ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 

    'MaxESP SMTP servers require authentication 

    'Basic Authentication 
    ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 

    'SMTP username as configured in the control panel 
    ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="bla@bla.com" 

    'SMTP user password as configured in the control panel 
    ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="blabla" 

    ObjSendMail.Configuration.Fields.Update 


    'Configuration for email message 

    'Email To address 
    'ObjSendMail.To = "bla@gmail.com" 
    'ObjSendMail.To = "bla@mac.com" 
    ObjSendMail.To = sToEmail 
    'Email Subject 
    ObjSendMail.Subject = "Newsletter Subscription" 

    'Email From address 
    ObjSendMail.From = "bla@herringboneandsui.com" 

    'Email Body 
    ObjSendMail.TextBody = sEmailBody 

    ObjSendMail.Send 

    Set ObjSendMail = Nothing 

    response.Redirect("thank-you.html") 
if err.number <> 0 then 
    Response.Write(err.Description) 
end if 
on error goto 0 
end function 
%> 

Answer 1

переместить функцию function send_email(sToEmail,sEmailBody) в отдельный файл, скажем, в "Emails.asp".

в контактном листе и подписываются асп страницы добавить следующую строку, чтобы включить свой «Email.asp»

<!-- #include file="Emails.asp" --> 

затем вызвать send_email как раньше