%
kat=request.querystring("kat")
Set rs = Server.CreateObject("ADODB.Recordset" )
sql = "SELECT * from tarif_tarifler where kat_id="&kat
rs.Open sql, conn, 1, 3
if rs.eof then
response.write "
"&""&"Bu Kategoride Henüz Tarif Yok !"&"
"
else
end if
do while not rs.eof
%>
<%
response.write " "&""&rs("tarif_adi")&""
response.write "
"
rs.movenext
loop
%>