desværre hjælper det ikke på situationen at skrive container.kvota istedet. ASP koden synes at virke udemærket, men flash vil bare ikke give det rigtige billede.
når jeg prøver at trace det ud, får jeg dette præcist:
myFunction()false
</td>
</tr>
</table>
</body>
</html>
Som du kan se får jeg en værdi ud (true eller false), men billedet synes ikke at ændre sig som det skal.
Måske skal jeg vise dig alt koden:
ASP:
<%@Language=VBScript%>
<%Option Explicit%>
<%
Dim myConnection
Set myConnection=Server.CreateObject("ADODB.Connection")
myConnection.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=" & Server.MapPath("../database/jn.mdb")
myConnection.Open
Dim loginSQL
LoginSQL = "SELECT * FROM hylde"
Dim myRS
Set myRS=Server.CreateObject("ADODB.Recordset")
myRS.Open loginSQL, myConnection
dim displayPictureRed, displayPictureGreen
displayPictureRed = "<img src='../Pictures/red_display.gif' height='15' width='15'>"
displayPictureGreen = "<img src='../Pictures/green_display.gif' height='15' width='15' align='center'>"
dim db, pomfrit, mainMessage
set db = myConnection.execute("SELECT SUM(kilo) AS Total FROM hylde WHERE info = 'pomfrit'")
pomfrit = db("Total")
%>
<html>
<body>
<table border="1">
<tr>
<td height="50"width="100">Pomfritter</td>
<td height="50" width="100"><%=pomfrit & " " & "kilo"%></td>
<td height="50" width="50">
<%
if pomfrit <= 500 then
response.write displayPictureRed
mainMessage = "&kvota=false"
else
response.write displayPictureGreen
mainMessage = "&kvota=true"
end if
Response.Write(mainMessage)
%>
</td>
</tr>
</table>
</body>
</html>
AS koden:
red._visible = false;
green._visible = false;
function myFunction() {
trace("myFunction()"+ container.kvota);
if(container.kvota == "true"){
red._visible = true;
}else{
green._visible = true;
}
}
var container:LoadVars = new LoadVars();
container.onLoad = myFunction;
container.load("
http://123ogabc.dk/kvota.asp",container,"POST");
