Arkadaşlar aşağıdaki kodları kullanarak basit bir veritabanına yazdırma işlemi scripti yaptım asp ile.Ancak 500 hatası almaktayım kodlarda hata mı var acaba?
http://www.bitkinet.net/uyelikistegi/

KODLAR:
index.asp

<title>BitkiNET.net Üyelik İstek Formu</title>
<%

If SESSION("koru" )="" Then '
SESSION("koru" )=0
Else
SESSION("koru" )= SESSION("koru" ) + 1
End If

If CInt(SESSION("koru" ))> 5 Then '
Session.TimeOut=5
Response.Write("<title> Flood Koruması </title>")
RESPONSE.Write("<center><b>Flood Koruması Devrede !</b></center><br>")
Response.Write("<center><b>5 dakikalığına siteden uzaklaştırıldınız.</b><br>")
Response.Write("<center><b>Sebebi:</b>Birden fazla üyelik isteği göndermek.</center>")

RESPONSE.End
End If
%> 
<form action="ok.asp" method="post">
<font face="Verdana" size="2" color="#FF0000"><b>Üyelik İstek Formu</b><br>
</font><font face="Verdana" size="2">Lütfen bir kere istek gönderdikten sonra 
tekrar tekrar istek göndermeyiniz.<br>
Tekrar tekrar göndermeniz işlemleri hızlandırmayacaktır.<br>
İstek sonucunuz 72 saat içinde elektronik posta adresinize bildirilir.<br>
Elektronik Posta Adresiniz:</font>
<input type="text" name="email" size="38"> <br>
<br>
<font face="Verdana">
<input type="submit" value="Gönder"></font>
</form>

ok.asp

<title>Üyelik İsteğiniz Kayıt Edilmiştir.</title>
<%

If SESSION("koru" )="" Then '
SESSION("koru" )=0
Else
SESSION("koru" )= SESSION("koru" ) + 1
End If

If CInt(SESSION("koru" ))> 5 Then '
Session.TimeOut=5
Response.Write("<title> Flood Koruması </title>")
RESPONSE.Write("<center><b>Flood Koruması Devrede !</b></center><br>")
Response.Write("<center><b>5 dakikalığına siteden uzaklaştırıldınız.</b><br>")
Response.Write("<center><b>Sebebi:</b>Birden fazla üyelik isteği göndermek.</center>")

RESPONSE.End
End If
%> 
<%
dbadi="veritabani.mdb"
Set baglanti=Server.Createobject(“Adodb.Connection” )
baglanti.provider="Microsoft.jet.oledb.4.0"
baglanti.open Server.Mappath(dbadi )

Set rs=Server.Creteobject("adodb.recordset" )
rs.open "select * from tabloadi", baglanti, 1, 3

gelenveri=request.form("email" )
rs.addnew
rs("isim" )=gelenveri
rs.update
%>