%@ Language=VBScript %> <% Response.Buffer = 1 %> <% subHeader() If Request("bolAddNew") = 1 Then subAddNew() subResults() ElseIf Request("bolShowResults") = 1 Then subResults() Else subForm 0 End If subFooter() Response.Flush() Response.End() %> <% Sub subAddNew Dim intErrorFound intFieldCount = 0 intErrorFound = 0 For Each x In Request.Form intFieldCount = intFieldCount + 1 If Mid(x, 1, 3) = "int" Then For Each y In Request.Form If Mid(x, 4, 3) = Mid(y, 4, 3) AND Not x = y Then If Request.Form(x) = Request.Form(y) OR Not Request.Form(x) > 0 Then intErrorFound = 1 End If End If Next End If Next If intFieldCount < 26 Then intErrorFound = 1 End If If intErrorFound = 1 Then subForm 1 subFooter() Response.Flush() Response.End() End If Dim objDBWeb, objRSWeb Dim strSQL strSQL = "SELECT * FROM Blueprint_Survey" Set objDBWeb = Server.CreateObject("ADODB.Connection") objDBWeb.Open "DSN=webmysql;Database=web2061;" Set objRSWeb = Server.CreateObject("ADODB.Recordset") objRSWeb.ActiveConnection = objDBWeb objRSWeb.Source = strSQL objRSWeb.CursorLocation = adUseClient objRSWeb.CursorType = adOpenStatic objRSWeb.LockType = adLockOptimistic objRSWeb.Open() objRSWeb.AddNew() objRSWeb("TodaysDate") = Now() For Each x In Request.Form txtVarType = Mid(x, 1, 3) txtVarName = Mid(x, 4, Len(x)) If txtVarType = "txt" Then objRSWeb(txtVarName) = Request.Form(x) ElseIf txtVarType = "int" Then objRSWeb(txtVarName) = Request.Form(x) End If Next objRSWeb.Update() objRSWeb.Close() Set objRSWeb = Nothing objDBWeb.Close() Set objDBWeb = Nothing %>
Thank you for filling out the Blueprints Survey. Results of the survey are below. | |
|
Welcome to the Blueprints Online Survey. The goal of this site is to stimulate further discussion of important education reform issues raised in Project 2061's Blueprints for Reform: Science, Mathematics, and Technology Education. The results of the survey reflect the up-to-date rankings provided by all repondents. In addition to choosing a response, you may comment in writing. To take part, complete the survey by responding to the questions. As background, you may want to read selected chapters in Blueprints for Reform (available in print from Oxford University Press or online). The survey will take you less than 5 minutes to finish. |
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Please be sure to provide rankings in all four categories and give each item a unique ranking within its category. | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Thank you for taking the time to complete this survey. Select "Submit Survey" now to send your responses to us. |