Ayuda Dll Please

[Andr3s]

He creado mi componente Dll y esta es parte del código:
(Añadi las referencias de Active Server Pages library y Data Objets Recordset)



Private Response As Response

Sub OnStartPage(ContextoPasado As ScriptingContext)


Set miContexto = ContextoPasado

Set Response = miContexto.Response
End Sub

Public Function configuracion() As Recordset

Dim ConnectionString As String
Dim strsql As String
Dim rs As Recordset


ConnectionString = "Driver={SQL Server};Description=Comsultasonline;SERVER=****;UI D=***;PWD=****;DATABASE=****"

' divisas


Set rs = CreateObject("ADODB.Recordset")
strsql = "select * from divisas"
rs.Open strsql, ConnectionString, adOpenForwardOnly

espana = rs("espana")
malemania = rs("alemania")
mfrancia = rs("francia")
mitalia = rs("italia")
mportugal = rs("portugal")
mholanda = rs("holanda")
minglaterra = rs("inglaterra")
musa = rs("usa")

' este bucle solo lo inserto de prueba - NO HACE FALTA solo me pinta un registro

While Not rs.EOF
Response.Write rs("espana")
rs.MoveNext
Wend

Set rs = Nothing

End Function

----------------------------------------
En mi página ASP insertto el siguiente código:

<%
Set zamijemplo = Server.CreateObject("midll.miclass")

cObject.configuracion


%>

Como es lógico en el resultado me el primer registro de la tabla pero mi cuestion es...

¿Como mantengo las variables de la dll activas en la página ASP, por ejemplo el resultado de espana que almaceno en la variable mespana?