| 
          
           | Gönderen: 07-Kasım-2007 Saat 11:49 | Kayıtlı IP |   |  
           | 
 |  wwwroot klasörünü paylaşıma açıp tam yetki verdikten sonra kodu aşağıdaki gibi değiştirdim ve çalıştı. iyi günler.... <%@ LANGUAGE="VBscript"%><!--#include file="adovbs.inc"-->
 <%
 ad=request.form("ad")
 soyad=request.form("soyad")
 email=request.form("email")
 konu=request.Form("konu")
 mesaj=request.form("mesaj")
 %>
 <%
 Set Bag = Server.CreateObject("Adodb.Connection")Bag.Open "DBQ="& Server.Mappath("yorumlar.mdb") &";Driver={Microsoft Access Driver (*.mdb)}"
 set kayitSeti=Server.CreateObject("ADODB.RecordSet")
 kayitSeti.open "yorumlar",Bag,1,3
 kayitSeti.AddNew
 kayitSeti("ad")=ad
 kayitSeti("soyad")=soyad
 kayitSeti("email")=email
 kayitSeti("konu")=konu
 kayitSeti("mesaj")=mesaj
 kayitSeti("tarih")=date
 kayitSeti.update
 kayitSeti.close
 Set kayitSeti=nothing
 Bag.close
 Set Bag=nothing%>
 
 __________________
 Sedat UYSAL
 |