<% set oCon = Server.CreateObject("ADODB.CONNECTION") oCon.open strConnect dropdown = Application("DropDownArray") randomize set oImageRS = server.CreateObject("ADODB.RecordSet") SQL = "Select cImage from homepageImages where iStatus = 1" oImageRS.open sql, oCon, 1, 3 if not oImageRS.EOF then imageNumber = int(rnd * oImageRS.RecordCount) + 1 iCount = 1 do while not oImageRS.EOF if iCount = imageNumber then 'image found cImage = oImageRS("cImage") exit do end if iCount = iCount + 1 oImageRS.movenext loop else cImage = "spacer.gif" end if %>
Search by Product Number:
<% catalogArray = Application("catalogArray")%>
Henkel Harris
2983 South Pleasant Valley Road
Winchester VA 22601
540-667-4900
<% SQL = "Select cMessage from homepage where id = 1" set RS = oCon.execute(SQL) if not RS.EOF then msg = trim(RS("cMessage")) else msg = "" end if if len(msg) > 0 then%>
<%=replace(msg, chr(13), "
")%>
<% else %> <% end if%>
© <%=year(date())%> All Rights Reserved

Dealer Log-On
<% oCon.close() set oCon = NOTHING %>