FEJL ved udtræk af data!
Hejsa!Jeg har en asp side som smider noget data ud til brug i en flash side! Siden omskriver æøå mm. men på ca. 1 ud af 5 computere virker det ikke! Skal der f.eks. stå
samøe samsøe skriver den på nogle sams sams!!!
Hvad kan der gå galt og, hvad kan der gøres for at få det rettet?????
script........................
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
' variabler
dim str, url, x, y, dsn
' ADODB connection objektet
set conn = server.CreateObject("ADODB.Connection")
' sti til databasen
dsn = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=d:\home\db\database.mdb"
' åben databaseforbindelsen
conn.open dsn
' opbyg og udfør SQL forespørgsel
set rs = conn.execute("SELECT * FROM forhandlere WHERE Tsprog = 'dansk' ORDER BY Ffirmanavn")
' gennemløb recordset (rs)
do
if not isEmpty(str) then
str = str & "*"
x = x & "*"
y = y & "*"
end if
str = str & "<font face='standard_bold' size='8' color='#333333'>" & UCase(rs("Ffirmanavn")) & "</font>"
str = str & "<font face='standard' size='8' color='#666666'><br>" & rs("Fadresse")
str = str & "<br>" & rs("Fpostnr") & " " & rs("Fby")
str = str & "<br>Tlf: " & rs("Ftelefon") & "</font>"
url = rs("Fweb")
if len(url) <> 0 and not url = "xxx" then
str = str & "<br><font face='standard' size='8' color='#666666'>Web: </font>"
str = str & "<font face='standard' size='8' color='#7a7452'>"
str = str & "<a href='http://" & Lcase(url) & "/' target='_blank'><u>" & Lcase(url) & "</u></a>"
str = str & "</font>"
end if
x = x & rs("FX")
y = y & rs("FY")
' gå til næste record i rs
rs.MoveNext
' fortsæt indtil rs er gennemløbet (EOF = End Of File)
loop while not rs.EOF
' luk databaseforbindelse
conn.close
set Conn = nothing
' fjern dobbelt linieskift
str = replace(str, "&", "&")
' udskriv til flash
response.write "&str=" & Server.URLEncode(str)
'response.write "&str=" & str
response.write "&x=" & x & "&y=" & y
%>
