<%
sub form_select(str_sql, param, name, att, conn)
set rs_local = conn.execute(str_sql)
if not rs_local.eof then
response.Write("")
end if
rs_local.close
set rs_local = nothing
end sub
sub form_print(n)
if n = 1 then
for each item in request.Form()
response.Write(item&" ")
next
elseif i = 2 then
for each item in request.Form()
response.Write(item&" = " & request.Form() & " ")
next
end if
end sub
sub form_alert(msg)
Response.Write("")
end sub
sub form_redir(url)
Response.Write("")
end sub
sub form_back()
Response.Write("")
end sub
%>