<%@ Language=VBScript %> <% Dim MM_public_STRING,MM_hanoun_STRING,rsCategory,rsCategory_numRows,rs If (Request.ServerVariables("HTTP_HOST")="192.168.0.5" OR Request.ServerVariables("HTTP_HOST")="localhost") Then 'DataConn.Open "Data Source=" & Server.Mappath("../_database/database.mdb") & ";Provider=Microsoft.Jet.OLEDB.4.0;" MM_public_STRING ="Data Source=C:\Customer Service\Database\news.mdb;Provider=Microsoft.Jet.OLEDB.4.0;" MM_hanoun_STRING ="Data Source=C:\Customer Service\Clinic.mdb;Provider=Microsoft.Jet.OLEDB.4.0;" 'MM_public_STRING = "Driver={Microsoft Access Driver (*.mdb)};DBQ=C:\Customer Service\Database\news.mdb" 'MM_hanoun_STRING = "Driver={Microsoft Access Driver (*.mdb)};DBQ=C:\Customer Service\Database\Clinic.mdb" Else 'DataConn.Open "Data Source=" & Server.Mappath("../database/database.mdb") & ";Provider=Microsoft.Jet.OLEDB.4.0;" 'MM_public_STRING ="Data Source=" & Server.Mappath("../database/news.mdb") & ";Provider=Microsoft.Jet.OLEDB.4.0;" MM_public_STRING ="Data Source=\\10.0.0.106\hanoun.com\database\news.mdb;Provider=Microsoft.Jet.OLEDB.4.0;" MM_hanoun_STRING ="Data Source=\\10.0.0.106\hanoun.com\database\Clinic.mdb;Provider=Microsoft.Jet.OLEDB.4.0;" 'MM_hanoun_STRING ="Data Source=" & Server.Mappath("../database/Clinic.mdb") & ";Provider=Microsoft.Jet.OLEDB.4.0;" 'MM_public_STRING = "Driver={Microsoft Access Driver (*.mdb)};DBQ=\\10.0.0.102\hanoun.com\database\news.mdb" 'MM_hanoun_STRING = "Driver={Microsoft Access Driver (*.mdb)};DBQ=\\10.0.0.102\hanoun.com\database\Clinic.mdb" End If '------------------------------------------------- Admin Section ----------------------------------------- Function AdminPage(thepage) 'Check the security of client and pages 'Response.Write "The page is = "&thepage Dim rsSecurityGrid,rsSecurityGrid__id,rsSecurityGrid__page,intLockedOut,strRedirect strRedirect="index.asp" intLockedOut=8 'Lock Out Security level = 5 rsSecurityGrid__page = thepage 'Check current page for permission 'rsSecurityGrid__id = "" If Session("section")="Client" Then Response.Redirect strRedirect&"?reason=accessdenied" End If If (Session("SecurityLevelID") <> "") Then rsSecurityGrid__id = Session("SecurityLevelID") 'client has logged in properly Else rsSecurityGrid__id = 0 'arrived at page without logging in End If Select Case rsSecurityGrid__id Case 0 Response.Redirect strRedirect&"?reason=accessdenied" 'arrived without logging in Case intLockedOut Response.Redirect strRedirect&"?reason=lockedout" 'client is locked out End Select 'Response.write " Security Level = "&rsSecurityGrid__id set rsSecurityGrid = Server.CreateObject("ADODB.Recordset") 'Retrieve permission level rsSecurityGrid.ActiveConnection = MM_hanoun_STRING rsSecurityGrid.Source = "SELECT SecurityGridStaff.Permission FROM PagesStaff INNER JOIN SecurityGridStaff ON PagesStaff.PageID = SecurityGridStaff.PageID "&_ "WHERE (SecurityGridStaff.SecurityLevelID=" + Replace(rsSecurityGrid__id, "'", "''") + ") AND (PagesStaff.Page='" + Replace(rsSecurityGrid__page, "'", "''") + "')" rsSecurityGrid.CursorType = 3 rsSecurityGrid.CursorLocation = 2 rsSecurityGrid.LockType = 1 rsSecurityGrid.Open() If rsSecurityGrid.BOF AND rsSecurityGrid.EOF Then Response.Redirect strRedirect&"?reason=unkown" 'security level or page doesn't exist Else AdminPage=rsSecurityGrid("Permission") 'send back the permission level, 0=read/write,1=read,2=guest(hide some info) 'Response.Write " Permission = "&AdminPage End If rsSecurityGrid.Close() Set rsSecurityGrid=Nothing End Function %> <% Response.Expires=1440 On Error Resume Next Dim blnBeenHere 'If Request.Cookies("SavedLogin").HasKeys Then ' blnBeenHere=true 'Else ' blnBeenHere=false ' Response.Cookies("SavedLogin")("UserName")=true ' Response.Cookies("SavedLogin").Expires=Date+1 'End If set rsCat = Server.CreateObject("ADODB.Recordset") rsCat.ActiveConnection = MM_public_STRING If rsCat.ActiveConnection.Errors.Count>0 Then Response.Write "
" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "
" Response.Write "" End If rsCat.Source = "SELECT * FROM NewsCategory" rsCat.CursorType = 3 rsCat.CursorLocation = 2 rsCat.LockType = 1 rsCat.Open() %> Hanoun.com



 

UE3000
UPPER EXTREMITY SYSTEM

Advancing the science of RSI, CTS, Upper Extremity and fine motor skills assessments and rehabilitation.
learn more..

medline Medline - Early intervention with controlled active exercise has been shown to be the most successful treatment of injury. Hanoun's Strength Training Division includes our two rehabilitation equipment lines, Medline and Work Simulation.
learn more..

jobable JobABLE- Repetitive motion and overexertion have been ranked as two of the top loss prevention priorities by employers. The total financial impact of workplace injuries in 1999 was as much as $240 billion, according to the recently published Liberty Mutual study.
learn more..


cervical The Multi Cervical™ Rehabilitation Program is the most comprehensive cervical spine evaluation and rehabilitation system available in the world. The Multi Cervical is a digitally interfaced system that allows for the real-time recording of cervical spine movement and isometric strength in more than 1,000 unique positions.
learn more..

impairment The Hanoun Computerized Impairment Rating and Evaluation System (CIRES ) allows you to quickly and accurately perform comprehensive impairment ratings based on the 3rd Edition Revised, 4th Edition and the most recently introduced 5th Edition - in compliance with the American Medical Association’s Guidelines for the Evaluation of Permanent Impairment.
learn more..

ER The Hanoun Evaluation and Rehabilitation (ER) System is state-of-the-science in assessment of physical capacities. No other functional system provides the custom capabilities of the Hanoun ER in a technology-based format.
learn more..

COPYRIGHT HANOUN MEDICAL INC. 2002. ALL RIGHTS RESERVED

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