<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% If (Request("Submit") = "Submit") Then Set cdoConfig = CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(cdoSendUsingMethod) = cdoSendUsingPort .Item(cdoSMTPServer) = "mail.webstopshop.co.uk" .Item(cdoSMTPAuthenticate) = 1 .Item(cdoSendUsername) = "sales@webstopshop.co.uk" .Item(cdoSendPassword) = "imptop" .Update End With Set cdoMessage = CreateObject("CDO.Message") With cdoMessage Set .Configuration = cdoConfig .From = "sales@webstopshop.co.uk" .To = "sales@webstopshop.co.uk" .Subject = "WebStopShop" .TextBody = "Name: " & Request.Form("Name") &vbcrlf & "Phone: " & Request.Form("Phone") &vbcrlf & " " & Request.Form("Address_line_2") &vbcrlf & "Email: " & Request.Form("Email") &vbcrlf & "Enquiry: " & Request.Form("Enquiry") .Send End With Set cdoMessage = Nothing Set cdoConfig = Nothing %> <% Dim mailBody, mailTo, mailSubject, mailFrom, MyMail mailBody = "Name: " & Request.Form("Name") &vbcrlf & "Phone: " & Request.Form("Phone") &vbcrlf & " " & Request.Form("Address_line_2") &vbcrlf & "Email: " & Request.Form("Email") &vbcrlf & "Message: " & Request.Form("Message") mailTo = "iWebStopShop " mailSubject = "Website Enquiry" mailFrom = "WebStopShop " Response.Redirect("received.htm") End If %> BrownStock Festival - Links