Problemas con Funcion

[u_goldman]

Se puede trabajar con objetos claro está, no como en .NET porque no estamos programando orientado a objetos, pero claro que puedes crear tus propios objetos...

Código:

Class cliente
  private m_id
  private m_nombre
  private m_direccion

  Public Property Get id()
     id = m_id
  End Property
  Public Property Let id(p_data)
    m_id = p_data
  End Property

  Public Property Get nombre()
     nombre = m_nombre
  End Property
  Public Property Let nombre(p_data)
    m_nombre = p_data
  End Property  

  Public Property Get direccion()
     direccion = m_direccion
  End Property
  Public Property Let direccion(p_data)
    m_direccion = p_data
  End Property

  Public Function GetRec()
    Dim ObjConn
    Dim rs
    Dim param
    Dim cmd
    Dim boolEncontrado
    Dim qry

    Set ObjConn = Server.CreateObject("ADODB.Connection")
    Set rs = Server.CreateObject("ADODB.Recordset")
    Set cmd = Server.CreateObject("ADODB.Command")

    qry = "SELECT nombre, direccion FROM tbl_cliente WHERE id = ? "

    Set param = cmd.CreateParameter("id", adInteger, adParamInput, 4, m_id)
    cmd.Parameters.Append(param)

    ObjConn.Open strConnect
    cmd.ActiveConnection = ObjConn
    cmd.CommandType = adCmdText
    cmd.CommandText = qry

    rs.Open cmd

    if not rs.eof then
      boolEncontrado = true
      m_nombre = rs("nombre")
      m_direccion = rs("direccion")
      rs.Close()
    else
      boolEncontrado = false
    end if

    Set rs = Nothing
    ObjConn.Close
    Set ObjConn = Nothing
    Set cmd = Nothing
    Set param = Nothing

    GetRec = boolEncontrado
  End Function
End Class


valor = 4
Set ObjCliente = new cliente
ObjCliente.id = valor
if ObjCliente.GetRec() then
  Response.Write("Nombre: " & ObjCliente.name & "<br />")
  Response.Write("Direccion: " & ObjCliente.direccion & "<br />")
else
  Response.Write("El cliente no existe")
end if
Set ObjCliente = Nothing

Saludos!