[vbs]probleem met Readline

[coldasice]

code:

Const ForReading = 1, ForWriting = 2, ForAppending = 8
   Dim fso, f,ReadLine,ReadlineTextFile
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("\\dka04\install$\Logon\software.txt", ForReading, True)
   
   While f.AtEndOfStream <> true

    ReadLineTextFile = f.ReadLine
    msgBox ReadLineTextFile,64,"test"
    MyComp = StrComp(ReadLineTextFile,Naam(1),1)
   
    if MyComp = 0 then
        MsgBox ReadLineTextFile,64,"test"
    else    
    InsertQuery =   "INSERT INTO ComputerSoftwareList (Computer,Naam,Versie) VALUES ('"& _
             ComputerName & "','" & Naam(1) &"','" & Naam(2) & "')"
    DB.Execute InsertQuery
    end if
    
   Wend
    
    f.Close

HEt probleem is dat hij 2 keer goed uit de file leest en dan met een rare foutmelding komt:

de index opnieuw. veld of de velden die dubbele gegevens bevatten of
definieer

Kan iemand me hier mee helpen?

[ Voor 11% gewijzigd door coldasice op 29-08-2003 11:24 ]

[Verwijderd]

Hoe zien die regels van de tekst file eruit waardoor die fout gegeven wordt? En als je de waarde op het scherm plaats die je nu in de query stop schrijft naar het scherm dan gaatie wel goed? Je moet sowieso een " plaatsen in de query voor computerName...

[ Voor 3% gewijzigd door Verwijderd op 29-08-2003 11:28 ]

[mulder]

Waarom definieer je die ReadLine ?

[coldasice]

Ik heb ff zitten rotzooien met het aanroep script en nu krijg ik de hele foutmelding op mijn scherm en het blijkt een database error te zijn....het had dus niks te maken met mijn readline waaraan ik eerste dacht. Bedankt voor jullie moeite.

Schijnbaar komen er dubbele waarde in de database te staan....