%
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?
<% Response.Write "Carpets: " & count_service_1 & " " %> |
<%
percentage = CInt(count_service_1)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_service_0)) * 100
if round(percentage,1) > 80 then
Response.Write " "
elseif round(percentage,1) = 0 then
Response.Write " | "
else
Response.Write " | "
end if
%>
| <% Response.Write (round(percentage,1)) %>% |
<% Response.Write "Commercial: " & count_service_2 & " " %> |
<%
percentage = CInt(count_service_2)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_service_0)) * 100
if round(percentage,1) > 80 then
Response.Write " "
elseif round(percentage,1) = 0 then
Response.Write " | "
else
Response.Write " | "
end if
%>
| <% Response.Write (round(percentage,1)) %>% |
<% Response.Write "Residential: " & count_service_3 & " " %> |
<%
percentage = CInt(count_service_3)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_service_0)) * 100
if round(percentage,1) > 80 then
Response.Write " "
elseif round(percentage,1) = 0 then
Response.Write " | "
else
Response.Write " | "
end if
%>
| <% Response.Write (round(percentage,1)) %>% |
<% Response.Write "Windows: " & count_service_4 & " " %> |
<%
percentage = CInt(count_service_4)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_service_0)) * 100
if round(percentage,1) > 80 then
Response.Write " "
elseif round(percentage,1) = 0 then
Response.Write " | "
else
Response.Write " | "
end if
%>
| <% Response.Write (round(percentage,1)) %>% |
<% Response.Write "Other: " & count_service_5 & " " %> |
<%
percentage = CInt(count_service_5)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_service_0)) * 100
if round(percentage,1) > 80 then
Response.Write " "
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?
<% Response.Write "Poor: " & count_custServ_1 & " " %> |
<%
percentage = CInt(count_custServ_1)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_custServ_0)) * 100
if round(percentage,1) > 80 then
Response.Write " "
elseif round(percentage,1) = 0 then
Response.Write " | "
else
Response.Write " | "
end if
%>
| <% Response.Write (round(percentage,1)) %>% |
<% Response.Write "Fair: " & count_custServ_2 & " " %> |
<%
percentage = CInt(count_custServ_2)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_custServ_0)) * 100
if round(percentage,1) > 80 then
Response.Write " "
elseif round(percentage,1) = 0 then
Response.Write " | "
else
Response.Write " | "
end if
%>
| <% Response.Write (round(percentage,1)) %>% |
<% Response.Write "Average: " & count_custServ_3 & " " %> |
<%
percentage = CInt(count_custServ_3)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_custServ_0)) * 100
if round(percentage,1) > 80 then
Response.Write " "
elseif round(percentage,1) = 0 then
Response.Write " | "
else
Response.Write " | "
end if
%>
| <% Response.Write (round(percentage,1)) %>% |
<% Response.Write "Good: " & count_custServ_4 & " " %> |
<%
percentage = CInt(count_custServ_4)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_custServ_0)) * 100
if round(percentage,1) > 80 then
Response.Write " "
elseif round(percentage,1) = 0 then
Response.Write " | "
else
Response.Write " | "
end if
%>
| <% Response.Write (round(percentage,1)) %>% |
<% Response.Write "Excellent: " & count_custServ_5 & " " %> |
<%
percentage = CInt(count_custServ_5)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_custServ_0)) * 100
if round(percentage,1) > 80 then
Response.Write " "
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?
<% Response.Write "Yes: " & count_onTime_1 & " " %> |
<%
percentage = CInt(count_onTime_1)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_onTime_0)) * 100
if round(percentage,1) > 80 then
Response.Write " "
elseif round(percentage,1) = 0 then
Response.Write " | "
else
Response.Write " | "
end if
%>
| <% Response.Write (round(percentage,1)) %>% |
<% Response.Write "No: " & count_onTime_2 & " " %> |
<%
percentage = CInt(count_onTime_2)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_onTime_0)) * 100
if round(percentage,1) > 80 then
Response.Write " "
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?
<% Response.Write "Yes: " & count_efficient_1 & " " %> |
<%
percentage = CInt(count_efficient_1)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_efficient_0)) * 100
if round(percentage,1) > 80 then
Response.Write " "
elseif round(percentage,1) = 0 then
Response.Write " | "
else
Response.Write " | "
end if
%>
| <% Response.Write (round(percentage,1)) %>% |
<% Response.Write "No: " & count_efficient_2 & " " %> |
<%
percentage = CInt(count_efficient_2)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_efficient_0)) * 100
if round(percentage,1) > 80 then
Response.Write " "
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?
<% Response.Write "Poor: " & count_cleanliness_1 & " " %> |
<%
percentage = CInt(count_cleanliness_1)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_cleanliness_0)) * 100
if round(percentage,1) > 80 then
Response.Write " "
elseif round(percentage,1) = 0 then
Response.Write " | "
else
Response.Write " | "
end if
%>
| <% Response.Write (round(percentage,1)) %>% |
<% Response.Write "Fair: " & count_cleanliness_2 & " " %> |
<%
percentage = CInt(count_cleanliness_2)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_cleanliness_0)) * 100
if round(percentage,1) > 80 then
Response.Write " "
elseif round(percentage,1) = 0 then
Response.Write " | "
else
Response.Write " | "
end if
%>
| <% Response.Write (round(percentage,1)) %>% |
<% Response.Write "Average: " & count_cleanliness_3 & " " %> |
<%
percentage = CInt(count_cleanliness_3)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_cleanliness_0)) * 100
if round(percentage,1) > 80 then
Response.Write " "
elseif round(percentage,1) = 0 then
Response.Write " | "
else
Response.Write " | "
end if
%>
| <% Response.Write (round(percentage,1)) %>% |
<% Response.Write "Good: " & count_cleanliness_4 & " " %> |
<%
percentage = CInt(count_cleanliness_4)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_cleanliness_0)) * 100
if round(percentage,1) > 80 then
Response.Write " "
elseif round(percentage,1) = 0 then
Response.Write " | "
else
Response.Write " | "
end if
%>
| <% Response.Write (round(percentage,1)) %>% |
<% Response.Write "Excellent: " & count_cleanliness_5 & " " %> |
<%
percentage = CInt(count_cleanliness_5)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_cleanliness_0)) * 100
if round(percentage,1) > 80 then
Response.Write " "
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?
<% Response.Write "Yes: " & count_expectations_1 & " " %> |
<%
percentage = CInt(count_expectations_1)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_expectations_0)) * 100
if round(percentage,1) > 80 then
Response.Write " "
elseif round(percentage,1) = 0 then
Response.Write " | "
else
Response.Write " | "
end if
%>
| <% Response.Write (round(percentage,1)) %>% |
<% Response.Write "No: " & count_expectations_2 & " " %> |
<%
percentage = CInt(count_expectations_2)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_expectations_0)) * 100
if round(percentage,1) > 80 then
Response.Write " "
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?
<% Response.Write "Poor: " & count_overallExperience_1 & " " %> |
<%
percentage = CInt(count_overallExperience_1)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_overallExperience_0)) * 100
if round(percentage,1) > 80 then
Response.Write " "
elseif round(percentage,1) = 0 then
Response.Write " | "
else
Response.Write " | "
end if
%>
| <% Response.Write (round(percentage,1)) %>% |
<% Response.Write "Fair: " & count_overallExperience_2 & " " %> |
<%
percentage = CInt(count_overallExperience_2)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_overallExperience_0)) * 100
if round(percentage,1) > 80 then
Response.Write " "
elseif round(percentage,1) = 0 then
Response.Write " | "
else
Response.Write " | "
end if
%>
| <% Response.Write (round(percentage,1)) %>% |
<% Response.Write "Average: " & count_overallExperience_3 & " " %> |
<%
percentage = CInt(count_overallExperience_3)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_overallExperience_0)) * 100
if round(percentage,1) > 80 then
Response.Write " "
elseif round(percentage,1) = 0 then
Response.Write " | "
else
Response.Write " | "
end if
%>
| <% Response.Write (round(percentage,1)) %>% |
<% Response.Write "Good: " & count_overallExperience_4 & " " %> |
<%
percentage = CInt(count_overallExperience_4)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_overallExperience_0)) * 100
if round(percentage,1) > 80 then
Response.Write " "
elseif round(percentage,1) = 0 then
Response.Write " | "
else
Response.Write " | "
end if
%>
| <% Response.Write (round(percentage,1)) %>% |
<% Response.Write "Excellent: " & count_overallExperience_5 & " " %> |
<%
percentage = CInt(count_overallExperience_5)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_overallExperience_0)) * 100
if round(percentage,1) > 80 then
Response.Write " "
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.?
<% Response.Write "Yes: " & count_recommend_1 & " " %> |
<%
percentage = CInt(count_recommend_1)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_recommend_0)) * 100
if round(percentage,1) > 80 then
Response.Write " "
elseif round(percentage,1) = 0 then
Response.Write " | "
else
Response.Write " | "
end if
%>
| <% Response.Write (round(percentage,1)) %>% |
<% Response.Write "No: " & count_recommend_2 & " " %> |
<%
percentage = CInt(count_recommend_2)/(CInt(RS_record_count("CountOfRecordId"))-CInt(count_recommend_0)) * 100
if round(percentage,1) > 80 then
Response.Write " "
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 & " " %> |
|
|