Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
<%if RSFeeds.fields.item("Status").value = "OverLoad" then%>
<tr font color="#FF0000">
<%else%>
<tr>
<%end if%>
<?
if ($_GET["Status"]=="OverLoad")
print "<tr font color=\"#FF0000\">"
else
print "<tr>";
?>
<tr font color="#FF0000">
<%else%>
<tr>
<tr>
<%
dim varStatus
varStatus = RSFeeds.fields.item("Status").value
if lcase(varStatus) = "overload" then
%>
<td style="color:#FF0000;"><%=varStatus%></td>
<%else%>
<td><%=varStatus%></td>
<%end if%>
</tr>
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../Connections/SMstocks.asp" -->
<%
'Set the server locale
Session.LCID = 2057
%>
<%
Dim RSFeeds
Dim RSFeeds_numRows
Set RSFeeds = Server.CreateObject("ADODB.Recordset")
RSFeeds.ActiveConnection = MM_SMstocks_STRING
RSFeeds.Source = "SELECT * FROM QryMCSummary WHERE MC_Group = '413'"
RSFeeds.CursorType = 0
RSFeeds.CursorLocation = 2
RSFeeds.LockType = 1
RSFeeds.Open()
RSFeeds_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
RSFeeds_numRows = RSFeeds_numRows + Repeat1__numRows
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<table width="36%" height="15" border="0" align="center" cellpadding="2" cellspacing="2" style = "border-bottom: 1px solid blue; border-left: 1px solid blue; border-top: 1px solid blue; border-right: 1px solid blue">
<tr bgcolor="#0000FF">
<td width="48%" height="7"> <div align="center"><font size="2" face="Arial, Helvetica, sans-serif"><font color="#FFFFFF">MACHINE</font></font></div></td>
<td width="52%" height="7"> <div align="center"><font size="2" face="Arial, Helvetica, sans-serif"><font color="#FFFFFF">NEXT
DATE </font></font></div></td>
</tr>
<tr bgcolor="#CCCCCC">
<td height="7"> <div align="center"><font size="2" face="Arial, Helvetica, sans-serif"><strong><font color="#FF0000"><%=(RSFeeds.Fields.Item("MC_Group").Value)%></font></strong></font></div></td>
<td height="7"> <div align="center"><font size="2" face="Arial, Helvetica, sans-serif"><strong><%=(RSFeeds.Fields.Item("NextDate").Value)%></strong></font></div></td>
</tr>
</table>
<table width="70%" border="0" align="center" cellpadding="1" cellspacing="1">
<tr align="center" valign="middle">
<td bgcolor="#0000FF">
<div align="center"><font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif">DUE
DATE </font></div></td>
<td bgcolor="#0000FF">
<div align="center"><font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif">DAY</font></div></td>
<td bgcolor="#0000FF">
<div align="center"><font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif">FEEDS</font></div></td>
<td bgcolor="#0000FF">
<div align="center"><font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif">DAILY
FEEDS </font></div></td>
<td bgcolor="#0000FF">
<div align="center"><font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif">AVAILABLE
FEEDS </font></div></td>
<td bgcolor="#0000FF">
<div align="center"><font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif">STATUS</font></div></td>
</tr>
<%
While ((Repeat1__numRows <> 0) AND (NOT RSFeeds.EOF))
%>
<%If (Repeat1__numRows Mod 2) Then%>
<tr bgcolor="#66CCFF">
<%Else%>
<tr valign="middle" bgcolor="#CCCCCC">
<%End If%>
<td>
<div align="center"><font size="2" face="Arial, Helvetica, sans-serif"><%=(RSFeeds.Fields.Item("DueDate").Value)%></font></div></td>
<td>
<div align="center"><font size="2" face="Arial, Helvetica, sans-serif"><%=(RSFeeds.Fields.Item("Day").Value)%></font></div></td>
<td>
<div align="center"><font size="2" face="Arial, Helvetica, sans-serif"><%=(RSFeeds.Fields.Item("NoFeeds").Value)%></font></div></td>
<td>
<div align="center"><font size="2" face="Arial, Helvetica, sans-serif"><%=(RSFeeds.Fields.Item("DailyFeeds").Value)%></font></div></td>
<td>
<div align="center"><font size="2" face="Arial, Helvetica, sans-serif"><%=(RSFeeds.Fields.Item("AvailableFeeds").Value)%></font></div></td>
<td>
<div align="center"><font color="#000000" size="2" face="Arial, Helvetica, sans-serif"><%=(RSFeeds.Fields.Item("Status").Value)%></font></div></td>
<%if RSFeeds.fields.item("Status").value = "OverLoad" then%>
<tr> <font color="#FF0000"></font></tr>
<%else%>
<tr> <font color="#000000"></font></tr>
<%end if%>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
RSFeeds.MoveNext()
Wend
%>
</table>
</body>
</html>
<%
RSFeeds.Close()
Set RSFeeds = Nothing
%>
<td><div align="center">
<%if RSFeeds.fields.item("Status").value = "OverLoad" then%>
<font color="#FF0000" size="2" face="Arial, Helvetica, sans-serif">
<%=(RSFeeds.Fields.Item("Status").Value)%>
</font>
<%else%>
<font color="#000000" size="2" face="Arial, Helvetica, sans-serif">
<%=(RSFeeds.Fields.Item("Status").Value)%>
</font>
<%end if%>
</div></td>