List all hard drives and types on the server with ASP

Server | The hard drive is done as described yesterday, listing all the disks for the server.
<%
function Tran (DRV)
Select Case DRV
Case 0:tran= "Device Unrecognized"
Case 1:tran= "Floppy disk drive"
Case 2:tran= "Hard drive"
Case 3:tran= "Network hard Drive"
Case 4:tran= "Optical drive"
Case 5:tran= "Ram Virtual Drive"
End Select
End Function

Set fs=server.createobject ("Scripting.FileSystemObject")
Response.Write "<table width= ' 100% ' cellpadding= ' 5 ' cellspacing= ' 2 ' ><tr><td><b> letter </td ><td><b> Drive Type
</td></tr> "
For each d in fs.drives
Response.Write "<tr><td><a href=files.asp?spath=" & D.driveletter & ": \><font size=4> <b> "&
D.driveletter & "</a></td><td><font size=4><b>" & Tran (D.drivetype) & "< /tr> "
Next
Set fs=nothing
Response.Write "</table>"
%>

ASP Boutique House Http://aspage.yeah.net
----------------------------------------
2000-5-29 by Seeker