<% set Conn = Server.CreateObject("ADODB.Connection") Conn.Open("DRIVER={MySQL ODBC 3.51 Driver}; SERVER=a1maid.db.7770915.hostedresource.com; PORT=3306; DATABASE=a1maid; USER=a1maid; PASSWORD=mU7hEcru; OPTION=0;") Set RS_record_count = Server.CreateObject("ADODB.Recordset") set RS_service_0 = Server.CreateObject("ADODB.Recordset") set RS_service_1 = Server.CreateObject("ADODB.Recordset") set RS_service_2 = Server.CreateObject("ADODB.Recordset") set RS_service_3 = Server.CreateObject("ADODB.Recordset") set RS_service_4 = Server.CreateObject("ADODB.Recordset") set RS_service_5 = Server.CreateObject("ADODB.Recordset") set RS_custServ_0 = Server.CreateObject("ADODB.Recordset") set RS_custServ_1 = Server.CreateObject("ADODB.Recordset") set RS_custServ_2 = Server.CreateObject("ADODB.Recordset") set RS_custServ_3 = Server.CreateObject("ADODB.Recordset") set RS_custServ_4 = Server.CreateObject("ADODB.Recordset") set RS_custServ_5 = Server.CreateObject("ADODB.Recordset") set RS_onTime_0 = Server.CreateObject("ADODB.Recordset") set RS_onTime_1 = Server.CreateObject("ADODB.Recordset") set RS_onTime_2 = Server.CreateObject("ADODB.Recordset") set RS_efficient_0 = Server.CreateObject("ADODB.Recordset") set RS_efficient_1 = Server.CreateObject("ADODB.Recordset") set RS_efficient_2 = Server.CreateObject("ADODB.Recordset") set RS_cleanliness_0 = Server.CreateObject("ADODB.Recordset") set RS_cleanliness_1 = Server.CreateObject("ADODB.Recordset") set RS_cleanliness_2 = Server.CreateObject("ADODB.Recordset") set RS_cleanliness_3 = Server.CreateObject("ADODB.Recordset") set RS_cleanliness_4 = Server.CreateObject("ADODB.Recordset") set RS_cleanliness_5 = Server.CreateObject("ADODB.Recordset") set RS_expectations_0 = Server.CreateObject("ADODB.Recordset") set RS_expectations_1 = Server.CreateObject("ADODB.Recordset") set RS_expectations_2 = Server.CreateObject("ADODB.Recordset") set RS_overallExperience_0 = Server.CreateObject("ADODB.Recordset") set RS_overallExperience_1 = Server.CreateObject("ADODB.Recordset") set RS_overallExperience_2 = Server.CreateObject("ADODB.Recordset") set RS_overallExperience_3 = Server.CreateObject("ADODB.Recordset") set RS_overallExperience_4 = Server.CreateObject("ADODB.Recordset") set RS_overallExperience_5 = Server.CreateObject("ADODB.Recordset") set RS_recommend_0 = Server.CreateObject("ADODB.Recordset") set RS_recommend_1 = Server.CreateObject("ADODB.Recordset") set RS_recommend_2 = Server.CreateObject("ADODB.Recordset") set RS_comments = Server.CreateObject("ADODB.Recordset") RS_record_count.Open "SELECT COUNT(ID) AS CountOfRecordId FROM a1SurveyReplies", Conn RS_service_0.Open "SELECT Count(*) AS numberofrecords FROM a1SurveyReplies WHERE service=0", Conn RS_service_1.Open "SELECT Count(*) AS numberofrecords FROM a1SurveyReplies WHERE service=1", Conn RS_service_2.Open "SELECT Count(*) AS numberofrecords FROM a1SurveyReplies WHERE service=2", Conn RS_service_3.Open "SELECT Count(*) AS numberofrecords FROM a1SurveyReplies WHERE service=3", Conn RS_service_4.Open "SELECT Count(*) AS numberofrecords FROM a1SurveyReplies WHERE service=4", Conn RS_service_5.Open "SELECT Count(*) AS numberofrecords FROM a1SurveyReplies WHERE service=5", Conn RS_custServ_0.Open "SELECT Count(*) AS numberofrecords FROM a1SurveyReplies WHERE custServ=0", Conn RS_custServ_1.Open "SELECT Count(*) AS numberofrecords FROM a1SurveyReplies WHERE custServ=1", Conn RS_custServ_2.Open "SELECT Count(*) AS numberofrecords FROM a1SurveyReplies WHERE custServ=2", Conn RS_custServ_3.Open "SELECT Count(*) AS numberofrecords FROM a1SurveyReplies WHERE custServ=3", Conn RS_custServ_4.Open "SELECT Count(*) AS numberofrecords FROM a1SurveyReplies WHERE custServ=4", Conn RS_custServ_5.Open "SELECT Count(*) AS numberofrecords FROM a1SurveyReplies WHERE custServ=5", Conn RS_onTime_0.Open "SELECT Count(*) AS numberofrecords FROM a1SurveyReplies WHERE onTime=0", Conn RS_onTime_1.Open "SELECT Count(*) AS numberofrecords FROM a1SurveyReplies WHERE onTime=1", Conn RS_onTime_2.Open "SELECT Count(*) AS numberofrecords FROM a1SurveyReplies WHERE onTime=2", Conn RS_efficient_0.Open "SELECT Count(*) AS numberofrecords FROM a1SurveyReplies WHERE efficient=0", Conn RS_efficient_1.Open "SELECT Count(*) AS numberofrecords FROM a1SurveyReplies WHERE efficient=1", Conn RS_efficient_2.Open "SELECT Count(*) AS numberofrecords FROM a1SurveyReplies WHERE efficient=2", Conn RS_cleanliness_0.Open "SELECT Count(*) AS numberofrecords FROM a1SurveyReplies WHERE cleanliness=0", Conn RS_cleanliness_1.Open "SELECT Count(*) AS numberofrecords FROM a1SurveyReplies WHERE cleanliness=1", Conn RS_cleanliness_2.Open "SELECT Count(*) AS numberofrecords FROM a1SurveyReplies WHERE cleanliness=2", Conn RS_cleanliness_3.Open "SELECT Count(*) AS numberofrecords FROM a1SurveyReplies WHERE cleanliness=3", Conn RS_cleanliness_4.Open "SELECT Count(*) AS numberofrecords FROM a1SurveyReplies WHERE cleanliness=4", Conn RS_cleanliness_5.Open "SELECT Count(*) AS numberofrecords FROM a1SurveyReplies WHERE cleanliness=5", Conn RS_expectations_0.Open "SELECT Count(*) AS numberofrecords FROM a1SurveyReplies WHERE expectations=0", Conn RS_expectations_1.Open "SELECT Count(*) AS numberofrecords FROM a1SurveyReplies WHERE expectations=1", Conn RS_expectations_2.Open "SELECT Count(*) AS numberofrecords FROM a1SurveyReplies WHERE expectations=2", Conn RS_overallExperience_0.Open "SELECT Count(*) AS numberofrecords FROM a1SurveyReplies WHERE overallExperience=0", Conn RS_overallExperience_1.Open "SELECT Count(*) AS numberofrecords FROM a1SurveyReplies WHERE overallExperience=1", Conn RS_overallExperience_2.Open "SELECT Count(*) AS numberofrecords FROM a1SurveyReplies WHERE overallExperience=2", Conn RS_overallExperience_3.Open "SELECT Count(*) AS numberofrecords FROM a1SurveyReplies WHERE overallExperience=3", Conn RS_overallExperience_4.Open "SELECT Count(*) AS numberofrecords FROM a1SurveyReplies WHERE overallExperience=4", Conn RS_overallExperience_5.Open "SELECT Count(*) AS numberofrecords FROM a1SurveyReplies WHERE overallExperience=5", Conn RS_recommend_0.Open "SELECT Count(*) AS numberofrecords FROM a1SurveyReplies WHERE recommend=0", Conn RS_recommend_1.Open "SELECT Count(*) AS numberofrecords FROM a1SurveyReplies WHERE recommend=1", Conn RS_recommend_2.Open "SELECT Count(*) AS numberofrecords FROM a1SurveyReplies WHERE recommend=2", Conn RS_comments.Open "SELECT comments FROM a1SurveyReplies", Conn count_service_0 = RS_service_0.Fields("numberofrecords").Value count_service_1 = RS_service_1.Fields("numberofrecords").Value count_service_2 = RS_service_2.Fields("numberofrecords").Value count_service_3 = RS_service_3.Fields("numberofrecords").Value count_service_4 = RS_service_4.Fields("numberofrecords").Value count_service_5 = RS_service_5.Fields("numberofrecords").Value count_custServ_0 = RS_custServ_0.Fields("numberofrecords").Value count_custServ_1 = RS_custServ_1.Fields("numberofrecords").Value count_custServ_2 = RS_custServ_2.Fields("numberofrecords").Value count_custServ_3 = RS_custServ_3.Fields("numberofrecords").Value count_custServ_4 = RS_custServ_4.Fields("numberofrecords").Value count_custServ_5 = RS_custServ_5.Fields("numberofrecords").Value count_onTime_0 = RS_onTime_0.Fields("numberofrecords").Value count_onTime_1 = RS_onTime_1.Fields("numberofrecords").Value count_onTime_2 = RS_onTime_2.Fields("numberofrecords").Value count_efficient_0 = RS_efficient_0.Fields("numberofrecords").Value count_efficient_1 = RS_efficient_1.Fields("numberofrecords").Value count_efficient_2 = RS_efficient_2.Fields("numberofrecords").Value count_cleanliness_0 = RS_cleanliness_0.Fields("numberofrecords").Value count_cleanliness_1 = RS_cleanliness_1.Fields("numberofrecords").Value count_cleanliness_2 = RS_cleanliness_2.Fields("numberofrecords").Value count_cleanliness_3 = RS_cleanliness_3.Fields("numberofrecords").Value count_cleanliness_4 = RS_cleanliness_4.Fields("numberofrecords").Value count_cleanliness_5 = RS_cleanliness_5.Fields("numberofrecords").Value count_expectations_0 = RS_expectations_0.Fields("numberofrecords").Value count_expectations_1 = RS_expectations_1.Fields("numberofrecords").Value count_expectations_2 = RS_expectations_2.Fields("numberofrecords").Value count_overallExperience_0 = RS_overallExperience_0.Fields("numberofrecords").Value count_overallExperience_1 = RS_overallExperience_1.Fields("numberofrecords").Value count_overallExperience_2 = RS_overallExperience_2.Fields("numberofrecords").Value count_overallExperience_3 = RS_overallExperience_3.Fields("numberofrecords").Value count_overallExperience_4 = RS_overallExperience_4.Fields("numberofrecords").Value count_overallExperience_5 = RS_overallExperience_5.Fields("numberofrecords").Value count_recommend_0 = RS_recommend_0.Fields("numberofrecords").Value count_recommend_1 = RS_recommend_1.Fields("numberofrecords").Value count_recommend_2 = RS_recommend_2.Fields("numberofrecords").Value totalSubmitted = RS_record_count("CountOfRecordId") %>

Customer Satisfaction Survey Results

Analyzing <% = totalSubmitted %> Responses

What type of service did you have?

<% percentage = CInt(count_service_1)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_service_0)) * 100 if round(percentage,1) > 80 then Response.Write "
<% Response.Write "Carpets: " & count_service_1 & " " %>  " elseif round(percentage,1) = 0 then Response.Write " " else Response.Write " " end if %>  <% Response.Write (round(percentage,1)) %>%
<% percentage = CInt(count_service_2)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_service_0)) * 100 if round(percentage,1) > 80 then Response.Write "
<% Response.Write "Commercial: " & count_service_2 & " " %>  " elseif round(percentage,1) = 0 then Response.Write " " else Response.Write " " end if %>  <% Response.Write (round(percentage,1)) %>%
<% percentage = CInt(count_service_3)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_service_0)) * 100 if round(percentage,1) > 80 then Response.Write "
<% Response.Write "Residential: " & count_service_3 & " " %>  " elseif round(percentage,1) = 0 then Response.Write " " else Response.Write " " end if %>  <% Response.Write (round(percentage,1)) %>%
<% percentage = CInt(count_service_4)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_service_0)) * 100 if round(percentage,1) > 80 then Response.Write "
<% Response.Write "Windows: " & count_service_4 & " " %>  " elseif round(percentage,1) = 0 then Response.Write " " else Response.Write " " end if %>  <% Response.Write (round(percentage,1)) %>%
<% percentage = CInt(count_service_5)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_service_0)) * 100 if round(percentage,1) > 80 then Response.Write "
<% Response.Write "Other: " & count_service_5 & " " %>  " elseif round(percentage,1) = 0 then Response.Write " " else Response.Write " " end if %>  <% Response.Write (round(percentage,1)) %>%
<% Response.Write "No Answer: " & count_service_0 & " " %>   

How would you rate the level of customer service (either via phone, email, or in person) you experienced?

<% percentage = CInt(count_custServ_1)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_custServ_0)) * 100 if round(percentage,1) > 80 then Response.Write "
<% Response.Write "Poor: " & count_custServ_1 & " " %>  " elseif round(percentage,1) = 0 then Response.Write " " else Response.Write " " end if %>  <% Response.Write (round(percentage,1)) %>%
<% percentage = CInt(count_custServ_2)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_custServ_0)) * 100 if round(percentage,1) > 80 then Response.Write "
<% Response.Write "Fair: " & count_custServ_2 & " " %>  " elseif round(percentage,1) = 0 then Response.Write " " else Response.Write " " end if %>  <% Response.Write (round(percentage,1)) %>%
<% percentage = CInt(count_custServ_3)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_custServ_0)) * 100 if round(percentage,1) > 80 then Response.Write "
<% Response.Write "Average: " & count_custServ_3 & " " %>  " elseif round(percentage,1) = 0 then Response.Write " " else Response.Write " " end if %>  <% Response.Write (round(percentage,1)) %>%
<% percentage = CInt(count_custServ_4)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_custServ_0)) * 100 if round(percentage,1) > 80 then Response.Write "
<% Response.Write "Good: " & count_custServ_4 & " " %>  " elseif round(percentage,1) = 0 then Response.Write " " else Response.Write " " end if %>  <% Response.Write (round(percentage,1)) %>%
<% percentage = CInt(count_custServ_5)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_custServ_0)) * 100 if round(percentage,1) > 80 then Response.Write "
<% Response.Write "Excellent: " & count_custServ_5 & " " %>  " elseif round(percentage,1) = 0 then Response.Write " " else Response.Write " " end if %>  <% Response.Write (round(percentage,1)) %>%
<% Response.Write "No Answer: " & count_custServ_0 & " " %>   

Did our employee arrive on time?

<% percentage = CInt(count_onTime_1)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_onTime_0)) * 100 if round(percentage,1) > 80 then Response.Write "
<% Response.Write "Yes: " & count_onTime_1 & " " %>  " elseif round(percentage,1) = 0 then Response.Write " " else Response.Write " " end if %>  <% Response.Write (round(percentage,1)) %>%
<% percentage = CInt(count_onTime_2)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_onTime_0)) * 100 if round(percentage,1) > 80 then Response.Write "
<% Response.Write "No: " & count_onTime_2 & " " %>  " elseif round(percentage,1) = 0 then Response.Write " " else Response.Write " " end if %>  <% Response.Write (round(percentage,1)) %>%
<% Response.Write "No Answer: " & count_onTime_0 & " " %>   

Did you feel your service was performed in a timely/efficient manner?

<% percentage = CInt(count_efficient_1)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_efficient_0)) * 100 if round(percentage,1) > 80 then Response.Write "
<% Response.Write "Yes: " & count_efficient_1 & " " %>  " elseif round(percentage,1) = 0 then Response.Write " " else Response.Write " " end if %>  <% Response.Write (round(percentage,1)) %>%
<% percentage = CInt(count_efficient_2)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_efficient_0)) * 100 if round(percentage,1) > 80 then Response.Write "
<% Response.Write "No: " & count_efficient_2 & " " %>  " elseif round(percentage,1) = 0 then Response.Write " " else Response.Write " " end if %>  <% Response.Write (round(percentage,1)) %>%
<% Response.Write "No Answer: " & count_efficient_0 & " " %>   

How would you rate the level of cleanliness we acheived?

<% percentage = CInt(count_cleanliness_1)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_cleanliness_0)) * 100 if round(percentage,1) > 80 then Response.Write "
<% Response.Write "Poor: " & count_cleanliness_1 & " " %>  " elseif round(percentage,1) = 0 then Response.Write " " else Response.Write " " end if %>  <% Response.Write (round(percentage,1)) %>%
<% percentage = CInt(count_cleanliness_2)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_cleanliness_0)) * 100 if round(percentage,1) > 80 then Response.Write "
<% Response.Write "Fair: " & count_cleanliness_2 & " " %>  " elseif round(percentage,1) = 0 then Response.Write " " else Response.Write " " end if %>  <% Response.Write (round(percentage,1)) %>%
<% percentage = CInt(count_cleanliness_3)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_cleanliness_0)) * 100 if round(percentage,1) > 80 then Response.Write "
<% Response.Write "Average: " & count_cleanliness_3 & " " %>  " elseif round(percentage,1) = 0 then Response.Write " " else Response.Write " " end if %>  <% Response.Write (round(percentage,1)) %>%
<% percentage = CInt(count_cleanliness_4)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_cleanliness_0)) * 100 if round(percentage,1) > 80 then Response.Write "
<% Response.Write "Good: " & count_cleanliness_4 & " " %>  " elseif round(percentage,1) = 0 then Response.Write " " else Response.Write " " end if %>  <% Response.Write (round(percentage,1)) %>%
<% percentage = CInt(count_cleanliness_5)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_cleanliness_0)) * 100 if round(percentage,1) > 80 then Response.Write "
<% Response.Write "Excellent: " & count_cleanliness_5 & " " %>  " elseif round(percentage,1) = 0 then Response.Write " " else Response.Write " " end if %>  <% Response.Write (round(percentage,1)) %>%
<% Response.Write "No Answer: " & count_cleanliness_0 & " " %>   

Did we meet your expectations?

<% percentage = CInt(count_expectations_1)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_expectations_0)) * 100 if round(percentage,1) > 80 then Response.Write "
<% Response.Write "Yes: " & count_expectations_1 & " " %>  " elseif round(percentage,1) = 0 then Response.Write " " else Response.Write " " end if %>  <% Response.Write (round(percentage,1)) %>%
<% percentage = CInt(count_expectations_2)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_expectations_0)) * 100 if round(percentage,1) > 80 then Response.Write "
<% Response.Write "No: " & count_expectations_2 & " " %>  " elseif round(percentage,1) = 0 then Response.Write " " else Response.Write " " end if %>  <% Response.Write (round(percentage,1)) %>%
<% Response.Write "No Answer: " & count_expectations_0 & " " %>   

Overall, how would rate your experience?

<% percentage = CInt(count_overallExperience_1)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_overallExperience_0)) * 100 if round(percentage,1) > 80 then Response.Write "
<% Response.Write "Poor: " & count_overallExperience_1 & " " %>  " elseif round(percentage,1) = 0 then Response.Write " " else Response.Write " " end if %>  <% Response.Write (round(percentage,1)) %>%
<% percentage = CInt(count_overallExperience_2)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_overallExperience_0)) * 100 if round(percentage,1) > 80 then Response.Write "
<% Response.Write "Fair: " & count_overallExperience_2 & " " %>  " elseif round(percentage,1) = 0 then Response.Write " " else Response.Write " " end if %>  <% Response.Write (round(percentage,1)) %>%
<% percentage = CInt(count_overallExperience_3)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_overallExperience_0)) * 100 if round(percentage,1) > 80 then Response.Write "
<% Response.Write "Average: " & count_overallExperience_3 & " " %>  " elseif round(percentage,1) = 0 then Response.Write " " else Response.Write " " end if %>  <% Response.Write (round(percentage,1)) %>%
<% percentage = CInt(count_overallExperience_4)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_overallExperience_0)) * 100 if round(percentage,1) > 80 then Response.Write "
<% Response.Write "Good: " & count_overallExperience_4 & " " %>  " elseif round(percentage,1) = 0 then Response.Write " " else Response.Write " " end if %>  <% Response.Write (round(percentage,1)) %>%
<% percentage = CInt(count_overallExperience_5)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_overallExperience_0)) * 100 if round(percentage,1) > 80 then Response.Write "
<% Response.Write "Excellent: " & count_overallExperience_5 & " " %>  " elseif round(percentage,1) = 0 then Response.Write " " else Response.Write " " end if %>  <% Response.Write (round(percentage,1)) %>%
<% Response.Write "No Answer: " & count_overallExperience_0 & " " %>   

Would you recommend A-1 Maid Service to a friend, co-worker, client, etc.?

<% percentage = CInt(count_recommend_1)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_recommend_0)) * 100 if round(percentage,1) > 80 then Response.Write "
<% Response.Write "Yes: " & count_recommend_1 & " " %>  " elseif round(percentage,1) = 0 then Response.Write " " else Response.Write " " end if %>  <% Response.Write (round(percentage,1)) %>%
<% percentage = CInt(count_recommend_2)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_recommend_0)) * 100 if round(percentage,1) > 80 then Response.Write "
<% Response.Write "No: " & count_recommend_2 & " " %>  " elseif round(percentage,1) = 0 then Response.Write " " else Response.Write " " end if %>  <% Response.Write (round(percentage,1)) %>%
<% Response.Write "No Answer: " & count_recommend_0 & " " %>