ho una pagina che si kiama codice.asp
a video si visualizza un codice XML
è possibile crare una scritta ad inizio pagina SALVA PAGINA IN XML ?
e mi salva la stessa pagina visualizzata come se la copiassi e la incollassi su un txt e la rinominassi xml.........
spero di essermi spiegato correttamente. ...... se avete bisogno che vi posto il codice è questo....
<%@ language="VBScript"%>
<html>
<head>
<title></title>
</head>
<body>
<%
'NUMERO RISULTATI
Dim objRS, strSQL
strSQL = "SELECT pub.*,imm.agenzia,imm.codiceold,imm.tipoimmobile,i mm.uso,imm.comune,imm.prezzo,imm.mq,imm.tipooperaz ione FROM pubblicita pub inner join immobili imm on imm.codiceimmobile=pub.codiceimmobile WHERE pub.testatapubblicita = 'CASAIT'"
Set objrs = Server.CreateObject("ADODB.Recordset")
objrs.cursorlocation = 3
objrs.Open strSQL, cn
%>
<?xml version="1.0"?>
<container xmlns:xsi="http://www.w3.org/2001/XMLSchema XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<realestateitems>
<%
' PAGINAZIONE
Dim boolFound, intPageNum, intNumRows, intCount, intLinks, intPagina
'varmq = Session("mq")
'if trim(varmq) <> "" then
'mqpiu15 =Replace((varmq*(1.25)) ,",", ".")
'mqmen15 =Replace((varmq*(0.75)) ,",", ".")
'end if
'varprezzo = Session("prezzo")
'if trim(varprezzo) <> "" then
'prezzopiu15 =Replace((varprezzo*(1.25)) ,",", ".")
'prezzomen15 =Replace((varprezzo*(0.75)) ,",", ".")
'end if
'strSQL = "SELECT * FROM immobili WHERE " &_
'"tipoimmobile Like '%" & Trim(Session("tipoimmobile")) & "%' AND comune Like '%" & Trim(Session("comune")) & "%' AND quartiere Like '%" & Trim(Session("quartiere")) & "%' AND zona Like '%" & Trim(Session("zona")) & "%' AND uso Like '%" & Trim(Session("uso")) & "%' AND giardino Like '%" & Trim(Session("giardino")) & "%' AND terrazzo Like '%" & Trim(Session("terrazzo")) & "%' AND cameredaletto Like '%" & Trim(Session("cameredaletto")) & "%' AND nuovacostruzione Like '%" & Trim(Session("nuovacostruzione")) & "%' AND username Like '%" & Trim(Session("username")) & "%' AND visione Like '%" & Trim(Session("visione")) & "%' AND statopratica Like '%" & Trim(Session("statopratica")) & "%' AND indirizzo Like '%" & Trim(Session("indirizzo")) & "%' AND cognome Like '%" & Trim(Session("cognome")) & "%'"
'if trim(varmq) <> "" then
'strSQL = strsql & " AND mq <=" & mqpiu15 & " and mq >=" & mqmen15 & " "
'end if
'if trim(varprezzo) <> "" then
'strSQL = strsql & " AND prezzo <=" & prezzopiu15 & " and prezzo >=" & prezzomen15 & " "
'end if
'fp_sQry = fp_sQry &" ORDER BY codiceimmobile ASC"
'Set objrs = Server.CreateObject("ADODB.Recordset")
'objrs.cursorlocation = 3
'objrs.Open strSQL, cn
'*** NUMERO DI RECORDS PER PAGINA ******
Const RECORDSPERPAGE = 10000
'***************************************
objrs.PageSize = RECORDSPERPAGE
If ( Request("pn") <> "" ) Then
intPageNum = CInt(Request("pn"))
Else
intPageNum = 1
End If
'Conteggio delle righe
intNumRows = objrs.RecordCount
If (intNumRows <> 0) Then
objrs.AbsolutePage = intPageNum
'Esposizione dati
For intCount = 1 To objrs.PageSize
%>
<realestate action="0" agencycode="19999"
reference=
""
contracttype=""
condition="-1" hasbalcony="false" hasterrace="false" heatingtype="-1"
housetypology=""
bathrooms="-1" floor="-2" rooms="-1" occupationstate="-1"
realestatetype=
""
size="0"
>
<address
city=""
zone="" street="" number="" zip="" />
<description value=
"<%=objrs("testopubblicita")%>" />
<building age="0" expenses="0" units="0" totalfloors="0" haslift="false" />
<
price value="0" max="<%=objrs("prezzo")%>" min="<%=objrs("prezzo")%>" />
<box size="0" type="0" />
<garden size="0" type="0" />
<configuration isaddressvisibleonsite="false" ismapvisible="false" isrealestatevisibleonmap="false" />
<googlemapcoordinate latitude="0" longitude="0" mapzoom="0" latitudemapcenter="0" longitudemapcenter="0" />
<images>
<%PrintFoto(objrs("codiceimmobile"))%>
</images>
</realestate>
<%
objrs.MoveNext
If ( objrs.EOF ) Then Exit For
Next
End If
%>
</realestateitems>
</container>
</p>
</body>
</html>
Rispondi quotando