%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% If (Request("Submit") = "Submit") Then Set cdoConfig = CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(cdoSendUsingMethod) = cdoSendUsingPort .Item(cdoSMTPServer) = "mail.opalclinic.net" .Item(cdoSMTPAuthenticate) = 0 .Item(cdoSendUsername) = "info@opalclinic.net" '.Item(cdoSendPassword) = "imptop" .Update End With Set cdoMessage = CreateObject("CDO.Message") With cdoMessage Set .Configuration = cdoConfig .From = "info@opalclinic.net" .To = "info@opalclinic.net" .Subject = "Opal_Clinic_Enquiry" .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 %> <% Response.Redirect("received.htm") End If %>