CGI and 2007

Hi Bruce,The pop up window I referred to is not from the .asp script - it is from a checkbox in the results tab of the test properties "Show students success dialog if submission is successful".I've had similar problems with field sizes being too small before as well, but we would receive an error message. With all new courses published from 2007, no error message or success dialog box occurs.Code to follow:<%@ Language=VBScript %><% Option explicit %> <%'Get the parameters posted from the test'Dim titleDim scoreDim passDim empnameDim employeeidDim PublishDateDim q1Dim q2Dim q3Dim q4Dim q5Dim q6Dim q7Dim q8Dim q9Dim q10Dim q11Dim q12Dim q13Dim q14Dim q15Dim q16Dim q17Dim q18Dim q19Dim q20Dim q21Dim q22Dim q23Dim q24Dim q25Dim q26Dim q27Dim q28Dim q29Dim q30Dim q31Dim q32Dim q33Dim q34Dim q35Dim q36Dim q37Dim q38Dim q39Dim q40Dim q41Dim q42Dim q43Dim q44Dim q45Dim q46Dim q47Dim q48Dim q49Dim q50 title=request.form ("CurrentTitleName") score=Request.form("Test_Score") pass=Request.form("Pass") empname=Request.form("EmployeeName") employeeid=Request.form("EmployeeID") PublishDate=Request.form ("PublishDate") q1=Request.form("Question_0001 ") q2=Request.form("Question_0002 ") q3=Request.form("Question_0003 ") q4=Request.form("Question_0004 ") q5=Request.form("Question_0005 ") q6=Request.form("Question_0006 ") q7=Request.form("Question_0007 ") q8=Request.form("Question_0008 ") q9=Request.form("Question_0009 ") q10=Request.form("Question_0010") q11=Request.form("Question_0011") q12=Request.form("Question_0012") q13=Request.form("Question_0013") q14=Request.form("Question_0014") q15=Request.form("Question_0015") q16=Request.form("Question_0016") q17=Request.form("Question_0017") q18=Request.form("Question_0018") q19=Request.form("Question_0019") q20=Request.form("Question_0020") q21=Request.form("Question_0021") q22=Request.form("Question_0022") q23=Request.form("Question_0023") q24=Request.form("Question_0024") q25=Request.form("Question_0025") q26=Request.form("Question_0026") q27=Request.form("Question_0027") q28=Request.form("Question_0028") q29=Request.form("Question_0029") q30=Request.form("Question_0030") q31=Request.form("Question_0031") q32=Request.form("Question_0032") q33=Request.form("Question_0033") q34=Request.form("Question_0034") q35=Request.form("Question_0035") q36=Request.form("Question_0036") q37=Request.form("Question_0037") q38=Request.form("Question_0038") q39=Request.form("Question_0039") q40=Request.form("Question_0040") q41=Request.form("Question_0041") q42=Request.form("Question_0042") q43=Request.form("Question_0043") q44=Request.form("Question_0044") q45=Request.form("Question_0045") q46=Request.form("Question_0046") q47=Request.form("Question_0047") q48=Request.form("Question_0048") q49=Request.form("Question_0049") q50=Request.form("Question_0050") ' create Connection and Recordset objects'Dim objConnSet objConn = Server.CreateObject("ADODB.Connection")objConn.Open "Provider=SQLOLEDB;Data Source=sql-1; Initial Catalog=Lectora; User ID="MY USERNAME"; Password="MYPASSWORD""Dim rsSet rs = Server.CreateObject("ADODB.RecordSet")dim ssql ' create the SQL statement'sSQL = "INSERT INTO CourseComplete (Name, EmpID, Score, Pass, Title, PublishDate, q1, q2, q3, q4, q5, q6, q7, q8, q9, q10, q11, q12, q13, q14, q15, q16, q17, q18, q19, q20, q21, q22, q23, q24, q25, q26, q27, q28, q29, q30, q31, q32, q33, q34, q35, q36, q37, q38, q39, q40, q41, q42, q43, q44, q45, q46, q47, q48, q49, q50) VALUES ('" & empname & "','" & employeeid & "','" & score & "','" & pass & "','" & title & "','" & PublishDate & "','" & q1 & "','" & q2 & "','" & q3 & "','" & q4 & "','" & q5 & "','" & q6 & "','" & q7 & "','" & q8 & "','" & q9 & "','" & q10 & "','" & q11 & "','" & q12 & "','" & q13 & "','" & q14 & "','" & q15 & "','" & q16 & "','" & q17 & "','" & q18 & "','" & q19 & "','" & q20 & "','" & q21 & "','" & q22 & "','" & q23 & "','" & q24 & "','" & q25 & "','" & q26 & "','" & q27 & "','" & q28 & "','" & q29 & "','" & q30 & "','" & q31 & "','" & q32 & "','" & q33 & "','" & q34 & "','" & q35 & "','" & q36 & "','" & q37 & "','" & q38 & "','" & q39 & "','" & q40 & "','" & q41 & "','" & q42 & "','" & q43 & "','" & q44 & "','" & q45 & "','" & q46 & "','" & q47 & "','" & q48 & "','" & q49 & "','" & q50 & "')" ' Execute the SQL statement, and set the recordset object' ' to the result of this execution. obtain the resulting' ' records in Rs object'rs.open ssql, objconn, adOpenKeyset, adLockPessimistic, adCmdText ' Close the Recordset object and destroy it'Set Rs = Nothing ' release the resources for connection object, ' objconn.CloseSet objconn = Nothing 'The response below for debugging' Response.Write "" Response.Write "Success " Response.Write "" Response.Write "STATUS=200" Response.Write "
" Response.Write(sSQL) Response.Write "
" Response.Write "Success." Response.Write ""'end if%>Edited By: avandehey on 2007-5-29 14:37:56