<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Fair Lakes Condominium <% success = 0 If "Insert"=Request("ActionType") Then If Left(Request.Form("address_number"), 2) <> "12" Then Response.Write("

The address number is not valid.") ElseIf NOT IsNumeric(Request.Form("address_number")) Then Response.Write("

The address number is not valid.") ElseIf NOT IsNumeric(Request.Form("unit_number")) AND NOT Request.Form("unit_number") = "" Then Response.Write("

The unit number is not valid.") ElseIf Request.Form("email") = "" Then Response.Write("

No e-mail address entered.

Please enter a valid email address.") Else response.write ("

Your request has been submitted.

A magnet will be sent to your unit. If you have any questions, please contact the Board of Directors using the comments page.") 'Send me a copy for debugging purposes. mailBody2 = Request.Form("name") & " (" & Request.Form("address_number") & " " & Request.Form("unit_number") & ") has requested a Magnet." Set newMsg2 = CreateObject("CDONTS.NewMail") newMsg2.BodyFormat=0 newMsg2.From= Request.Form("email") newMsg2.To="bod@fairlakescondo.com" newMsg2.Subject = Request.Form("address_number") & " " & Request.Form("unit_number") newMsg2.Body = mailBody2 & "
IP:" & Request.ServerVariables("REMOTE_ADDR") newMsg2.Send success = 1 End If End If 'Else If success = 0 Then %>

Request a Magnet

Name:

Unit Number: #

E-Mail Address:

<% End If %>