<% End Sub Sub Send First = Request.Form("First") Last = Request.Form("Last") Company = Request.Form("Company") Address = Request.Form("Address") Country = Request.Form("Country") Telephone = Request.Form("Telephone") Facsimile = Request.Form("Facsimile") Mobile = Request.Form("Mobile") Website = Request.Form("Website") Remarks = Request.Form("Remarks") ' send email Set cdoConfig = Server.CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(cdoSendUsingMethod) = cdoSendUsingPort .Item(cdoSMTPServer) = "202.56.143.47" .Update End With Set cdoMessage = Server.CreateObject("CDO.Message") With cdoMessage Set .Configuration = cdoConfig .From = Request.Form("EmailFrom") .To = "sales@barakaff.com,jamestcs@issconcept.com" .Subject = "Barakaff Collections feedback form" .TextBody = "First: " & First & vbcrLf _ & vbcrlf _ & "Last: " & Last & vbcrLf _ & vbcrlf _ & "Company: " & Company & vbcrLf _ & vbcrlf _ & "Address: " & Address & vbcrLf _ & vbcrlf _ & "Country: " & Country & vbcrLf _ & vbcrlf _ & "Telephone: " & Telephone & vbcrLf _ & vbcrlf _ & "Facsimile: " & Facsimile & vbcrLf _ & vbcrlf _ & "Mobile: " & Mobile & vbcrLf _ & vbcrlf _ & "Website: " & Website & vbcrLf _ & vbcrlf _ & "Remarks: " & Remarks .Send End With Set cdoMessage = nothing Set cdoConfig = nothing End Sub If Request.Form.Count <> 0 Then %>

Your message has been mailed!

Thank you for contacting us.
A reply will be sent soon.
<% Call Send Else ShowForm End If %>