Sortering virker nolge gange ikke!
Jeg har nedenstående aspside som udskriver noget data til en flash side! Problemet er dog at ca. 3 ud af 10 brugere får forkerte oplysninger oplyst! hvad kan der gå galt????Oplysningerne bliver mixet op, div. f.eks. firmanavn passer ikke med adressen og så videre!
Jeg fatter det ikke!
--------------------------------------
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
' variabler
dim navn, gade, postnr, by, tlf, web, x, y, dsn
' ADODB connection objektet
set conn = server.CreateObject("ADODB.Connection")
' sti til databasen
dsn = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=d:\home\ducaldenmarkcom\db\ducaldesign.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 isEmpty(navn) then
if not isEmpty(rs("FX")) and rs("FX")>0 and not isEmpty(rs("FY")) and rs("FY")>0 then
navn = rs("Ffirmanavn")
gade = rs("Fadresse")
postnr = rs("Fpostnr")
by = rs("Fby")
tlf = rs("Ftelefon")
web = rs("Fweb")
x = rs("FX")
y = rs("FY")
end if
else
if not isEmpty(rs("FX")) and rs("FX")>0 and not isEmpty(rs("FY")) and rs("FY")>0 then
navn = navn & "*" & rs("Ffirmanavn")
gade = gade & "*" & rs("Fadresse")
postnr = postnr & "*" & rs("Fpostnr")
by = by & "*" & rs("Fby")
tlf = tlf & "*" & rs("Ftelefon")
web = web & "*" & rs("Fweb")
x = x & "*" & rs("FX")
y = y & "*" & rs("FY")
end if
end if
' 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
navn = replace(navn, "&", "&")
' udskriv til flash
response.write "&navn=" & Server.URLEncode(navn) & "&gade=" & gade & "&postnr=" & postnr & "&by=" & by & "&tlf=" & tlf & "&web=" & web & "&x=" & x & "&y=" & y
%>
