Heat Exchanger Drawings
-----------------------------------
<% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("mobile/products.mdb")) set rs = Server.CreateObject("ADODB.recordset") sql="SELECT Model, [Volts Hz],'' AS Spec, '' AS Cutout FROM HeatExchangers ORDER BY [Watts DegF] ASC, Model ASC" rs.Open sql, conn %> <%for each x in rs.Fields response.write("") next%> <%do until rs.EOF%> <%for each x in rs.Fields%> <%next rs.MoveNext%> <%loop rs.close conn.close %>
" & x.name & "
<%Response.Write(x.value)%>