 |
|
 |
|
|
|
Downloads since May 29, 2005
<%
DIM objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath ("download.mdb") & ";"
objConn.Open
DIM mySQL, strTitle, strFile, strDate, objRS
mySQL = "SELECT top 6 * FROM tblDownloads"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open mySQL, objConn, adOpenKeyset, adLockPessimistic, adCmdText
IF not objRS.EOF THEN
response.write ""
response.write "| Map Name | Downloads | Last downloaded | "
response.write "![]() | "
response.write "![]() | "
response.write "![]() | "
do while not objRS.EOF
response.write "| " & objRS("fTitle") & " | " & objRS("fDownloads") & " | " & monthname(month(objRS("fDateDownloaded"))) & " " & day(objRS("fDateDownloaded")) & ", " & year(objRS("fDateDownloaded")) & " | "
response.write "![]() | "
response.write "![]() | "
response.write "![]() | "
objRS.movenext
loop
response.write " "
END IF
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>
Note: The tif version is no longer available, nor is the Thornwood_area map.
|
|
|
|
|
 |
|
|
This is a fansite and is completely unofficial, and is in no way associated or endorsed by Privateer Press, inc.
|