<% Const winpath = "e:\ftp\pub\updates\windows\am2004\" Const macpath = "e:\ftp\pub\updates\os9\am2004\" Const macosxpath = "e:\ftp\pub\updates\osx\am2004\" Const projectspath = "e:\ftp\pub\projects\" Const am2004path = "e:\http\am2004\" 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 2004 v11.0 Software PC,OS9,OSX
File Names Version Operating System File Size Last Updated
AM2004.exe v11.0t (2004 CD "Orangutan") WIN2K/XP <% DisplayFileSize( Winpath & "am2004.exe" ) %> <% DisplayFileDate( Winpath & "am2004.exe" ) %>
NET2004.exe v11.0t (2004 Dongles) WiN2K/XP <% DisplayFileSize( Winpath & "net2004.exe" ) %> <% DisplayFileDate( Winpath & "net2004.exe" ) %>
NET2004-NetHasp.exe v11.0t (2004 Network Dongles) WiN2K/XP <% DisplayFileSize( Winpath & "net2004-nethasp.exe" ) %> <% DisplayFileDate( Winpath & "net2004-nethasp.exe" ) %>
v105stuff.exe v11.0 Support File: GDIPlus.DLL Win2K/XP <% DisplayFileSize( Winpath & "v11stuff.exe" ) %> <% DisplayFileDate( Winpath & "v105stuff.exe" ) %>
Release Notes Note: v10.5 requres the 2004 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
AM2004.hqx v10.5r (2004 CDROM) PowerMac <% DisplayFileSize( Macpath & "am2004.hqx" ) %> <% DisplayFileDate( Macpath & "am2004.hqx" ) %>
Net2004.hqx v10.5r (2004 Dongle) PowerMac <% DisplayFileSize( Macpath & "net2004.hqx" ) %> <% DisplayFileDate( Macpath & "net2004.hqx" ) %>
NETSlave2003.hqx  offline PowerMac <% DisplayFileSize( Macpath & "netslave2004.hqx" ) %> <% DisplayFileSize( Macpath & "Netslave2004.hqx" ) %>
AM2004Stuff.hqx  Support Files PowerMac <% DisplayFileSize( Macpath & "Am2004Stuff.hqx" ) %> <% DisplayFileDate( Macpath & "Am2004Stuff.hqx" ) %>
Release Notes Note: You must have Hash 2004 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 AM2004

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" %>

File Names Version Operating System File Size Last Updated
Install.zip v10.5r rev 3 OSX <% DisplayFileSize( Macosxpath & "install.zip" ) %> <% DisplayFileDate( Macosxpath & "install.zip" ) %>
Hasp Driver Hasp Driver OSX <% DisplayFileSize( Macosxpath & "Hasp Device Driver.sit.hqx" ) %> <% DisplayFileDate( Macosxpath & "Hasp Device Driver.sit.hqx" ) %>
NetHasp License Manager NetHasp License Manager OSX <% DisplayFileSize( Macosxpath & "Nethasp License Manager.dmg" ) %> <% DisplayFileDate( Macosxpath & "Nethasp License Manager.dmg" ) %>
<% DisplayFixes cnDB, "mac", "release" %>
Hash, Inc. Home Page