%@ Language=VBScript %> <% Dim blnAlert 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 & "Goods Arrival Date : " & Request("GoodsArrivalDate") & vbcrlf strBody = strBody & "Carrier / Airline : " & Request("CarrierAirline") & vbcrlf strBody = strBody & "Port Of Departure ; " & Request("PortOfDeparture") & vbcrlf strBody = strBody & "Port Of Arrival : " & Request("PortOfArrival") & vbcrlf strBody = strBody & "Goods Description : " & Request("GoodsDescription") & vbcrlf strBody = strBody & "Perishable Goods : " & Request("PerishableGoods") & vbcrlf strBody = strBody & "Airway Bill No : " & Request("AirwayBillNo") & vbcrlf strBody = strBody & "Delivery Required : " & Request("DeliveryRequired") & vbcrlf strBody = strBody & "Comments : " & Request("Comments") 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.AddHeader "REFRESH", "3;URL=http://www.capnet.co.uk/sr-logistics/html/airfreight.html" blnAlert = true else 'Response.Write "Mail send failure. Error was " & Mail.Response blnAlert = false end if Set Mail = Nothing End If %>
![]() |
||||||||||||||||
|
||||||||||||||||
|
|
|||||||||||||||
![]() |
||||||||||||||||