<% Const winpath = "e:\ftp\pub\updates\windows\am2002\" Const winpath3 = "e:\ftp\pub\updates\windows\am2003\" Const macpath = "e:\ftp\pub\updates\powermac\am2002\" Const projectspath = "e:\ftp\pub\projects\" Const am2002path = "e:\http\am2002\" Const miscpath = "e:\ftp\pub\misc\" Const DQ="""" Const SQ="'" Sub Displayfixes(cnDB, platform) 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"),"9.51") then WriteLine "" & rsData("version") & "

" WriteLine "" & rsData("info") & "" 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
Click here for v10.0 (2003) files
Animation Master 2002 v9.5 Software PC,MAC,Samples
File Names Version Operating System File Size Last Updated
AM2002.exe v9.51e (2002 CD "Pedee & Jadee Aliens") Windows NT/9x <% DisplayFileSize( Winpath & "am2002.exe" ) %> <% DisplayFileDate( Winpath & "am2002.exe" ) %>
NET2002.exe v9.51e (2002 Dongles) Windows NT/9x <% DisplayFileSize( Winpath & "net2002.exe" ) %> <% DisplayFileDate( Winpath & "net2002.exe" ) %>
NET2002-NetHasp.exe v9.51e (2002 Network Dongles) Windows NT/9x <% DisplayFileSize( Winpath & "net2002-nethasp.exe" ) %> <% DisplayFileDate( Winpath & "net2002-nethasp.exe" ) %>
Release Notes Note: v9.5 requres the 2002 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 v9.5

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

<% DisplayFixes cnDB, "pc" %>
File Names Version Operating System File Size Last Updated
AM2002.hqx v9.51e (2002 CDROM) PowerMac <% DisplayFileSize( Macpath & "am2002.hqx" ) %> <% DisplayFileDate( Macpath & "am2002.hqx" ) %>
Net2002.hqx v9.51e (2002 Dongle) PowerMac <% DisplayFileSize( Macpath & "net2002.hqx" ) %> <% DisplayFileDate( Macpath & "net2002.hqx" ) %>
NETSlave2002.hqx  offline PowerMac <% DisplayFileSize( Macpath & "netslave2002.hqx" ) %> <% DisplayFileSize( Macpath & "Netslave2002.hqx" ) %>
AM2002Stuff.hqx  Support Files PowerMac <% DisplayFileSize( Macpath & "Am2002Stuff.hqx" ) %> <% DisplayFileDate( Macpath & "Am2002Stuff.hqx" ) %>
Release Notes Note: You must have Hash 2002 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 AM2001 v9.5

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


 
 
Animation Master 2002  Samples & Tutorials
File Names Version Operating System File Size Last Updated
V9.5 Reference Manual
(Windows F1 Help File)		 v9.5 Windows <% DisplayFileSize( Winpath & "reference.exe" ) %> <% DisplayFileDate( Winpath & "reference.exe" ) %>
V9.5 Net Render Reference Manual
(Windows F1 Help File)		 v9.5 Windows <% DisplayFileSize( Winpath & "netrenderreference.exe" ) %> <% DisplayFileDate( Winpath & "netrenderreference.exe" ) %>
V9Manual.pdf v9.x All <% DisplayFileSize( Winpath & "2002manual.pdf" ) %> <% DisplayFileDate( Winpath & "2002manual.pdf" ) %>
90Data.exe
Tutorial Data referenced in Manual		 v9.x Windows  <% DisplayFileSize( Winpath & "90data.exe" ) %> <% DisplayFileDate( Winpath & "90data.exe" ) %>
90Data.hqx
Tutorial Data referenced in Manual		 v9.x PowerMac <% DisplayFileSize( Macpath & "90data.hqx" ) %> <% DisplayFileDate( Macpath & "90data.hqx" ) %>
 Shaggy.zip Updated Shaggy Model v9.t All <% DisplayFileSize( am2002Path & "Shaggy.zip" ) %> <% DisplayFileDate( ProjectsPath & "Sprites.zip" ) %>

 

Hash, Inc. Home Page