<%@ language="vbscript" lcid="1055"%>
<%
response.charset = "windows-1254"
response.charset = "iso-8859-9"
Response.CharSet="1254"
%>
<%
'Veritabanı Baglantısı
dbyol= server.MapPath("database/veritabani.mdb")
Set baglanti = server.CreateObject("adodb.Connection")
baglanti.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" &dbyol
%>
<meta content="text/html; charset=utf-8" http-equiv="Content-Type" />
<meta content="tr" http-equiv="Content-Language" />
<title>Yeni Kayıt Ekleme </title>
</head>
<body>
<table width="784" align="center">
<!--header-->
<tr><td style="height:100px;">
</td>
</tr>
<!--content-->
<p> <form action="da_ekle.asp?islem=ekle" method="post" enctype="multipart/form-data">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="38"><strong>Ürün kodu:</strong>....................
<input name="kod" type="text" size="35" /></td>
</tr>
<tr>
<td height="38"><strong>Ürün Başlığı :</strong>.................
<input name="baslik" type="text" size="35" /></td>
</tr>
<tr>
<td height="38"><strong>İng. Ürün Başlığı :</strong>...........
<input name="baslik_eng" type="text" size="35" /></td>
</tr>
<tr>
<td height="38"><strong>Ürün Açıklaması :</strong>...........
<textarea name="aciklama" cols="35" rows="4"></textarea></td>
</tr>
<tr>
<td height="63"><strong>İng. Ürün Açıklaması :</strong>.....
<textarea name="aciklama_eng" cols="35" rows="4"></textarea></td>
</tr>
<tr>
<td height="37"><strong>Ürün Fiyatı :</strong>...................
<input name="fiyat" type="text" size="35" /></td>
</tr>
<tr>
<td height="38"><strong>Ürün Resmi</strong>....................
<input name="resim" type="file" size="35" /></td>
</tr>
<tr>
<td height="38">
<div align="center">
<input type="submit" name="button" id="button" value="Ekle" />
</div></td>
</tr>
</table>
</form>
<%
if request.QueryString("islem")="ekle" then
Set Upload = Server.CreateObject("Persits.Upload" )
Count = Upload.SaveVirtual("images" )
kod = Upload.form("kod" )
baslik = Upload.form("baslik" )
baslik_eng = Upload.form("baslik_eng" )
aciklama = Upload.form("aciklama" )
aciklama_eng = Upload.form("aciklama_eng" )
fiyat = Upload.form("fiyat" )
Set yukle= Server.CreateObject("ADODB.Recordset" )
sql="Select * FROM anahtarlik_deri"
yukle.open sql,baglanti,1,3
yukle.addnew
yukle("kod" ) = kod
yukle("baslik" ) = baslik
yukle("baslik_eng" ) = baslik_eng
yukle("aciklama" ) = aciklama
yukle("aciklama_eng" ) = aciklama_eng
yukle("fiyat" ) = fiyat
yukle("resim" ) = ""&upload.files("resim" ).filename&""
yukle.update
response.Write("<h1>Tamamlandı</h1><hr><br>")
Response.Write "<meta http-equiv=refresh content=3;url=da_ekle.asp>"
end if
%>
