Tennessee Manufactured Housing Foundation

<%@ Language=VBScript %> <% Dim oEmail Dim strEmailText Stat = 0 if (Request("regSubmit") <> "") then strEmailText = "A new TNMHF Donation form has been submitted." & "
" 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 & "Comments:" & " " & request.form("comments") & "
" set oEmail = Server.CreateObject("CDO.Message") with oEmail .From = "donation@tnmf.org" .To = "linda@tnmha.org" .Subject = "Tennessee Manufactured Housing Foundation Donation 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 %> Tennessee Manufactured Housing Foundation

Thank you!

Thank you for your submission.
Your e-mail has been sent to the
Tennessee Manufactured Housing Foundation.

Name:
Street address:
Address 2:
City:
State/Province:
Zip/Postal code:
Work Phone:
Home Phone:
E-mail:
Comments: