<% set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "survey1"
Qry = "INSERT INTO survey1 ("
set recordset = oConn.Execute("SELECT * FROM survey1")
Value = "VALUES ("
For Each oField In recordset.Fields
If oField.Name <> "ID" Then
Qry = Qry&oField.Name&", "
qValue = Request.Form(oField.Name)
position = InStr(qValue,Chr(39))
Do While (position <> 0)
qValue = Left(qValue, position-1)&"##"&Mid(qValue, position+1)
position = InStr(qValue,Chr(39))
Loop
Value = Value&"'"&qValue&"'"&", "
End If
Next
length = Len(Qry)
Qry = Left(Qry, length-2)
Qry = Qry&") "
length = Len(Value)
Value = Left(Value, length-2)
Value = Value&")"
Qry = Qry&Value
'Response.Write Qry
oConn.Execute(Qry)
oConn.Close
set oConn = Nothing
%>
Your results have
been successfully submitted. Thank you for your contribution to this study!