<%
On Error Resume Next
If (Request.ServerVariables("Content_Length")>0) Then
Set sm = Server.CreateObject("MPS.SendMail")
message = "This message was submitted by: " & Chr(13) & _
Chr(13) & "Name: " & Request("name") &_
Chr(13) & "Address: " & Request("address") & _
Chr(13) & "City: " & Request("city") &_
Chr(13) & "State: " & Request("state") & _
Chr(13) & "Zip Code: " & Request("zip") & _
Chr(13) & "mailto:" & Request("emailfrom") & Chr(13) & _
Chr(13) & "Comments:" & Chr(13) & Request("Comments") & _
Chr(13) & Chr(13) & Chr(13) & Chr(13) & Chr(13) & Chr(13) &_
"Your Source For Online Business Solutions is Reno Internet Solutions http://www.renointernet.com"
retCode = sm.SendMail(Request("emailfrom"),"bruce@bellplastics.com", Request("emailsubj"), message)
If True = retCode Then
Response.Write "
Thank you for completing the form, you will be receiving the newsletter soon!"
Else
Response.Write "Failed to send your e-mail due to the following error:
"
Response.Write "" & Err.Description & ""
Response.Write "
Please call us at (800) 235-8265!"
Response.Write "
"
End if
Else
%>
<% End If %>
|
