Lo prometido es deuda, una función que pasandole el sql te devuelve el xml, así de fácil, ademas optimizado mega rápido!!! fium fium
function printtableXml(sql)’se le pasa un string sql, e devuelve en
Response.ContentType = “text/xml”
dim rs,i,j,tabla,campos
set rs = openRS (“”, sql)
response.write “”
if not rs.eof then
redim campos(rs.fields.Count – 1)
for i = 0 to rs.fields.Count – 1
campos(i)=rs.fields(i).name
next
tabla=rs.getrows
i=0:j=0
for I = 0 to UBound(Tabla,2)
response.write ”
for J = 0 to Ubound(Tabla, 1)’Imprimo una celda para
cada campo
Response.Write campos(j) & “=”"” & Tabla(J, I) & “”" ”
next
response.write “/>”
next
end if
response.write “”
closeRS(rs)
end function
Recomendados:
- Wordpress como CMS
- Flash que pasa la validación del w3c
- Meta keywords ASP
- Agregando efectos a imagenes con JavaScript
- Nombres de las Variables
