<% ' if the form is not submiting then run the form newform = Request.Form("submit") if newform <> "Submit Request" then %>

Charles McHenry

 

     

 

 

Charles McHenry
Customer Service Representative

 

  
   
Southland Printing Company, Inc.
Phone: (318) 221-8662
Desk Fax: (318) 677-2566
E-mail: charles@southlandprinting.com
    
         
 
 

<% ' else send the email else dim message mailTo= Request.Form("rep") fromto= Request.Form("email") Subject= "Customer Representative Contact Form" Message= "Name = " & Request.Form("Name")& VbCrLf Message= Message & "Company Name = " & Request.Form("company") & VbCrLf Message= Message & "City and State = " & Request.Form("citystate") & VbCrLf Message= Message & "E-mail Address = " & Request.Form("email") & VbCrLf & VbCrLf & VbCrLf Message= Message & "Comments = " & Request.Form("feedback")& VbCrLf Set Mailer = Server.CreateObject ("SMTPsvg.Mailer") Mailer.FromName = Request.Form ("E-mail") Mailer.FromAddress = fromto Mailer.Subject = Subject Mailer.BodyText = Message ' mailer.BodyText = Request.Form("E-mail Address") 'Modifying RemoteHost due to internal network changes. Should just be mail-fwd now. 'Mailer.RemoteHost = "" Mailer.RemoteHost = "mail-fwd" Mailer.AddRecipient mailTo, mailTo if Mailer.SendMail then ' Message sent sucessfully response.write "Your message was sent to " & mailTo else ' Message send failure response.write "Your message was not sent.
" response.write "The error was: " & Mailer.Response & "
" end if Set Mailer = Nothing end if %>