Merhaba;
Sorunuma acil çözüm arıyorum. Lütfen yardımlarınızı esirgemeyin.
Resmin yükleneceği klasörü bir türlü görmüyor ve aşağıdaki hatayı veriyor.
Sebebi ne olabilir. Dosya izinleri tam.
Persits.Upload.1 error '800a0005' The system cannot find the path specified.
/deri_go.asp, line 34
Sorunuma acil çözüm arıyorum. Lütfen yardımlarınızı esirgemeyin.
Resmin yükleneceği klasörü bir türlü görmüyor ve aşağıdaki hatayı veriyor.
Sebebi ne olabilir. Dosya izinleri tam.
Persits.Upload.1 error '800a0005' The system cannot find the path specified.
/deri_go.asp, line 34
Kod:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
dbyol= server.MapPath("database/veritabani.mdb")
Set baglanti = server.CreateObject("adodb.Connection")
baglanti.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" &dbyol
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled Document</title>
</head>
<body>
<form action="deri_go.asp?islem=ekle" method="post" enctype="multipart/form-data">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="38">Resim : <input type="file" name="resim" /></td>
</tr>
<tr>
<td height="38">
<input type="submit" name="button" id="button" value="Submit" />
</td>
</tr>
</table>
</form>
<%
if request.QueryString("islem")="ekle" then
Set Upload = Server.CreateObject("Persits.Upload" )
Count = Upload.Save("images" )
Set yukle= Server.CreateObject("ADODB.Recordset" )
sql="Select * FROM anahtarlik_deri"
yukle.open sql,baglanti,1,3
yukle.addnew
yukle("resim" ) = "http://forum.iyinet.com/images/"&upload.files("resim" ).filename&""
yukle.update
end if
%>
</body>
</html>