Gelişmiş Arama Scripti

<form action="arama.asp" method="get"><div class="metin1">
<table width="334" height="267" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td colspan="2"></td>
  </tr>
  
  <tr>
    <td width="108"><span class="metin1">Kategori
      
 </span></td>
    <td width="226"><span class="metin1">
      <select size="1" name="TIP" class="input" style="WIDTH: 100%">
        <option value="0" selected="selected">Farketmez</option>
        <option value="Binek araç">Binek araç</option>
        <option value="Hafif Ticari Araç">Hafif Ticari Araç</option>
        </select>
    </span></td>
  </tr>
  <tr>
    <td><span class="metin1">Kasa Tipi </span></td>
    <td><span class="metin1">
      <select size="1" name="KASA" class="input" style="WIDTH: 100%">
        <option value="0">Farketmez</option>
        <option value="Cabriolet">Cabriolet</option>
        <option value="Coupe">Coupe</option>
         </select>
    </span></td>
  </tr>
  <tr>
    <td>Marka</td>
    <td><span class="metin1">
      <select name="CAT_ID" class="input" style="WIDTH: 100%">
        <option value="0">Farketmez</option>
        <option value="107">Alfa Romeo</option>
        <option value="108">AMC</option>
        <option value="110">Aston Martin</option>
        </select>
    </span></td>
  </tr>
  <tr>
    <td><span class="metin1">Yakıt </span></td>
    <td><span class="metin1">
      <select name="YAKIT" class="input" style="WIDTH: 100%">
        <option value="0">Farketmez</option>
        <option value="Benzin">Benzin</option>
        <option value="Dizel">Dizel</option>
          </select>
    </span></td>
  </tr>
  <tr>
    <td><span class="metin1">İl</span></td>
    <td><span class="metin1">
      <select name="SEHIR" class="input" style="WIDTH: 100%">
        <option value="0" selected="selected">Farketmez</option>
        <option value="ADANA">ADANA</option>
        <option value="AFYON">AFYON</option>
       </select>
    </span></td>
  </tr>
  <tr>
    <td colspan="2"><span class="metin1">
      <input name="submit" type="submit" style="WIDTH: 100%" value="Ara" />
    </span></td>
  </tr>
</table></div>
</form>

<table width="660" height="27" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td><font size="2" face="Verdana" color="#006699">
      <%
dbyolu = "veritabani.mdb"
StrPath = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&dbyolu&"")

Set Baglanti = Server.CreateObject("adodb.connection")
Baglanti.Open StrPath

TIP = Request.QueryString("TIP")
KASA = Request.QueryString("KASA")
CAT_ID = Request.QueryString("CAT_ID")
YAKIT = Request.QueryString("YAKIT")
SEHIR = Request.QueryString("SEHIR")

sql="Select * from ilan Where TIP like '%"&TIP&"%' and  KASA like '%"&KASA&"%' and  CAT_ID like '%"&CAT_ID&"%' and  YAKIT like '%"&YAKIT&"%' and  SEHIR like '%"&SEHIR&"%'"
Set aramalar = Baglanti.ExeCute(sql)

IF aramalar.eof Then
Response.Write "Ilan Bulunamadi..<br />"
response.end
End if

Do While not aramalar.eof
%>
      <br />
        
      <%
Response.Write aramalar("TIP")%>
        
      <%Response.Write aramalar("KASA")%>
        
      <%Response.Write aramalar("CAT_ID")%>
        
      <%Response.Write aramalar("YAKIT")%>
        
      <%Response.Write aramalar("SEHIR")%>
      <img src="../images/<%=(aramalar.Fields.Item("resim").Value)%>" width="90" border="0" /><br />
      <%
aramalar.movenext
loop

aramalar.close
Set aramalar = Nothing
Baglanti.close
Set Baglanti = Nothing
%>
    </font> </td>
  </tr>
</table>