| <%
if session("admin") = True Then
%>
<%
Set Baglanti = Server.CreateObject("ADODB.Connection")
Baglanti.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb")
%>
<%
kadi=trim(Request.Form("kadi"))
bannerkredi=trim(Request.Form("bannerkredi"))
%>
<%
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 uyekredi"
Rs.Open Sorgu, Baglantim, 1, 3
%><% Rs.AddNew
Rs("kadi")=kadi
Rs("bannerkredi")=bannerkredi
Rs.Update
%>
<% Rs.Close
Set Rs=Nothing
Baglantim.Close
Set Baglantim=Nothing
%>
<%
else
response.redirect "default.asp"
end if
%> |
|
 |
|
