Programming for Global.asa files in ASP (III.)

Programming Author: Virtualboy

function is to read an INI file under the publishing directory

If flgsection = True Then
If Mid (strlinedata,1,7) = "Service" Then
Strtempdata = Trim (Mid (Strlinedata,8,len (Strlinedata)-7))
If Mid (strtempdata,1,1) = "=" Then
Strtempdata = Trim (Mid (Strtempdata,2,len (Strtempdata)-1))
Application.Lock
Application ("Service") = Mid (Strtempdata,2,len (Strtempdata)-2)
Application.UnLock
End If
End If
If Mid (strlinedata,1,4) = "User" Then
Strtempdata = Trim (Mid (Strlinedata,5,len (Strlinedata)-4))
If Mid (strtempdata,1,1) = "=" Then
Strtempdata = Trim (Mid (Strtempdata,2,len (Strtempdata)-1))
Application.Lock
Application ("User") = Mid (Strtempdata,2,len (Strtempdata)-2)
Application.UnLock
End If
End If
End If
End If
Wend
Objts.close
Set objTS = Nothing
Set OBJFS = Nothing
End Sub
</SCRIPT>