<% [b]if isArray(myArray) then[/b]
For i = 0 To Ubound(myArray,2) %>
<td> <% response.write myArray(0,i)%>
</td><td><% response.write myArray(1,i)%>
</td><td><% response.write myArray2(0,i)%>
</td><td><% response.write myArray2(1,i)%>
</td></tr>
<% next
[b]else
' skriv ut tomt i stället
end if[/b]
Trådstart#1
Med risk för lite dubbelpost.. men frågan är annorlunda.
Jag har denna funktion som "loopar" ut fakta ur en db.
Jag vill kombinera den med en liknande sats som hämtar fg. års siffror och sen sätta in dom i en htmltabell.
Mitt problem ligger i hur gör jag för att matcha veckorna?
Om jag har valt v 1-10 år -99 och samma period fg år kommer inte raderna att matcha OM det saknas data fg år, jag önskar få in ett tomrum i så fall. Hur göra?
Detta hämtar ett års siffror:
<%
Set cADO = Server.Createobject("ADODB.Connection")
Set rADO = Server.Createobject("ADODB.Recordset")
sDSN = "databasXL"
cADO.Open sDSN
sSQL = "select Mid(VECKA, 6,2), SUM(BELOPP) from kundtabell where VECKA >= '1999-01' and VECKA <= '1999-15' and kundtabell.KNDNR = '100' Group by VECKA"
Set rADO = cADO.Execute(sSQL)
If Not rADO.EOF Then
myArray = rADO.GetRows()
End If
%>
Här hämtar jag fg års siffror: (hur smart det nu är att göra på detta sätt?)
<%
sSQL = "select Mid(VECKA, 6,2), SUM(BELOPP) from kundtabell where VECKA >= '1998-01' and VECKA <= '1998-15' and kundtabell.KNDNR = '100' Group by VECKA"
Set rADO = cADO.Execute(sSQL)
If Not rADO.EOF Then
myArray2 = rADO.GetRows()
End If
%>
Här skrivs det hela ut, det är här det inte fungerar:
<table border = "1">
<tr><td> Veckonr: </td><td> Belopp i år</td><td> Veckonr fg år: </td><td> Belopp fg år</td></tr>
<% For i = 0 To Ubound(myArray,2) %>
<td> <% response.write myArray(0,i)%>
</td><td><% response.write myArray(1,i)%>
</td><td><% response.write myArray2(0,i)%>
</td><td><% response.write myArray2(1,i)%>
</td></tr>
<% next
cADO.Close %>