Bu şekilde yapabilirsiniz:

Set liste=con.Execute("SELECT * FROM tablo WHERE id LIKE '"&Request.QueryString("id")&" LIMIT 1'")
If liste.EOF Then
Response.Write "Kayıt bulunamadı."
Else
'Listeleme kodlarınız
End If:liste.Close:Set liste=Nothing

* Adres çubuğundan gelen veriyi yukarıdaki örnekte verdiğim gibi doğrudan kullanmayın! Saldırıya uğramamak için filtreden geçirin!