<%@LANGUAGE="VBSCRIPT"%> <% Response.CacheControl = "no-cache" %> <% Response.AddHeader "Pragma", "no-cache" %> <% Response.Expires = -1 %> <% Dim rsSystem Dim rsSystem_numRows Set rsSystem = Server.CreateObject("ADODB.Recordset") rsSystem.ActiveConnection = MM_IPUPS_STRING rsSystem.Source = "SELECT * FROM IPUPS.TBLSYSTEM ORDER BY SYSTEM ASC" rsSystem.CursorType = 0 rsSystem.CursorLocation = 2 rsSystem.LockType = 1 rsSystem.Open() rsSystem_numRows = 0 %> <% Dim rsSurvey Dim rsSurvey_numRows Set rsSurvey = Server.CreateObject("ADODB.Recordset") rsSurvey.ActiveConnection = MM_IPUPS_STRING rsSurvey.Source = "SELECT * FROM IPUPS.TBLSURVEY ORDER BY SURVEYSOURCE ASC" rsSurvey.CursorType = 0 rsSurvey.CursorLocation = 2 rsSurvey.LockType = 1 rsSurvey.Open() rsSurvey_numRows = 0 %> International Pressure Ulcer Prevalence Survey Registration
Hill-Rom

 
 

Registration for the 2010 International Pressure Ulcer Prevalence™ Survey is Closed.

Please call the Prevalence Hotline at toll free 888-467-4839 if you have any questions..

Thank You!

 
<% rsSystem.Close() Set rsSystem = Nothing %> <% rsSurvey.Close() Set rsSurvey = Nothing %>