<% on error resume next dim myStatus myStatus = 0 myStatus = request.querystring("Status") if myStatus = "1" then Dim BodyString BodyString= "Company Name: " & request.form("Company_Name") & vbcrlf & "Contact Name: " & request.form("Contact_Name") & vbcrlf & "Address: " & request.form("Address") & vbcrlf & "City: " & request.form("City") & vbcrlf & "State: " & request.form("State") & vbcrlf & "Zip: " & request.form("Zip1") & "-" & request.form("Zip2") & vbcrlf & "Telepone: " & request.form("Telephone") & vbcrlf & "Fax: " & request.form("Fax") & vbcrlf & "Email: " & request.form("Email") & vbcrlf & vbcrlf & "Number of Colors on Label: " & request.form("Label_Colors") & vbcrlf Dim objCDO Set objCDO= Server.CreateObject("CDO.Message") Dim myIP myIP = "127.0.0.1" dim objConfig Set objConfig = createobject("cdo.configuration") Set Flds = objConfig.Fields With Flds .Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 .Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = myIP ' "localhost" .Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 .Update End With Set objCDO.Configuration = objConfig '*************************************** 'Send to technical support '*************************************** With objCDO .From = "postmaster@whisperingspring.com" .To = "sales@whisperingspring.com" .Subject = "Custom Label Request" .TextBody = BodyString .Send End With set objCDO = nothing set objConfig = nothing Response.Write "" 'response.write err.description & vbcrlf & vbcrlf & bodystring else %>
Home About Us Products Buy Now Contact
 


Company Name:
Contact Name :
Address:
City:
State: Zip: -
Telephone:
Fax:
Email Address:


Label Information:

Number of Colors on Label:

 

 

     

 

 
Whispering Springs Water Company3443 S. 1220 W 57Pierceton, IN 46563 Phone: (888) 383-5026Fax: (574) 834-5702
<% end if %>