<% Set rsMehmet = Server.CreateObject("ADODB.Recordset") SQLmehmet = "SELECT DISTINCT(marka) FROM urun WHERE kategori='" & request.querystring("CATEGORY") & "' " rsMehmet.Open SQLmehmet, BAGLAN, 1, 3 sira = 1
DO WHILE NOT rsMehmet.EOF IF sira = 1 THEN response.write("<TR>") END IF %> <td width="20%" style="font-size: 10px; color: #000000; font-family: Verdana, Arial, helvetica, sans-serif"> <img border="0" src="image/bullet_hl0.gif"> <A style="color: #000000; text-decoration: none" HREF="product1.asp?CATEGORY=<% =request.querystring("CATEGORY") %>&MARK=<% =rsMehmet("marka") %>"> <% =rsMehmet("marka") %> </a> </td> <% IF sira = 5 THEN response.write("</TR>") sira = 0 END IF
Set rsMehmet = Server.CreateObject("ADODB.Recordset")
SQLmehmet = "SELECT DISTINCT(marka) FROM urun WHERE kategori='" & request.querystring("CATEGORY") & "' "
rsMehmet.Open SQLmehmet, BAGLAN, 1, 3
sira = 1
DO WHILE NOT rsMehmet.EOF
IF sira = 1 THEN
response.write("<TR>")
END IF
%>
<td width="20%" style="font-size: 10px; color: #000000; font-family: Verdana, Arial, helvetica, sans-serif">
<img border="0" src="image/bullet_hl0.gif">
<A style="color: #000000; text-decoration: none" HREF="product1.asp?CATEGORY=<% =request.querystring("CATEGORY") %>&MARK=<% =rsMehmet("marka") %>">
<% =rsMehmet("marka") %>
</a>
</td>
<%
IF sira = 5 THEN
response.write("</TR>")
sira = 0
END IF
sira = sira + 1
rsMehmet.MoveNext
LOOP
rsMehmet.close
set rsMehmet = NOTHING
%>