
<%
sub rsfromtype
set rsfrom=server.CreateObject("adodb.recordset")
rsrsfrom.activeconnection=conn
rsfrom.cursortype=3
sql="select * from fromtype"
rsfrom.open sql
end sub

sub rswriter
set rsw=server.CreateObject("adodb.recordset")
rsw.activeconnection=conn
rsw.cursortype=3
sql="select * from writer"
rsw.open sql
end sub

sub rsinfortype
set rsit=server.CreateObject("adodb.recordset")
rsit.activeconnection=conn
rsit.cursortype=3
sql="select * from writer"
rsit.open sql
end sub
%>
