<% response.Expires = 0 Dim uid, rse, width, rsRole, isAdmin uid = trim(request("uid")) if trim(Lcase(AdminName)) = "admin" then isAdmin = true else isAdmin = false end if %>
 
<%=status_Temp("WTH10_1_status","WTH10_1_Temp")%>
<%=status_rsHumidity("WTH10_1_status","WTH10_1_Humidity")%>
<%=status_Temp("WTH10_2_status","WTH10_2_Temp")%>
<%=status_rsHumidity("WTH10_2_status","WTH10_2_Humidity")%>
<%=status_Temp("WTH10_3_status","WTH10_3_Temp")%>
<%=status_rsHumidity("WTH10_3_status","WTH10_3_Humidity")%>
<%=status_Temp("WTH10_4_status","WTH10_4_Temp")%>
<%=status_rsHumidity("WTH10_4_status","WTH10_4_Humidity")%>
<%=status_Temp("WTH10_5_status","WTH10_5_Temp")%>
<%=status_rsHumidity("WTH10_5_status","WTH10_5_Humidity")%>
<%=status_Temp("WTH10_6_status","WTH10_6_Temp")%>
<%=status_rsHumidity("WTH10_6_status","WTH10_6_Humidity")%>
<% Call CloseConn %>