ASP Count Property giver forkert output
Hej,Jeg forsøger at lave et count med ASP Classic Count Property ved hjælp af nedenstående kode, men selv om "o.Add" skal returnere værdien 2 i mit setup, returnerer den kun 1. .. for så vidt angår "f.Add " returnerer denne 0, som for øjeblikket er rigtigt, men i det at "o.Add" kun returnerer 1 er jeg sikker på at hvis begge servere går offline, ville det også kun returnere 1 og ikke 2. .. koden jeg bruger er: (Skal lige siges at "IsWebsiteUp" funktionen defineres i et scrip uden for nedenstående)
<%
Dim robConn, rSQL, objRobot, strWebsite, o, f
Set robConn = Server.CreateObject("ADODB.Connection")
robConn.ConnectionString="Provider=SQLOLEDB; DATA SOURCE=<SQLSERVER>;UID=<USERNAME>;PWD=<PASSWORD>;DATABASE=<DATABASE>"
robConn.Open
rSQL = "SELECT id, name, bot_type_id, machine_name, enabled FROM dbo.robots ORDER BY id;"
Set objRobot = robConn.Execute(rSQL)
While Not objRobot.EOF
set o=Server.CreateObject("Scripting.Dictionary")
set f=Server.CreateObject("Scripting.Dictionary")
strWebsite = objRobot("machine_name") & ".koncern.net"
if IsWebsiteUp( strWebsite ) Then
o.Add objRobot("id"), objRobot("machine_name")
Else
f.Add objRobot("id"), objRobot("machine_name")
End If
objRobot.MoveNext
Wend
objRobot.Close
Set objRobot = Nothing
%>
<% Response.Write("Online: " & o.Count) %>
<br>
<% Response.Write("Offline: " & f.Count) %>
<%
set o=nothing
set f=nothing
%>
Er der en der kan gennemskue hvorfor ovenstående ikke giver korrekt output?
Mvh
Stig :-)