<%
for each item in Request.Form
if left(item, 1) = "C" then '*** This is a checkbox
Response.write "document.Form1." & item & ".checked = true;" & vbCrlf
end if
if left(item, 1) = "T" then '*** This is a textbox
Response.write "document.Form1." & item & ".value ='" & Request.form(item)& "';" & vbCrlf
end if
next 'item
%>
for each item in Request.Form
if left(item, 1) = "C" then '*** This is a checkbox
Response.write "document.Form1." & item & ".checked = true;" & vbCrlf
end if
if left(item, 1) = "T" then '*** This is a textbox
Response.write "document.Form1." & item & ".value ='" & Request.form(item)& "';" & vbCrlf
end if
next 'item
%>