asp veritabanı sorgu problemi

 
   
  <% 
   
  katid=Request.QueryString("katid" ) 
   
  grupid=Request.QueryString("grupid" ) 
   
  Set qbms = Server.CreateObject("ADODB.RecordSet") 
   
  sor="SELECT * From bms WHERE Marka='"&Request.QueryString("katid" )&"' and grup='"&Request.QueryString("grupid" )&"'"  
   
  qbms.Open sor,cbm,1,3 
   
  %> 
   
    
   
  <% if qbms.eof then 
   
  Response.Write "Kayýt Yok" 
   
  End if %> 
   
  <% if Not qbms.EOF then 
   
  do while not qbms.eof %> 
   
  <table width="451" border="1"> 
   
  <tr> 
   
  <th width="100" scope="col">Marka</th> 
   
  <th width="148" scope="col">Grup</th> 
   
  <th width="181" scope="col">ad</th> 
   
  <th width="181" scope="col">isim</th> 
   
  </tr> 
   
  <tr> 
   
  <th scope="col"><%= qbms("marka") %></th> 
   
  <th scope="col"><%= qbms("grup") %></th> 
   
  <th scope="col"><%= qbms("ad") %></th> 
   
  <th scope="col"><%= qbms("isim") %></th> 
   
  </tr> 
   
  <%  
   
  qbms.MoveNext 
   
  loop 
   
  end if 
   
  ' Clean Up 
   
  Set haluk1 = Nothing 
   
  cbm.Close 
   
  Set cbm = Nothing 
   
  %> 
   
  </table>

 
  if Request.QueryString("grupid") <> "" Then 
      sqlStr = "SELECT * From bms WHERE Marka='"&Request.QueryString("katid")&"' and grup='" & Request.QueryString("grupid") & "'" 
  else 
      sqlStr = "SELECT * From bms WHERE Marka='"&Request.QueryString("katid") & "'"