 <% Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open "FultonAffiliates" SQL = "SELECT * FROM products WHERE productname LIKE '%" & Request.Form("product") & "%' AND affiliate = '" & affcode & "'" Set RS = Conn.Execute(SQL) %>
|
<% rs.close conn.close %>
<% Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open "FultonAffiliates" SQL = "SELECT * FROM products WHERE productname LIKE '%" & Request.Form("product") & "%' AND affiliate = '" & affcode & "'" Set RS = Conn.Execute(SQL) %><% if RS.EOF then %>
<% end if %> <% DO UNTIL RS.EOF %> Sorry No Products Found <% RS.MoveNext %> <% LOOP %> "><% = RS("productname") %>
<% = RS("shortdesc") %>
