yada soyle bı soru soram

yazdıgım selerı gonder dıyınce 500 iç sunucu hatası verio
arama bölümü fln hersey calısıyo yenı ekleyınce boyle hata verıo

d_add.asp bu
Alıntı

<% @CodePage = 1254 %>
<%
Response.Buffer = True
%>
<html>
<head>
<title> :: sTok Takip Yazılımı </title>
<meta http-equiv="content-type" content="text/html; charset=windows-1254">
<meta http-equiv="content-type" content="text/html; charset=iso-8859-9">
<meta http-equiv="content-language" content="tr">
<!-- #include file="style.asp" -->
</head>
<!-- #include file="config.asp" -->
<body bgcolor="#ffffff" text="#000000" leftmargin="0" topmargin="0" rightmargin="0">
<!-- #include file="menu.asp" --><br><br><br><br><br>
<table border="1" align="center" bordercolor="#e4f5db">
<tr>
<td><h3> :: Yeni Stok Girisi :: </h3></td>
</tr>
</table>
<br>
<form action="d_add_islem.asp" method="post">
<table border="0" align="center" width="550"><tr><td align="left"><table border="0" align="center" width="550">
<tr>
<td align="left">Firma</td>
<td align="left"><input name="ograd" type="text" value="" class="form2" size=" "></td>
<td align="left">Marka :</td>
<td align="left"><input name="ogrsad" type="text" value="" class="form2" size=" "></td>
<td align="left">Model :</td>
<td align="left"><input name="baslama" type="text" value="" class="form2" size=" "></td>
</tr>
<tr>
<td align="left">Cins :</td>
<td align="left"><input name="ogrvad" type="text" value="" class="form2" size=" "></td>
<td align="left">Adet :</td>
<td align="left"><input name="ogtel" type="text" value="" class="form2" size=" "></td>
<td align="left">&nbsp;</td>
<td align="left">&nbsp;</td>
</tr>
<tr>
<td align="left" valign="top">tarih :</td>
<td align="left" valign="top"><input name="dev" type="text" value="" class="form2"></td>
<td align="left" valign="top">S.k.Tarihi :</td>
<td align="left" valign="top"><input name="dtar" type="text" value="" class="form2" size=" "></td>
</tr>
<tr>
<td align="left" valign="top">ek acıklama :</td>
<td align="left">&nbsp;</td>
</tr>
<tr>
<td align="center" colspan="6"><br>
<br>
<input type="submit" value=" .Kaydet. " class="form3">
&nbsp;&nbsp;&nbsp;
<input type="reset" value=" .Temizle. " class="form3"></td>
</tr>
</table></td>
</tr>
</table>
</form>
</body>
</html>



d_add_islem.asp de bu
Alıntı
<% @ Language="VBscript" codepage=1254 %>
<%
ograd=Request.form("ograd")
ogrsad=Request.form("ogrsad")
ogtel=Request.form("ogtel")
ogrvad=Request.form("ogrvad")
baslama=Request.form("baslama")
dev=Request.Form("dev")
dtar=Request.Form("dtar")
adres=Request.Form("adres")
%>
<% Vt_Yol=Server.Mappath("db/ogrenci.mdb")
Set Baglantim=Server.CreateObject("Adodb.Connection")
Baglantim.Open "DBQ="& Vt_Yol & ";Driver={Microsoft Access Driver (*.mdb)}"
Set Rs=Server.CreateObject("Adodb.Recordset")
Sorgu="Select * from ogrenci"
Rs.Open Sorgu, Baglantim, 1, 3
%>
<% Rs.AddNew
Rs("ograd")=ograd
Rs("ogrsad")=ogrsad
Rs("ogtel")=ogtel
Rs("ogrvad")=ogrvad
Rs("baslama")=baslama
Rs("dev")=dev
Rs("dtar")=dtar
Rs("adres")=adres
Rs.Update
%>
<%
Rs.Close
Set Rs=Nothing
Baglantim.Close
Set Baglantim=Nothing
%>
<% Response.redirect("d_add.asp")
%>