%
'ÜYE VARSA ZAMAN TAZELE
If Session("uyelogin")=True then
sontarih=Now()
sor="select * from uyeler where id="&Session("uyeid")&" "
efkan.Open sor,Sur,1,3
efkan("sontarih")=sontarih
efkan.Update
Session ("kadi") = efkan("kadi")
Session ("uyeid") = efkan("id")
Session ("adi") = efkan("adi")
Session ("email") = efkan("email")
efkan.close
End if
%>
<%If Session("uyelogin")=True then%>
<%=bullet%>
ÜYE :<%=buyukharf(Session ("kadi"))%> |
<%
'GELEN KUTUSU
sor="select kime , kimesildi from mesaj where kime="&Session("uyeid")&" and kimesildi=0 "
efkan.Open sor,Sur,1,3
gelen=efkan.recordcount
efkan.close
'OKUNMAYAN MESAJI VARMI
sor="select kime,okundu,kimesildi from mesaj where kime="&Session("uyeid")&" and okundu = 0 and kimesildi <>1 "
efkan.Open sor,Sur,1,3
okunmayan = efkan.recordcount
efkan.close
'GİDEN KUTUSU
sor="select kimden ,kimdensildi from mesaj where kimden="&Session("uyeid")&" and kimdensildi=0 "
efkan.Open sor,Sur,1,3
giden=efkan.recordcount
efkan.close
%>
<%=bullet%>
BİLGİLERİM
|
<%=bullet%>
SEPETİM
|
<%=bullet%>
SİPARİŞLERİM
|
<%=bullet%>
ÖDEME BİLDİRİMİ
|
<%=bullet%>
ÇIKIŞ
|
<%If Session("efkanlogin")=True then%>
<%
end if
Else
%>
<%
End If
%>