ASP til flash mangler æøå
Hejsa eksperter!Jeg har et script som udskriver noget data til en flash side! Problemet er dog at æ, ø, å, é tegn ikke bliver vist på siden.
Det underlige er dog at på nogle computere virker det men på andre ikke! ??? Hvad kan der gå galt og hvad kan der ændres?
aspsiden-------------------
<%@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
%>
