<% Const winpath = "e:\ftp\pub\updates\windows\am2002\" Const winpath3 = "e:\ftp\pub\updates\windows\am2003\" Const thispath = "e:\http\am2002\" Const macpath = "e:\ftp\pub\updates\powermac\am2002\" Const projectspath = "e:\ftp\pub\projects\" 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].[version] DESC",cnDB, adOpenDynamic, readonly Do Until rsData.EOF if( rsData("info") <> "" AND rsData("platform") = platform) AND instr(rsData("version"),"10.0 Beta") 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 v9.5 Release files
Animation Master v10.0 Beta Software
New Feature Info <% DisplayFileDate( thispath & "v10features.html" ) %> 		PC,MAC,Samples
File Names Version Operating System File Size Last Updated
v10beta.exe v10.0 Beta 9 (2003 CD "Perk holding Flower") Windows NT/9x <% DisplayFileSize( Winpath3 & "v10beta.exe" ) %> <% DisplayFileDate( Winpath3 & "v10beta.exe" ) %>
v10beta.exe v10.0 Beta 9 (2002 CD "Petey & Jaydee Aliens") Windows NT/9x <% DisplayFileSize( Winpath & "v10beta.exe" ) %> <% DisplayFileDate( Winpath & "v10beta.exe" ) %>
NETv10Beta.exe v10.0 Beta 9 (2002 Dongles) Windows NT/9x <% DisplayFileSize( Winpath & "Netv10Beta.exe" ) %> <% DisplayFileDate( Winpath & "Netv10Beta.exe" ) %>
NETv10beta-NetHasp.exe v10.0 Beta 9 (2002 Network Dongles) Windows NT/9x <% DisplayFileSize( Winpath & "Netv10beta-nethasp.exe" ) %> <% DisplayFileDate( Winpath & "Netv10beta-nethasp.exe" ) %>
v10stuff.exe v10 Support Files Windows NT/9x <% DisplayFileSize( Winpath & "v10stuff.exe" ) %> <% DisplayFileDate( Winpath & "v10stuff.exe" ) %>
Release Notes Note: v10.0 Alpha requres the 2002 or 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 AM v10

************************************************ 
<% DisplayFixes cnDB, "pc" %>
File Names Version Operating System File Size Last Updated
V10Beta.hqx v10.0 Beta 9 (2002 CDROM) PowerMac <% DisplayFileSize( Macpath & "v10beta.hqx" ) %> <% DisplayFileDate( Macpath & "v10beta.hqx" ) %>
Netv10beta.hqx v10.0 Beta 9 (2002 Dongle) PowerMac <% DisplayFileSize( Macpath & "Netv10beta.hqx" ) %> <% DisplayFileDate( Macpath & "Netv10beta.hqx" ) %>
NETSlavev10beta.hqx  offline PowerMac <% DisplayFileSize( Macpath & "netslavev10beta.hqx" ) %> <% DisplayFileSize( Macpath & "Netslavev10beta.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 AM v10 alpha

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" ) %>
 Sprites.zip Sprite Example File v9.t All <% DisplayFileSize( ThisPath & "MaintainVolume.prj" ) %> <% DisplayFileDate( ThisPath & "MaintainVolume.prj" ) %>
 Expressions Expressions Example Files v9.t All <% DisplayFileSize( ThisPath & "MaintainVolume.prj" ) %> <% DisplayFileDate( ThisPath & "MaintainVolume.prj" ) %>
 Animate Mode Animate Mode Example Files v9.t All <% DisplayFileSize( ThisPath & "AnimateMode.prj" ) %> <% DisplayFileDate( ThisPath & "AnimateMode.prj" ) %>
New Models

 

Hash, Inc. Home Page