%@ Language=VBScript %>
<%
If Request("Submit") <> "" Then
Dim strBody
strBody = "Enquirer Name : " & Request("EnquirerName") & vbcrlf
strBody = strBody & "Address : " & Request("Address") & vbcrlf
strBody = strBody & "Postcode : " & request("Postcode") & vbcrlf
strBody = strBody & "Telephone No : " & Request("TelNo") & vbcrlf
strBody = strBody & "Mobile No : " & Request("MobileNo") & vbcrlf
strBody = strBody & "Email Address : " & Request("EmailAddress") & vbcrlf
strBody = strBody & "Country Of Departure ; " & Request("CountryOfDeparture") & vbcrlf
strBody = strBody & "Port Of Departure ; " & Request("PortOfDeparture") & vbcrlf
strBody = strBody & "Port Of Arrival : " & Request("PortOfArrival") & vbcrlf
strBody = strBody & "Load : " & Request("Load") & vbcrlf
strBody = strBody & "Container Size : " & Request("ContSize") & vbcrlf
strBody = strBody & "Collection and Delivery : " & Request("CollectionDelivery") & vbcrlf
Set Mail = Server.CreateObject("SMTPsvg.Mailer") 'create an Asp mail component.
Mail.FromName = Request("EnquirerName")
Mail.FromAddress= Request.Form("EmailAddress")
Mail.RemoteHost = "mrvnet.kundenserver.de" ' The mail server you have to use with Asp Mail
Mail.AddRecipient "Query", "ans@sr-logistic.com"
Mail.AddRecipient "Query", "dannycdr@ntlworld.com"
Mail.Subject = "Website - Info Request"
Mail.BodyText = strBody
if Mail.SendMail then
Response.write "Mail Sent"
Response.AddHeader "REFRESH", "3;URL=http://www.capnet.co.uk/sr-logistics/html/seafreight.html"
else
'Response.Write "Mail send failure. Error was " & Mail.Response
end if
Set Mail = Nothing
End If
%>
SR Logistics | Contact us