|
Main Index ASP Index |
|
<% Dim dcnDB 'As ADODB.Connection Dim rsNAME 'As ADODB.Recordset Dim strSQL 'As String Dim blnAddedWhere ' As Boolean Set dcnDB = server.createobject("ADODB.Connection") dcnDB.open "edit" strSQL = "SELECT * FROM test WHERE ID = '1'" Set rsNAME = dcnDB.Execute(strSQL) blnAddedWhere = False %> Page last updated: <% Response.Write rsNAME("date")%> at <% Response.Write rsNAME("time")%><br> <img src="images/00-bit.gif" width="1" height="5" alt="" border="0"><br> <table cellpadding="5" cellspacing="0" width="" border="1" bordercolor="#284048"> <tr> <td align="" width="" bgcolor="#FFD068"> <font face="verdana","arial","helvetica" size="2" color="#"> <b><li>Snow Report & Conditions:</b> </font><br> </td> </tr> <tr> <td align="" width="" bgcolor="#ffffff"> <table cellpadding="0" cellspacing="0" width="" border="0"> <tr valign="top" valign="top"> <td width="" align="10"> <img src="images/00-bit.gif" width="10" height="1" alt="" border="0"><br> </td> <td align="left" width="150" id="yo"> <b>Inches of New Snow: </b><br> </td> <td align="left" width="" id="yo"> <% Response.Write rsNAME("inches")%>" </td> <td width="" align="20"> <img src="images/00-bit.gif" width="20" height="1" alt="" border="0"><br> </td> <td align="left" width="140" id="yo"> <b>Last measured at: </b><br> </td> <td align="left" width="" id="yo"> <% Response.Write rsNAME("TimeHour")%>:<% Response.Write rsNAME("TimeMin")%> <% Response.Write rsNAME("TimeXM")%> </td> <td width="" align="10"> <img src="images/00-bit.gif" width="10" height="1" alt="" border="0"><br> </td> </tr> </table> </td> </tr> </table> <% rsNAME.Close dcnDB.Close %> |