Vista - Database access...

Hello,

Im really at a loss... I am tying to query a database and output the
result to either the screen or a log file... When I execute it it just hangs
.... There are only 4 records in the database... the script works when i
update the data, retrieve selected data and add new data but no go to this....

Any help woul dbe great... Thanks,

Ernst.

strSQL = "SELECT tblImages.ImageTag, tblImages.ImageCount,
tblImages.ImageCreateDate," _
& " tblImages.ImageLastDate FROM tblImages);"

Set rs = conn.Execute(strSQL)
If bLog Then
Do until rs.EOF
'Process the current record
strLogData = strScriptName & " :" & Date & " :Tag Data : Tag:"
& strTag _
& " Count: " & rs("ImageCount") & "
Created: " & rs("ImageCreateDate") _
& " Last Accessed Date: " & rs("ImageLastDate") &
strNext
' Open the file for write access.
Set objFile = objFSO.OpenTextFile(strLogFile,
ForAppend, CreateIfNotExist)

' Write to the file.
objFile.Write strLogData

rs.movenext
Loop

Else
Do until rs.EOF
'Process the current record
wscript.echo "Tag: " & strTag & strNext & "Count: " _
& rs("ImageCount") & strNext & "Created: " &
rs("ImageCreateDate") & strNext _
& "Last Accessed Date: " & rs("ImageLastDate") & strNext

rs.movenext
Loop

End If

Ernst Guckel schrieb:==>[...]

Thanks... works now.

Ernst.


"ekkehard.horner" wrote: