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

[Joch_pa]

no sera que tus clases están mal hechas?

No seria mejor:

Código ASP:

class Consultas
 
         function conecta()
                  dim puntero
                  Set puntero = Server.CreateObject("ADODB.Connection")
                  DSNtest="DRIVER={SQL Server};SERVER=MAINSERVER;UID=sa;PWD=12345;DATABAS E=muniprueba"
                  on error resume next
                  puntero.open DSNtest
                  if err then
                           conecta = Nothing
                           err.clear
                  else
                           conecta = puntero
                  end if
         end function
 
         public function ejecuta_sql (query)
                  dim rs
                  set rs = createboject("ADODB.Recordset")
                  on error resume next
                  rs.open query , conecta
                  if err then
                           ejecuta_sql= 0
                  else
                           ejecuta_sql= 1
                  end if
         end function
end class
 

Recuerda que las funciones deberían regresar un valor en el mayor numero de casos, si no regresarán nada, deberían ser SUB (subprocedimientos) en lugar de Function