<% 'Response.Expires = 0 if Request.Form.Count > 0 then Dim myMail Set myMail = server.CreateObject("CDONTS.Newmail") if not err then dim bodytext bodytext = "Ocean_Service = " & Request("Ocean_Service") & vbcrlf & "LCL = " & Request("LCL") & vbcrlf & "20 = " & Request("20") & vbcrlf & "40 = " & Request("40") & vbcrlf & "Air_Service = " & Request("Air_Service") & vbcrlf & "Air_Service = " & Request("Air_Service") & vbcrlf & "Company_Name = " & Request("Company_Name") & vbcrlf & "Your_Name = " & Request("Your_Name") & vbcrlf & "Company_Address = " & Request("Company_Address") & vbcrlf & "Email = " & Request("Email") & vbcrlf & "Phone = " & Request("Phone") & vbcrlf & "Fax = " & Request("Fax") & vbcrlf & "From_Routing = " & Request("From_Routing") & vbcrlf & "From_City = " & Request("From_City") & vbcrlf & "From_Zip_Code = " & Request("From_Zip_Code") & vbcrlf & "From_State = " & Request("From_State") & vbcrlf & "From_Country = " & Request("From_Country") & vbcrlf & "To_Airport = " & Request("To_Airport") & vbcrlf & "To_City = " & Request("To_City") & vbcrlf & "To_Zip_Code = " & Request("To_Zip_Code") & vbcrlf & "To_State = " & Request("To_State") & vbcrlf & "To_Country = " & Request("To_Country") & vbcrlf & "Freight_Charges = " & Request("Freight_Charges") & vbcrlf & "Banking_Terms = " & Request("Banking_Terms") & vbcrlf & "Insurance_Value = " & Request("Insurance_Value") & vbcrlf & "Ship_Date = " & Request("Ship_Date") & vbcrlf & "Due_Date = " & Request("Due_Date") & vbcrlf & "Declared_Value = " & Request("Declared_Value") & vbcrlf & "Number_of_Pieces = " & Request("Number_of_Pieces") & vbcrlf & "Gross_Wt = " & Request("Gross_Wt") & vbcrlf & "KG = " & Request("KG") & vbcrlf & "Dimension_Per_Piece = " & Request("Dimension_Per_Piece") & vbcrlf & "Product_Description = " & Request("Product_Description") & vbcrlf & "Hazardous = " & Request("Hazardous") & vbcrlf & "Perishable = " & Request("Perishable") & vbcrlf & "Subject_to_Export_or_Import_Restrictions = " & Request("Subject_to_Export_or_Import_Restrictions") & vbcrlf & "Require_Packing_or_Warehouse_Services = " & Request("Require_Packing_or_Warehouse_Services") & vbcrlf & "Special_Instructions = " & Request("Special_Instructions") myMail.Value("Content-Transfer-Encoding")="quoted-printable" myMail.From = "customersupport@aptlogistics.com" myMail.To= "rushmi70@rediffmail.com" myMail.Subject= "test spt log msg" 'myMail.BodyFormat = bodyformat 'myMail.MailFormat = 0 myMail.Cc = "rushmi70@rediffmail.com" myMail.Body = "Thanks for registering yourself. Your details as follows: " & vbCRLF & bodytext myMail.Send Response.Write "

Thanks for submiting.<\b>

" Response.Write "Details: " & Request.Form Response.Write "

" Response.Write "Back" Response.End ' ' ' Set objMessage = server.CreateObject("CDO.message") ' Set objConfig = CreateObject("CDO.Configuration") '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'Configuration: ' objConfig.Fields(cdoSendUsingMethod) = cdoSendUsingPort ' objConfig.Fields(cdoSMTPServer) = "localhost" ' objConfig.Fields(cdoSMTPServerPort) = 25 ' objConfig.Fields(cdoSMTPAuthenticate) = cdoBasic 'Update configuration ' objConfig.Fields.Update ' Set objMessage.Configuration = objConfig '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'objMessage.Subject = "test spt log msg" ' Example CDO Message" 'objMessage.From = "customersupport@aptlogistics.com" 'objMessage.To = "rushmi70@rediffmail.com" 'Request.Form("Email") 'email as entered by the user while submitting the form 'objMessage.Bcc = "you@your.com" 'to send BCC msg 'objMessage.Cc = "customersupport@aptlogistics.com" 'objMessage.TextBody = "test msg thro apt logistics page. " & vbCRLF & Request.Form("Your_Name") & vbCRLF & " Thanks for registering with us." 'objMessage.Send 'Response.Write "

Thanks for submiting.<\b>

" 'Response.Write "Details: " & Request.Form 'Response.Write "

" end if end if %> APT Logistics
Home
Services
Project Cargo
Personal Baggage
Custom Clearance
Warehousing
Transportation
Special Services
Quotes
Contact Us
Quotes
 
Ocean Service:   LCL  20 40
Air Service: 
Company Name :  *
Your Name:  *
Company Address:  *
Email:  *
Phone:  *
Fax:
Routing  * City  * Zip Code State  * Country  *
From:
To:
Freight Charges:
Banking Terms:
Insurance Value:
Ship Date:
Due Date:
Declared Value:
Number of Pieces:
Gross Wt:
Dimension per piece:
Product Description:  *
Special Services Required:

 Hazardous

  Perishable

 Subject to Export or Import Restrictions

 Require Packing or Warehouse Services

Special Instructions:  

 
© 2006 - 2007 APT LOGISTICS. All rights reserved.