Nu vart det länge sedan jag postade något. Men jag behöver ha hjälp. Jag trixar med ett script som skall generera en XML fil med kartkoordinater som jag vill läsa in i ett google maps script.
Jag plockar ut data från en accessdatabas och plockar ut all data och skapar en XML sträng enligt googlemaps formtering.
Så långt allt väl.
men när jag väl skall spara filen som XML till servern så skriver den en tom fil.. trots att strängen TEXT innehåller data
if not rs44.eof then
text = "<?xml version=""1.0"" encoding=""utf-8""?>" & VbCrlf
text = text & "<markers>" &vbCrlf
do until rs44.eof
text = text & "<marker lat="""&rs44("usr_lat2")&""" lng="""&rs44("usr_lng2")&""" html="""&rs44("usr_html2")&""" label="""&rs44("usr_label2")&""" />" &vbCRlf
'response.write text & vbCrlf
rs44.movenext
loop
text = text & "</markers>"
'##-- So, if no users are found just put an empty xml on it.
else
text="<markers>" &vbCrlf
text=text & "</markers>"
response.write "tomt"
end if
set xmlDoc=Server.CreateObject("Microsoft.XMLDOM")
xmlDoc.async=false
xmlDoc.loadXML(text)
xmlDoc.Save server.mappath("/**/**.xml")
Eller så skriver jag ut markörerna direkt i javascriptet... det blir ju lättare :birp
map = new google.maps.Map(document.getElementById("map_canvas"), myOptions);
<% map1 = 1
sql44 = "select * from tbl_users where usr_map1 = "& map1 &" "
set rs44 = conndb1.execute(sql44)
if not rs44.eof then
text = "<?xml version=""1.0"" encoding=""utf-8""?>" & VbCrlf
text = text & "<markers>" &vbCrlf
do until rs44.eof
if rs44("usr_lat2") = "" then
else
response.write "var marker = add_marker("&rs44("usr_lat2")&", "&rs44("usr_lng2")&","""&rs44("usr_label2")&""","""&rs44("usr_label2")&" - "&rs44("usr_html2")&"""); " &VbCrlf
'"<marker lat="""&rs44("usr_lat2")&""" lng="""&rs44("usr_lng2")&""" html="""&rs44("usr_html2")&""" label="""&rs44("usr_label2")&""" />" &vbCRlf
response.write "marker.setMap(map);" &vbCrlf
end if
rs44.movenext
loop
text = text & "</markers>"
'##-- So, if no users are found just put an empty xml on it.
else
end if %>
}
function add_marker(lat,lng,title,box_html) {
263 ms totalt · 4 externa anrop · v20260731065814-full.6fe65c25
