<%@LANGUAGE="VBSCRIPT"%> <% Dim ConfirmMsg Dim myCDONTSMail Dim strFrom, strTo, strSubject, strBody, strList, strToList If (Request.Form("submitted") = "yes") Then strFrom = Request.Form("pm_mail") strTo = "feedback@racetothetop.org" strSubject = "Feedback form" strList = request.form("list") strToList = "news-subscribe@lists.racetothetop.org" strBody = "Last:" & vbTab & request.form("pm_sn") & vbCrLf strBody = strBody & "First:" & vbTab & request.form("pm_givenName") & vbCrLf strBody = strBody & "Company:" & vbTab & request.form("pm_companyName") & vbCrLf strBody = strBody & "OrgType:" & vbTab & request.form("orgType") & vbCrLf strBody = strBody & "Relevant:" & vbTab & request.form("Caters") & vbCrLf strBody = strBody & "Navigate:" & vbTab & request.form("Navigate") & vbCrLf strBody = strBody & "About:" & vbTab & request.form("About") & vbCrLf strBody = strBody & "Issues:" & vbTab & request.form("Issues") & vbCrLf strBody = strBody & "Results:" & vbTab & request.form("Results") & vbCrLf strBody = strBody & "Case:" & vbTab & request.form("Case") & vbCrLf strBody = strBody & "News:" & vbTab & request.form("News") & vbCrLf strBody = strBody & "Resources:" & vbTab & request.form("Resources") & vbCrLf strBody = strBody & "Features:" & vbTab & request.form("Features") & vbCrLf strBody = strBody & "Comments:" & vbTab & request.form("Comments") & vbCrLf strBody = strBody & "Heard:" & vbTab & request.form("hear") & vbCrLf strBody = strBody & "Detail:" & vbTab & request.form("hearDetail") & vbCrLf strBody = strBody & "Often:" & vbTab & request.form("howOften") & vbCrLf strBody = strBody & "Email:" & vbTab & strFrom & vbCrLf strBody = strBody & "Subscribed:" & vbTab & strList & vbCrLf Set myCDONTSMail = CreateObject("CDONTS.NewMail") myCDONTSMail.Send strFrom, strTo, strSubject, strBody Set myCDONTSMail = Nothing ConfirmMsg = "Thank you for submitting your feedback." If strList = "yes" Then Set myCDONTSMail = CreateObject("CDONTS.NewMail") myCDONTSMail.Send strFrom, strToList Set myCDONTSMail = Nothing ConfirmMsg = ConfirmMsg & "

You will shortly receive an email asking for confirmation that you wish to be added to our mailing list." End If End If %> Race to the Top - Survey
<% if ConfirmMsg <> "" then %>

<%= ConfirmMsg %>

<% end if %>

RTTT site user survey

We welcome your feedback. Please take a few moments to answer the questions below and help us develop the site to suit your interests.

How much do you agree with the following statements?

1. Race to the Top is relevant to my interests

2. The website is easy to navigate

3. I find the following sections useful

a) About RTTT

b) Issues

c) Results

d) Case Studies

e) News

f) Resources

Thank you!

 

back to top

Home | About | Issues | Results | Case studies | News | Contacts

Copyright ©2002 - 2003 IIED - all rights reserved

Site design and implementation by cbrody.com