<%
Set Sur = Server.CreateObject("ADODB.Connection")
Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/datam.mdb")

id=Request.QueryString("id")
Set uranyumsoft = Server.CreateObject("ADODB.Recordset")
sor = "Select * from tablon where id="&id
uranyumsoft.Open sor,Sur,1,3

islem=Request.QueryString("islem")
if islem="duzenle" then
call duzenle
end if
%>


<form method="POST" action="guncelle.asp?id=<%=("id")%>&islem=duzenle" >
<input type="hidden" name="id" value="<%=("adi")%>">
<div align="center">
<table border="0" cellpadding="0" cellspacing="1" width="100%" bgcolor="#D1D1D1">
<tr>
<td bgcolor="#999999" height="20">
<p align="center"><b><font color="#FFFFFF">uye Düzenleme</font></b>
</td>
</tr>
</table>
</div>
<div align="center">
<table border="0" width="100%" cellspacing="1" align="left">
<tr>
<td width="14%" align="right">ice :</td>
<td width="86%">
<input type="text" size="25" class="form1" value="../<%=("adi")%>" name="resim">
</td>
</tr>
<tr>
<td width="14%" align="right">adi:</td>
<td width="86%">
<input type="text" name="urun" size="25" class="form1" value="<%=("ice")%>">
</td>
</tr>
</div>
</td>
</tr>
<tr>
<td width="14%"></td>
<td colspan="2" width="86%">
<div align="right">
<input type="submit" name="Submit" value="ekle">&nbsp;
</div>
</tr>
</table>
</div>
</form>



<%
sub duzenle
id=Request.Form("adi")
urun= request.form("ice")

if id="" then
Response.Write "Hata! Eksik bilgi"

else
Set duz = Server.CreateObject("ADODB.RecordSet")
sor = "select * from tabloadın where id="&id
duz.open sor, Sur, 1, 3

duz("adi") =urun
duz("urun") =resim

duz.Update

Response.Write "<center><font face=verdana color=black size=1>Bilgiler Güncellendi<br><a href=../default.asp>Ana Sayfa</a></font></center>"

Response.End
end if
end sub
%>

kendine gore duzenlersen calisacaqini umuyorum ama uykusuzum test edemedim bi eksiklik varsa yazarsin yine halletmeye calisiriz inş sacmalamamisimdir