FSO configuration file
SET FS = CreateObject ("scripting.filesystemObject") SET TS1 = fs.opentextfile (Server.MAppath ("config.asp"), 2, true) TS1.Writeline "<" & chr (37) Ts1.writeLine "WebName =" & chr (34) & "& Request (" WebName "&" & Chr (34) & "Ts1.writeline Chr (37) &" SET TS1 = NothingSet FS = Nothing
'Sort function
Function Shortar (byref artemp)
DIM T
For j = 0 to ubound (artemp) -1
For i = 0 to Ubound (Artemp) - (J 1) IF Artemp (i)> Artemp (i 1) Then T = Artemp (i) Artemp (i) = artemp (i 1) Artemp (i 1 ) = t end if next
NEXT
END FUNCTION