retornar puntero de conexion

[cesand209]

hola gente como estan son nuevo en el foro al igual que con ASP;

TENGO UNA CONSULTA A VER SI ME PUEDEN DAR UNA MANO..

estoy tratado de hacer un insert a una tabla en sql server 2000, para estoestoy creando dos clases:

la conexion..

class Conn

dim puntero
function conecta()

Set puntero = Server.CreateObject("ADODB.Connection")
DSNtest="DRIVER={SQL Server};SERVER=MAINSERVER;UID=sa;PWD=12345;DATABAS E=muniprueba"
puntero.open DSNtest


end function

end class


y la clase con la que quiero interactuar para hacer la query

class Consultas


public function ejecuta_sql(query, puntero)

puntero.Execute(query)

end function



end class


entonces al instanciar las clases quiero hacer algo asi:

set objConn = new Conn
set objQuery = new Consultas


objQuery.ejecucuta_sql "insert into vehiculos(modelo, dni) values('Corola', '3265985')", objConn.conecta

espero se entienda lo que busco, por favor si me pueden dar una mano les agradezco.

el error que me tira es este al ejecutar;

Microsoft VBScript runtime error '800a01a8'

Object required: 'puntero'

/otro/class/class.asp, l�a 26