<%
sub RequestInfo(objName, btnVal)
Select Case left(objName,3)
Case "rad", "chk"
if Request(objName)=btnVal then
Response.Write("checked")
end if
Case "sel"
if Request(objName)=btnVal then
Response.Write("selected")
end if
Case "txt"
Response.Write "Value='" & Request(objName) & "'"
End Select
end sub
%>
