I think that you need to insert a written "code view" that allows you to create the same XML file and also updated directly without clicking. This is my current code:
Code:
<% @ Language = "VBScript"%>
<META Http-equiv="Content-Type" content="text/html; charset=UTF-8">
<? Xml version = "1.0" encoding = "UTF-8"?>
<%
'NUMBER RESULTS
Dim rs, rs1, rs2, strSQL
StrConection = "DRIVER = {Microsoft Access Driver (*. mdb)}; DBQ =" & _
Server.MapPath ("/ public") & "\ databaseimm.mdb"
Set Con = Server.CreateObject ("ADODB.Conection")
Con.Open StrConection
strSQL = "SELECT pub .* imm.agency, imm.tipmobile, imm.uso, imm.common, imm.price, imm.mq, imm.tipoperation FROM advertising pub inner join property on imm imm.codiceimmobile = pub.codiceimmobile WHERE pub.magazineadvertising = 'CASAIT' "
Set rs = Server.CreateObject ("ADODB.Recordset")
rs.CursorLocation = 3
rs.Open strSQL, Con, 1,1
source = Server.MapPath ("/ public / file.xml)
September rs1 = CreateObject ("Scripting.FileSystemObject")
rs1.CreateTextFile (source)
Response.Write "Writing successful. <a href=""/public/file.xml""> View </ a>"
%>
<XMP>
<thumbnails>
<%
While Not rs.EOF
%>
<Thumbnail filename ="<%= rs ("codiceimmobile ")%>" /> </ thumbnail>
<% Rs.MoveNext: Wend%>
</ Thumbnails>
</ XMP>
<%
Sub PrintFoto (ByVal sCodiceimmobile)
Dim oCon1
Dim oCon2
Dim oRS1
Dim oRS2
September oCon1 = Server.CreateObject ("ADODB.Conection")
September oCon2 = Server.CreateObject ("ADODB.Conection")
September oRS1 = Server.CreateObject ("ADODB.Recordset")
September oRS2 = Server.CreateObject ("ADODB.Recordset")
oCon1.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & Server.MapPath ("../ public / databaseimm.mdb ") &" Mode = ReadWrite "
oCon2.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & Server.MapPath ("../ public / databaseimm.mdb ") &" Mode = ReadWrite "
September oRS1 oCon1.Execute = ("select Top 10 Index from fotocasait WHERE CodiceImmobile =" & & sCodiceimmobile "and Post <> 0 ORDER BY Index")
While Not oRS1.Eof
September oRS2 oCon2.Execute = ("select Picture" & oRS1 ("Index") & "WHERE CodiceImmobile As Photos from property =" & sCodiceimmobile)
Response.Write "<advertismentimage path=""http://www.mediacasaitalia.it/public/" & oRS2("Foto") & """ imagetype=""Image"" /> <br>
oRS2.Close
oRS1.MoveNext
Wend
oRS1.Close
oCon1.Close
oCon2.Close
September oRS1 = Nothing
September oRS2 = Nothing
September oCon1 = Nothing
September oCon2 = Nothing
End Sub
%>
<%
rs.close
Set rs = nothing
%>
Bookmarks