<%@ Language=VBScript %> <% Option Explicit Response.Buffer=True Dim objCDO, emailMsgBody IF Request.Form("companyname")<>"" and Request.Form("contactname")<>"" and Request.Form("streetaddress")<>"" and Request.Form("city")<>"" and Request.Form("provincestate")<>"" and Request.Form("postcode")<>"" and Request.Form("phonenumber")<>"" and Request.Form("email")<>"" and Request.Form("urltolinkto")<>"" Then emailMsgBody = "Issue: " & Request.Form("fall08") & vbCrlf emailMsgBody = emailMsgBody & "Issue: " & Request.Form("winter08") & vbCrlf emailMsgBody = emailMsgBody & "Issue: " & Request.Form("spring09") & vbCrlf emailMsgBody = emailMsgBody & "Company Name: " & Request.Form("companyname") & vbCrlf emailMsgBody = emailMsgBody & "Contact Name: " & Request.Form("contactname") & vbCrlf emailMsgBody = emailMsgBody & "Street Address: " & Request.Form("streetaddress") & vbCrlf emailMsgBody = emailMsgBody & "City: " & Request.Form("city") & vbCrlf emailMsgBody = emailMsgBody & "Province/State: " & Request.Form("provincestate") & vbCrlf emailMsgBody = emailMsgBody & "Postal Code/Zipcode: " & Request.Form("postcode") & vbCrlf emailMsgBody = emailMsgBody & "Phone Number: " & Request.Form("phonenumber") & vbCrlf & vbCrlf emailMsgBody = emailMsgBody & "E-mail address: " & Request.Form("email") & vbCrlf emailMsgBody = emailMsgBody & "E-mail for Paypal: " & Request.Form("paypal") & vbCrlf emailMsgBody = emailMsgBody & "URL to link to: " & Request.Form("urltolinkto") & vbCrlf emailMsgBody = emailMsgBody & "Ad category: " & Request.Form("adsizeARCHIVED") & vbCrlf emailMsgBody = emailMsgBody & "Ad category: " & Request.Form("adsizePERIODIC") & vbCrlf emailMsgBody = emailMsgBody & "Notes: " & Request.Form("insertionnotes") & vbCrlf emailMsgBody = emailMsgBody & "Method of payment: " & Request.Form("methodofpayment") & vbCrlf Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.To = "knittymagazine@gmail.com" objCDO.From = "knittymagazine@gmail.com" objCDO.CC = "knittyadmanager@gmail.com" objCDO.Subject = "Insertion Order - June 2008" objCDO.Importance = 1 objCDO.Body = emailMsgBody objCDO.Send Set objCDO = Nothing If Err.number <> 0 Then Response.Redirect("http://knitty.com/oops.html") Err.Clear Else Response.Redirect("http://knitty.com/thankyou.html") End If Else Response.Redirect("http://knitty.com/oops.html") End If %>