Creating HTML Table from Recordset (VBScript): Return to List

' This code block builds an HTML table from a recordset -- NOTE how the code is laid out

  <%
  
Do Until RSEquip.EOF
  
    TempEquipmentDescription = RSEquip("EquipmentDescription")
  
    TempLocation = RSEquip("EquipmentLocation")
  
    TempName = RSEquip("EmpName")
  
    TempEMail = RSEquip("EmailAddress")
  
    TheStuff = TempEmail & """>" & TempName
  
%>
  
<TR>
  
    <TD><P><A HREF="../html/information.asp?EquipmentID = 
  
        <% response.write RSEquip("EquipmentID") %> ">
  
        <% response.write RSEquip("EquipmentName") &></A>
  
    </TD>
  
    <TD>
  
        <P><% response.write TempEquipmentDescription %>
  
    </TD>
  
    <TD>
  
        <P><% response.write TempLocation %>
  
    </TD>
  
    <TD>
  
        <P><A HREF="mailto:<% response.write TheStuff %></A>
  
    </TD>
  
</TR>
  
<%
  
    RSEquip.MoveNext
  
Loop
  
%>