<% Dim sX Dim bTrue Dim sName, sPhone, sEmail, sAddress, sCity, sState, sZip, sOnebedroomden, sOnebedroomdenplusone, sOnebedroomdenplustwo ' For Each Item in Request.Form ' Response.Write("

" & Item & " = " & Request.Form(Item)) ' Next sName = Request.Form("t1") sPhone = Request.Form("t2") sEmail = Request.Form("t3") sAddress = Request.Form("t4") sCity = Request.Form("t5") sState = Request.Form("t6") sZip = Request.Form("t7") sOnebedroomden = Request.Form("t8") sOnebedroomdenplusone = Request.Form("t9") sOnebedroomdenplustwo = Request.Form("t10") sMessage = "" sMessage = "Name = " & sName & vbCrLf & _ "Phone = " & sPhone & vbCrLf & _ "Email = " & sEmail & vbCrLf & _ "Address = " & sAddress & vbCrLf & _ "City = " & sCity & vbCrLf & _ "State = " & sState & vbCrLf & _ "Zip = " & sZip & vbCrLf & _ "Comment = " & sComment & vbCrLf If Len(sOnebedroomden) > 0 And Len(sOnebedroomdenplusone) > 0 And Len(sOnebedroomdenplustwo) > 0 Then 'Onebedroomden & Onebedroomdenplusone & Onebedroomdenplustwo sMessage = sMessage & "Onebedroomden = " & sOnebedroomden & chr(13) sMessage = sMessage & "Onebedroomdenplusone = " & sOnebedroomdenplusone & chr(13) sMessage = sMessage & "Onebedroomdenplustwo = " & sOnebedroomdenplustwo & chr(13) 'REAL bTrue = SendMail(sX,sMessage,"info@islandsoffoxchase.com","info@islandsoffoxchase.com", _ "info@islandsoffoxchase.com", sName, sOnebedroomden) 'send to appropriate person 'REAL bTrue = SendMail(sX,sMessage,"info@islandsoffoxchase.com","info@islandsoffoxchase.com", _ "info@islandsoffoxchase.com", sName, sOnebedroomdenplusone) 'send to appropriate person 'REAL bTrue = SendMail(sX,sMessage,"info@islandsoffoxchase.com","info@islandsoffoxchase.com", _ "info@islandsoffoxchase.com", sName, sOnebedroomdenplustwo) 'send to appropriate person elseIf Len(sOnebedroomden) > 0 And Len(sOnebedroomdenplusone) > 0 Then 'Onebedroomden & Onebedroomdenplusone sMessage = sMessage & "Onebedroomden = " & sOnebedroomden & chr(13) sMessage = sMessage & "Onebedroomdenplusone = " & sOnebedroomdenplusone & chr(13) 'REAL bTrue = SendMail(sX,sMessage,"info@islandsoffoxchase.com","info@islandsoffoxchase.com", _ "info@islandsoffoxchase.com", sName, sOnebedroomden) 'send to appropriate person 'REAL bTrue = SendMail(sX,sMessage,"info@islandsoffoxchase.com","info@islandsoffoxchase.com", _ "info@islandsoffoxchase.com", sName, sOnebedroomdenplusone) 'send to appropriate person elseIf Len(sOnebedroomden) > 0 And Len(sOnebedroomdenplustwo) > 0 Then 'Onebedroomden & Onebedroomdenplustwo sMessage = sMessage & "Onebedroomden = " & sOnebedroomden & chr(13) sMessage = sMessage & "Onebedroomdenplustwo = " & sOnebedroomdenplustwo & chr(13) 'REAL bTrue = SendMail(sX,sMessage,"info@islandsoffoxchase.com","info@islandsoffoxchase.com", _ "info@islandsoffoxchase.com", sName, sOnebedroomden) 'send to appropriate person 'REAL bTrue = SendMail(sX,sMessage,"info@islandsoffoxchase.com","info@islandsoffoxchase.com", _ "info@islandsoffoxchase.com", sName, sOnebedroomdenplustwo) 'send to appropriate person elseIf Len(sOnebedroomdenplusone) > 0 And Len(sOnebedroomdenplustwo) > 0 Then 'Onebedroomdenplusone & Onebedroomdenplustwo sMessage = sMessage & "Onebedroomdenplusone = " & sOnebedroomdenplusone & chr(13) sMessage = sMessage & "Onebedroomdenplustwo = " & sOnebedroomdenplustwo & chr(13) 'REAL bTrue = SendMail(sX,sMessage,"info@islandsoffoxchase.com","info@islandsoffoxchase.com", _ "info@islandsoffoxchase.com", sName, sOnebedroomdenplusone) 'send to appropriate person 'REAL bTrue = SendMail(sX,sMessage,"info@islandsoffoxchase.com","info@islandsoffoxchase.com", _ "info@islandsoffoxchase.com", sName, sOnebedroomdenplustwo) 'send to appropriate person elseIf Len(sOnebedroomden) > 0 Then 'Onebedroomden sMessage = sMessage & "Onebedroomden = " & sOnebedroomden & chr(13) 'REAL bTrue = SendMail(sX,sMessage,"info@islandsoffoxchase.com","info@islandsoffoxchase.com", _ "info@islandsoffoxchase.com", sName, sOnebedroomden) 'send to appropriate person elseIf Len(sOnebedroomdenplusone) > 0 Then 'Onebedroomdenplusone sMessage = sMessage & "Onebedroomdenplusone = " & sOnebedroomdenplusone & chr(13) 'REAL bTrue = SendMail(sX,sMessage,"info@islandsoffoxchase.com","info@islandsoffoxchase.com", _ "info@islandsoffoxchase.com", sName, sOnebedroomdenplusone) 'send to appropriate person elseIf Len(sOnebedroomdenplustwo) > 0 Then 'Onebedroomdenplustwo sMessage = sMessage & "Onebedroomdenplustwo = " & sOnebedroomdenplustwo & chr(13) 'REAL bTrue = SendMail(sX,sMessage,"info@islandsoffoxchase.com","info@islandsoffoxchase.com", _ "info@islandsoffoxchase.com", sName, sOnebedroomdenplustwo) 'send to appropriate person End If If Len(sName) > 0 Then 'If this is a submitted form, send the requestor email sMessage = "Islands of Foxchase Thank You " bTrue = SendMail(sX,sMessage,sEmail,sName, _ "info@islandsoffoxchase.com", "Islands of Foxchase", "Thank You for Contacting The Islands of FoxChase") 'send to applicant End If Call Main(bTrue) 'instead of calling Main, you could say: 'If bTrue = True Then 'Response.Redirect("thankyou2.html") 'End If Function SendMail(sSuccess, sComment, sToEmail, sToName, _ sFromEmail, sFromName, sSubject) 'The sFromEmail must be from @attmanproperties.com Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.ClearAllRecipients Mailer.FromName = sFromName Mailer.FromAddress = sFromEmail Mailer.RemoteHost = "localhost" Mailer.Urgent = true Mailer.Priority = 1 Mailer.AddRecipient sToName, sToEmail ' Mailer.AddRecipient sToName2, sToEmail2 Mailer.ContentType="Text/HTML" Mailer.Subject = sSubject Mailer.BodyText = sComment Mailer.QMessage = true SendMail = Mailer.SendMail set Mailer = nothing If err.number <> 0 Then Response.Write "The following error has occured: " & err.Description & "
" End If End Function Function Main(sMessage) 'Dim MyCDONTSMail2 'Dim HTML 'Set MyCDONTSMail2 = CreateObject("CDONTS.NewMail") 'Dim htmlMess ' HTML = "" ' HTML = HTML & "" ' HTML = HTML & "" ' HTML = HTML & "Islands of Foxchase Thank You" ' HTML = HTML & " " ' HTML = HTML & "" 'HTML = HTML & "
" 'HTML = HTML & "
" 'HTML = HTML & "" 'HTML = HTML & "
" 'HTML = HTML & "
" 'HTML = HTML & "" 'HTML = HTML & "
" 'HTML = HTML & "
" 'HTML = HTML & "" 'HTML = HTML & "
" 'HTML = HTML & "
" 'HTML = HTML & "" 'HTML = HTML & "
" 'HTML = HTML & "
" 'HTML = HTML & "" 'HTML = HTML & "" 'MyCDONTSMail2.From= "info@islandsoffoxchase.com" ' MyCDONTSMail2.Subject="Islands of Foxcahse Thank You" 'MyCDONTSMail2.BodyFormat=0 'MyCDONTSMail2.MailFormat=0 'MyCDONTSMail2.Body=HTML ' MyCDONTSMail2.Send 'set MyCDONTSMail2=nothing %> Get More Information about The Islands of FoxChase
The Islands of FoxChase Apartments

Hospital Dr. and Oakwood Rd.
At Route 100
Anne Arundel County
866-604-1522
Equal Housing Opportunity

208 Somerset Bay Dr.
Glen Burnie, MD 21061

Contact Us
Contact The Islands of FoxChase Apartments Computer at the Cyber Cafe

If you or someone you know would like to consider living at The Islands of FoxChase, fill out the contact information so we can respond to your inquiry:

<% If sMessage = True Then 'Response.Write("Thank you for your interest. We will " & _ '"get back to you ASAP!") Response.Redirect("http://www.islandsoffoxchase.com/thankyou.html") Else %>

Name

Phone

Email

Address

City

State

Zip

Interest

Please check off:

One Bedroom & Den

Plus an Extra Room

Plus two Extra Rooms
<%End If%>

Thank You!

1-866-604-1522

866-604-1522

Visit The
Islands of FoxChase

info@islandsoffoxchase.com
<% End Function %>