Find fejl: asp > flash 5
Hej!Nu prøver jeg at hente nogle forskellige variabler ind i flash. Men den får ikke rigtig noget ind...
flash filen har et action:
loadVariables ("vis.asp", 0);
og nogle forskellige dynamiske tekst felter bl.a: kunstner, helhed, musik, sang
vis.asp ser sådan ud:
<!---#include file="forbind.asp"--->
<%
id = request.querystring("id")
'----------- ALLE FORBINDELSERNE ÅBNES TIL DATABASEN -----
sql = "select * from tblAnmeldelser where Cdid = "&id&""
set rs = forbind.execute(sql)
sql2 = "select * from tblCder where id = "&id&""
set rs2 = forbind.execute(sql2)
if rs.eof then
response.write("ef")
else
'alle rows sammenlagt
sog2 = "select sum(musik) as totMusik from tblAnmeldelser where cdid = "&id&" and not Musik = 0"
set sog2 = forbind.execute(sog2)
'alle rows
mus = "select count(musik) as tMusik from tblAnmeldelser where Cdid = "&id&" and not Musik = 0"
set sog1 = forbind.execute(mus)
'alle rows sammenlagt
sang2 = "select sum(SangTekst) as totSang from tblAnmeldelser where cdid = "&id&" and not Musik = 0"
set sang2 = forbind.execute(sang2)
'alle rows
sang = "select count(SangTekst) as tSang from tblAnmeldelser where Cdid = "&id&" and not Musik = 0"
set sang = forbind.execute(sang)
'alle rows sammenlagt
origi2 = "select sum(Originalitet) as totOrigi from tblAnmeldelser where cdid = "&id&" and not Musik = 0"
set origi2 = forbind.execute(origi2)
'alle rows
origi = "select count(Originalitet) as tOrigi from tblAnmeldelser where Cdid = "&id&" and not Musik = 0"
set origi = forbind.execute(origi)
'alle rows sammenlagt
anbe2 = "select sum(Anbefalelsesvardi) as totanbe from tblAnmeldelser where cdid = "&id&" and not Musik = 0"
set anbe2 = forbind.execute(anbe2)
'alle rows
anbe = "select count(Anbefalelsesvardi) as tanbe from tblAnmeldelser where Cdid = "&id&" and not Musik = 0"
set anbe = forbind.execute(anbe)
'alle rows sammenlagt
hel2 = "select sum(Helhed) as tothel from tblAnmeldelser where cdid = "&id&" and not Musik = 0"
set hel2 = forbind.execute(hel2)
'alle rows
hel = "select count(Helhed) as thel from tblAnmeldelser where Cdid = "&id&" and not Musik = 0"
set hel = forbind.execute(hel)
Musik = sog2("totMusik")/sog1("tMusik")
Sang = sang2("totSang")/sang("tSang")
Originalitet = origi2("totOrigi")/origi("tOrigi")
Anbefal = anbe2("totanbe")/anbe("tanbe")
Helhed = hel2("tothel")/hel("thel")
'---------- round(sog2("totMusik")/sog1("tMusik")* 2, 0)/2
'---------- LUK FORBINDelSER IGEN ---------------
sang2.Close
Set sang2 = nothing
sog2.Close
Set sog2 = nothing
sog1.Close
Set sog1 = nothing
origi2.Close
Set origi2 = nothing
origi.Close
Set origi = nothing
anbe2.Close
Set anbe2 = nothing
anbe.Close
Set anbe = nothing
hel2.Close
Set hel2 = nothing
hel.Close
Set hel = nothing
'------------ FORHOLDSREGLEN M 0 ----------------
if Musik = 0 then
mdivider = 0
else
mdivider = 1
end if
if Sang = 0 then
sdivider = 0
else
sdivider = 1
end if
if Originalitet = 0 then
odivider = 0
else
odivider = 1
end if
if Anbefal = 0 then
Adivider = 0
else
Adivider = 1
end if
if Helhed = 0 then
hdivider = 0
else
hdivider = 1
end if
overall = musik+sang+originalitet+anbefal+helhed
divider = mdivider+sdivider+odivider+adivider+hdivider
album = rs2("Album")
kunstner = rs2("Kunstner")
Genre = rs2("Genre")
Udgivet = rs2("Udgivet")
Originalaar = rs2("OAar")
end if
%>
Det bliver så åbnet i filen "visanmeldelse.asp?id=1". Men flash filen viser ingenting... Og det er noget på id=1, det har vi testet i en asp fil.
HELP!?
