<% 'Response.Write(Trim(Request.Form("submit"))) %>
<% If Trim(Request.Form("submit")) <> "" Then %>
<% Set cdoConfig = Server.CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(cdoSendUsingMethod) = 2
.Item(cdoSMTPServer) = "mail.pixismedia.com"
.Item(cdoSMTPAuthenticate) = cdoBasic
.Item(cdoSendUserName) = "support@pixismedia.com"
.Item(cdoSendPassword) = "08s1v"
.Update
End With
Set cdoMessage = Server.CreateObject("CDO.Message")
If Trim(Request.Form("dd_questiontype")) = "Commercial Insurance" Then
strInsert = "For: " & Trim(Request.Form("dd_commercialtype"))
ElseIf Trim(Request.Form("dd_questiontype")) = "Personal Insurance" Then
strInsert = "For: " & Trim(Request.Form("dd_personaltype"))
Else
strInsert = ""
End If
strMessage = "Intrested In: " & Trim(Request.Form("dd_questiontype")) & vbcrlf & _
strInsert & vbcrlf & vbcrlf & _
"Questions I have: " & vbcrlf & Trim(Request.Form("tb_questions")) & vbcrlf & vbcrlf & vbcrlf & _
"My contact information" & vbcrlf & vbcrlf & _
"Name: " & Trim(Request.Form("tb_name")) & vbcrlf & _
"Title: " & Trim(Request.Form("tb_title")) & vbcrlf & _
"Company: " & Trim(Request.Form("tb_company")) & vbcrlf & _
"Address: " & Trim(Request.Form("tb_address")) & vbcrlf & _
"Address2: " & Trim(Request.Form("tb_address2")) & vbcrlf & _
"City: " & Trim(Request.Form("tb_city")) & vbcrlf & _
"State: " & Trim(Request.Form("tb_state")) & vbcrlf & _
"Zip: " & Trim(Request.Form("tb_zip")) & vbcrlf & _
"Country: " & Trim(Request.Form("tb_country")) & vbcrlf & _
"Phone: " & Trim(Request.Form("tb_phone")) & vbcrlf & _
"Email: " & Trim(Request.Form("tb_email"))
With cdoMessage
Set .Configuration = cdoConfig
.From = Trim(Request.Form("tb_email"))
.To = "janie@rslins.com"
.Subject = "Request Info About " & Trim(Request.Form("dd_questiontype"))
.TextBody = strMessage
.Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing
%>
Your message has been sent! Thank You.
<% else %>
Please make a selection!
Please enter a value!
<% End if %>
|
