| <%
url=Request.Form("url")
bannerkredi=Request.Form("bannerkredi")
yonlendir=request.form("yonlendir")
%>
<%
Vt_Yol=Server.Mappath("db.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 kredi"
Rs.Open Sorgu, Baglantim, 1, 3
%>
<% Rs.AddNew
Rs("url")=url
Rs("bannerkredi")=bannerkredi
Rs("yonlendir")=yonlendir
Rs("tpuan") = "0"
Rs("toy") = "0"
Rs.Update
%>
<% Rs.Close
Set Rs=Nothing
Baglantim.Close
Set Baglantim=Nothing
%>
İşlem Tamamlandı Geri
Dön. |
