%@ LANGUAGE=VBScript %> <% Option Explicit %> <% Const FIXEDDISK = 2 Dim path, FileSystem, drives, drive, primarydrive path = Request.Cookies("HTMLA")("LASTPATH") If path = "" Then Set FileSystem=CreateObject("Scripting.FileSystemObject") Set drives = FileSystem.Drives For Each drive in drives primarydrive = drive 'exit after the first FIXEDDISK if there is one... if drive.DriveType = FIXEDDISK then Exit For end if Next primarydrive = primarydrive & L_SLASH_TEXT Response.Cookies("HTMLA")("LASTPATH")=primarydrive path = primarydrive End If %>