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
|