A Real Estate Investment, Management, and Brokerage Company        
                                    
Tenant Information
Service Request      
Home                         
 
 
 
 
  Service Request
   
<% Select Case UCase(Request.Form("Action")) Case "SUBMIT" Call SendEmail() Case Else Call DrawForm() End Select %>
Name:
Address Requiring Maintenance:
Email:
Home Phone:
Work Phone:
Cell Phone:
Description of Maintenance Requested:

In case of emergency, please call 317-439-7321.
   
back to top 0
<% Sub DrawForm %>
<% End Sub Function SendEmail() Dim objEmail, Body Set objEmail = Server.CreateObject("CDONTS.NewMail") objEmail.From = "info@cfsrentals.com" If InStr(UCase(Request.ServerVariables("SERVER_NAME")), "DEV") Then objEmail.To = "karen@webexc.com" Else objEmail.To = "jodi@cfsrentals.com" End If objEmail.Subject = "Service Request" 'Build the Body of the Email: Body = "The following was submitted via your online service request form:" & vbCrLf & vbCrLf Body = Body & "Name: " & Request.Form("Name") & vbCrLf & _ "Address requiring maintenance: " & vbCrLf & Request.Form("Address") & vbCrLf & _ "Email: " & Request.Form("Email") & vbCrLf & _ "Home Phone: " & Request.Form("HomePhone") & vbCrLf & _ "Work Phone: " & Request.Form("WorkPhone") & vbCrLf & _ "Cell Phone: " & Request.Form("CellPhone") & vbCrLf & _ "Description of Maintenance Requested: " & Request.Form("Description") & vbCrLf objEmail.Body = Body objEmail.Send Set objEmail = Nothing SendEmail = True Response.Write ("

Thank you for submitting your service request. You will be hearing from us shortly.

") End Function %>