stkol76 Praktikant
18. september 2018 - 11:14 Der er 7 kommentarer

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 :-)
claes57 Ekspert
18. september 2018 - 12:46 #1
While Not objRobot.EOF
skal nok flyttes efter de to Server.CreateObject("Scripting.Dictionary")
stkol76 Praktikant
18. september 2018 - 13:10 #2
Hej Claes,

Jeg vil tro det måske løste noget af det, dog kommer den nu med en fejl som indikerer at den prøver at lave dobbelt key, hvilket jo ikke burde kunne lade sig gøre da både "id" og "machine_name" er unikke .. fejlen jeg får er:

"This key is already associated with an element of this collection"
claes57 Ekspert
18. september 2018 - 13:25 #3
Du må dumpe et print med id og maskinnavn i stedet for opdateringen, og se, om der er forskel for at spore den...
stkol76 Praktikant
18. september 2018 - 13:37 #4
Print Output er :

1, RPABOT01
2, RPABOT02

Altså er de unikke
claes57 Ekspert
18. september 2018 - 14:09 #5
det kan jeg ikke gennemskue - kan det laves i array i stedet?
stkol76 Praktikant
18. september 2018 - 14:48 #6
Jeg har lige prøvet at lave det om til et Array, men det kan jeg heller ikke rigtigt få til at spille ;-(
Bjarne S. Nielsen Juniormester
04. juni 2019 - 14:50 #7
Har du prøvet :

var=objRecordset.RecordCount
Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links

Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester





Computerworld
Bitcoinen nåede lige at kulminere igen – men så kom krakket
Der blev sat en ny rekord for bitcoinens værdi i år – men godt 24 timer efter blev der høvlet næsten 20.000 kroner af den.
CIO
Podcast: Her er seks gode råd om ledelse og digitalisering fra danske top-CIO'er
The Digital Edge: Vi har talt med 17 af Danmarks dygtigste digitale ledere - og samlet deres seks bedste råd om digitalisering og ledelse. Få alle rådene på 26 minutter i denne episode af podcasten The Digital Edge.
Job & Karriere
Se Waoos forklaring: Derfor har selskabet fyret topchef Jørgen Stensgaard med omgående virkning
Waaos bestyrelse opsiger fiberselskabets topchef, Jørgen Stensgaard, der fratræder med omgående virkning. Se hele forklaringen fra Waao her.
White paper
Optimér produktiviteten og lad din printer følge med ud i skyen
De fleste virksomheder investerer betydelige beløb i den digitale transformationsproces, men skriver alligevel dokumenter ud som aldrig før, og medarbejdere opfatter decideret print som en forudsætning for at kunne arbejde effektivt. Alligevel er virksomhedens printstruktur ofte et systemmæssigt stedbarn, der er sammenstykket af mange forskellige enheder og platforme – hvilket skaber forvirring og betydeligt tidsspilde. Print passer heller helt ind i hverken den eksisterende digitale infrastruktur eller i den cloudbaserede infrastruktur, virksomheden sigter mod. Det udfordrer både sikkerhed, produktivitet og digital strategi som hele. I denne hvidbog kan du læse om udfordringerne og om, hvordan du håndterer dem mest effektivt som et led i den digitale transformationsproces.