<% ' declare variables Dim first Dim last Dim address Dim address2 Dim City Dim State Dim email Dim zipcode ' get posted data into variables EmailFrom = "orders@nothingtoit.com" EmailTo = "info@nothingtoit.com" Subject = "Catalog Request" first = Trim(Request.Form("first")) last = Trim(Request.Form("last")) address = Trim(Request.Form("address")) address2 = Trim(Request.Form("address2")) City = Trim(Request.Form("City")) State = Trim(Request.Form("State")) email = Trim(Request.Form("email")) zipcode = Trim(Request.Form("zipcode")) ' validation Dim validationOK validationOK=true If (Trim(first)="") Then validationOK=false If (validationOK=false) Then Response.Redirect("error.htm?" & EmailFrom) ' prepare email body text Dim Body Body = Body & "First Name: " & first & VbCrLf Body = Body & "Last Name: " & last & VbCrLf Body = Body & "Address: " & address & VbCrLf Body = Body & "Address 2: " & address2 & VbCrLf Body = Body & "City: " & City & VbCrLf Body = Body & "State: " & State & VbCrLf Body = Body & "Email: " & email & VbCrLf Body = Body & "zipcode: " & zipcode & 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("index.asp?page=catalogsent") %>