Gönderen: 15-Mayıs-2007 Saat 11:51 | Kayıtlı IP
|
|
|
Microsoft OLE DB Provider for ODBC Drivers (0x80004005) [Microsoft][ODBC Driver Manager] Veri kaynağı adı bulunamadı ve varsayılan sürücü belirtilmemiş hatası veriyor bağlantı da ne sorun olabilir .tşk
<% set baglanti=server.createObject("adodb.connection") baglanti.Open "Driver={Microsoft Access driver(*.mdb)};DBQ="& server.MapPath("haber.mdb")
ekleyen=request.form("ekleyen") email=request.form("email") baslik=request.form("baslik") detay=request.form("detay")
set kayit=Server.CreateObject("ADODB.RecordSet") Sql_komutu="select * from haber" kayit.Open Sql_komutu,baglanti,1,3
if isim ="" or posta ="" or mesaj ="" then Response.Write "<font size=""+1""><b><font color=""#FF0000"">HATA!</font><br><br>L ütfen bütün alanları doldurunuz</b></font><br><br><br& gt;<br>" Response.Write "<a href=""javascript:history.back()""><<Geri&l t;/a></b>" else Kayit.AddNew Kayit("tarih")=date() Kayit("saat")=time() Kayit("durum")="Pasif" 'Pasif, mesajin yayinda olmamasi demektir ve her mesaj baslangiçta pasiftir Kayit("ekleyen")=ekleyen Kayit("email")=email Kayit("detay")=detay Kayit("baslik")=baslik Kayit.Update Response.Write "<font size=""+1""><b><font color=""#00FF00"">TEBRIKLER!</font><br><br >Haberiniz basarili bir sekilde kaydedildi</b></font><br><br><br& gt;<br>" Response.Write "<a href=""haber_form.asp""><<Geri</a>< ;/b>" end if Kayit.close Set Kayit = Nothing %>
|