Contact Apartments Crystal River, FL - Ensing Properties, LLC

<%@ LANGUAGE="VBSCRIPT" %> <% option explicit %> <% Response.Buffer = True %> <% 'Declaring Variables Dim smtpserver,youremail,yourpassword,ContactUs_Name,ContactUs_Email Dim Comments,Action,Subject,SubjectOther,UserTel,Permission,Address ' Edit these 3 values accordingly smtpserver = "smtp.1and1.com" youremail = "info@ensingproperties.com" yourpassword = "infoensing01" ' Grabbing variables from the form post ContactUs_Name = Request("ContactUs_Name") Address = Request("Address") ContactUs_Email = Request("ContactUs_Email") Comments = Request("Comments") Subject = Request("Subject") SubjectOther = Request("SubjectOther") UserTel = Request("UserTel") Action = Request("Action") Permission = Request("Permission") ' Used to check that the email entered is in a valid format Function IsValidEmail(Email) Dim ValidFlag,BadFlag,atCount,atLoop,SpecialFlag,UserName,DomainName,atChr,tAry1 ValidFlag = False If (Email <> "") And (InStr(1, Email, "@") > 0) And (InStr(1, Email, ".") > 0) Then atCount = 0 SpecialFlag = False For atLoop = 1 To Len(Email) atChr = Mid(Email, atLoop, 1) If atChr = "@" Then atCount = atCount + 1 If (atChr >= Chr(32)) And (atChr <= Chr(44)) Then SpecialFlag = True If (atChr = Chr(47)) Or (atChr = Chr(96)) Or (atChr >= Chr(123)) Then SpecialFlag = True If (atChr >= Chr(58)) And (atChr <= Chr(63)) Then SpecialFlag = True If (atChr >= Chr(91)) And (atChr <= Chr(94)) Then SpecialFlag = True Next If (atCount = 1) And (SpecialFlag = False) Then BadFlag = False tAry1 = Split(Email, "@") UserName = tAry1(0) DomainName = tAry1(1) If (UserName = "") Or (DomainName = "") Then BadFlag = True If Mid(DomainName, 1, 1) = "." then BadFlag = True If Mid(DomainName, Len(DomainName), 1) = "." then BadFlag = True ValidFlag = True End If End If If BadFlag = True Then ValidFlag = False IsValidEmail = ValidFlag End Function %> Contact Apartments Crystal River, FL - Ensing Properties, LLC

Ensing Properties, LLC

Property Development and Management Company

Ensing Properties, LLC

P.O. Box 995
Crystal River, FL 34423

Telephone: (352)795-1795

Fax: (352)795-7936

Links

Use the following links to view informative sites from our area.