<% Const winpath = "e:\ftp\pub\updates\windows\am2003\" Const macpath = "e:\ftp\pub\updates\os9\am2003\" Const projectspath = "e:\ftp\pub\projects\" Const am2002path = "e:\http\am2003\" Const miscpath = "e:\ftp\pub\misc\" Const DQ="""" Const SQ="'" Sub Displayfixes(cnDB, platform, release) dim rsData 'As ADODB Recordset dim rsDataPart 'As ADODB Recordset dim sel ' As integer dim lasttype ' As interger Set rsData = Server.CreateObject("ADODB.Recordset") ' rsData.Open "SELECT * FROM [fixes] ORDER BY [fixes].[version] ' WHERE [platform] = " & SQ & platform & SQ ,cnDB, adOpenDynamic, readonly rsData.Open "SELECT * FROM [fixes] ORDER BY [fixes].[id] DESC",cnDB, adOpenDynamic, readonly Do Until rsData.EOF if( rsdata("info") <> "" AND rsData("platform") = platform) AND instr(rsData("version"),"10.5 Beta") AND release="beta" then WriteLine "" & rsData("version") & "

" WriteLine "" & rsData("info") & "" end if if( rsData("info") <> "" AND rsData("platform") = platform) AND instr(rsData("version"),"10.5") AND release ="release" then if( instr(rsData("version"), "Beta") OR instr(rsData("version"), "Alpha")) then ' WriteLine "" & rsData("version") & "

" ' WriteLine "" & rsData("info") & "" Else WriteLine "" & rsData("version") & "

" WriteLine "" & rsData("info") & "" end if end if rsData.movenext Loop rsData.Close End Sub Sub DisplayFileDate(path) Dim fs, f set fs = CreateObject("Scripting.FileSystemObject") found = fs.FileExists(path) if( found ) then set f = fs.GetFile(path) Response.Write "" Response.Write f.DateLastModified & " " if( DateDiff("d", f.DateLastModified, Date) <= 7 ) then Response.Write " *NEW*" end if Response.Write "" ' Response.Write f.Size else Response.Write "Offline" end if End Sub Sub DisplayFileSize(path) Dim fs, f set fs = CreateObject("Scripting.FileSystemObject") found = fs.FileExists(path) if( found ) then set f = fs.GetFile(path) Response.Write "" Response.Write FormatNumber(f.Size / 1000000,1) & "Meg" Response.Write "" ' Response.Write f.Size else Response.Write "Offline" end if End Sub Function OpenDB(byRef FatalError) Dim cnDB ' As ADODB.Connection dim sourcestr ' As string On Error Resume Next FatalError = 0 sourcestr = server.MapPath("db/fixes.mdb") Set cnDB = Server.CreateObject("ADODB.Connection") cnDB.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _ & "Data Source=" & sourcestr cnDB.Open If Err.Number <> 0 then FatalError = 1 End If Set OpenDB = cnDB End Function Sub CloseDB(cnDB) cnDB.Close Set cnDB = Nothing End Sub Sub WriteLine(strData) Response.Write strData & vbCrLF End Sub Sub WriteComment(strData) WriteLine "" End Sub 'Call Main 'Sub Main Dim cnDB 'As ADODB.Connection Dim FatalError Set cnDB = OpenDB(FatalError) If FatalError then WriteLine "Database Offline check back soon" ' Response.Redirect "OffLine.html" ' Exit Sub End If 'End Sub %> Animation Master 2002 Files Page  
 
Hash, Inc. Software Updates
Animation Master 2003 v10.5 Software PC,MAC,
File Names Version Operating System File Size Last Updated
AM2003.exe v10.5r (2003 CD "Perk holding Flower") Windows NT/9x <% DisplayFileSize( Winpath & "am2003.exe" ) %> <% DisplayFileDate( Winpath & "am2003.exe" ) %>
NET2003.exe v10.5r (2003 Dongles) Windows NT/9x <% DisplayFileSize( Winpath & "net2003.exe" ) %> <% DisplayFileDate( Winpath & "net2003.exe" ) %>
NET2002-NetHasp.exe v10.5r (2003 Network Dongles) Windows NT/9x <% DisplayFileSize( Winpath & "net2003-nethasp.exe" ) %> <% DisplayFileDate( Winpath & "net2003-nethasp.exe" ) %>
v105stuff.exe v10.5 Support File: GDIPlus.DLL Windows NT/9x <% DisplayFileSize( Winpath & "v105stuff.exe" ) %> <% DisplayFileDate( Winpath & "v105stuff.exe" ) %>
Release Notes Note: v10.5 requres the 2003 CDROM.   Network Version Requires Hardware Key)

Installation: 
1. Exit any AM software 
2. Run the desired Installer 
3. Reboot if prompted by Installer 

By default the update will install to the same directory as the previous version of v10.5

************************************************ 

<% DisplayFixes cnDB, "pc", "release" %>
File Names Version Operating System File Size Last Updated
AM2003.hqx v10.5r (2003 CDROM) PowerMac <% DisplayFileSize( Macpath & "am2003.hqx" ) %> <% DisplayFileDate( Macpath & "am2003.hqx" ) %>
Net2003.hqx v10.5r (2003 Dongle) PowerMac <% DisplayFileSize( Macpath & "net2003.hqx" ) %> <% DisplayFileDate( Macpath & "net2003.hqx" ) %>
NETSlave2003.hqx  offline PowerMac <% DisplayFileSize( Macpath & "netslave2003.hqx" ) %> <% DisplayFileSize( Macpath & "Netslave2003.hqx" ) %>
AM2003Stuff.hqx  Support Files PowerMac <% DisplayFileSize( Macpath & "Am2003Stuff.hqx" ) %> <% DisplayFileDate( Macpath & "Am2003Stuff.hqx" ) %>
Release Notes Note: You must have Hash 2003 CDROM to run this Version. (Network Version Requires Hardware Key) Installation: 
1. Exit any AM software 
2. UnStuff & Run the desired Installer 

By default the update  will install to the same directory as the previous version of AM2003

NOTE: On Some Browsers files may download as text, if so, right click in frame choose "open frame in new window" - when the file is done, from the file menu choose "save as" and save the file to the desired location. 

******************************************** 
<% DisplayFixes cnDB, "mac", "release" %>

Hash, Inc. Home Page