Announcement

Collapse
No announcement yet.

Does not show links on top of page

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

    Does not show links on top of page

    Inquiring minds need to know...........
    Why doesnt my quickview page show the inks on the top?

    thanks
    Al
    <%Option Explicit%>
    <!--#include virtual="/includes/style.asp"-->
    <!--#include virtual="/includes/header.asp"-->
    <HTML>
    <Head>
    <%response.write customheader("Quick View")
    response.write "<META HTTP-EQUIV=Refresh CONTENT=300>"
    response.write "</HEAD>"
    response.write "<BODY bgcolor=#87ceeb>"
    'Global Variables
    dim strVar, strVar1, y, Y1, X10IntStat

    ' Define Main Table
    response.write "<table border='0' cellpadding='6' cellspacing='1' width='100%'>"


    '***********************************************
    '----- Begin Left Column of Status Page -----
    '***********************************************

    response.write "<tr>"
    response.write "<td width='50%' valign='top'>"

    '>>>>> System Status Table <<<<<
    response.write "<table border='0' cellpadding='0' cellspacing='1' width='100%')>"
    response.write "<tr><td class='tableheader' colspan='2'>System Status @ " & time & "</td></tr>"
    strVar = hs.version
    response.write "<tr><td class='tablerowodd' align='absmiddle' width='35%'>HomeSeer Version:<br>" & strVar & "</td>"
    strVar = hs.SystemUptime
    response.write "<td class='tablecellcustom'>" & strVar
    strVar = " (" & hs.WEBStatsPageViews & " views)"
    response.write strVar & "</td></tr>"

    ' strVar = hsp.version
    response.write "<tr><td class='tablerowodd' align='absmiddle' width='35%'>HomeSeer Phone Version:<br>" & strVar & "</td>"
    response.write "<td class='tablecellcustom'></td></tr>"

    response.write "<tr><td class='tablerowodd' align='absmiddle' width='35%'>HomeSeer CM11a Status</td>"
    X10IntStat = hs.X10InterfaceStatus

    if (X10IntStat = "0") then
    strVar = "Working Correctly"
    Else
    strVar = "Locked-Must Be Reset !!!"
    end if


    response.write "<td class='tablecellcustom'>" & strVar
    response.write "</td></tr>"

    response.write "</table>"
    '----- System Status Table -----



    response.write "<br><br>"

    '>>>>> Begin Thermostat Table <<<<<
    response.write "<table border='0' cellpadding='0' cellspacing='1' width='100%'>"
    response.write "<tr>"
    response.write "<td class='tableheader' colspan='2'>Thermostat</td></tr>"


    response.write "<tr>"
    response.write "<td class='tablerowodd' align='absmiddle' width='150'>Outside Master Bedroom</td>"

    strVar = hs.DeviceString("u1")
    response.write "<td class='tablecellcustom' cellspacing='0' cellpadding='0'>"
    response.write strVar & "</td></tr>"

    response.write "<tr>"
    response.write "<td class='tablerowodd' align='absmiddle' width='150'>Kitchen</td>"

    strVar = hs.DeviceString("u2")
    response.write "<td class='tablecellcustom' cellspacing='0' cellpadding='0'>"
    response.write strVar & "</td></tr>"

    response.write "<tr>"
    response.write "<td class='tablerowodd' align='absmiddle' width='150'>Outside Chris' Room Hallway</td>"

    strVar = hs.DeviceString("u3")
    response.write "<td class='tablecellcustom' cellspacing='0' cellpadding='0'>"
    response.write strVar & "</td></tr>"

    response.write "</table>"
    '----- End Thermostat Table -----


    response.write "<br><br>"

    '>>>>> Begin Weather Table <<<<<
    response.write "<table border='0' cellpadding='0' cellspacing='1' width='100%'>"
    response.write "<tr>"
    response.write "<td class='tableheader' colspan='2'>Current Weather:</td></tr>"

    response.write "<tr>"
    strVar = hs.DeviceString("w23")
    response.write "<td class='tableheader' colspan='2'>"
    response.write strVar & "</td></tr>"

    response.write "<tr>"
    response.write "<td class='tablerowodd' align='absmiddle' width='150'>Temperature</td>"

    strVar = hs.DeviceString("w3")
    response.write "<td class='tablecellcustom' cellspacing='0' cellpadding='0'>"
    response.write strVar & "</td></tr>"

    response.write "<tr>"
    response.write "<td class='tablerowodd' align='absmiddle' width='150'>High</td>"

    strVar = hs.DeviceString("w13")
    response.write "<td class='tablecellcustom' cellspacing='0' cellpadding='0'>"
    response.write strVar & "</td></tr>"

    response.write "<tr>"
    response.write "<td class='tablerowodd' align='absmiddle' width='150'>Low</td>"

    strVar = hs.DeviceString("w14")
    response.write "<td class='tablecellcustom' cellspacing='0' cellpadding='0'>"
    response.write strVar & "</td></tr>"

    response.write "<tr>"
    response.write "<td class='tablerowodd' align='absmiddle' width='150'>Feels Like</td>"

    strVar = hs.DeviceString("w18")
    response.write "<td class='tablecellcustom' cellspacing='0' cellpadding='0'>"
    response.write strVar & "</td></tr>"

    response.write "<tr>"
    response.write "<td class='tablerowodd' align='absmiddle' width='150'>Wind Speed</td>"

    strVar = hs.DeviceString("w5")
    response.write "<td class='tablecellcustom' cellspacing='0' cellpadding='0'>"
    response.write strVar & "</td></tr>"

    response.write "<tr>"
    response.write "<td class='tablerowodd' align='absmiddle' width='150'>Wind Direction</td>"

    strVar = hs.DeviceString("w4")
    response.write "<td class='tablecellcustom' cellspacing='0' cellpadding='0'>"
    response.write strVar & "</td></tr>"

    response.write "<tr>"
    response.write "<td class='tablerowodd' align='absmiddle' width='150'>Wind Gusts</td>"

    strVar = hs.DeviceString("w7")
    response.write "<td class='tablecellcustom' cellspacing='0' cellpadding='0'>"
    response.write strVar & "</td></tr>"

    response.write "<tr>"
    response.write "<td class='tablerowodd' align='absmiddle' width='150'>Humidity</td>"

    strVar = hs.DeviceString("w11")
    response.write "<td class='tablecellcustom' cellspacing='0' cellpadding='0'>"
    response.write strVar & "</td></tr>"

    response.write "<tr>"
    response.write "<td class='tablerowodd' align='absmiddle' width='150'>Barometer</td>"

    strVar = hs.DeviceString("w10")
    response.write "<td class='tablecellcustom' cellspacing='0' cellpadding='0'>"
    response.write strVar & "</td></tr>"


    response.write "<tr>"
    response.write "<td class='tablerowodd' align='absmiddle' width='150'>Dew Point</td>"

    strVar = hs.DeviceString("w17")
    response.write "<td class='tablecellcustom' cellspacing='0' cellpadding='0'>"
    response.write strVar & "</td></tr>"

    response.write "</table>"
    '----- End Weather Table -----

    response.write "<br><br>"


    '>>>>> Begin Radar Table <<<<<
    response.write "<table border='0' cellpadding='0' cellspacing='1' width='100%'>"
    response.write "<tr>"
    response.write "<td class='tableheader' colspan='2'>Texas Local Radar</td></tr>"

    response.write "<tr><td class='tablecellcustom' colspan='2' align='center'>"
    response.write "<img src='http://sirocco.accuweather.com/nx_mosaic_400x300c/sir/inmasirtxe.gif'>"
    response.write "</td></tr>"

    response.write "<table border='0' cellpadding='0' cellspacing='1' width='100%'>"
    response.write "<tr>"
    response.write "<td class='tableheader' colspan='2'>Houston Local Radar</td></tr>"

    response.write "<tr><td class='tablecellcustom' colspan='2' align='center'>"
    response.write "<img src='http://www.srh.noaa.gov/radar/images/DS.p19r0/SI.khgx/latest.gif'>"
    response.write "</td></tr>"



    response.write "</table>"
    '----- End Radar Table -----

    '----- End Left Column of Status Page -----
    response.write "</td>"


    '***********************************************
    '----- Begin Right Column of Status Page -----
    '***********************************************

    response.write "<td width='50%' valign='top'>"

    '>>>>> Begin Security System Table <<<<<
    response.write "<table border='0' cellpadding='0' cellspacing='1' width='100%'>"
    response.write "<tr>"
    response.write "<td class='tableheader' colspan='2'>Security System</td></tr>"

    response.write "<tr>"
    response.write "<td class='tablerowodd' align='absmiddle' width='150'>Chime Status</td>"

    strVar = hs.DeviceString("Z64")
    response.write "<td class='tablecellcustom' cellspacing='0' cellpadding='0'>"
    response.write strVar & "</td></tr>"

    response.write "<tr>"
    response.write "<td class='tablerowodd' align='absmiddle' width='150'>Trip Status</td>"

    strVar = hs.DeviceString("Z62")
    response.write "<td class='tablecellcustom' cellspacing='0' cellpadding='0'>"
    response.write strVar & "</td></tr>"

    response.write "<tr>"
    response.write "<td class='tablerowodd' align='absmiddle' width='150'>Armed Status</td>"

    strVar = hs.DeviceString("Z63")
    response.write "<td class='tablecellcustom' cellspacing='0' cellpadding='0'>"
    response.write strVar & "</td></tr>"

    response.write "</table>"

    '-----Security System Table-----

    response.write "<br><br>"


    '>>>>> Begin Pool Controls Table <<<<<

    response.write "<table border='0' cellpadding='0' cellspacing='1' width='100%'>"
    response.write "<tr>"
    response.write "<td class='tableheader' colspan='2'>Pool Controls</td></tr>"

    response.write "<table border='0' cellpadding='0' cellspacing='1' width='100%'>"

    response.write "<tr>"
    response.write "<td class='tablerowodd' align='absmiddle' width='150'>Pool Heater</td>"

    strVar = hs.DeviceString("[1")
    response.write "<td class='tablecellcustom' cellspacing='0' cellpadding='0'>"
    response.write strVar & "</td></tr>"

    response.write "<tr>"
    response.write "<td class='tablerowodd' align='absmiddle' width='150'>Spa Heater</td>"

    strVar = hs.DeviceString("[2")
    response.write "<td class='tablecellcustom' cellspacing='0' cellpadding='0'>"
    response.write strVar & "</td></tr>"

    response.write "<tr>"
    response.write "<td class='tablerowodd' align='absmiddle' width='150'>Pool Pump</td>"

    strVar = hs.DeviceString("[3")
    response.write "<td class='tablecellcustom' cellspacing='0' cellpadding='0'>"
    response.write strVar & "</td></tr>"

    response.write "<tr>"
    response.write "<td class='tablerowodd' align='absmiddle' width='150'>Spa Pump</td>"

    strVar = hs.DeviceString("[4")
    response.write "<td class='tablecellcustom' cellspacing='0' cellpadding='0'>"
    response.write strVar & "</td></tr>"

    response.write "<tr>"
    'response.write "<td class='tablerowodd' align='absmiddle' width='150'>Polaris 280 Cleaner</td>"
    response.write "<td class='tablerowodd' align='absmiddle' width='150'>name</td>"


    strVar = hs.DeviceString("[5")
    response.write "<td class='tablecellcustom' cellspacing='0' cellpadding='0'>"
    response.write strVar & "</td></tr>"

    response.write "<tr>"
    response.write "<td class='tablerowodd' align='absmiddle' width='150'>Waterfall</td>"

    strVar = hs.DeviceString("[6")
    response.write "<td class='tablecellcustom' cellspacing='0' cellpadding='0'>"
    response.write strVar & "</td></tr>"

    response.write "<tr>"
    response.write "<td class='tablerowodd' align='absmiddle' width='150'>Spa Air Blower</td>"

    strVar = hs.DeviceString("[7")
    response.write "<td class='tablecellcustom' cellspacing='0' cellpadding='0'>"
    response.write strVar & "</td></tr>"

    response.write "<tr>"
    response.write "<td class='tablerowodd' align='absmiddle' width='150'>Spa Light</td>"

    strVar = hs.DeviceString("[8")
    response.write "<td class='tablecellcustom' cellspacing='0' cellpadding='0'>"
    response.write strVar & "</td></tr>"

    response.write "<tr>"
    response.write "<td class='tablerowodd' align='absmiddle' width='150'>Pool Light</td>"

    strVar = hs.DeviceString("[9")
    response.write "<td class='tablecellcustom' cellspacing='0' cellpadding='0'>"
    response.write strVar & "</td></tr>"

    response.write "<tr>"
    response.write "<td class='tablerowodd' align='absmiddle' width='150'>Air Temperature</td>"

    strVar = hs.DeviceString("[14")
    response.write "<td class='tablecellcustom' cellspacing='0' cellpadding='0'>"
    response.write strVar & "</td></tr>"

    response.write "<tr>"
    response.write "<td class='tablerowodd' align='absmiddle' width='150'>Battery Vltage</td>"

    strVar = hs.DeviceString("[15")
    response.write "<td class='tablecellcustom' cellspacing='0' cellpadding='0'>"
    response.write strVar & "</td></tr>"

    response.write "<tr>"
    response.write "<td class='tablerowodd' align='absmiddle' width='150'>Pool Temperature</td>"

    strVar = hs.DeviceString("[112")
    response.write "<td class='tablecellcustom' cellspacing='0' cellpadding='0'>"
    response.write strVar & "</td></tr>"

    response.write "<tr>"
    response.write "<td class='tablerowodd' align='absmiddle' width='150'>Spa Temperature</td>"

    strVar = hs.DeviceString("[113")
    response.write "<td class='tablecellcustom' cellspacing='0' cellpadding='0'>"
    response.write strVar & "</td></tr>"

    response.write "</table>"

    '----- End Pool Controls Table -----


    response.write "<br><br>"


    '>>>>> Begin Computer Status Table <<<<<
    response.write "<table border='0' cellpadding='0' cellspacing='1' width='100%'>"
    'response.write "<tr>"

    'response.write "<td></td>"
    'response.write "</tr>"

    response.write "<tr>"
    response.write "<td class='tableheader' colspan='3'>Computer Statistics</td></tr>"

    ' Begin First row of Temp Sensors
    response.write "<tr>"
    response.write "<td class='tablerowodd' width='35%'>Main PC Status</td>"

    strVar = hs.DeviceString("s15")
    response.write "<td class='tablecellcustom' cellspacing='0' cellpadding='0'>"
    response.write strVar & "</td>"
    response.write "</tr>"
    ' End First row of Temp Sensors

    response.write "<tr>"
    response.write "<td class='tablerowodd' width='35%'>Server Status</td>"

    strVar = hs.DeviceString("s16")
    response.write "<td class='tablecellcustom' cellspacing='0' cellpadding='0'>"
    response.write strVar & "</td>"
    response.write "</tr>"

    response.write "</table>"
    '----- End Computer Status Table -----


    response.write "<br><br>"

    %>


    <%
    response.write "</td>"
    response.write "</tr>"
    response.write "</table>"
    response.write "</center>"
    response.write "</body>"
    response.write "</html>"
    %>

    [This message was edited by Alfonso on Wed, 13 August 2003 at 05:14 PM.]

    #2
    Is this your quickview page?

    -Rupp

    How come "abbreviated" is such a long word?
    -Rupp
    sigpic

    Comment


      #3
      Oooops!
      I cut and paste the wrong file I updated to show my quickview.
      Al

      Comment


        #4
        Al,

        Replace the following:
        <HTML>
        <Head>
        <%response.write customheader("Quick View")
        response.write "<META HTTP-EQUIV=Refresh CONTENT=300>"
        response.write "</HEAD>"
        response.write "<BODY bgcolor=#87ceeb>"

        With:
        <%
        redim arrTemp(6)
        arrTemp(0) = "Quick View" 'Page Title
        arrTemp(2) = "#87ceeb" 'Background color
        arrTemp(5) = "OldStyle" 'Menu Link Type ("OldStyle" to use links.htm, "Yes" to use HomeSeer's links)
        arrTemp(6) = 300 'Page Refresh.
        response.write customheader(arrTemp)

        The customheader function creates the <HTML>,<HEAD>,<META>,</HEAD>, and <BODY> tags


        Paul

        Comment


          #5
          first I got weird blue background tht is ok i dered background line.
          then i got a style.css error

          Comment


            #6
            Al,

            Could you post what your style.css error is?


            Paul

            Comment


              #7
              the problem is the links dont show i ran the setup_includes.asp to make sure that the includes.ini was setup for "Use HS.links or links.htm inthe "use for links parameter" then I checked the includes.ini itself.
              It shows YES

              I think the problem is I dont have a Links.htm file

              Comment


                #8
                Ok, then comment out the arrTemp(5) line. That should make customheader use the ini setting.


                Paul

                Comment


                  #9
                  Thank you everyone!
                  I got my quickview up and running.
                  Come take a look.......My Home Page


                  Al

                  Comment


                    #10
                    Ok, Al,
                    Now go back to UltraView and get that working!!
                    Congrats!

                    Comment


                      #11
                      Dave,
                      You have got to be kidding............ Get ultra_view2_status.asp working.
                      It nearly took 7 hours and allot of hair pulling to get my quickview page to work.
                      Al

                      Comment

                      Working...
                      X