% If ( Len(Request("Email")) > 0 ) Then sch = "http://schemas.microsoft.com/cdo/configuration/" Set cdoConfig = CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(sch & "sendusing") = 2 'cdoSendUsingPort .Item(sch & "smtpserver") = "smtp.eclipse.co.uk" .update End With Set cdoMessage = CreateObject("CDO.Message") With cdoMessage Set .Configuration = cdoConfig .From = "advertising@newsforone.com" .To = "advertising@newsforone.com" 'Request("email") .Subject = "NewsForOne Advertising Form" .TextBody = "NewsForOne Advertising Request"+Chr(10) .TextBody = .TextBody + "-----------------------------------------------"+Chr(10) .TextBody = .TextBody + "Region: United Kingdom"+Chr(10) .TextBody = .TextBody + "Email: "+Request("Email")+Chr(10) .TextBody = .TextBody + "Name: "+Request("name")+Chr(10) .TextBody = .TextBody + "Company: "+Request("Company")+Chr(10) .TextBody = .TextBody + "Telephone: "+Request("Telephone")+Chr(10) .TextBody = .TextBody + "County: "+Request("County")+Chr(10) .TextBody = .TextBody + "Category: "+Request("Category")+Chr(10) .TextBody = .TextBody + "Adsize: "+Request("AdSize")+Chr(10) .TextBody = .TextBody + "Position: "+Request("Position")+Chr(10) .TextBody = .TextBody + "NumberofIssues: "+Request("NumberofIssues")+Chr(10) .TextBody = .TextBody + "Frequency: "+Request("Frequency")+Chr(10) .TextBody = .TextBody + "MaxBudget: "+Request("MaxBudget")+Chr(10) .TextBody = .TextBody + "DueStart: "+Request("DueStart")+Chr(10) .TextBody = .TextBody + "AdvertisingCopy: "+Request("AdvertisingCopy")+Chr(10) .TextBody = .TextBody + "-----------------------------------------------"+Chr(10) .Send End With Set cdoMessage = Nothing Set cdoConfig = Nothing %> <% End If %>