Un nuevo método para sumar a un objeto recordset, es la capacidad de guardar recordsets dentro del formato XML.
La Función RecordsetToXML
El primer item es una variable global
<%
Dim iLevel
Lo que sigue es la daclaración de la función (toma 2 argumentos). El primero es recordset a convertir y el segundo es el nombre que se la dará a la colección XML.
Function RecordsetToXML (oRec, sName)
Dim oFld
Dim sXML
Dim sSpaces
Dim nNames
sSpaces = Spaces (iLevel * 2)
Checkear cuando el nombre pasado es plural o no
If Right (sName, 1) = "s" Then
sNames = sName
sName = Left(sName, Len(sName) -1)
Else
sNames = sName & "s"
End If
Ahora hay que desarrollar el string XML
sXML = sSpaces & "<" & sNames & "<" & vbCR
Listos para el primer recordset
iLevel = iLevel + 1
sSpaces = Space (iLevel * 2)
Recorrer el recordset
oRec.MoveFirst
While Not oRec.EOF
Ahora estamos dentro de un record, y sumamos el tag al string XML
For Each oFld In oRec.Fields
Si este campo es un recordset, llamar a la función RecordsetToXml nuevamente
If oFld.Type = adChapter Then
Set oChapter = oFld.Value
If Not oChapter.EOF Then
iLevel = iLevel + 1
sXML = sXML & RecordsetToXML (oChapter, oFld.Name)
iLevel = iLevel -1
End If
Continúa en la página siguiente
Usuarios que han visto este tema también han visto...
- Usuarios activos en web con ASP
- Depurar las páginas ASP
- Cómo vaciar un array
- Interactuar con secuencias de comandos del cliente
- Crear base de datos Acces con ASP
- Versión imprimible de este documento
- Enviar por e-mail este documento
Información legal | Política de Privacidad | Contacte con nosotros
Otro proyecto de Factoría de Internet. Copyright© 2003-2008 Factoría de Internet S.L.. Todos los derechos reservados.