<% Function cTextBox(name, value, size) Response.Write"<input type=text name='"&name&"' value='"&value&"' size='"&size&"'>"&vbcrlf Response.Write cTextBox("NAME", "1", "12") &vbcrlf End Function Function cCheckBox(name, value, checked) Response.Write"<input type=checkbox name='"&name&"' value='"&value&"'" If checked = 1 Then Response.Write" CHECKED" Response.Write">" End Function Function cRadio(name, value, checked) Response.Write"<input type=radio name='"&name&"' value='"&value&"'" If checked = 1 Then Response.Write" CHECKED" Response.Write">" End Function %> <html> <body> <% 'just declaring a couple of static variables here, 'but you can create cbname and cbvalue any way you like. 'use a recordset, or Request collection too: cbname = "checkbox_name" cbvalue = "act"Response.Write "My Checkbox: "&cCheckBox(cbname, cbvalue, 1)&" " 'or, write a radio button like this: Response.Write cRadio(cbname, cbvalue, 1) %> </body> </html> |