| <% if request("action") = "" then %>
|
<%
else
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "Information Request"
Mailer.FromAddress = "Internet User"
strMailHost = "mail.kohlmarketing.com"
Mailer.RemoteHost = strMailHost
Mailer.AddRecipient "Information", "sedmisten@kohlmarketing.com"
strBody = ("Request for Service") & Chr(13) & Chr(10)
strBody = strBody & "------------------------------------------" & Chr(13) & Chr(10)
strBody = strBody & ("Contact Name: ") & request("Contactname")& Chr(13) & Chr(10)
strBody = strBody & ("Company Name: ") & request("companyname")& Chr(13) & Chr(10)
strBody = strBody & ("Company Address: ") & request("companyaddress")& Chr(13) & Chr(10)
strBody = strBody & ("Telephone: ") & request("Telephone")& Chr(13) & Chr(10)
strBody = strBody & ("Email Address: ") & request("emailaddress")& Chr(13) & Chr(10)
strBody = strBody & ("City: ") & request("city")& Chr(13) & Chr(10)
strBody = strBody & ("State: ") & request("state")& Chr(13) & Chr(10)
strBody = strBody & ("Zip: ") & request("zip")& Chr(13) & Chr(10)
strBody = strBody & ("Date: ") & request("date")& Chr(13) & Chr(10)
strBody = strBody & ("Literature:") & request("lit")& Chr(13) & Chr(10)
strBody = strBody & ("Sales:") & request("sales")& Chr(13) & Chr(10)
strBody = strBody & ("Samples:") & request("samples")& Chr(13) & Chr(10)
strBody = strBody & ("Comments:") & request("comments")& Chr(13) & Chr(10)
if rtrim(request("Telephones")) = "ON" then
strBody = strBody & ("Type of Problem: Telephones") & request("telephones ")& Chr(13) & Chr(10)
end if
if rtrim(request("Voicemail")) = "ON" then
strBody = strBody & ("Type of Problem: Voicemail") & request("voicemail ")& Chr(13) & Chr(10)
end if
if rtrim(request("Computers")) = "ON" then
strBody = strBody & ("Type of Problem: Computers") & request("computers ")& Chr(13) & Chr(10)
strBody = strBody & "------------------------------------------" & Chr(13) & Chr(10)
else
strBody = strBody & "------------------------------------------" & Chr(13) & Chr(10)
end if
Mailer.BodyText = strBody
if Mailer.SendMail then
Response.Write ""
else
Response.Write "
Mailing Failed."
Response.Write Mailer.Response
end if
%>
<% end if %>
