<%@ Language=VBScript %> [an error occurred while processing this directive] <% On Error Resume Next Response.Expires=120 Dim today,ID,strFileName,objFSO,iFileSize,TotalTime,TotalHours,TotalHoursMod,TotalMin Dim TotalMinMod,TotalSec,iFileDate Sub getCategory(cat,Start,Limit) 'Sub to pull out the individual stories for each category today=Date() set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = MM_public_STRING If rs.ActiveConnection.Errors.Count>0 Then Response.Redirect("../error.htm") Response.End() End If rs.Source = "SELECT Downloads.CategoryID, Downloads.DownloadLink, Downloads.DownloadDate, Downloads.DownloadExpiry, Downloads.DownloadMemo,Downloads.publish FROM Downloads "&_ "WHERE (CategoryID="&cat&" AND DownloadDate <= #"&today&"# AND #"&today&"#<=DownloadExpiry AND publish=-1) ORDER BY DownloadDate DESC" rs.CursorType = 3 rs.CursorLocation = 2 rs.LockType = 1 rs.Open() If rs.BOF AND rs.EOF Then Response.Write "

No available downloads

" Else Dim counter counter=1 Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") While NOT rs.EOF AND counter <= Limit If counter >= Start Then strFileName = "\\10.0.0.106\hanoun.com\public\support\files\"&rs("DownloadLink") Set objFSO = Server.CreateObject("Scripting.FileSystemObject") If objFSO.FileExists(strFileName) Then iFileSize = objFSO.GetFile(strFileName).Size/1000000 iFileDate = objFSO.GetFile(strFileName).DateLastModified Set objFSO = Nothing TotalTime = (iFileSize*1024/6.8359) TotalHours = (TotalTime/3600) TotalHoursMod = (TotalTime MOD 3600) TotalMin = (TotalHoursMod/60) TotalMinMod = (TotalHoursMod MOD 60) TotalSec = (TotalMinMod) Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Else Response.Write("

No files exists, please check back later

") End If End If counter=counter+1 rs.MoveNext() Wend Response.Write("

Name

Description

Posted

File Size

Download Time*

Download

"&rs("DownloadLink")&"

"&rs("DownloadMemo")&"

"&iFileDate&"

"&FormatNumber(iFileSize, 2)&" MB

"&FormatNumber(TotalHours,0)&" hrs , "&FormatNumber(TotalMin,0)&" min, "&FormatNumber(TotalSec,0)&" sec

START
") End If rs.Close() Set rs=Nothing End Sub set rsStory = Server.CreateObject("ADODB.Recordset") rsStory.ActiveConnection = MM_public_STRING If rsStory.ActiveConnection.Errors.Count>0 Then Response.Redirect("../error.htm") Response.End() End If rsStory.Source = "SELECT * FROM DownloadCategory" rsStory.CursorType = 3 rsStory.CursorLocation = 2 rsStory.LockType = 1 rsStory.Open() %> Hanoun.com
Products Training Support About Us Site Map Contact Us

Hanoun Medical is committed to keeping our customers current with the latest software updates. It's never been easier to manage your system. From software updates to security fixes, this page provides the latest drivers and patches needed to keep your system up-to-date.

TO INSTALL UPGRADES, PLEASE CALL HANOUN CUSTOMER SERVICE TO OBTAIN A PASSWORD.

System Requirements for ODES 2002 Software and Software Upgrades
The following are the recommended specification for loading ODES on your computer.

Operating System

  • Windows 98, ME, 2000, XP
  • It is recommended you install all available service patches for your operating system. They can be obtained through www.microsoft.com
  • Space on Computer

  • 256MB RAM
  • 500 MB Free Disk Space
  • Speed of Computer

  • 500 MHz processor or above
  • Other

  • Computer must have an RS232 serial port. USB serial port converters are not supported.
  • <%While NOT rsStory.EOF%>

    Category: <%=rsStory("Category")%>

    <% call getCategory(rsStory("CategoryID"),1,10)%> <% rsStory.MoveNext() Wend%>

    *speed based on 56k modem

    <% rsStory.Close() Set rsStory=Nothing %>