%@ Language=VBScript %>
<%
Dim oEmail
Dim strEmailText
Stat = 0
if (Request("regSubmit") <> "") then
strEmailText = "A new TNMHF Assistance form has been submitted." & "
"
strEmailText = strEmailText & " Do you currently live in a manufactured home?" & " " & request.form("currently") & "
"
strEmailText = strEmailText & "How long?" & " " & request.form("howlong") & "
"
strEmailText = strEmailText & "What year model?" & " " & request.form("modelyear") & "
"
strEmailText = strEmailText & "Your name:" & " " & request.form("Contact_FullName") & "
"
strEmailText = strEmailText & "Your address:" & " " & request.form("Contact_StreetAddress") & "
"
strEmailText = strEmailText & "Address 2:" & " " & request.form("Contact_Address2") & "
"
strEmailText = strEmailText & "City:" & " " & request.form("Contact_City") & "
"
strEmailText = strEmailText & "State:" & " " & request.form("Contact_State") & "
"
strEmailText = strEmailText & "Zip:" & " " & request.form("Contact_ZipCode") & "
"
strEmailText = strEmailText & "Work phone:" & " " & request.form("Contact_WorkPhone") & "
"
strEmailText = strEmailText & "Home phone:" & " " & request.form("Contact_HomePhone") & "
"
strEmailText = strEmailText & "Email:" & " " & request.form("Contact_Email") & "
"
strEmailText = strEmailText & "What are the circumstances requiring assistance?" & " " & request.form("circumstances") & "
"
set oEmail = Server.CreateObject("CDO.Message")
with oEmail
.From = "assistance@tnmf.org"
.To = "linda@tnmha.org"
.Subject = "Tennessee Manufactured Housing Foundation Assistance Form"
.HTMLBody = strEmailText
.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "10.0.0.2"
.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.configuration.fields.update
.Send
End With
set oEmail = nothing
Stat = 1
end if
%>
Thank you for your submission. Your e-mail has been sent to the Tennessee Manufactured Housing Foundation. |
| Copyright 2009 Tennessee Manufactured Housing Foundation |