ASP arama motorundaki hatayı bulamıyorum :( Bİr türlü çalışmıyor

[Sosolog]

Slm arkadaşlar asp de yeniyim.
ASP içeren bir portal yaptım ancak arama motoru konusunda epey sorun yaşıyorum

accsess te sadece bir başlık arıyor diğer başlıkları aratmasını istiyorum ancak çalıştırmıyor
sadece id başlığını arabtabiliyorum
yardım ederseniz sevinirin.

Kodlar:

Dim ogrenci_list
Set ogrenci_list=Server.createobject("ADODB.Recordset" )
if request.QueryString("islem")="ara" then
ara=request.form("ara")
sql="Select * from ogrenci where id="&ara
if ara="" then sql="Select * from ogrenci"
else
sql="Select * from ogrenci"
end if
ogrenci_list.open sql,baglanti,1,3
if ogrenci_list.eof then
response.write "kayıt bulunamadı"
end if


yukarıda id yazan yere diğer değişkenleri yazıyorum olmuyor. Örneğin ad yada soyad başlıklarını yazıyorum sayfa hiç açılmıyor

Yardımlarınız için şimdiden teşekkür ederim
Saygılarımla

[Cyberneo]

if ara="" then   
sql="Select * from ogrenci"
else
sql="Select * from ogrenci"
end if 

querystring e gerek yok, direkt post etttir, like değeri ile benzerlerini listelet. if döngüsü boşa dönüyor.

[Sosolog]

hocam dediğin kodu girdim yine olmadı aşğıdaki kodlarda yanlışlık var "id" yazan kırmızı yere sadece ogrenci_soyadi değişkenini girmem gerkiyo. orayı aratmalıyım. ama malesef olmuyo. AŞAĞIDAKİ KODLARI DÜZELTEBİLECEK OLAN VARMI. ben pek anlamıyorum bişeyi eksik yapıyorum asp de de yeniyim

<input name="ara" type="text" />
<input name="btn" type="submit" value="ARA"/></form>

Dim ogrenci_list
Set ogrenci_list=Server.createobject("ADODB.Recordset" )
if request.QueryString("islem")="ara" then
ara=request.form("ara")
sql="Select * from ogrenci where id="&ara
if ara="" then sql="Select * from ogrenci"
else
sql="Select * from ogrenci"
end if
ogrenci_list.open sql,baglanti,1,3
if ogrenci_list.eof then
response.write "kayıt bulunamadı"
end if

[Cyberneo]

<%
function guvenlik(cyb)
cyb = Replace (cyb ,"'","",1,-1,1)
cyb = Replace (cyb ,"`","",1,-1,1)
cyb = Replace (cyb ,"=","",1,-1,1)
cyb = Replace (cyb ,"&","",1,-1,1)
cyb = Replace (cyb ,"%","",1,-1,1)
cyb = Replace (cyb ,"!","",1,-1,1)
cyb = Replace (cyb ,"#","",1,-1,1)
cyb = Replace (cyb ,"<","",1,-1,1)
cyb = Replace (cyb ,">","",1,-1,1)
cyb = Replace (cyb ,"*","",1,-1,1)
cyb = Replace (cyb ,"/","",1,-1,1)
cyb = Replace (cyb ,"\","",1,-1,1)
cyb = Replace (cyb ,"And","",1,-1,1)
cyb = Replace (cyb ,"","",1,-1,1)
cyb = Replace (cyb ,"Chr(34)","",1,-1,1)
cyb = Replace (cyb ,"Chr(39)","",1,-1,1)
guvenlik=cyb
end function
%>
<% Dim soyadi
    soyadi = guvenlik(Request.form("ara"))
    Set rs = Server.CreateObject("ADODB.RecordSet")
    ogrenci_list = "select * from ogrenci WHERE ogrenci_soyadi="&soyadi&""
    rs.open ogrenci_list,baglantim,1,3

    if rs.eof and rs.bof then
    response.write "Öğrenci Kaydı bulunmadı !")
    Response.End
    end if
%>
<%=id %> - <%=ogrenci_adi %> - <%=ogrenci_soyadi %> 

[Sosolog]

Hocam emeğin için çok teşekkür ederim sana ancak şöyle bir hata alıyorum malesef

Microsoft VBScript derleme hatası (0x800A0401)
Deyim sonu gerekli
/sadmer/ogrenciler.asp, line 124, column 42
response.write "Öğrenci Kaydı bulunmadı !")


access tablodaki değişkeninim adı ogrenci_soyadi