Form Gönderirken 500 Internel Server Error Hatası

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Bilgisayar Teknik Servis Takip Sistemi</title>
<style type="text/css">
<!--
.style1 {font-family: Verdana}
.style3 {
	font-family: Verdana;
	font-size: 12px;
	font-weight: bold;
	color: #FFFFFF;
}
.style5 {
	font-family: Verdana;
	font-size: 10px;
	font-weight: bold;
	color: #FF0000;
}
-->
</style>
</head>

<body>
<!--#include file="header.asp"-->
<table width="700" height="50" border="0" align="center">
  <tr>
    <td width="350" height="25" bgcolor="#32B9FF"><span class="style3">Teknik Servis Takip Numara Sorgulama</span></td>
    <td width="350" height="25" colspan="2" bgcolor="#000000"><div align="center"><span class="style5">Size verilen takip formundaki "Takip Numarası"nı yazarak hizmet durumunu ayrıntılı olarak görebilirsiniz.</span></div></td>
  </tr>
  <tr>
    <td width="350" height="25" bgcolor="#32B9FF" class="style3">Takip Numarası : </td>
	<td width="350" height="25" bgcolor="#32B9FF"><form Action="takipet.asp" Method="get">
        <p class="style3">
          <input name="takipno" type="text" id="takipno" size="47"/>
          <input type="submit" class="style5" Value="Gonder" />
        </p>
	</form></td>
  </tr>
</table>
</body>
</html>

<%
    aranacak=Request.Querystring("takipno")
	
DbYol = Server.MapPath("db/pctakip2011.mdb")
Set exor = Server.CreateObject("Adodb.Connection")
exor.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& DbYol &";"
	
sql="select id from takiptablo where baslik like '%"&aranacak&"%'"
Set rs=Dbyol.execute(Sql) 

    if rs.eof then
        response.write "Herhangi bir arýza kaydýna rastlanmadý. Bu bilginin yanlýþ olduðunu düþünüyorsanýz lütfen irtibata geçin."
    else 
do while not rs.eof
response.Redirect("detay.asp?id='%"&aranacak&"%'")
loop
end if

%>