Duda modificacion funcion Ugoldman

[sqa212]

He estado viendo esta funcion que puso Ugoldman en la biblioteca:
<%
Function GetMyMaxId(table, field)
Set rsGetMyMaxId = Server.CreateObject("ADODB.Recordset")
strSQLGetMyMaxId = "SELECT MAX(" & field & ") AS myMax FROM " & table
rsGetMyMaxId.Open strSQLGetMyMaxId, ObjConn, 3, 3
fnctMyMaxId = rsGetMyMaxId("myMax")
If IsNull(fnctMyMaxId) Then
fnctMyMaxId = 0
End If
rsGetMyMaxId.Close
Set rsGetMyMaxId = Nothing
GetMyMaxId = fnctMyMaxId
End Function
%>

Llamada a la función

Cita:
MaxID = GetMyMaxId("tabla", "campo")

¿Como podria modificar la funcion para que me proporcionase en lugar del valormaximo que toma el campo, el autonumerico(clave principal) de la tabla?


GetMyMaxId("autonumerico" ,"tabla", "campo")

[Muzztein]

algo asi ???


<%
Function GetMyMaxId(table, field)
Set rsGetMyMaxId = Server.CreateObject("ADODB.Recordset")

strSQLGetMyMaxId = "SELECT MAX(" & field & ") AS myMax , "& autonumerico &" as PK FROM " & table

rsGetMyMaxId.Open strSQLGetMyMaxId, ObjConn, 3, 3
fnctMyMaxId = rsGetMyMaxId("myMax") & "," & rsGetMyMaxId("PK")


If IsNull(fnctMyMaxId) Then
fnctMyMaxId = false
End If

rsGetMyMaxId.Close
Set rsGetMyMaxId = Nothing
GetMyMaxId = fnctMyMaxId
End Function
%>


y luego la capturas con un split por coma...

or something

[sqa212]

Muzztein gracias por tu ayuda, obtengo este error:
Tipo de error:
ADODB.Recordset (0x800A0BB9)
Argumentos incorrectos, fuera del intervalo permitido o en conflicto con otros.
/webgs/admin/test1.asp, línea 12
¿Puede ser debido a las constantes de la conexion 3,3?
Nota: y luego la capturas con un split por coma...
Esto no lo necesitaria porque lo unico que quiero obtener es el idproducto,
mira que he puesto:
fnctMyMaxId =rsGetMyMaxId("PK")
y no
fnctMyMaxId = rsGetMyMaxId("myMax") & "," & rsGetMyMaxId("PK")


<%
Function GetMyMaxId(autonumerico,table, field)
Set rsGetMyMaxId = Server.CreateObject("ADODB.Recordset")
strSQLGetMyMaxId = "SELECT MAX(" & field & ") AS myMax , "& autonumerico &" as PK FROM " & table
'Response.Write(strSQLGetMyMaxId)
'Response.End()
rsGetMyMaxId.Open strSQLGetMyMaxId, ObjConn, 3, 3
fnctMyMaxId =rsGetMyMaxId("PK")
If IsNull(fnctMyMaxId) Then
fnctMyMaxId = false
End If
rsGetMyMaxId.Close
Set rsGetMyMaxId = Nothing
GetMyMaxId = fnctMyMaxId
End Function
%>
<%=GetMyMaxId("idproducto","productos", "lecturas") %>