Problema con funciones

[th3r0rn]

Hola, tengo el siguiente codigo: http://pastebin.com/42ZqwWc6
y como se ve hago muchas conexiones y para todos los como se ve en la linea 144 hago una comprobasion de si existen datos en la db que cierre la conexion y ejecute una nueva consulta, lo que quiero hacer es evitar tener que pegar todo ese code de nuevo en el IF y pretendo reutilizar codigo, para eso quiero hacer una funcion que solo concatene en registros.fields el nombre del objeto de conexion. es decir:

Código ASP:

<&#37;
Function total(line)
response.write("<td>"&registros&line.fields("linea")&"</td>")
        response.write("<td>"&registros&line.fields("peso")&"</td>")
        response.write("<td>"&registros&line.fields("target")&"</td>")
        response.write("<td>"&registros&line.fields("marca")&"</td>")
        response.write("<td>"&registros&line.fields("vaso")&"</td>")
        'response.write("<td>"&registros&line.fields("fecha")&"</td>")
        response.write("<td>"&fechahoy&" "&hora&":"&minuto&"</td>") 
        response.write("<td><h3>"&registros&line.fields("totality")&"</h3></td>")
end Function
response.write("" & total("15s"))
%>
 

con esto pretendo integrarlo a todas las conexiones y solo pasarle por parametro el dato que identifica ers decir
registros16s.fields
reguistros15s.fields
etc... asi al ejecutarlio en cada conexion solo paso el paametro y me ahorraria mucho codigo pero me da error Object required: 'line'

[u_goldman]

Hola,

Tienes varios problemas fundamentales, pero al que se refiere este error es que tu función espera un objeto recordset, pero le estás pasando ¿un campo? total("15s"), creo que deberías pasarle el recordset llamado total.

Saludos

[th3r0rn]

Hola amigo, creo que ya lo resolvi, hice un procedimiento para esto:

Código ASP:

Sub Datos(dat1)
 
response.write("<tr>")
        response.write("<td>"&registros&dat1.fields("linea")&"</td>")
        response.write("<td>"&registrosdat1.fields("peso")&"</td>")
        response.write("<td>"&registrosdat1.fields("target")&"</td>")
        response.write("<td>"&registrosdat1.fields("marca")&"</td>")
        response.write("<td>"&registrosdat1.fields("vaso")&"</td>")
        'response.write("<td>"&registros6n.fields("fecha")&"</td>")
        response.write("<td>"&fechahoy&" "&hora&":"&minuto&"</td>") 
        response.write("<td><h3>"&registrosdat1.fields("totality")&"</h3></td>")
 
End Sub
Datos("15n")
%>
 

Ahora lo que quiero hacer es pasar mas de un parametro, ambos cadenas, pero al poner:
Datos("15n","AVG1") me da error, esto lo quiero hacer por que el code era asi:

Código ASP:

'response.write("<tr>")
        'response.write("<td>"&registros15n.fields("linea")&"</td>")
        'response.write("<td>"&registros15n.fields("peso")&"</td>")
        'response.write("<td>"&registros15n.fields("target")&"</td>")
        'response.write("<td>"&registros15n.fields("marca")&"</td>")
        'response.write("<td>"&registros15n.fields("vaso")&"</td>")
        '''response.write("<td>"&registros6n.fields("fecha")&"</td>")
        'response.write("<td>"&fechahoy&" "&hora&":"&minuto&"</td>") 
        'response.write("<td><h3>"&registros15n.fields("totality")&"</h3></td>")
        Datos("15n")
        response.write("<td>"&registrosAVG15n.fields("promedio")&"</td>")
        Calculos 'Llamamos al Procedimiento
        response.write("</tr>")
 

En la linea 11 de este ultimo code tengo que imprimir un dato de otra consulta y por eso quiero pasar ahi el parametro, sabe usted como puedo hacer esto?