kod kısmında bir işelemi yapamadım.

[haznedarli]

kolay gelsin .
asp bir sayfam var burda müşterilerim login oluyor paneline girip bakiyesini görüyor bir değişiklik yapmak istedim login olurken bu işi helledemezmiyim dedim ama beceremedim

Set Rs = Server.CreateObject("ADODB.Recordset")
SQL="SELECT CH.BLKODU, CH.TARIHI, CH.EVRAK_NO, CH.ACIKLAMA, CH.ISLEM_TURU, CH.ENTEGRASYON, CH.FATURA_DURUMU, CH.KPB_BTUT AS BORC, CH.KPB_ATUT AS ALACAK, (SELECT ABS(COALESCE(SUM(KPB_BTUT), 0) - COALESCE(SUM(KPB_ATUT), 0)) FROM CARIHR WHERE CARIHR.BLCRKODU = CH.BLCRKODU AND ((CARIHR.TARIHI < CH.TARIHI) OR (CARIHR.TARIHI = CH.TARIHI AND CARIHR.BLKODU <= CH.BLKODU))) AS BAKIYE, CASE WHEN (SELECT COALESCE(SUM(KPB_BTUT), 0) - COALESCE(SUM(KPB_ATUT), 0) FROM CARIHR WHERE CARIHR.BLCRKODU = CH.BLCRKODU AND ((CARIHR.TARIHI < CH.TARIHI) OR (CARIHR.TARIHI = CH.TARIHI AND CARIHR.BLKODU <= CH.BLKODU))) > 0 THEN 'Borç' WHEN (SELECT COALESCE(SUM(KPB_BTUT), 0) - COALESCE(SUM(KPB_ATUT), 0) FROM CARIHR WHERE CARIHR.BLCRKODU = CH.BLCRKODU AND ((CARIHR.TARIHI < CH.TARIHI) OR (CARIHR.TARIHI = CH.TARIHI AND CARIHR.BLKODU <= CH.BLKODU))) < 0 THEN 'Alacak' ELSE 'Sıfır' END AS BORC_ALACAK FROM CARIHR CH WHERE (CH.BLCRKODU="&Kimlik&") ORDER BY CH.TARIHI"
Rs.Open SQL, Conn,1,3
if Not Rs.EOF then
while not Rs.EOF
bak=rs("BAKIYE")
BORC_ALACAK=rs("BORC_ALACAK")

Rs.MoveNext
Wend
END if
Rs.Close
Set Rs=Nothing

bekiyesini yürütüyorum orda bir sıkıntı yok benim istedigim kullanıcı login olurken bu hesabı yapsın yapsınki adınız osman bakiyeniz 100 tl yazdırmak istedim yani login oldugunda panele gşrmeden bakiyesini görsün diye
yukarıdaki koda nasıl yaparım


WEB_USER_NAME='"&girisWEB_USER_NAME&"'



login kısmım burdadır..



<%
dim giriskomut
dim girisWEB_USER_NAME
dim girisWEB_USER_PASSW
page=request.querystring("page")
uyecerez = Request.Cookies("uyecerez")("durum")
username=Request.Cookies("uyecerez")("WEB_USER_NAME")
Kimlik=Request.Cookies("uyecerez")("BLKODU")
CARIKODU=Request.Cookies("uyecerez")("CARIKODU")
TOPTANCI=Request.Cookies("uyecerez")("TOPTANCI")
MUSTERI=Request.Cookies("uyecerez")("MUSTERI")
if uyecerez="uyedir" then
access="ok"
username=Request.Cookies("uyecerez")("WEB_USER_NAME")
isim=Request.Cookies("uyecerez")("TICARI_UNVANI")
end if
giriskomut=request.form("giriskomut")
girisWEB_USER_NAME=request.form("girisWEB_USER_NAME")
girisWEB_USER_NAME=guvenlik(girisWEB_USER_NAME)
girisWEB_USER_NAME=replace(girisWEB_USER_NAME, " ","x")
girisWEB_USER_NAME=trim(girisWEB_USER_NAME)
if len(girisWEB_USER_NAME)>11 then response.redirect "guvenlik.asp"
girisWEB_USER_PASSWilk=md5(request.form("girisWEB_USER_PASSW"))
girisWEB_USER_PASSWilk=guvenlik(girisWEB_USER_PASSWilk)
girisWEB_USER_PASSWilk=replace(girisWEB_USER_PASSWilk, " ","x")
girisWEB_USER_PASSWilk=trim(girisWEB_USER_PASSWilk)
girisWEB_USER_PASSW=ucase(girisWEB_USER_PASSWilk)
if giriskomut="girildi" then
Set Rs = Server.CreateObject("ADODB.Recordset")
SQL = "Select * From dbo.CARI where WEB_USER_NAME='"&girisWEB_USER_NAME&"'"
Rs.Open SQL, Conn,1,3
If Not Rs.EOF Then
if Rs("WEB_USER_PASSW")=(girisWEB_USER_PASSW) or Rs("WEB_USER_PASSW")=lcase(girisWEB_USER_PASSW) then
access="ok"
username=Rs("WEB_USER_NAME")
isim=Rs("TICARI_UNVANI")
CARIKODU=Rs("CARIKODU")
Kimlik=Rs("BLKODU")
Pass1=Rs("WEB_USER_PASSW")
email=rs("E_MAIL")
faturaisim=rs("TICARI_UNVANI")
faturaadres=rs("ADRESI_1")
faturatelefon=rs("TEL1")
faturayetkili=rs("TICARI_UNVANI")
faturaVD=rs("VERGI_DAIRESI")
faturaVNO=rs("VERGI_NO")
TOPTANCI=rs("GRUBU")
MUSTERI=rs("GRUBU")
Rs.Close
Set Rs=Nothing
Response.Cookies("uyecerez")("durum") = "uyedir"
Response.Cookies("uyecerez")("username") = username
Response.Cookies("uyecerez")("Kimlik") = Kimlik
Response.Cookies("uyecerez")("password") = Pass1
Response.Cookies("uyecerez")("name") = isim
Response.Cookies("uyecerez")("CARIKODU") = CARIKODU
Response.Cookies("uyecerez")("email") = email
Response.Cookies("uyecerez")("faturaisim") = faturaisim
Response.Cookies("uyecerez")("faturaadres") = faturaadres
Response.Cookies("uyecerez")("faturatelefon") = faturatelefon
Response.Cookies("uyecerez")("faturayetkili") = faturayetkili
Response.Cookies("uyecerez")("faturaVD") = faturaVD
Response.Cookies("uyecerez")("faturaVNO") = faturaVNO
Response.Cookies("uyecerez")("TOPTANCI") = TOPTANCI
Response.Cookies("uyecerez")("MUSTERI") = MUSTERI
Response.Cookies("uyecerez").Expires = Now()+365
Set Rs = Server.CreateObject("ADODB.Recordset")
SQL = "Select * From dbo.CARI where WEB_USER_NAME='"&username&"'"
Rs.Open SQL, Conn,1,3
if not rs("AKTIF")=true then
rs("AKTIF")=1
Rs.Update
end if
Rs.Close
Set Rs=Nothing
else
msg="hatali giris"
end if
else
msg="kullanci yok"
end if
else
end if
%>

[haznedarli]

çözüldü teşekkürler...