Kayıt Yok Uyarısı Gösterme

arkadaşlar elimde bir kod var bununla tc numarasını giren öğrenciler notlarını görüyor ancak yanlış tc girince ADODB.Field error '800a0bcd' hatası veriyor bunun yerine "tc yanlış girdiniz uyarısı vermek istiyorum bi türlü yapamadım.
kodlar şu şekilde:




<%@LANGUAGE="VBSCRIPT" CODEPAGE="1254"%>

<%
Dim tckimliksor__MMColParam
tckimliksor__MMColParam = "1"
If (Request.Form("tckimlikno") <> "") Then
tckimliksor__MMColParam = Request.Form("tckimlikno")
end if
%>
<%
Dim tckimliksor
Dim tckimliksor_cmd
Dim tckimliksor_numRows

Set tckimliksor_cmd = Server.CreateObject ("ADODB.Command")
tckimliksor_cmd.ActiveConnection = MM_baglanti_STRING
tckimliksor_cmd.CommandText = "SELECT * FROM ogrenci_bilgi WHERE tckimlikno = ?"
tckimliksor_cmd.Prepared = true
tckimliksor_cmd.Parameters.Append tckimliksor_cmd.CreateParameter("param1", 200, 1, 11, tckimliksor__MMColParam) ' adVarChar

Set tckimliksor = tckimliksor_cmd.Execute
tckimliksor_numRows = 0
%>









 

Sınav Sonuç Sorgulama Sayfasına Hoşgeldiniz. SONUÇ BİLGİLERİNİZ T.C. Kimlik No : <%=(tckimliksor.Fields.Item("tckimlikno").Value)%>  Adı Soyadı : <%=(tckimliksor.Fields.Item("adi_soyadi").Value)%>  Boş Bırakılan Sorular : <%=(tckimliksor.Fields.Item("bos").Value)%>  Yanlış Cevap : <%=(tckimliksor.Fields.Item("dogru").Value)%>  Doğru Cevap : <%=(tckimliksor.Fields.Item("yanlis").Value)%>  Aldığı Puan : <%=(tckimliksor.Fields.Item("puan").Value)%>  Yeni Sorgu

 

<%
tckimliksor.Close()
Set tckimliksor = Nothing
%>