Not in ?? 1

[sparkbyte]

OK, not sure how to do sets.

Do Until objRecordSet.EOF
    strSystem = objRecordSet.Fields("Name").Value
	 objRecordSet.MoveNext
    [red]If Mid(strSystem,7,3) <> ("INT","DB","APP") Then[/red]
    WScript.Echo strSystem
    End If
Loop

What would be the correct syntax for this?



Thanks

John Fuhrman
Titan Global Services

http://www.titangs.com

 

[dm4ever]

You can use a dictionary...

Dim objDict : Set objDict = CreateObject("Scripting.Dictionary")
objDict.CompareMode = vbTextCompare
objDict.Add "INT", ""
objDict.Add "DB", ""
objDict.Add "APP", ""

If Not objDict.Exists(Mid(strTemp, 7, 3)) Then
	WScript.Echo strTemp
End If

--------------------------------------------------------------------------------
dm4ever
My philosophy: K.I.S.S - Keep It Simple Stupid

 

[PHV]

If Mid(strSystem,7,3) <> "INT" _
And Mid(strSystem,7,3) <> "DB" _
And Mid(strSystem,7,3) <> "APP" Then
WScript.Echo strSystem
End If

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[sparkbyte]

That got it PHV.

Thanks

John Fuhrman
Titan Global Services

http://www.titangs.com