Tel: (714) 283-8980 email: sales@varitekinc.com

Consumables - call for quantity discount

<% Dim Connection, dsn,sql,rs set conn=Server.CreateObject("ADODB.Connection") dsn="dsn=D30052077-toner" conn.Open "dsn=D30052077-toner" set rs = Server.CreateObject("ADODB.Recordset") sql="SELECT * FROM toner" rs.Open sql, conn %> <%for each x in rs.Fields response.write("") 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("")%><%Response.Write(" ")%><%Response.Write(x.value)%>