Dim fs : Set fs = Server.CreateObject("Scripting.FileSystemObject")
Dim file : Set file = fs.OpenTextFile(Server.MapPath("file.config"))
Dim line
Do While Not fs.AtEndOfStream
line = file.ReadLine()
If IsThisTheLineIWant(line) Then
' some magic
Else
' some hand waving
End If
Loop