<% ' declare variables Dim EmailFrom Dim EmailTo Dim Subject Dim Name Dim Email Dim Phone Dim Company Dim Subject2 Dim Message Dim Attention ' get posted data into variables EmailFrom = Trim(Request.Form("Email")) EmailTo = "jlopresti@hoganwillig.com" Subject = "VPC Website Contact" Name = Trim(Request.Form("Name")) Email = Trim(Request.Form("Email")) Phone = Trim(Request.Form("Phone")) Company = Trim(Request.Form("Company")) Attention = Trim(Request.Form("Attention")) Subject2 = Trim(Request.Form("Subject")) Message = Trim(Request.Form("Message")) ' validation Dim validationOK validationOK=true If (Trim(Name)="") Then validationOK=false If (Trim(Email)="") Then validationOK=false If (Trim(Phone)="") Then validationOK=false If (Trim(Subject2)="") Then validationOK=false If (Trim(Message)="") Then validationOK=false If (validationOK=false) Then Response.Redirect("error.asp?" & EmailFrom) ' prepare email body text Dim Body Body = Body & "Name: " & Name & VbCrLf Body = Body & "Email: " & Email & VbCrLf Body = Body & "Phone: " & Phone & VbCrLf Body = Body & "Company: " & Company & VbCrLf Body = Body & "Attention: " & Attention & VbCrLf Body = Body & "Subject: " & Subject2 & VbCrLf Body = Body & "Message: " & Message & VbCrLf ' send email Dim mail Set mail = Server.CreateObject("CDONTS.NewMail") mail.To = EmailTo mail.From = EmailFrom mail.Subject = Subject mail.Body = Body mail.Send ' redirect to success page Response.Redirect("rfq.shtml?" & EmailFrom) %>