[msecure]

<%
Set mailRS= server.CreateObject("ADODB.Recordset")
mailRS.ActiveConnection=bag
mailRS.CursorType= adOpenStatic
mailRS.Open "Select * From ilacstok"
%>
<p style="margin-left: 9"><font face="Arial" size="2">Gelen ilaçların kaydı. Kayıt yapan : $NAME</font></p>
<form method="POST" action="gonder4.ASP?id=<%=mailRS("ilacadi")%>" name="example_form">

burada formdan gonder4.ASP ye postluyorum fakat doğru ilaç adı gitmiyor hep en üstteki gidiyor.
Sonra şöyle bir durum var

--------------------------
gonder4.ASP

<%@ Language=VBScript CodePage=1254%>

<!--#INCLUDE FILE="vt.ASP"-->

<%
Dim ilacadi,firmaadi,tarih,miktar

ilacadi = request.form("ilacadi")
tarih = request.form("tarih")
miktar = request.form("miktar")
bolum = request.form("bolum")
stokcikan = request.form("stokcikan")

Set mailADD = server. CreateObject("ADODB.Recordset")
KAYIT = "Select * from ilacstok where id="&id&""
mailADD.Open KAYIT,bag,1,3
mailADD.MoveFirst

mailAdd.Update
mailADD("ilacadi") = ilacadi
mailADD("tarih") = tarih
mailADD("miktar") = (mailADD("miktar")-miktar)
mailADD("bolum") = bolum
mailADD("stokcikan") = stokcikan

mailADD.Update
mailADD.Close

%>

bura da hata veriyor id yok gibisinden where bolumunu kaldırınca üstüne ekliyor fakat bu seferde en üsttekine yapıyor gene seçtiğime yapmıyor :S

[delizeka]

İlk bölümde anladığım kadarıyla zaten ilk datayı yazdırıyorsun id nin karşısına. Select yapmışsın ve ilk datayı id= diye yazdırmışsın. Doğru ilaç ID sini ne belirliyor anlamadım?

KAYIT = "Select * from ilacstok where id="&id&""

Yukarıdaki kod ile id diye bir değişken yazmışsın ama id yi herhangi birşeye eşitlememişsin daha önce. Dolayısıyla id nin içinde herhangi birşey yok. Eğer query ile gönderdiğin id değerini almak ve onu yazdırmak istiyorsan

id = request.querystring("id")

gibi bir şekilde id değerini almalısın, herhangi bir yerde kullanmadan önce.