Error al crear XML en Win 2003 server

[Fabu_dina]

El error que me sale es el siguiente

xml parsing error not well-formed

Como lo solucionaria??

en xp en iss no me da problema el problema es al pasarlo al server win 2003

[Adler]

Hola

Al ser ya viernes, he gastado todo crédito de videncias que tengo para la semana. Lo siento, unas horas antes y .....

[u_goldman]

Iniciado por Adler

Hola

Al ser ya viernes, he gastado todo crédito de videncias que tengo para la semana. Lo siento, unas horas antes y .....

Exacto, lo mas facil para empezar es que pongas la salida de dicho XML, el error es claro, esta mal formado.

Saludos

[Fabu_dina]

les pongo el codigo

Código:

<%
Response.ContentType = "application/xhtml+xml"
Response.Charset = "utf-8"

page	 	= CInt(Request("page"))
rp			= CInt(Request("rows"))
sortname	= Request("sidx")
sortorder	= Request("sord")

if sortname = "" then
	sortname = "cliente_id"
end if	
if sortorder = "" then
	sortorder = "asc"
end if	

order 		= "Order By "&sortname&" "&sortorder&"" 

if page = "" then
	page = 2
end if	
if rp = 0 then
	rp = 10
end if	

strStart = (rp*page) -rp
strStart = (page -1) * rp

If (strStart < 0) Then
	strStart = 0
End If

limit ="Limit "&strStart&","&cdbl(rp)&""

strSearchOn	= Request("_search")
If (strSearchOn = "true") Then
strField	= Request("searchField")
	If (strField = "cliente_id" Or "cliente_nombre" Or strField = "cliente_telefono") Then
		strFieldData	= Request("searchString")
		strSearchOper	= Request("searchOper")
		'construct where
		strWhere =  " where " & trField

		Select Case strSearchOper
		Case "bw" : 'Begin With
			strFieldData = strFieldData & "%"
			strWhere = strWhere & " LIKE '" & strFieldData & "'"
		Case "eq" : 'Equal
			If(IsNumeric(strFieldData)) Then
					strWhere = strWhere & " = " & strFieldData
			Else
					strWhere = strWhere & " = '" & strFieldData & "'"
			End If
		Case "ne": 'Not Equal
				If(IsNumeric(strFieldData)) Then
					strWhere = strWhere & " <> " & strFieldData
				Else
					strWhere = strWhere & " <> '"& strFieldData &"'"
				End If
		Case "lt": 'Less Than
				If(IsNumeric(strFieldData)) Then
					strWhere = strWhere & " < " & strFieldData
				Else
					strWhere = strWhere & " < '"& strFieldData &"'"
				End If
		Case "le": 'Less Or Equal
				If(IsNumeric(strFieldData)) Then
					strWhere = strWhere & " <= " & strFieldData
				Else
					strWhere = strWhere & " <= '"& strFieldData &"'"
				End If
		Case "gt": 'Greater Than
				If(IsNumeric(strFieldData)) Then
					strWhere = strWhere & " > " & strFieldData
				Else
					strWhere = strWhere & " > '"& strFieldData &"'"
				End If
		Case "ge": 'Greater Or Equal
				If(IsNumeric(strFieldData)) Then
					strWhere = strWhere & " >= " & strFieldData
				Else
					strWhere = strWhere & " >= '"& strFieldData &"'"
				End If
		Case "ew" : 'End With
			strWhere = strWhere & " LIKE '%" & strFieldData & "'"
		Case "cn" : 'Contains
			strWhere = strWhere & " LIKE '%" & strFieldData & "%'"
		End Select
	End if
End If

Set Conn_sql = Server.CreateObject("ADODB.Connection")
Conn_sql.Open ConString_intranet
set rs_info = server.CreateObject("ADODB.Recordset")

sql = "Select * From cliente "&strWhere&" "&order&" "&limit&" "
Set rs		= Conn_SQL.Execute(sql)

'$total = countRec("iso","country $where");
sql_total = "Select count(cliente_id) as total From cliente "&strWhere
Set rs_total		= Conn_SQL.Execute(sql_total)


if ( cdbl(rs_total("total")) mod cdbl(rp) ) > 0 then
	total_paginas = cint(( cdbl(rs_total("total")) / cdbl(rp) )) +1
else
	total_paginas = ( cdbl(rs_total("total")) / cdbl(rp) )
end if



Response.Write ("<?xml version='1.0' encoding='iso-8859-1'?>")
Response.Write ("<rows>")
Response.Write ("<page>"&cdbl(Page)&"</page>")
Response.Write ("<total>"&cdbl(total_paginas)&"</total>")
Response.Write ("<records>"&cdbl(rs_total("total"))&"</records>")
if Not rs.Eof then
rs.MoveFirst
Do While Not rs.Eof

Response.contenttype = "text/xml"
Response.Write "<row id='"&rs("cliente_id")&"'>"
Response.Write "<cell>"&rs("cliente_id")&"</cell>"
Response.Write "<cell><![CDATA["&rs("cliente_nombre")&"]]></cell>"
Response.Write "<cell><![CDATA["&rs("cliente_telefono")&"]]></cell>"

Response.Write "</row>"

rs.MoveNext
Loop
end if

Response.Write "</rows>"


%>

EN MI MAQUINA EN LOCALHOST NO ME DA PROBLEMA TENGO XP Y EN EL SERVER SI ME MARCA EL ERROR

[Adler]

Hola

Como Response.ContentType="text/xml" es el header, ponlo al principio de todo

Suerte

[u_goldman]

EN MI MAQUINA EN LOCALHOST NO ME DA PROBLEMA TENGO XP Y EN EL SERVER SI ME MARCA EL ERROR

Aparte de lo que te recomienda Adler tienes que ver la salida de tu XML, si te funciona en local y no en producción quiere decir que quizás algún dato esté rompiendo tu XML.


Saludos

[Fabu_dina]

no porque subi la informacion a la DB igualita no hay ninguna diferencia en datos he estado viendo en internet y no encuentro mucha informacion. Espero me puedas ayudar

Saludos

[u_goldman]

Pero tienes la salida del XML?
No lo devuelvas como XML, devuelvelo como HTML y copia y pega la porcion del XML, ahi tiene que salir el problema.

[Fabu_dina]

lo que pasa es que teng que crear el XML porque uso esto para un jqgrid y lo que me mencionas desconosco como hacerlo

[Adler]

Hola

Quita estas dos etiquetas

Response.Write ("<?xml version='1.0' encoding='iso-8859-1'?>")
Response.contenttype = "text/xml"

Suerte

[Fabu_dina]

ya probe todo y aun no me funciona

de hecho ya puse un archivo para solo hacer el listadod e una tabla y ahora resulta que el problema es la conexion

en mysql query brower me puedo conectar perfectamente a la DB en el puerto 3308

pero en el archivo no asp no lo puedo hacer me dice un error de conexion


Provider is not especified and there is no designated default provider

[Adler]

Hola

¿Tu XP es de 64x?

Suerte

[Fabu_dina]

no me imagino que por ahi puede estar