which one to choose?

Results 1 to 2 of 2

Thread: which one to choose?

  1. #1
    Join Date
    Dec 1969
    Posts
    183

    Default which one to choose?

    Thank you Scott Mitchell, Oliver & Ian Stallings. For Oliver: I tried to run in Frontpage Personal Web Server, but nothing comes out of the code. Maybe u mean Microsoft Personal Web Server. I would like u guys to look at this asp code. Do you think this will produce what i want.<BR><BR>&#060;% <BR><BR>Dim objFSO, objFolder, objSubFolders<BR>Set objFSO = Server.CreateObject("Scripting.FileSystemObject") <BR>Set objFolder = objFSO.GetFolder(Server.MapPath("c:aaa")) <BR>Set objSubFolders = objFolder.SubFolders <BR><BR>ReDim List(objSubFolders.Count) <BR><BR>For Each objFolderItem in objSubFolders <BR>List(CurCount) = Right(objFolderItem, Len(objFolderItem) -3) <BR>CurCount = CurCount + 1 <BR>next <BR><BR>First = 1 <BR> Last = objSubFolders.Count <BR> For i = 1 To Last - 1 <BR> For j = i + 1 To Last <BR> If List(i) > List(j) Then <BR> Temp = List(j) <BR> List(j) = List(i) <BR> List(i) = Temp <BR> End If <BR> Next <BR> Next <BR><BR>For CurLetter = 1 to 26 <BR>response.write "<BR>&nbsp;&#060;A NAME=""" & Chr(64 + CurLetter) & Chr(64 + CurLetter) & Chr(64 + CurLetter) & """>&#060;/A>&#060;B>" & Chr(64 + CurLetter) & "&nbsp;&#060;/B><BR>" <BR>For FolderC = 1 to objSubFolders.Count <BR>If Chr(64 + CurLetter) = Left(List(FolderC),1) then response.write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;" & List(FolderC) & "<BR>" <BR>Next <BR>Next <BR>Set objSubFolders = nothing <BR>Set objFolder = nothing <BR>End Sub <BR>&#037;&#062;<BR>

  2. #2
    Join Date
    Dec 1969
    Posts
    109

    Default RE: which one to choose?

    Jane,<BR><BR>Yes, I was talking about MS Personal Web Server.<BR><BR><BR>Oliver

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •