%
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Dir = Request.ServerVariables("SCRIPT_NAME")
Dir = StrReverse(Dir)
Dir = Mid(Dir, InStr(1, Dir, "/"))
Dir = StrReverse(Dir)
HitsFile = Server.MapPath(Dir) & "\hits.txt"
Set FileObject1 = Server.CreateObject("Scripting.FileSystemObject")
infoFile = Server.MapPath(Dir) & "\info.htm"
On Error Resume Next
Set InStream= FileObject.OpenTextFile (HitsFile, 1, false )
OldHits = Trim(InStream.ReadLine)
NewHits = OldHits + 1
Set OutStream= FileObject.CreateTextFile (HitsFile, True)
OutStream.WriteLine(NewHits)
InStream.close
set fileobject= nothing
Set InStream1= FileObject1.OpenTextFile (infofile, 1)
Oldinfo = Trim(InStream1.Readall)
'response.write oldinfo & "
"
newinfo = now & " " & _
Request.ServerVariables("HTTP_USER_AGENT") & " " & _
Request.ServerVariables("REMOTE_HOST") & Request.ServerVariables("REMOTE_addr") & "
"
details = oldinfo & newinfo
Set OutStream1= FileObject1.createTextFile (infoFile, True)
OutStream1.WriteLine (details)
InStream1.close
set fileobject1= nothing
%>
![]() |
![]() |
||||||||||||||||||
| <%=date & " " & time %> |
|||||||||||||||||||
|
What Is HIPAA? In general, healthcare organizations must comply with these standards within 26 months of the publication of the final rules. Small health plans are granted an additional 12 months to comply. Compliance is required as per the schedule below. HIPAA Administrative Simplification Compliance Deadlines
HIPAA has two objectives:
HIPAA specifically calls for the following:
Penalties for misuse of individually identifiable health information ("breach of confidentiality" as it is sometimes called) will range from $50,000 up to 250,000 and/or imprisonment of up to 10 years, depending on the severity and intent of the misuse. for further information please email telemedconsultantor click here
|
|||||||||||||||||||
|
|||||||||||||||||||
| Our Visitors | |||||||||||||||||||
| <%
L=Len(NewHits)
i = 1
For i = i to L
num = Mid(NewHits,i,1)
Display = Display & " |
Home | Applications | Services | Advantages | Details | About Us | Contact Us |
||||||||||||||||||
|
Updated on: |
Best viewed
on Internet Explorer 3 and above (800 x 600) |