<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>Thank You!</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<p>
<%
Set my_conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
my_conn.Open "DSN=PCET"
names=Request("name")
names=Replace(names,"'","")
school=Request("school")
school=Replace(school,"'","")
courses=Request("courses")
courses=Replace(courses,"'","")
stud=Request("numstudents")
stud=Replace(stud,"'","")
eng=Request("engineering")
eng=Replace(eng,"'","")
tech=Request("tech")
tech=Replace(tech,"'","")
per=Request("periods")
per=Replace(per,"'","")
when=Request("when")
when=Replace(when,"'","")
desc=Request("description")
desc=Replace(desc,"'","")
work=Request("work")
work=Replace(work,"'","")
assess=Request("assess")
assess=Replace(assess,"'","")
check1=Request("checkbox1")
check2=Request("checkbox2")
check3=Request("checkbox3")
check4=Request("checkbox4")
check5=Request("checkbox5")
check6=Request("checkbox6")
check7=Request("checkbox7")
check8=Request("checkbox8")
check9=Request("checkbox9")
check10=Request("checkbox10")
check11=Request("checkbox11")
check = check1 + ", " + check2 + ", " + check3 + ", " + check4 + ", " + check5 + ", " + check6 + ", " + check7 + ", " + check8 + ", " + check9 + ", " + check10 + ", " + check11
und=Request("understandings")
und=Replace(und,"'","")
val=Request("valuable")
val=Replace(val,"'","")
materials=Request("materials")
materials=Replace(materials,"'","")
other=Request("other")
other=Replace(other,"'","")
' rev=Request.QueryString("reviewed")
' rev=Replace(rev,"'","")
plans=Request("plans")
plans=Replace(plans,"'","")
adddata = "INSERT INTO ret_survey "
adddata = adddata & "(name, school, courses, students, eng, math, periods, months,"
adddata = adddata & " description, studwork, assessed, incorporate, understand,"
adddata = adddata & " value, materials, other, plans) "
adddata = adddata & "VALUES (" & "'" & names & "'" & ",'" & school
adddata = adddata & "'" & ",'" & courses & "'" & ",'" & stud & "'" & ",'" & eng
adddata = adddata & "'" & ",'" & tech & "'" & ",'" & per & "'" & ",'" & when
adddata = adddata & "'" & ",'" & desc & "'" & ",'" & work & "'" & ",'" & assess
adddata = adddata & "'" & ",'" & check & "'" & ",'" & und & "'" & ",'" & val
adddata = adddata & "'" & ",'" & materials & "'" & ",'" & other & "'" & ",'" & plans & "'" & ")"
' Execute SQL statement
Set rs = my_conn.Execute(adddata)
' Response.Write(names + "<br>")
' Response.Write(school + "<br>")
' Response.Write(courses + "<br>")
' Response.Write(stud + "<br>")
' Response.Write(eng + "<br>")
' Response.Write(tech + "<br>")
' Response.Write(per + "<br>")
' Response.Write(when + "<br>")
' Response.Write(desc + "<br>")
' Response.Write(work + "<br>")
' Response.Write(assess + "<br>")
'
' Response.Write(check + "<br>")
'
' Response.Write(und + "<br>")
' Response.Write(val + "<br>")
' Response.Write(mat + "<br>")
' Response.Write(other + "<br>")
' Response.Write(rev + "<br>")
' Response.Write(plans + "<br>")
my_conn.close ' Close database connection
Set my_conn = nothing 'obj variable released
%>
<p>Thank you for taking this survey. </p>
<p>If you have produced (or modified) any labs, worksheets, or other
supporting documentation as part of your time with RET,
Please email them to us at
<a href=""></a></p>
<p>You may now click <a href="http://ceeo.tufts.edu">here</a> to go back to the CEEO homepage.</p>
</body>
</html>