HR Website - Feedback

<%if request.QueryString("submit") <> 1 then %>

CHANGE MANAGEMENT WEB SITE FEEDBACK QUESTIONNAIRE

Thank you for taking the time to look at our new change management web site, before we launch it across the Council we wanted to obtain feedback from a cross section of managers on their views on the content and format of the web site.

1. Layout of Website - Did you find it:
	Yes	No		Yes	No
Interesting			Easy to read
User Friendly			Easy to navigate
Clear			Creative

Are there any improvements or recommendations that you would suggest for the layout?:

2. Contents - Did you find the contents in each section:
	Yes	No		Yes	No
Informative			Easy to read
Interesting			Easy to navigate
Methodical			Linked to other useful websites
Stimulating

Are there any improvements or recommendations that you would suggest for the content?:

3. Detail - In the sections would you say that there is:
	Yes	No
a) Sufficient detail on the topic areas

If no, what would you have wanted to see included:

	Yes	No
b) Relevant detail on the topic areas

If no, what would you have felt would have been more relevant:

4. Exercises :
	Yes	No
Do you think a section on Self Development would be well received.

If yes, what would you like to see under this type of section?
	Yes	No
Action Plans
Short Self Assessments questionnaires
Good Practice items
Checklists
Practical Tips to improve skills
Self test psychometric type exercises
Interpretations of scores from assessments

Others, please state:

5.Yellow Buttons:

Currently these are not all in operation.

What would you like to see under "Question of the Week"?

Who should answer these?

Feedback Button

What would you like to see under this?

Local Updates Button

Would you want this to be on a:
	Yes	No
Departmental Basis
Corporate basis
Local Authority basis
Mixed

<% end if %> <%if request.QueryString("submit") = 1 then randomize msgline = "" fn = mid(Int((1279536 * Rnd) + 1),1,4) set objfso = createobject("scripting.filesystemobject") tempfn = "c:\tempmsgs\" & fn & ".txt" set objnewfile = objfso.createtextfile(tempfn) objnewfile.writeline ("1: Layout of the Website") objnewfile.writeline ("Interesting - ") & request.form("l1") objnewfile.writeline ("User Friendly - ") & request.form("l2") objnewfile.writeline ("Clear - ") & request.form("l3") objnewfile.writeline ("Easy to Read - ") & request.form("l4") objnewfile.writeline ("Easy to Navigate - ") & request.form("l5") objnewfile.writeline ("Creative - ") & request.form("l6") objnewfile.writeline ("Any improvements or recommendations for layout?") & request.form("ltext") objnewfile.writeline ("") objnewfile.writeline ("------------------------------------------------------------------------") objnewfile.writeline ("2: Contents of the Sections") objnewfile.writeline ("Informative - ") & request.form("m1") objnewfile.writeline ("Interesting - ") & request.form("m2") objnewfile.writeline ("Methodical - ") & request.form("m3") objnewfile.writeline ("Stimulating - ") & request.form("m4") objnewfile.writeline ("Easy to Read - ") & request.form("m5") objnewfile.writeline ("Easy to Navigate - ") & request.form("m6") objnewfile.writeline ("Creative - ") & request.form("m7") objnewfile.writeline ("Any improvements or recommendations for content?") & request.form("mtext") objnewfile.writeline ("") objnewfile.writeline ("------------------------------------------------------------------------") objnewfile.writeline ("3: Detail") objnewfile.writeline ("Sufficient Detail? - ") & request.form("n1") objnewfile.writeline ("If no what would you have included?") & request.form("ntext1") objnewfile.writeline ("Relevant Detail? - ") & request.form("n2") objnewfile.writeline ("If no what would you have felt more relevant?") & request.form("ntext2") objnewfile.writeline ("") objnewfile.writeline ("------------------------------------------------------------------------") objnewfile.writeline ("4: Exercises") objnewfile.writeline ("Would a section on Self Development be well recieved? - ") & request.form("o1") objnewfile.writeline ("If yes what would you like to see under this type of section? ") objnewfile.writeline ("Action Plans - ") & request.form("p1") objnewfile.writeline ("Short Self Assessments questionnaires - ") & request.form("p2") objnewfile.writeline ("Good Practice Items - ") & request.form("p3") objnewfile.writeline ("Checklists - ") & request.form("p4") objnewfile.writeline ("Practical tips to improve skills - ") & request.form("p5") objnewfile.writeline ("Psychometric tests - ") & request.form("p6") objnewfile.writeline ("Interpretations of scores from assessments - ") & request.form("p7") objnewfile.writeline ("Others, please state - ") & request.form("ptext") objnewfile.writeline ("------------------------------------------------------------------------") objnewfile.writeline ("") objnewfile.writeline ("5: Yellow Buttons") objnewfile.writeline ("What would you like to see under Question of the Week?") & request.form("qtext") objnewfile.writeline ("Who should answer these?") & request.form("rtext") objnewfile.writeline ("Feedback Button - What would you like to see under it?") & request.form("stext") objnewfile.writeline ("Local Updates Button - would you want this to be on a:") objnewfile.writeline ("Departmental Basis?") & request.form("t1") objnewfile.writeline ("Corporate Basis?") & request.form("t2") objnewfile.writeline ("Local Authority Basis?") & request.form("t3") objnewfile.writeline ("Mixed?") & request.form("t4") objnewfile.writeline ("") objnewfile.close Set Exec = Server.CreateObject("ASPExec.Execute") Exec.Application = "c:\blat\blat.exe" Exec.Parameters = tempfn & " -f contact.form@bradford.gov.uk -t elaine.mcvoy@bradford.gov.uk -s ""Change Management WebSite Feedback.""" strResult = Exec.ExecuteDosApp response.write "

Thank you for submitting your feedback.

" end if %>

Return to Change Management Page