请问如何将下列asp代码用vb6.0编译成dll，然后用asp调用cl和clname的值

请问如何将下列asp代码用vb6.0编译成dll，然后用asp调用cl和clname的值。
请大家告诉我这个dll的源代码和asp调用的代码！
谢谢！
<%
Set conn=Server.CreateObject("ADODB.Connection")
conn.open ConnStr
Set Rs=Conn.Execute("shujuku1")
clname=rs("clname")
cl=rs("clb")
set rs=nothingif Request.Cookies("username")<>empty then
no_n=conn.execute("select no_n from [user] where username='"&request.cookies("username")&"'")(0)
end if
%>
请高手帮忙！