|
|
|
<%
Dim objFSO, objTextFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(Server.MapPath("Hottours.txt"))
Do While Not objTextFile.AtEndOfStream
Response.Write objTextFile.ReadLine & " " & vbCrLf
Loop
objTextFile.Close
Set objTextFile = Nothing
Set objFSO = Nothing
%>
|
<%
Dim oFSO,oFile,dMod
Set oFSO = Server.CreateObject("Scripting.FileSystemObject")
' BE SURE TO CHANGE THE NAME IN THE NEXT LINE!!!!!!!!
Set oFile = oFSO.GetFile(Server.MapPath("Hottours.txt"))
dMod = oFile.DateLastModified
Set oFSO = Nothing
Set oFile = Nothing
%>
|
About Us | Contact
Us | Terms
& Conditions | Site
Map
© 2004 AGT – American Group Tours of Minnesota
1001 Sibley Memorial Highway, Suite 101
Lilydale, MN 55118 USA
Toll Free: +1 800.499.6190 | Tel: +1 651.452.4679
Fax: +1 651.452.3739
Email: info@americangrouptours.com
|
|
|