%@LANGUAGE="VBSCRIPT"%>
<%
Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If
' boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%>
<%
If (CStr(Request("MM_insert")) = "MR") Then
If (Not MM_abortEdit) Then
' execute the insert
Dim MM_editCmd
Set MM_editCmd = Server.CreateObject ("ADODB.Command")
MM_editCmd.ActiveConnection = MM_WWDATA_STRING
MM_editCmd.CommandText = "INSERT INTO dbo.tblMaintenanceRequest (fldBuildingAddress, fldUnitNumber, fldResFirstName, fldResLastName, fldResPhoneNum, fldResEmail, fldPTE, fldPets, fldWOType, fldWOLocation, fldWODesc, fldAdditionalComments, fldComplex) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?,?)"
MM_editCmd.Prepared = true
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 201, 1, 40, Request.Form("BuildingNum")) ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 201, 1, 10, Request.Form("ApartNum")) ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 201, 1, 30, Request.Form("FirstName")) ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 201, 1, 30, Request.Form("LastName")) ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 201, 1, 20, Request.Form("PhoneNumber")) ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 201, 1, 40, Request.Form("EmailAddress")) ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 201, 1, 10, Request.Form("PTE")) ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 201, 1, 10, Request.Form("Pets")) ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param9", 201, 1, 30, Request.Form("WOType")) ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param10", 201, 1, 30, Request.Form("Location")) ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param11", 201, 1, 1000, Request.Form("WODesc")) ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param12", 201, 1, 1000, Request.Form("additioncomments")) ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param13", 201, 1, 15, "Winwood" )' adVarWChar
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
' append the query string to the redirect URL
Dim MM_editRedirectUrl
MM_editRedirectUrl = "thanks.html"
If (Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If
Response.Redirect(MM_editRedirectUrl)
End If
End If
%>
Des Moines Iowa Apartments | Maintenance Request
Maintenance Request
Day or night, to submit a Routine Maintenance Request, please complete the form below.
For Emergency Maintenance Requests , please call the office (515-270-0940) or afterhours call the on-call personal at (515) 707-6628.
Emergency Maintenance Requests inlcude:
* No Electricity
* Fire
(after dailing 911)
* All water leaks
* No heat in temperatures below 55 degress
* No air conditioning in temperatures over 85 degrees
* No plumbing or water throughout the apartment
* No hot water
* Refrigerator not working
* Stopped-up sewer lines
* Broken windows/locks