%@ Language=VBScript %>
<%
Dim blnAlert
If Request("Submit") <> "" Then
Dim strBody
strbody = "
"' & vbcrlf
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 & "Port Of Departure ; " & Request("PortOfDeparture") & "
"' & vbcrlf
strBody = strBody & "Port Of Arrival : " & Request("PortOfArrival") & "
"' & vbcrlf
strBody = strBody & "No Of Items : " & Request("NoOfItems") & "
"' & vbcrlf
strBody = strBody & "Goods Description : " & Request("GoodsDescription") & "
"' & vbcrlf
strBody = strBody & "Perishable Goods : " & Request("PerishableGoods") & "
"' & vbcrlf
strBody = strBody & "Width : " & Request("width") & "
"' & vbcrlf
strBody = strBody & "Height : " & Request("height") & "
"' & vbcrlf
strBody = strBody & "Depth : " & Request("depth") & "
"' & vbcrlf
strBody = strBody & "Approx Total Weight : " & Request("ApproxTotalWeight") & "
"' & vbcrlf
strBody = strBody & "Collection Required : " & Request("CollectionRequired") & "
"' & vbcrlf
strbody = strbody & ""
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.ContentType = "text/html"
Mail.Subject = "Website - Information Request"
Mail.BodyText = strBody
if Mail.SendMail then
Response.AddHeader "REFRESH", "3;URL=http://www.capnet.co.uk/sr-logistics/html/airfreight.html"
blnAlert = true
else
'Response.Write "Mail send failure, please fill in all boxes. Error was " & Mail.Response
blnAlert = false
end if
Set Mail = Nothing
End If
%>
SR Logistics | Contact us
<%
if blnAlert <> "" Then
response.write ""
end if
%>