<% Dim strFrom, strSubject, strBody 'Strings for recipient, subject, boby Dim objCDOMail 'The CDO object 'mail Body strBody = " Volume Discount " & vbCrLf _ & "Company Name = " & Request("company_name") & vbCrLf _ & " Contact Person = " & Request("Person") & vbCrLf _ & " Address = " & Request("address") & vbCrLf _ & "Phone = " & Request("phone") & vbCrLf _ & "Fax = " & Request("fax") & vbCrLf _ & " Email = " &Request("email") & vbCrLf _ & " Item 1 = " & Request("I-01") & " " & " Quantity1 = " & Request("q1") & vbCrLf _ & "Item 2 = " & Request("I-02") & " " & "Quantity 2 = " & Request("q2") & vbCrLf _ & "Item 3 = " & Request("I-03") & " " & " Quantity 3 = " & Request("q3") & vbCrLf _ & "Item 4 = " & Request("I-04") & " " & " Quantity 4 = " & Request("q4") & vbCrLf _ & "Item 5 = " & Request("I-05") & " " & " Quantity 5 = " & Request("q5") & vbCrLf _ & "Item 6 = " & Request("I-06") & " " & " Quantity 6 = " & Request("q6") & vbCrLf _ & "Item 7 = " & Request("I-07") & " " & " Quantity 7 = " & Request("q7") & vbCrLf _ & "Item 8 = " & Request("I-08") & " " & " Quantity 8 = " & Request("q8") & vbCrLf _ & "Item 9 = " & Request("I-09") & " " & " Quantity 9 = " & Request("q9") & vbCrLf _ & "Item 10 = " & Request("I-10") & " " & " Quantity 10 = " & Request("q10") & vbCrLf strSubject = "volume discount" strFrom = Request("email") %> chingariwholesalw.com orderform

YaHooka ~ The Guide to Marijuana on the Internet

Sunday, April 21, 2002 17:11
 
 
 
 
 

 
  <% If Request("Send") <> "" Then Set objCDOMail = Server.CreateObject("CDONTS.NewMail") objCDOMail.From = strFrom ' From address objCDOMail.To = "chingariwholesale@yahoo.com" objCDOMail.Subject = strSubject objCDOMail.Body = strBody objCDOMail.Send ' send message Set objCDOMail = Nothing 'Response.Write "Message sent" 'Response.write strBody %> Hey Congratulation!!!!!" :-)

You are successfully posted your desired Order in our Store Box. We pleased to received order from your esteemed organization. We will shortly get back to you as soonest possible with the best offer volume discounts.

Thanks


<% else %>

VOLUME DISCOUNT

(* denotes required field)
  Company Name :  
  Contact Person: *  
  Adress: *  
  Ph no : *  
  Fax no:  
  Email : *  
       
Item code
Desired Qty
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
     
     
 
<% End If %>
 
   
 
copyright @ 2001 chingariwholesale.com
 

Website Designed & Developed by Webart Solutions Inc
Related Links