<!--#include file="Gorunum.asp" -->
<!--#include file="Inc/Sifrele.asp" -->
<%
if (Request.QueryString("altin"))="puan" then
mppuan = Request.QueryString("mppuan")
If IsNull(mppuan) = true Then
mppuansay = ""
mppuan = "w"
else
mppuansay = mppuan
End if
ichp = Ubound(Split(mppuan,"h"))*ichpuan
icdp = Ubound(Split(mppuan,"d"))*icdpuan
icyp = Ubound(Split(mppuan,"y"))*icypuan
icrp = Ubound(Split(mppuan,"r"))*icrpuan
icap = Ubound(Split(mppuan,"a"))*icapuan
icbp = Ubound(Split(mppuan,"b"))*icbpuan
icmp = Ubound(Split(mppuan,"m"))*icmpuan
icvp = Ubound(Split(mppuan,"v"))*icvpuan
icip = Ubound(Split(mppuan,"i"))*icipuan
iciptoplm = ichp+icdp+icyp+icrp+icap+icbp+icmp+icvp+icip

If Left(iciptoplm,1) = "-" Then
iciptoplm=0
End if

Set ptm = Connect.Execute("select oy from oylar where kisi = "&session("oturumid")&" and tip = 100")
If not ptm.Eof Then
kalanpn = ptm("oy")
harcpan = iciptoplm-kalanpn
End if
ptm.Close : Set ptm = Nothing
%>
<table width="96%" border="0" align="center" cellpadding="0" cellspacing="0" class="tablo_cevre">
  <tr>
    <td colspan="4" class="tablo_cevre"><div align="center"><font class="tablo_font"><%=bag_2%> <b><font color="#FF0000"><%=Len(mppuansay)%></font></b> <%=uyelik_173%></font></div></td>
  </tr>
  <tr>
    <td width="25%" class="tablo_cevre" align="center"><font class="tablo_font"><b><%=uyelik_174%></b></font></td>
    <td width="25%" class="tablo_cevre" align="center"><font class="tablo_font"><b><%=uyelik_175%></b></font></td>
    <td width="25%" class="tablo_cevre" align="center"><font class="tablo_font"><b><%=uyelik_176%></b></font></td>
    <td width="25%" class="tablo_cevre" align="center"><font class="tablo_font"><b><%=u_btoplam%></b></font></td>
  </tr>
  <tr>
    <td width="25%" class="tablo_cevre" align="center"><font class="tablo_font"><%=uyelik_8%></font></td>
    <td width="25%" class="tablo_cevre" align="center"><font class="tablo_font"><font color="#FF0000"><%=Ubound(Split(mppuan,"h"))%></font></td>
    <td width="25%" class="tablo_cevre" align="center"><font class="tablo_font"><font color="#FF0000"><%=ichpuan%></font></font></td>
    <td width="25%" class="tablo_cevre" align="center"><font class="tablo_font"><font color="#FF0000"><%=ichp%></font></font></td>
  </tr>
  <tr>
    <td width="25%" class="tablo_cevre" align="center"><font class="tablo_font"><%=uyelik_9%></font></td>
    <td width="25%" class="tablo_cevre" align="center"><font class="tablo_font"><font color="#FF0000"><%=Ubound(Split(mppuan,"d"))%></font></td>
    <td width="25%" class="tablo_cevre" align="center"><font class="tablo_font"><font color="#FF0000"><%=icdpuan%></font></font></td>
    <td width="25%" class="tablo_cevre" align="center"><font class="tablo_font"><font color="#FF0000"><%=icdp%></font></font></td>
  </tr>
  <tr>
    <td width="25%" class="tablo_cevre" align="center"><font class="tablo_font"><%=uyelik_10%></font></td>
    <td width="25%" class="tablo_cevre" align="center"><font class="tablo_font"><font color="#FF0000"><%=Ubound(Split(mppuan,"y"))%></font></td>
    <td width="25%" class="tablo_cevre" align="center"><font class="tablo_font"><font color="#FF0000"><%=icypuan%></font></font></td>
    <td width="25%" class="tablo_cevre" align="center"><font class="tablo_font"><font color="#FF0000"><%=icyp%></font></font></td>
  </tr>
  <tr>
    <td width="25%" class="tablo_cevre" align="center"><font class="tablo_font"><%=uyelik_11%></font></td>
    <td width="25%" class="tablo_cevre" align="center"><font class="tablo_font"><font color="#FF0000"><%=Ubound(Split(mppuan,"r"))%></font></td>
    <td width="25%" class="tablo_cevre" align="center"><font class="tablo_font"><font color="#FF0000"><%=icrpuan%></font></font></td>
    <td width="25%" class="tablo_cevre" align="center"><font class="tablo_font"><font color="#FF0000"><%=icrp%></font></font></td>
  </tr>
  <tr>
    <td width="25%" class="tablo_cevre" align="center"><font class="tablo_font"><%=uyelik_12%></font></td>
    <td width="25%" class="tablo_cevre" align="center"><font class="tablo_font"><font color="#FF0000"><%=Ubound(Split(mppuan,"a"))%></font></td>
    <td width="25%" class="tablo_cevre" align="center"><font class="tablo_font"><font color="#FF0000"><%=icapuan%></font></font></td>
    <td width="25%" class="tablo_cevre" align="center"><font class="tablo_font"><font color="#FF0000"><%=icap%></font></font></td>
  </tr>
  <tr>
    <td width="25%" class="tablo_cevre" align="center"><font class="tablo_font"><%=uyelik_121%></font></td>
    <td width="25%" class="tablo_cevre" align="center"><font class="tablo_font"><font color="#FF0000"><%=Ubound(Split(mppuan,"b"))%></font></td>
    <td width="25%" class="tablo_cevre" align="center"><font class="tablo_font"><font color="#FF0000"><%=icbpuan%></font></font></td>
    <td width="25%" class="tablo_cevre" align="center"><font class="tablo_font"><font color="#FF0000"><%=icbp%></font></font></td>
  </tr>
  <tr>
    <td width="25%" class="tablo_cevre" align="center"><font class="tablo_font"><%=uyelik_122%></font></td>
    <td width="25%" class="tablo_cevre" align="center"><font class="tablo_font"><font color="#FF0000"><%=Ubound(Split(mppuan,"m"))%></font></td>
    <td width="25%" class="tablo_cevre" align="center"><font class="tablo_font"><font color="#FF0000"><%=icmpuan%></font></font></td>
    <td width="25%" class="tablo_cevre" align="center"><font class="tablo_font"><font color="#FF0000"><%=icmp%></font></font></td>
  </tr>
  <tr>
    <td width="25%" class="tablo_cevre" align="center"><font class="tablo_font"><%=uyelik_35%></font></td>
    <td width="25%" class="tablo_cevre" align="center"><font class="tablo_font"><font color="#FF0000"><%=Ubound(Split(mppuan,"v"))%></font></td>
    <td width="25%" class="tablo_cevre" align="center"><font class="tablo_font"><font color="#FF0000"><%=icvpuan%></font></font></td>
    <td width="25%" class="tablo_cevre" align="center"><font class="tablo_font"><font color="#FF0000"><%=icvp%></font></font></td>
  </tr>
  <tr>
    <td width="25%" class="tablo_cevre" align="center"><font class="tablo_font"><%=il_1%></font></td>
    <td width="25%" class="tablo_cevre" align="center"><font class="tablo_font"><font color="#FF0000"><%=Ubound(Split(mppuan,"i"))%></font></td>
    <td width="25%" class="tablo_cevre" align="center"><font class="tablo_font"><font color="#FF0000"><%=icipuan%></font></font></td>
    <td width="25%" class="tablo_cevre" align="center"><font class="tablo_font"><font color="#FF0000"><%=icip%></font></font></td>
  </tr>
  <tr>
    <td colspan="3" class="tablo_cevre" width="75%"><font class="tablo_font">&nbsp;</font></td>
    <td class="tablo_cevre" width="75%"><font class="tablo_font">&nbsp;</font></td>
  </tr>
  <tr>
    <td colspan="3" class="tablo_cevre" width="75%" align="right"><font class="tablo_font"><b><%=uyelik_183%>: </b></font></td>
    <td width="25%" class="tablo_cevre" align="center"><font class="tablo_font"><font color="#FF0000"><%=iciptoplm%></font></font></td>
  </tr>
  <tr>
    <td colspan="3" class="tablo_cevre" width="75%" align="right"><font class="tablo_font"><b><%=uyelik_184%>: </b></font></td>
    <td width="25%" class="tablo_cevre" align="center"><font class="tablo_font"><font color="#FF0000"><%=harcpan%></font></font></td>
  </tr>
  <tr>
    <td colspan="3" class="tablo_cevre" width="75%" align="right"><font class="tablo_font"><b><%=uyelik_185%>: </b></font></td>
    <td width="25%" class="tablo_cevre" align="center"><font class="tablo_font"><font color="#FF0000"><%=kalanpn%></font></font></td>
  </tr>
</table>
<br>
      <table width="95%" height="85%" border="0" align="center" cellpadding="0" cellspacing="5" class="tablo_cevre">
        <tr>
          <td align="center"><font class="tablo_font">
<select onChange="Gonder(this)" class="form">
<option selected><%=uyelik_7%></option>
<option value="<%=strsiteadres%>/Haberler.asp?haber=gonder"><%=uyelik_8%></option>
<option value="<%=strsiteadres%>/Download.asp?dosya=gonder"><%=uyelik_9%></option>
<option value="<%=strsiteadres%>/Yazilar.asp?yazi=gonder"><%=uyelik_10%></option>
<option value="<%=strsiteadres%>/Sayfa_Modul.asp?resim=gonder"><%=uyelik_11%></option>
<option value="<%=strsiteadres%>/Sayfa_Modul.asp?animas=gonder"><%=uyelik_12%></option>
<option value="<%=strsiteadres%>/Sayfa_Modul.asp?link=gonder"><%=uyelik_121%></option>
<option value="<%=strsiteadres%>/Sayfa_Modul.asp?mp3=gonder"><%=uyelik_122%></option>
<option value="<%=strsiteadres%>/Sayfa_Modul.asp?video=gonder"><%=uyelik_35%></option>
<option value="<%=strsiteadres%>/Sayfa_Modul.asp?ilan=gonder"><%=il_5%></option>
</select>
<br><br>
<%=uyelik_187%> : <b><%=ichpuan%></b><br>
<%=uyelik_188%> : <b><%=icdpuan%></b><br>
<%=uyelik_189%> : <b><%=icypuan%></b><br>
<%=uyelik_190%> : <b><%=icrpuan%></b><br>
<%=uyelik_191%> : <b><%=icapuan%></b><br>
<%=uyelik_192%> : <b><%=icbpuan%></b><br>
<%=uyelik_193%> : <b><%=icmpuan%></b><br>
<%=uyelik_194%> : <b><%=icvpuan%></b><br>
<%=uyelik_195%> : <b><%=icipuan%></b><br>
		  </font></td>
        </tr>
      </table>
<%
Connect.Close : Set Connect = Nothing
Forum.Close : Set Forum = Nothing
Member.Close : Set Member = Nothing
Response.End
End if

if (Request.QueryString("abone"))="konular" and session("siteye")="girdi" then
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="5">
  <tr>
    <td colspan="5" class="tablo_cevre"><div align="center"><font class="tablo_font"><b><%=forum_114%></b></font></div></td>
  </tr>
  <tr>
    <td class="tablo_cevre">&nbsp;</td>
    <td width="50%" class="tablo_cevre"><div align="center"><font class="tablo_font"><b><%=uyelik_42%></b></font></div></td>
    <td width="20%" class="tablo_cevre"><div align="center"><font class="tablo_font"><b><%=forum_22%></b></font></div></td>
    <td width="20%" class="tablo_cevre"><div align="center"><font class="tablo_font"><b><%=tarih%></b></font></div></td>
    <td width="10%" class="tablo_cevre"><div align="center"><font class="tablo_font"><b><%=forum_3%></b></font></div></td>
  </tr>
<%
Set yeni = Forum.Execute("select id,syazan,tmesaj,baslik,tarih from mesajlar where muyari like '%"&session("kulladi")&"%' and cevap_msg = 1 order by soncevap desc")
Do While Not yeni.eof
sfrmlerid=yeni("id")
syazan = yeni("syazan")
dfcevap=yeni("tmesaj")
defsfrmen = yeni("baslik")
defsfrmenbas = Left(defsfrmen,40)

If strseovar = 1 then
stitles = defsfrmen
seolink = "forumoku-"& sfrmlerid &"-"& Seokarakter(stitles)&".html"
Else
seolink = "Forum.asp?forum=oku&msgid="& sfrmlerid
End if
%>
  <tr>
    <td class="tablo_cevre"><img src="Resimler/ustmenu/forum.gif" width="16" height="16"></td>
    <td width="50%" class="tablo_cevre"><font class="tablo_font"><a href="<%=seolink%>" title="<%=defsfrmenbas%>"><%=defsfrmenbas%>..</a>
<%
saysayfa = int(dfcevap/strforummesaj)
If dfcevap/strforummesaj > saysayfa Then
saysayfa = saysayfa+1
End if
If saysayfa > 1 Then 
If saysayfa <= 10 Then
Response.Write "<br>&nbsp;"&uye_sayfa&" :"
For s=1 To saysayfa

If strseovar = 1 then
stitles = defsfrmen
seolink = "forumoku-"& sfrmlerid &"-"& s &"-"& Seokarakter(stitles)&".html"
Else
seolink = "Forum.asp?forum=oku&msgid="& sfrmlerid &"&page="& s
End if

Response.Write "<a href="""& seolink &""" title="""&s&""">"&s&",</a>"
Next
Else
cs=saysayfa-10
Response.Write "<br>&nbsp;"&uye_sayfa&" :"
For s=cs To saysayfa

If strseovar = 1 then
stitles = defsfrmen
seolink = "forumoku-"& sfrmlerid &"-"& s &"-"& Seokarakter(stitles)&".html"
Else
seolink = "Forum.asp?forum=oku&msgid="& sfrmlerid &"&page="& s
End if

Response.Write "<a href="""& seolink &""" title="""&s&""">"&s&",</a>"
Next
End if
End if	
%></font></td>
    <td width="20%" class="tablo_cevre"><div align="center"><font class="tablo_font"><%=syazan%></font></div></td>
    <td width="20%" class="tablo_cevre"><div align="center"><font class="tablo_font"><%=Tarihcevir(yeni("tarih"))%></font></div></td>
	<td width="10%" align="center" class="tablo_cevre"><font class="tablo_font"><a onclick="window.open('Forum.asp?cevapbildiri=kapat&kid=<%=sfrmlerid%>','mywindow','width=200,height=40')" href="javascript:void(0)" title="<%=forum_3%>"><font face="Wingdings" size=4>*</font></a></font></td>
  </tr>
<%
yeni.movenext
Loop
yeni.Close : Set yeni = Nothing
%>
</table>
<%
Connect.Close : Set Connect = Nothing
Forum.Close : Set Forum = Nothing
Member.Close : Set Member = Nothing
Response.End
End if

if (Request.QueryString("uye"))="girdi" then
tmbaslikorta = uyelik_28
Call title
call bas
call center
Call temaustorta
%>
      <table width="98%" border="0" align="center" cellpadding="0" cellspacing="5">
        <tr>
          <td>
<%
if not session("siteye")="girdi" then
Connect.Close : Set Connect = Nothing
Forum.Close : Set Forum = Nothing
Member.Close : Set Member = Nothing
Response.Redirect "Cikis.asp?hata=var"
Response.End
End if

if session("siteye")="girdi" then
Set mp = Member.Execute("select giris,id,puan,vip from uyeler where kulladi = '"&session("kulladi")&"'")
%>
            <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr> 
                <td colspan="4"><div align="center"><font class="tablo_font"><%=uyelik_1%> : <b><%=session("kulladi")%></b><br>
<%=uyelik_30%> <b><%=mp("giris")%>.</b> <%=uyelik_31%>
				</font></div><br></td>
              </tr>
              <tr> 
<% If sitemesajlasgsgz = 1 Then %><td><center><font class="tablo_font"><a href="Hesabim.asp?mesaj=gelen" title="<%=uyelik_4%>"><img src="Temalar/<%=session("tema")%>/mesajlarim.gif" border="0"><br><%=uyelik_4%></a></font></center></td><% End if %>
<% If arkadaslikgsgz = 1 Then %><td width="25%"><center><font class="tablo_font"><a href="Arkadaslik.asp?arkadas=liste" title="<%=akddil_1%>"><img src="Temalar/<%=session("tema")%>/arkdslist.gif" border="0"><br><%=akddil_1%></a></font></center></td><% End if %>
                <td><center><font class="tablo_font"><a href="Hesabim.asp?bilgi=duzenle" title="<%=uyelik_32%>"><img src="Temalar/<%=session("tema")%>/bilgilerim.gif" border="0"><br><%=uyelik_32%></a></font></center></td>
                <td><center><font class="tablo_font"><a href="#" onClick="log_out()" title="<%=uyelik_6%>"><img src="Temalar/<%=session("tema")%>/logut.gif" border="0"><br><%=uyelik_6%></a></font></center></td>
              </tr>
            </table><br><center><% Call uye_tema %></center>			
<% If googlekodu = "1" Then %><center><!--#include file="Google3.asp" --></center><% End if %>
<%
mppuan = mp("puan")
vipdeger = mp("vip")
mp.Close : Set mp = Nothing
If session("kimdir")="1" or session("kimdir")="2" or session("kimdir")="3" or session("kimdir")="4" or session("kimdir")="5" Then

Set onay1 = Connect.Execute("select Count(id) as Coudnt from haber where onay=1")
kaconay1=onay1("Coudnt")
onay1.Close : Set onay1 = Nothing
Set onay2 = Connect.Execute("select Count(id) as Coudnt from yazilar where onay=1")
kaconay2=onay2("Coudnt")
onay2.Close : Set onay2 = Nothing
Set onay3 = Connect.Execute("select Count(id) as Coudnt from download where onay=1")
kaconay3=onay3("Coudnt")
onay3.Close : Set onay3 = Nothing
Set onay4 = Connect.Execute("select Count(id) as Coudnt from resim where onay=1")
kaconay4=onay4("Coudnt")
onay4.Close : Set onay4 = Nothing
Set onay5 = Connect.Execute("select Count(id) as Coudnt from animasyon where onay=1")
kaconay5=onay5("Coudnt")
onay5.Close : Set onay5 = Nothing
Set onay6 = Connect.Execute("select Count(id) as Coudnt from linkler where onay=1")
kaconay6=onay6("Coudnt")
onay6.Close : Set onay6 = Nothing
Set onay7 = Connect.Execute("select Count(id) as Coudnt from mp3ler where onay=1")
kaconay7=onay7("Coudnt")
onay7.Close : Set onay7 = Nothing
Set onay8 = Connect.Execute("select Count(id) as Coudnt from Video where onay=1")
kaconay8=onay8("Coudnt")
onay8.Close : Set onay8 = Nothing
Set onay9 = Connect.Execute("select Count(id) as Coudnt from ilanlar where onay=1")
kaconay9=onay9("Coudnt")
onay9.Close : Set onay9 = Nothing
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="<%=blok_aplan%>" class="tablo_cevre">
  <tr>
    <td colspan="9" class="tablo_cevre"><div align="center"><font class="tablo_font"><%=uyelik_33%></font></div></td>
  </tr>

  <tr>
    <td align="center" class="tablo_cevre"><font class="tablo_font"><b><%=uyelik_8%><br><font color="#FF0000"><%=kaconay1%></font></b></font></td>
	<td align="center" class="tablo_cevre"><font class="tablo_font"><b><%=uyelik_10%><br><font color="#FF0000"><%=kaconay2%></font></b></font></td>
	<td align="center" class="tablo_cevre"><font class="tablo_font"><b><%=uyelik_9%><br><font color="#FF0000"><%=kaconay3%></font></b></font></td>
	<td align="center" class="tablo_cevre"><font class="tablo_font"><b><%=uyelik_11%><br><font color="#FF0000"><%=kaconay4%></font></b></font></td>
	<td align="center" class="tablo_cevre"><font class="tablo_font"><b><%=left(uyelik_12,4)%>.<br><font color="#FF0000"><%=kaconay5%></font></b></font></td>
	<td align="center" class="tablo_cevre"><font class="tablo_font"><b><%=left(bag_1,3)%>.<br><font color="#FF0000"><%=kaconay6%></font></b></font></td>
	<td align="center" class="tablo_cevre"><font class="tablo_font"><b><%=left(mp3_1,3)%><br><font color="#FF0000"><%=kaconay7%></font></b></font></td>
	<td align="center" class="tablo_cevre"><font class="tablo_font"><b><%=left(v_animasyon,5)%><br><font color="#FF0000"><%=kaconay8%></font></b></font></td>
	<td align="center" class="tablo_cevre"><font class="tablo_font"><b><%=left(il_1,4)%><br><font color="#FF0000"><%=kaconay9%></font></b></font></td>
  </tr>
</table>
  <%
End if
End if

If session("vip") = "1" Then
ithhesap=int(vipdeger)
ilgun=Mid(ithhesap,7,2)
ilgay=Mid(ithhesap,5,2)
ilyil=Left(ithhesap,4)
sonuc=DateSerial(ilyil, ilgay, ilgun)
vtrhis=DateValue(sonuc)-DateValue(Date())

response.write "<br><center><font class=""tablo_font"">"&d_vip4&"&nbsp;:&nbsp;<b>"&Tarihcevir(ithhesap)&"</b>&nbsp;|&nbsp;"&d_vip5&"&nbsp;:&nbsp;<b>"&vtrhis&"</b></font></center>"
response.write "<br><center><font class=""tablo_font""><b><a href=""Download.asp?vip=dosyalar""><font color=red>"&d_vip3&"</font></a></b></font></center><br>"
else
response.write "<br><center><font class=""tablo_font""><b><a href=""Download.asp?vip=dosyalar""><font color=red>"&d_vip2&"</font></a></b></font></center><br>"
End if
%>
<div align="center">
<form method="post"><% If frmmuuyari = "1" Then %><input type="button" onClick="sendPost('Hesabim.asp?abone=konular','yok','GetirIcerik');" value="<%=forum_114%>" class="buton">&nbsp;<% End if %><% If altinpugsgz = 1 Then %>
<input type="button" onClick="sendPost('Hesabim.asp?altin=puan&mppuan=<%=mppuan%>','yok','GetirIcerik');" value="<%=uyelik_183%>" class="buton"><% End if %>&nbsp;<input type="button" onClick="sendPost('Vip.asp','yok','GetirIcerik');" value="<%=uyelik_202%>" class="buton"></form>
</div>
<div id="GetirIcerik" align="center"></div>
		  </td>
        </tr>
      </table>
<%
Call temaaltorta
call center2
call son
Call sona
Response.End
end if

if (Request.QueryString("mesaj"))="gelen" And sitemesajlasgsgz = 1 then

if not session("siteye")="girdi" then
Call title
call bas
call center
%>
<!--#include file="Yasak.asp" -->
<%
call center2
call son
response.end
end if
tmbaslikorta = uyelik_38
Call title
call bas
call center
Call temaustorta
%>
<table width="98%" border="0" align="center">
  <tr>
   <td><div align="center"><img src="Resimler/uyelik/mesajkutusu.gif"><br><font class="tablo_font"><a href="Hesabim.asp?mesaj=yaz" title="<%=uyelik_39%>"><%=uyelik_39%></a> / <a href="Hesabim.asp?mesaj=gelen" title="<%=uyelik_40a%>"><%=uyelik_40a%></a> / <a href="Hesabim.asp?mesaj=sakli" title="<%=uyelik_40b%>"><%=uyelik_40b%></a> / <a href="Hesabim.asp?mesaj=engelli" title="<%=uyelik_40c%>"><%=uyelik_40c%></a> / 
<%
set kap = Connect.execute("select numara from mesaj where kime = '"&session("kulladi")&"' and okundu = 5")
If kap.Eof Then
%>
<a href="Hesabim.asp?mesaji=kapat" title="<%=uyelik_159%>"><%=uyelik_159%></a>
<% Else %>
<a href="Hesabim.asp?mesaji=ac" title="<%=uyelik_160%>"><%=uyelik_160%></a>
<%
End if
kap.Close : Set kap = Nothing
%>
<br><b><%=uyelik_40a%></b><br><% If googlekodu = "1" Then %><!--#include file="Google3.asp" --><% End if %></font></div><hr class="tablo_cevre" size="1"></td>
  </tr>
</table>
<center><font class="tablo_font">
<%
kullanici = session("kulladi")
Set tmsg = Connect.execute("Select Count(numara) AS topmsgne from mesaj where kime = '"&kullanici&"' and okundu < 3")
topmesaj=tmsg("topmsgne")
tmsg.Close : Set tmsg = Nothing
Set rs = Connect.execute("Select kimden,numara,baslik,tarih,okundu from mesaj where kime = '"&kullanici&"' and okundu < 2 order by tarih Desc")
if rs.eof then
response.write (uyelik_40)
end if

If topmesaj = "0" Then
percent = "0"
Else
percent = Int((topmesaj /toplammesajkutu) * 100)
End If
%><br><b><%=uyelik_127%></b> : <img src="Resimler/vote_mavi.gif" width="<%=percent%>" height="15" align="absmiddle"> <%=percent%>%</font></center>
      <table width="98%" border="0" align="center" cellpadding="0" cellspacing="5">
        <tr>
          <td width="30%"><div align="center"><font class="tablo_font"><%=uyelik_41%></font></div></td>
          <td width="30%"><div align="center"><font class="tablo_font"><%=uyelik_42%></font></div></td>
          <td width="30%"><div align="center"><font class="tablo_font"><%=uyelik_43%></font></div></td>
          <td width="10%"><div align="center"><font class="tablo_font"><%=uyelik_44%></font></div></td>
        </tr>
<form name=myform action="Hesabim.asp?mesaj=sil&nasil=tumu&uye=<%=session("kulladi")%>" method=post>
        <tr>
<%
do while not rs.eof
If rs("okundu")="0" then
renkler = "<font color=""#FF0000"">"
Else
renkler = ""
End if
%>
          <td><div align="center"><font class="tablo_font"><%=renkler%><%=rs("kimden")%></font></div></td>
          <td><div align="center"><font class="tablo_font"><a href="Hesabim.asp?mesaj=oku&id=<%=rs("numara")%>&uye=<%=session("kulladi")%>&okudu=evet"><%=renkler%><%=rs("baslik")%></a></font></div></td>
          <td><div align="center"><font class="tablo_font"><a href="Hesabim.asp?mesaj=oku&id=<%=rs("numara")%>&uye=<%=session("kulladi")%>&okudu=evet"><%=renkler%><%=Tarihcevir(rs("tarih"))%></a></font></div></td>
          <td><div align="center"><input type="checkbox" name=list value="<%=rs("numara")%>" class="form">&nbsp;<font class="tablo_font"><a href="Hesabim.asp?mesaj=sil&id=<%=rs("numara")%>&uye=<%=session("kulladi")%>" title="<%=uyelik_44%>"><%=uyelik_44%></a></font></div></td>
        </tr>
<%
rs.movenext
Loop
rs.Close : Set rs = Nothing
%><tr>
<td></td>
<td></td>
<td><INPUT TYPE="submit" value="<%=topsil%>" class="buton"></td>
<td><input type=button value="<%=jvscripts_1%>" onClick="this.value=check(this.form.list)" class="buton"></td>
</tr></form>
      </table>
<%
Call temaaltorta
call center2
call son
Call sona
response.end
end if

if (Request.QueryString("mesaji"))="sakla" then
idn=CheckQuery(request.querystring("id"))
Connect.Execute("UpDate mesaj Set okundu = 2 where numara = "&idn&"")
Response.Redirect "Hesabim.asp?mesaj=sakli"
End if

if (Request.QueryString("mesaji"))="kapat" then
Connect.Execute ("INSERT INTO mesaj (kimden,kime,baslik,tarih,mesaj,okundu) VALUES ('kapali' , '"&session("kulladi")&"' , 'kapali' , '"&AspSitemzaman&"' , 'kapali' , '5')")
Response.Redirect "Hesabim.asp?mesaj=gelen"
End if

if (Request.QueryString("mesaji"))="ac" then
Connect.Execute("DELETE FROM mesaj where kime = '"&session("kulladi")&"' and okundu=5")
Response.Redirect "Hesabim.asp?mesaj=gelen"
End if


if (Request.QueryString("mesaji"))="engelle" then
idn=CheckQuery(request.querystring("id"))
Connect.Execute("UpDate mesaj Set mesaj = 'Engelli' , okundu = 3 where numara = "&idn&"")
Response.Redirect "Hesabim.asp?mesaj=engelli"
End if

if (Request.QueryString("mesaj"))="engelli" And sitemesajlasgsgz = 1 then

if not session("siteye")="girdi" then
Call title
call bas
call center
%>
<!--#include file="Yasak.asp" -->
<%
call center2
call son
response.end
end if
tmbaslikorta = uyelik_38
Call title
call bas
call center
Call temaustorta
%>
<table width="98%" border="0" align="center">
  <tr>
   <td><div align="center"><img src="Resimler/uyelik/mesajkutusu.gif"><br><font class="tablo_font"><a href="Hesabim.asp?mesaj=yaz" title="<%=uyelik_39%>"><%=uyelik_39%></a> / <a href="Hesabim.asp?mesaj=gelen" title="<%=uyelik_40a%>"><%=uyelik_40a%></a> / <a href="Hesabim.asp?mesaj=sakli" title="<%=uyelik_40b%>"><%=uyelik_40b%></a> / <a href="Hesabim.asp?mesaj=engelli" title="<%=uyelik_40c%>"><%=uyelik_40c%></a> / 
<%
set kap = Connect.execute("select numara from mesaj where kime = '"&session("kulladi")&"' and okundu = 5")
If kap.Eof Then
%>
<a href="Hesabim.asp?mesaji=kapat" title="<%=uyelik_159%>"><%=uyelik_159%></a>
<% Else %>
<a href="Hesabim.asp?mesaji=ac" title="<%=uyelik_160%>"><%=uyelik_160%></a>
<%
End if
kap.Close : Set kap = Nothing
%><br><b><%=uyelik_40c%></b><br><% If googlekodu = "1" Then %><!--#include file="Google3.asp" --><% End if %></font></div><hr class="tablo_cevre" size="1"></td>
  </tr>
</table>
<center><font class="tablo_font">
<%
kullanici = session("kulladi")
Set tmsg = Connect.execute("Select Count(*) AS topmsgne from mesaj where kime = '"&kullanici&"' and okundu < 3")
topmesaj=tmsg("topmsgne")
tmsg.Close : Set tmsg = Nothing
Set rs = Connect.execute("Select kimden,numara,kime,tarih,okundu from mesaj where kime = '"&kullanici&"' and okundu = 3 order by tarih Desc")
if rs.eof then
response.write (uyelik_40d)
end if

If topmesaj = "0" Then
percent = "0"
Else
percent = Int((topmesaj /toplammesajkutu) * 100)
End If
%><br><b><%=uyelik_127%></b> : <img src="Resimler/vote_mavi.gif" width="<%=percent%>" height="15" align="absmiddle"> <%=percent%>%</font></center>
      <table width="98%" border="0" align="center" cellpadding="0" cellspacing="5">
        <tr>
          <td width="30%"><div align="center"><font class="tablo_font"><%=uyelik_40e%></font></div></td>
          <td width="30%"><div align="center"><font class="tablo_font"><%=uyelik_40c%></font></div></td>
          <td width="30%"><div align="center"><font class="tablo_font"><%=uyelik_43%></font></div></td>
          <td width="10%"><div align="center"><font class="tablo_font"><%=uyelik_44%></font></div></td>
        </tr>
<form name=myform action="Hesabim.asp?mesaj=sil&nasil=tumu&uye=<%=session("kulladi")%>" method=post>
        <tr>
<%
do while not rs.eof
%>
          <td><div align="center"><font class="tablo_font"><%=rs("kime")%></font></div></td>
          <td><div align="center"><font class="tablo_font"><%=rs("kimden")%></font></div></td>
          <td><div align="center"><font class="tablo_font"><%=Tarihcevir(rs("tarih"))%></font></div></td>
          <td><div align="center"><input type="checkbox" name=list value="<%=rs("numara")%>" class="form">&nbsp;<font class="tablo_font"><a href="Hesabim.asp?mesaj=sil&id=<%=rs("numara")%>&uye=<%=session("kulladi")%>" title="<%=uyelik_44%>"><%=uyelik_44%></a></font></div></td>
        </tr>
<%
rs.movenext
Loop
rs.Close : Set rs = Nothing
%><tr>
<td></td>
<td></td>
<td><INPUT TYPE="submit" value="<%=topsil%>" class="buton"></td>
<td><input type=button value="<%=jvscripts_1%>" onClick="this.value=check(this.form.list)" class="buton"></td>
</tr></form>
      </table>
<%
Call temaaltorta
call center2
call son
Call sona
response.end
end if

if (Request.QueryString("mesaj"))="sakli" And sitemesajlasgsgz = 1 then

if not session("siteye")="girdi" then
Call title
call bas
call center
%>
<!--#include file="Yasak.asp" -->
<%
call center2
call son
response.end
end if
tmbaslikorta = uyelik_38
Call title
call bas
call center
Call temaustorta
%>
<table width="98%" border="0" align="center">
  <tr>
   <td><div align="center"><img src="Resimler/uyelik/mesajkutusu.gif"><br><font class="tablo_font"><a href="Hesabim.asp?mesaj=yaz" title="<%=uyelik_39%>"><%=uyelik_39%></a> / <a href="Hesabim.asp?mesaj=gelen" title="<%=uyelik_40a%>"><%=uyelik_40a%></a> / <a href="Hesabim.asp?mesaj=sakli" title="<%=uyelik_40b%>"><%=uyelik_40b%></a> / <a href="Hesabim.asp?mesaj=engelli" title="<%=uyelik_40c%>"><%=uyelik_40c%></a> / 
<%
set kap = Connect.execute("select numara from mesaj where kime = '"&session("kulladi")&"' and okundu = 5")
If kap.Eof Then
%>
<a href="Hesabim.asp?mesaji=kapat" title="<%=uyelik_159%>"><%=uyelik_159%></a>
<% Else %>
<a href="Hesabim.asp?mesaji=ac" title="<%=uyelik_160%>"><%=uyelik_160%></a>
<%
End if
kap.Close : Set kap = Nothing
%><br><b><%=uyelik_40b%></b><br><% If googlekodu = "1" Then %><!--#include file="Google3.asp" --><% End if %></font></div><hr class="tablo_cevre" size="1"></td>
  </tr>
</table>
<center><font class="tablo_font">
<%
kullanici = session("kulladi")

Set tmsg = Connect.execute("Select Count(*) AS topmsgne from mesaj where kime = '"&kullanici&"' and okundu < 3")
topmesaj=tmsg("topmsgne")
tmsg.Close : Set tmsg = Nothing
Set rs = Connect.Execute("Select kimden,numara,baslik,tarih,okundu from mesaj where kime = '"&kullanici&"' and okundu = 2 order by tarih Desc")
if rs.eof then
response.write (uyelik_40)
end if

If topmesaj = "0" Then
percent = "0"
Else
percent = Int((topmesaj /toplammesajkutu) * 100)
End If
%><br><b><%=uyelik_127%></b> : <img src="Resimler/vote_mavi.gif" width="<%=percent%>" height="15" align="absmiddle"> <%=percent%>%</font></center>
      <table width="98%" border="0" align="center" cellpadding="0" cellspacing="5">
        <tr>
          <td width="30%"><div align="center"><font class="tablo_font"><%=uyelik_41%></font></div></td>
          <td width="30%"><div align="center"><font class="tablo_font"><%=uyelik_42%></font></div></td>
          <td width="30%"><div align="center"><font class="tablo_font"><%=uyelik_43%></font></div></td>
          <td width="10%"><div align="center"><font class="tablo_font"><%=uyelik_44%></font></div></td>
        </tr>
<form name=myform action="Hesabim.asp?mesaj=sil&nasil=tumu&uye=<%=session("kulladi")%>" method=post>
        <tr>
<%
do while not rs.eof
%>
          <td><div align="center"><font class="tablo_font"><%=rs("kimden")%></font></div></td>
          <td><div align="center"><font class="tablo_font"><a href="Hesabim.asp?mesaj=oku&id=<%=rs("numara")%>&uye=<%=session("kulladi")%>"><%=renkler%><%=rs("baslik")%></a></font></div></td>
          <td><div align="center"><font class="tablo_font"><a href="Hesabim.asp?mesaj=oku&id=<%=rs("numara")%>&uye=<%=session("kulladi")%>"><%=renkler%><%=Tarihcevir(rs("tarih"))%></a></font></div></td>
          <td><div align="center"><input type="checkbox" name=list value="<%=rs("numara")%>" class="form">&nbsp;<font class="tablo_font"><a href="Hesabim.asp?mesaj=sil&id=<%=rs("numara")%>&uye=<%=session("kulladi")%>" title="<%=uyelik_44%>"><%=uyelik_44%></a></font></div></td>
        </tr>
<%
rs.movenext
Loop
rs.Close : Set rs = Nothing
%><tr>
<td></td>
<td></td>
<td><INPUT TYPE="submit" value="<%=topsil%>" class="buton"></td>
<td><input type=button value="<%=jvscripts_1%>" onClick="this.value=check(this.form.list)" class="buton"></td>
</tr></form>
      </table>
<%
Call temaaltorta
call center2
call son
Call sona
response.end
end if

if CheckQuery(Request.QueryString("mesaj"))="oku" And sitemesajlasgsgz = 1 then

if not session("siteye")="girdi" then
Call title
call bas
call center
%>
<!--#include file="Yasak.asp" -->
<%
call center2
call son
response.end
end if
tmbaslikorta = uyelik_38
Call title
call bas
call center
Call temaustorta
%>
<%
numara=CheckQuery(request.querystring("id"))
uye=CheckQuery(request.querystring("uye"))

if not uye=session("kulladi") then
response.write (uyelik_45)
Connect.Close : Set Connect = Nothing
Forum.Close : Set Forum = Nothing
Member.Close : Set Member = Nothing
response.end
end if

If request.querystring("okudu")="evet" Then
Connect.Execute("UpDate mesaj Set okundu = '1' where numara = "&numara&"")
End if
Set rs = Connect.Execute("select okundu,kimden,tarih,baslik,numara,mesaj from mesaj where numara = "&numara&" and kime='"&session("kulladi")&"'") 
If rs.Eof Then
response.write (uyelik_45)
Connect.Close : Set Connect = Nothing
Forum.Close : Set Forum = Nothing
Member.Close : Set Member = Nothing
response.end
end if
%><center><img src="Resimler/uyelik/mesajkutusu.gif"><br><% If googlekodu = "1" Then %><!--#include file="Google3.asp" --><% End if %></center>
      <table width="98%" border="0" align="center" cellpadding="0" cellspacing="5">
        <tr> 
          <td width="20%"><font class="tablo_font"><%=uyelik_41%> :</font></td>
          <td width="40%"><font class="tablo_font"><%=rs("kimden")%></font></td>
          <td width="40%"><font class="tablo_font"><div align="right"><%=uyelik_43%> : <%=Tarihcevir(rs("tarih"))%></div></font></td>
        </tr>
        <tr> 
          <td><font class="tablo_font"><%=uyelik_42%> :</font></td>
          <td><font class="tablo_font"><%=rs("baslik")%></font></td>
          <td><div align="right"><font class="tablo_font">
<a href="Hesabim.asp?mesaji=sakla&id=<%=rs("numara")%>" title="<%=uyelik_40f%>"><%=uyelik_40f%></a> / <a href="Hesabim.asp?mesaji=engelle&id=<%=rs("numara")%>" title="<%=uyelik_40g%>"><%=uyelik_40g%></a> /
<a href="Hesabim.asp?mesaj=yaz&nasi=cevapla&kime=<%=rs("kimden")%>&baslik=<%=rs("numara")%>" title="<%=uyelik_46%>"><%=uyelik_46%></a> / <a href="Hesabim.asp?mesaj=sil&id=<%=rs("numara")%>&uye=<%=session("kulladi")%>" title="<%=uyelik_44%>"><%=uyelik_44%></a></font></div></td>
        </tr>
        <tr> 
          <td><font class="tablo_font"><%=uyelik_47%> :</font></td>
          <td colspan="2"><font class="tablo_font"><%=Replace(rs("mesaj"),vbCrlf,"<br>")%></font></td>
        </tr>
      </table>
<%
Call temaaltorta
rs.Close : Set rs = Nothing
call center2
call son
Call sona
Response.End
end if

if (Request.QueryString("uyecek"))="liste" then
kime = CheckQuery(Request.QueryString("kime"))
If kime <> "" AND len(kime) >= 2 Then
Set rs = Member.Execute("select kulladi from uyeler Where kulladi like '%" & kime &"%' order by kulladi asc")
i=0
do while not rs.eof and i<100
i=i+1
uyem=rs("kulladi")
%>
<font class="tablo_font"><a href="javascript:void(0)" onClick="UyeGetir('<%=uyem%>','kapa');"><%=uyem%></a> , </font>
<%
rs.movenext
Loop
rs.Close : Set rs = Nothing
End if
Connect.Close : Set Connect = Nothing
Forum.Close : Set Forum = Nothing
Member.Close : Set Member = Nothing
Response.End
end if


if (Request.QueryString("mesaj"))="yaz" then

if not session("siteye")="girdi" Or sitemesajlasgsgz = 0 then
Call title
call bas
call center
%>
<!--#include file="Yasak.asp" -->
<%
call center2
call son
response.end
end if

nasi=CheckQuery(request.querystring("nasi"))
basl=CheckQuery(request.querystring("baslik"))
kime=CheckQuery(request.querystring("kime"))
if kime="Site Yonetimi" then
Call title
call bas
call center
response.write "<br><font class=""tablo_font"">"&uyelik_51b&"</font><br>"
call center2
call son
response.end
end if
if not nasi="cevapla" then
nasi="normal"
end if
tmbaslikorta = uyelik_38
Call title
call bas
call center
Call temaustorta
%>
      <table width="98%" border="0" align="center" cellpadding="0" cellspacing="5">
        <tr>
          <td>
<form name="uyegetir" action="Hesabim.asp?mesaj=gonder" method="post">
<TABLE width="100%">
<TR>
	<TD align="right"><font class="tablo_font"><b><%=uyelik_48%> :</b></font></TD>
	<TD align="left">
<script language="javascript">  
function UyeGetir(uyem,drum) { 
  if (drum == "kapa") {
  uyegetir.kime.value = uyem;
  document.getElementById('postsonuc').style.display='none';
  } else if (uyem.length>=2) {
  document.getElementById('postsonuc').style.display='block';
  sendPost('Hesabim.asp?uyecek=liste&kime=' + uyem ,'yok','postsonuc');
  }
}
</script>
<%
if nasi="normal" then
%>
<INPUT TYPE="text" NAME="kime" value="" onKeyPress="UyeGetir(this.value,'');" size="20" class="form">
<%
elseif nasi="cevapla" then

Set rms = Connect.Execute("select baslik,numara from mesaj Where numara = "&basl&"")
If not rms.Eof Then
albas = rms("baslik")
End if
rms.Close : Set rms = Nothing
%><INPUT TYPE="text" NAME="kime" value="<%=kime%>" onKeyPress="UyeGetir(this.value,'');" size="20" class="form">
<% end if%>
<div id="postsonuc" align="center" style="display:none;position:absolute;width:350px;height:100px;overflow:auto;background-color:<%=blok_aplan%>;border-width:1px;border-style:solid;border-color:#999999;"></div>
</td>
</tr>
<TR>
	<TD align="right"><font class="tablo_font"><b><%=uyelik_42%> :</b></font></TD>
	<TD align="left"><INPUT TYPE="text" NAME="baslik" onFocus="document.getElementById('postsonuc').style.display='none';" value="<% if nasi="cevapla" then %>Re:<%=albas%><% else %><% end if %>" maxlength="50" class="form"></TD>
</TR>
<TR>
	<TD align="right" valign="top"><font class="tablo_font"><b><%=uyelik_47%> :</b></font></TD>
	<TD align="left"><TEXTAREA NAME="mesaj" onFocus="document.getElementById('postsonuc').style.display='none';" ROWS="10" COLS="60" class="form"></TEXTAREA></TD>
</TR>
<% If guvenlikkodu = "1" Then %>
<tr>
	<td align="right"><font class="tablo_font"><b><%=uyelik_74%> : </b></font></td>
	<td align="left"><INPUT TYPE="text" size="8" name="guvenlik" id="guvenlik" value="" class="form">&nbsp;&nbsp;<a href="javascript:void(0)" onClick="sendPost('Yenisif.asp','yok','GVsifre');"><font id="GVsifre"><% Call GVsifre %></font></a></td>
</tr>
<% End if %>
<tr>
	<td align="right"></td>
	<td align="left"><INPUT TYPE="submit" value="<%=uyelik_49%>" class="buton"> <INPUT TYPE="reset" value="<%=uyelik_50%>" class="buton"></td>
</tr>
</TABLE>
</form>
          </td>
        </tr>
      </table>
<%
Call temaaltorta
call center2
call son
Call sona
Response.End
end if

if (Request.QueryString("mesaj"))="gonder" And sitemesajlasgsgz = 1 then

if not session("siteye")="girdi" then
Call title
call bas
call center
%>
<!--#include file="Yasak.asp" -->
<%
call center2
call son
response.end
end if
tmbaslikorta = uyelik_38
Call title
call bas
call center
Call temaustorta
%>
      <table width="98%" border="0" align="center" cellpadding="0" cellspacing="5">
        <tr>
          <td><font class="tablo_font">
<%
If guvenlikkodu = "1" Then
gusifre = "GVsifre"
Else
gusifre = ""
End if

if session(""&gusifre&"")=Request.Form("guvenlik") Then
If Request.Form("guvenlik")="" and guvenlikkodu = "1" Then
Connect.Close : Set Connect = Nothing
Forum.Close : Set Forum = Nothing
Member.Close : Set Member = Nothing
Response.Redirect "Default.asp"
Response.End
End if
Session("GVsifre")=""

kimden=session("kulladi")
kime=CheckQuery(request.form("kime"))
baslik=ayikla(request.form("baslik"))
mesaj=request.form("mesaj")
mesaj = Replace(mesaj,"<","&lt;",1,-1,1)
mesaj = Replace(mesaj,">","&gt;",1,-1,1)
mesaj = ayikla(mesaj)

tarih=AspSitemzaman
if kime="Site Yonetimi" then
response.write (uyelik_51b)
response.Write "</td></tr></table><br>"
Call temaaltorta
call center2
call son
response.end
end if
if baslik="" then
response.write (uyelik_51)
response.Write "</td></tr></table><br>"
Call temaaltorta
call center2
call son
response.end
end if
if mesaj="" then
response.write (uyelik_52)
response.Write "</td></tr></table><br>"
Call temaaltorta
call center2
call son
response.end
end if

set sg = Connect.execute("Select Count(numara) AS topme from mesaj where kime = '"&kime&"'")
topmes=sg("topme")
if topmes >= toplammesajkutu then
response.write (uyelik_51c)
response.Write "</td></tr></table><br>"
Call temaaltorta
call center2
call son
response.end
end if
sg.Close : Set sg = Nothing

set sg2 = Connect.execute("select numara from mesaj where kimden = '"&kimden&"' and kime = '"&kime&"' and okundu = 3")
If not sg2.Eof Then
response.write (uyelik_40h)
response.Write "</td></tr></table><br>"
Call temaaltorta
call center2
call son
response.end
end if
sg2.Close : Set sg2 = Nothing

If session("kimdir") = "0" Then
set kap = Connect.execute("select numara from mesaj where kime = '"&kime&"' and okundu = 5")
If not kap.Eof Then
response.write (uyelik_40i)
response.Write "</td></tr></table><br>"
Call temaaltorta
call center2
call son
response.end
End if
kap.Close : Set kap = Nothing
End if
%>
</font>
<%
Connect.Execute ("INSERT INTO mesaj (kimden,kime,baslik,mesaj,tarih,okundu) VALUES ('"&kimden&"' , '"&kime&"' , '"&baslik&"' , '"&mesaj&"' , '"&tarih&"' , '0')")
Connect.Execute ("INSERT INTO mesaj (kimden,kime,baslik,mesaj,tarih,okundu) VALUES ('"&kime&"' , '"&kimden&"' , '"&baslik&"' , '"&mesaj&"' , '"&tarih&"' , '2')")


If mesajmailuyarigsgz = 1 Then
Set mauy = Member.Execute("select email from uyeler where kulladi = '"&kime&"'")
gidemail = mauy("email")
mauy.Close : Set mauy = Nothing
    Body= Body & "<b>"&uyelik_1&"</b> - "&kime&"<br><br>" & vbcrlf 
    Body= Body & ""&uyelik_2&" "&uyelik_3&"..<br>" & vbcrlf 
	Body= Body & ""&uyelik_41&" : <b>"&kimden&"</b><br>" & vbcrlf
	Body= Body & ""&uyelik_42&" : <b>"&baslik&"</b><br>" & vbcrlf
    Body= Body & ""&forum_113&"<br>" & vbcrlf 
    Body= Body & "-----------------------------<br>" & vbcrlf 
    Body= Body & "<a href="""&strsiteadres&"/Hesabim.asp?mesaj=gelen"">"&strsiteadres&"/Hesabim.asp?mesaj=gelen</a><br>" & vbcrlf 
    Body= Body & "-----------------------------<br>" & vbcrlf 
	Body= Body & "<br>" & vbcrlf
	Body= Body & "<br>" & vbcrlf
	Body= Body & ""&uyelik_94&" : <b>"&strsiteadi&"..</b>" & vbcrlf
GonderenAdi = Session("kulladi")
GonderenMail = strsitemail
GidecekMail = gidemail
MailKonu = uyelik_1&" ("&kime&") "&uyelik_3
Body = "<html><head></head><body>"&Body&"</body></html>"        
%><!--#include file="Inc/MailGon.asp" --><%
End if
%>
<div align="center"><img src="Resimler/uyelik/mesajkutusu.gif"><br><font class="tablo_font"><font color="#FF0000"><b><%=uyelik_53%></b></font><br><a href="Hesabim.asp?mesaj=yaz" title="<%=uyelik_39%>"><%=uyelik_39%></a> / <a href="Hesabim.asp?mesaj=gelen" title="<%=uyelik_40a%>"><%=uyelik_40a%></a> / <a href="Hesabim.asp?mesaj=sakli" title="<%=uyelik_40b%>"><%=uyelik_40b%></a> / <a href="Hesabim.asp?mesaj=engelli" title="<%=uyelik_40c%>"><%=uyelik_40c%></a> / 
<%
set kap = Connect.execute("select numara from mesaj where kime = '"&session("kulladi")&"' and okundu = 5")
If kap.Eof Then
%>
<a href="Hesabim.asp?mesaji=kapat" title="<%=uyelik_159%>"><%=uyelik_159%></a>
<% Else %>
<a href="Hesabim.asp?mesaji=ac" title="<%=uyelik_160%>"><%=uyelik_160%></a>
<%
End if
kap.Close : Set kap = Nothing
%><br><b><%=uyelik_40a%></b><br><% If googlekodu = "1" Then %><!--#include file="Google3.asp" --><% End if %></font></div>
<%
Else
Response.Write "<center>"&uyelik_80&"</center><br><br>"
End if
%>
<hr class="tablo_cevre" size="1"><center><font class="tablo_font">
<%
kullanici = session("kulladi")
Set tmsg = Connect.execute("Select Count(numara) AS topmsgne from mesaj where kime = '"&kullanici&"' and okundu < 3")
topmesaj=tmsg("topmsgne")
tmsg.Close : Set tmsg = Nothing
Set rs = Connect.execute("Select kimden,numara,baslik,tarih,okundu from mesaj where kime = '"&kullanici&"' and okundu < 2 order by tarih Desc")
if rs.eof then
response.write (uyelik_40)
end if

If topmesaj = "0" Then
percent = "0"
Else
percent = Int((topmesaj /toplammesajkutu) * 100)
End If
%><br><b><%=uyelik_127%></b> : <img src="Resimler/vote_mavi.gif" width="<%=percent%>" height="15" align="absmiddle"> <%=percent%>%</font></center>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="5">
        <tr>
          <td width="30%"><div align="center"><font class="tablo_font"><%=uyelik_41%></font></div></td>
          <td width="30%"><div align="center"><font class="tablo_font"><%=uyelik_42%></font></div></td>
          <td width="30%"><div align="center"><font class="tablo_font"><%=uyelik_43%></font></div></td>
          <td width="10%"><div align="center"><font class="tablo_font"><%=uyelik_44%></font></div></td>
        </tr>
<form name=myform action="Hesabim.asp?mesaj=sil&nasil=tumu&uye=<%=session("kulladi")%>" method=post>
        <tr>
<%
do while not rs.eof
If rs("okundu")="0" then
renkler = "<font color=""#FF0000"">"
Else
renkler = ""
End if
%>
          <td><div align="center"><font class="tablo_font"><%=renkler%><%=rs("kimden")%></font></div></td>
          <td><div align="center"><font class="tablo_font"><a href="Hesabim.asp?mesaj=oku&id=<%=rs("numara")%>&uye=<%=session("kulladi")%>&okudu=evet"><%=renkler%><%=rs("baslik")%></a></font></div></td>
          <td><div align="center"><font class="tablo_font"><a href="Hesabim.asp?mesaj=oku&id=<%=rs("numara")%>&uye=<%=session("kulladi")%>&okudu=evet"><%=renkler%><%=Tarihcevir(rs("tarih"))%></a></font></div></td>
          <td><div align="center"><input type="checkbox" name=list value="<%=rs("numara")%>" class="form">&nbsp;<font class="tablo_font"><a href="Hesabim.asp?mesaj=sil&id=<%=rs("numara")%>&uye=<%=session("kulladi")%>" title="<%=uyelik_44%>"><%=uyelik_44%></a></font></div></td>
        </tr>
<%
rs.movenext
Loop
rs.Close : Set rs = Nothing
%><tr>
<td></td>
<td></td>
<td><INPUT TYPE="submit" value="<%=topsil%>" class="buton"></td>
<td><input type=button value="<%=jvscripts_1%>" onClick="this.value=check(this.form.list)" class="buton"></td>
</tr></form>
</table>
</td>
  </tr>
  </table>
<%
Call temaaltorta
call center2
call son
Call sona
Response.End
end if

if (Request.QueryString("bilgi"))="duzenle" then

if not session("siteye")="girdi" then
Call title
call bas
call center
%>
<!--#include file="Yasak.asp" -->
<%
call center2
call son
response.end
end if
tmbaslikorta = uyelik_32
Call title
Call aciklama
call bas
call center
Call temaustorta
%>
<%
uye=session("kulladi")
Set rs = Member.Execute("select gizli,cinsiyet,icon,sifresoru,email,msn,yahoo,isim,soyisim,meslek,sehir,yasne,web,imza,resimler from uyeler where kulladi='"& uye &"'")

uymaildurum=rs("gizli")
uycinsi=rs("cinsiyet")
if uymaildurum="1" Then
gizlimi="checked"
Else
gizlimi=""
End if
avaticon=rs("icon")
%>
<!--#include file="Seviye.asp" -->
      <table width="98%" border="0" align="center" cellpadding="0" cellspacing="5">
	  <form action="Hesabim.asp?bilgi=duzenle2" method="post" name="uye">
        <tr>
          <td>
		  <table width="100%" border="0">
                <tr> 
                  <td width="35%"><div align="right"><font class="tablo_font"><%=uyelik_15%> : </font></div></td>
                  <td width="65%"><b><%=session("kulladi")%></b></td>
                </tr>
                <tr> 
                  <td><div align="right"><font class="tablo_font"><%=uyelik_16%> : </font></div></td>
                  <td><INPUT name="sifre" TYPE="password" class="form" onKeyUp="EvalPwdStrength(this.value,'SifreLabel','SifreBar');" maxlength="50"><font class="tablo_font">  <a href="#" class="hintanchor" onMouseover="showhint('<%=uyelik_56%>', this, event, '200px')">[?]</a></font>&nbsp;<span id="SifreChkCon"><label id="SifreLabel"><%=uyelik_74%></label><div id="SifreBar"></div></span></td>
                </tr>
                <tr> 
                  <td><div align="right"><font class="tablo_font"><%=uyelik_54%> : </font></div></td>
                  <td><INPUT NAME="sifresoru" TYPE="text" value="<%=rs("sifresoru")%>" maxlength="50" class="form"><font class="tablo_font"> * <a href="#" class="hintanchor" onMouseover="showhint('<%=uyelik_132%>', this, event, '200px')">[?]</a></font></td>
                </tr>
                <tr> 
                  <td><div align="right"><font class="tablo_font"><%=uyelik_55%> : </font></div></td>
                  <td><INPUT NAME="cevap" TYPE="password" maxlength="50" class="form" onKeyUp="EvalPwdStrength(this.value,'CevapLabel','CevapBar');"><font class="tablo_font">   <a href="#" class="hintanchor" onMouseover="showhint('<%=uyelik_56%>', this, event, '200px')">[?]</a></font>&nbsp;<span id="CevapChkCon"><label id="CevapLabel"><%=uyelik_74%></label><div id="CevapBar"></div></span></td>
                </tr>
                <tr> 
                  <td><div align="right"><font class="tablo_font"><%=uyelik_57%> : </font></div></td>
                  <td><INPUT TYPE="text" NAME="email" maxlength="50" size="20" value="<%=rs("email")%>" class="form"><font class="tablo_font"> * <a href="#" class="hintanchor" onMouseover="showhint('<%=uyelik_134%>', this, event, '220px')">[?]</a> <%=uyelik_58%> : <input name="gizli" type="checkbox" class="form" <%=gizlimi%>> <a href="#" class="hintanchor" onMouseover="showhint('<%=uyelik_135%>', this, event, '200px')">[?]</a></font></td>
                </tr>
                <tr> 
                  <td><div align="right"><font class="tablo_font"><%=uyelik_59%> : </font></div></td>
                  <td><INPUT TYPE="text" NAME="msn" maxlength="50" size="20" value="<%=rs("msn")%>" class="form"> <font class="tablo_font"><a href="#" class="hintanchor" onMouseover="showhint('<%=uyelik_136%>', this, event, '200px')">[?]</a></font></td>
                </tr>
                <tr> 
                  <td><div align="right"><font class="tablo_font"><%=uyelik_60%> : </font></div></td>
                  <td><INPUT TYPE="text" NAME="yahoo" maxlength="50" size="20" value="<%=rs("yahoo")%>" class="form"> <font class="tablo_font"><a href="#" class="hintanchor" onMouseover="showhint('<%=uyelik_137%>', this, event, '200px')">[?]</a></font></td>
                </tr>
                <tr> 
                  <td><div align="right"><font class="tablo_font"><%=uyelik_61%> : </font></div></td>
                  <td><INPUT TYPE="text" NAME="isim" maxlength="50" size="20" value="<%=rs("isim")%>" class="form"><font class="tablo_font"> * <a href="#" class="hintanchor" onMouseover="showhint('<%=uyelik_138%>', this, event, '200px')">[?]</a></font></td>
                </tr>
                <tr> 
                  <td><div align="right"><font class="tablo_font"><%=uyelik_62%> : </font></div></td>
                  <td><INPUT TYPE="text" NAME="soyisim" maxlength="50" size="20" value="<%=rs("soyisim")%>" class="form"><font class="tablo_font"> * <a href="#" class="hintanchor" onMouseover="showhint('<%=uyelik_139%>', this, event, '200px')">[?]</a></font></td>
                </tr>
                <tr> 
                  <td><div align="right"><font class="tablo_font"><%=uyelik_63%> : </font></div></td>
                  <td><INPUT TYPE="text" NAME="meslek" maxlength="50" value="<%=rs("meslek")%>" class="form"> <font class="tablo_font"><a href="#" class="hintanchor" onMouseover="showhint('<%=uyelik_140%>', this, event, '200px')">[?]</a></font></td>
                </tr>
                <tr> 
                  <td><div align="right"><font class="tablo_font"><%=uyelik_64%> : </font></div></td>
                  <td>
<script language="javascript">
<!--
function Ulkem(ulk) {
<!--
	document.getElementById('dis').style.visibility='hidden';
	document.getElementById('tr').style.visibility='hidden';
if (ulk == "tr") {
	document.getElementById('tr').style.visibility='visible';
}
if (ulk == "dis") {
	document.getElementById('dis').style.visibility='visible';
}
 }

function UlkemYeni(yulk) {
	document.getElementById('UlYeni').value = yulk;
}
//-->
</SCRIPT>
<% sehir = rs("sehir") %>
<input type="hidden" id="UlYeni" name="sehir" value="<%=sehir%>" class="form">
<select id="ulke" name="ulke" class="form" onChange="Ulkem(this.value);"> 
<option selected value="<%=sehir%>"><%=sehir%></option>
<option value="tr">** Yurt İçi **</option>
<option value="dis">** Yurt Dışı **</option>
</select>
<select id="tr" name="tr" class="form" style="visibility:hidden;" onChange="UlkemYeni(this.value);">
<option selected value="">____________</option>
<option value="Adana">Adana</option>
<option value="Adıyaman">Adıyaman</option>
<option value="Afyon">Afyon</option>
<option value="Ağrı">Ağrı</option>
<option value="Aksaray">Aksaray</option>
<option value="Amasya">Amasya</option>
<option value="Ankara">Ankara</option>
<option value="Antalya">Antalya</option>
<option value="Ardahan">Ardahan</option>
<option value="Artvin">Artvin</option>
<option value="Aydın">Aydın</option>
<option value="Balıkesir">Balıkesir</option>
<option value="Bartın">Bartın</option>
<option value="Batman">Batman</option>
<option value="Bayburt">Bayburt</option>
<option value="Bilecik">Bilecik</option>
<option value="Bingöl">Bingöl</option>
<option value="Bitlis">Bitlis</option>
<option value="Bolu">Bolu</option>
<option value="Burdur">Burdur</option>
<option value="Bursa">Bursa</option>
<option value="Çanakkale">Çanakkale</option>
<option value="Çankırı">Çankırı</option>
<option value="Çorum">Çorum</option>
<option value="Denizli">Denizli</option>
<option value="Diyarbakır">Diyarbakır</option>
<option value="Düzce">Düzce</option>
<option value="Edirne">Edirne</option>
<option value="Elazığ">Elazığ</option>
<option value="Erzincan">Erzincan</option>
<option value="Erzurum">Erzurum</option>
<option value="Eskişehir">Eskişehir</option>
<option value="Gaziantep">Gaziantep</option>
<option value="Giresun">Giresun</option>
<option value="Gümüşhane">Gümüşhane</option>
<option value="Hakkari">Hakkari</option>
<option value="Hatay">Hatay</option>
<option value="Iğdır">Iğdır</option>
<option value="Isparta">Isparta</option>
<option value="İstanbul">İstanbul</option>
<option value="İzmir">İzmir</option>
<option value="K.K.T.C.">K.K.T.C.</option>
<option value="K.Maraş">K.Maraş</option>
<option value="Karabük">Karabük</option>
<option value="Karaman">Karaman</option>
<option value="Kars">Kars</option>
<option value="Kastamonu">Kastamonu</option>
<option value="Kayseri">Kayseri</option>
<option value="Kırıkkale">Kırıkkale</option>
<option value="Kırklareli">Kırklareli</option>
<option value="Kırşehir">Kırşehir</option>
<option value="Kilis">Kilis</option>
<option value="Kocaeli">Kocaeli</option>
<option value="Konya">Konya</option>
<option value="Kütahya">Kütahya</option>
<option value="Malatya">Malatya</option>
<option value="Manisa">Manisa</option>
<option value="Mardin">Mardin</option>
<option value="Mersin">Mersin</option>
<option value="Muğla">Muğla</option>
<option value="Muş">Muş</option>
<option value="Nevşehir">Nevşehir</option>
<option value="Niğde">Niğde</option>
<option value="Ordu">Ordu</option>
<option value="Osmaniye">Osmaniye</option>
<option value="Rize">Rize</option>
<option value="Sakarya">Sakarya</option>
<option value="Samsun">Samsun</option>
<option value="Siirt">Siirt</option>
<option value="Sinop">Sinop</option>
<option value="Sivas">Sivas</option>
<option value="Şanlıurfa">Şanlıurfa</option>
<option value="Şırnak">Şırnak</option>
<option value="Tekirdağ">Tekirdağ</option>
<option value="Tokat">Tokat</option>
<option value="Trabzon">Trabzon</option>
<option value="Tunceli">Tunceli</option>
<option value="Uşak">Uşak</option>
<option value="Van">Van</option>
<option value="Yalova">Yalova</option>
<option value="Yozgat">Yozgat</option>
<option value="Zonguldak">Zonguldak</option>
</select>
<select id="dis" name="tr" class="form" style="visibility:hidden;" onChange="UlkemYeni(this.value);">
<option selected value="">____________</option>
<option value="Afrika">Afrika</option>
<option value="Almanya">Almanya</option>
<option value="A.B.D">A.B.D</option>
<option value="Arjantin">Arjantin</option>
<option value="Arnavutluk">Arnavutluk</option>
<option value="Avustralya">Avustralya</option>
<option value="Avusturya">Avusturya</option>
<option value="Azerbaycan">Azerbaycan</option>
<option value="Bahreyn">Bahreyn</option>
<option value="Belçika">Belçika</option>
<option value="Bosna Hersek">Bosna Hersek</option>
<option value="Brezilya">Brezilya</option>
<option value="Cezayir">Cezayir</option>
<option value="Çek Cumhuriyeti">Çek Cumhuriyeti</option>
<option value="Danimarka">Danimarka</option>
<option value="Endonezya">Endonezya</option>
<option value="Ermenistan">Ermenistan</option>
<option value="Estonya">Estonya</option>
<option value="Filipinler">Filipinler</option>
<option value="Finlandiya">Finlandiya</option>
<option value="Fransa">Fransa</option>
<option value="Guatemala">Guatemala</option>
<option value="Gürcistan">Gürcistan</option>
<option value="Hindistan">Hindistan</option>
<option value="Hırvatistan">Hırvatistan</option>
<option value="Hollanda">Hollanda</option>
<option value="Hong Kong">Hong Kong</option>
<option value="Irak">Irak</option>
<option value="İran">İran</option>
<option value="İrlanda">İrlanda</option>
<option value="İspanya">İspanya</option>
<option value="İsrail">İsrail</option>
<option value="İsveç">İsveç</option>
<option value="İsviçre">İsviçre</option>
<option value="İtalya">İtalya</option>
<option value="İzlanda">İzlanda</option>
<option value="Japonya">Japonya</option>
<option value="Kanada">Kanada</option>
<option value="Kore">Kore</option>
<option value="Kosta Rika">Kosta Rika</option>
<option value="Kuveyt">Kuveyt</option>
<option value="Letonya">Letonya</option>
<option value="Libya">Libya</option>
<option value="Litvanya">Litvanya</option>
<option value="Lübnan">Lübnan</option>
<option value="Lüksemburg">Lüksemburg</option>
<option value="Macaristan">Macaristan</option>
<option value="Makedonya">Makedonya</option>
<option value="Malezya">Malezya</option>
<option value="Malta">Malta</option>
<option value="Meksika">Meksika</option>
<option value="Mısır">Mısır</option>
<option value="Nikaragua">Nikaragua</option>
<option value="Norveç">Norveç</option>
<option value="Pakistan">Pakistan</option>
<option value="Panama">Panama</option>
<option value="Paraguay">Paraguay</option>
<option value="Peru">Peru</option>
<option value="Polonya">Polonya</option>
<option value="Portekiz">Portekiz</option>
<option value="Porto Riko">Porto Riko</option>
<option value="Romanya">Romanya</option>
<option value="Rusya">Rusya</option>
<option value="Singapur">Singapur</option>
<option value="Sırbistan">Sırbistan</option>
<option value="Slovakya">Slovakya</option>
<option value="Slovenya">Slovenya</option>
<option value="Suriye">Suriye</option>
<option value="Suudi Arabistan">Suudi Arabistan</option>
<option value="Şili">Şili</option>
<option value="Tayland">Tayland</option>
<option value="Tayvan">Tayvan</option>
<option value="Tunus">Tunus</option>
<option value="Ukrayna">Ukrayna</option>
<option value="Umman">Umman</option>
<option value="Ürdün">Ürdün</option>
<option value="Vietnam">Vietnam</option>
<option value="Yemen">Yemen</option>
<option value="Yeni Zelanda">Yeni Zelanda</option>
<option value="Yunanistan">Yunanistan</option>
</select><font class="tablo_font"> * <a href="#" class="hintanchor" onMouseover="showhint('<%=uyelik_141%>', this, event, '200px')">[?]</a></font></td>
                </tr>
				<tr> 
                  <td><div align="right"><font class="tablo_font"><%=uyelik_65%> : </font></div></td>
                  <td><select name="cins" class="form">
	                <option value="<%=uycinsi%>" selected><%=uycinsi%></option>
					<option value="<%=uyelik_163%>"><%=uyelik_163%>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</option>
	                <option value="<%=uyelik_164%>"><%=uyelik_164%></option>
	                </select> <font class="tablo_font"><a href="#" class="hintanchor" onMouseover="showhint('<%=uyelik_142%>', this, event, '200px')">[?]</a></font></td>
                </tr>
                <tr> 
                  <td><div align="right"><font class="tablo_font"><%=uyelik_66%> : </font></div></td>
                  <td><select name="gun" class="form">
<%
doggun=Mid(rs("yasne"),7,2)
dogay=Mid(rs("yasne"),5,2)
dogyil=Left(rs("yasne"),4)
%>
	<option value="<%=doggun%>" selected><%=doggun%></option>
<%
g=0
rakam=31
For i=1 To rakam
g = g + 1
If g < 10 Then
g = 0&g
End if
%>
<option value="<%=g%>"><%=g%></option>
<% Next %>
	</select>.<select name="ay" class="form">
	<option value="<%=dogay%>" selected><%=dogay%></option>
<%
a=0
rakam=12
For i=1 To rakam
a = a + 1
If a < 10 Then
a = 0&a
End if
%>
<option value="<%=a%>"><%=a%></option>
<% Next %>
	</select>.<select name="yil" class="form">
	<option value="<%=dogyil%>" selected><%=dogyil%></option>
<%
y=Year(now)
yil=85
For i=1 To yil
y = y - 1
%>
<option value="<%=y%>"><%=y%></option>
<% Next %>
	</select><font class="tablo_font"> * <a href="#" class="hintanchor" onMouseover="showhint('<%=uyelik_143%>', this, event, '200px')">[?]</a></font></td>
                </tr>
				<tr> 
                  <td><div align="right"><font class="tablo_font"><%=uyelik_67%> : </font></div></td>
                  <td><INPUT name="web" TYPE="text" value="<%=rs("web")%>" class="form"> <font class="tablo_font"><a href="#" class="hintanchor" onMouseover="showhint('<%=uyelik_144%>', this, event, '200px')">[?]</a></font></td>
                </tr>
                <tr> 
                  <td><div align="right"><font class="tablo_font"><%=uyelik_68%> : </font></div></td>
                  <td>
<script language="JavaScript" type="text/javascript">
EditorTip = "mini"; EditorYolu ="Inc/AspsitemEditor"; EditorGenislik ="430"; EditorYukseklik ="100"
</script>
<script language="JavaScript" type="text/javascript" src="Inc/AspsitemEditor/AspsEditor.js"></script>
<textarea name="imza" ID="imza" rows="3" cols="20" class="form" style="display:none"><%=rs("imza")%></textarea>
<script language="JavaScript" type="text/javascript">
<!-- 
TextAdi = "imza";
Editor_Ac_Basla(Asp_Editor,document.getElementById(TextAdi)); //Editoru ac
//--> 
</script>
<font class="tablo_font"><a href="#" class="hintanchor" onMouseover="showhint('<%=uyelik_145%>', this, event, '200px')">[?]</a><br><a ONCLICK="window.open('imzakodlari.asp','imza1','top=20,left=20,width=500,height=420,toolbar=no,scrollbars=yes');" href="#imza1" title="<%=uyelik_119%>"><%=uyelik_119%></a></font></td>
                </tr>
                <tr> 
                  <td><div align="right"><font class="tablo_font"><%=uyelik_69%> : <br><br><br><br><%=uyelik_70%> : </font></div></td>
                  <td><select name="secenek" size="4" class="form" onChange="(avatar.src = secenek.options[secenek.selectedIndex].value);(icon.value = secenek.options[secenek.selectedIndex].value)">
                      <option value="<%=avaticon%>"selected><%=uyelik_71%></option>
					  <option value="Resimler/avatar/bos.gif"><%=uyelik_72%></option>
<%
a=0
For i=1 To toplamavatar
a = a + 1  %>
					  <option value="Resimler/avatar/<%=a%>.gif"><%=a%></option>
<% Next %>
                    </select>&nbsp;<font class="tablo_font"><a href="#" class="hintanchor" onMouseover="showhint('<%=uyelik_146%>', this, event, '200px')">[?]</a></font> <img onError="src = 'Resimler/avatar/1.gif'" src="<%=avaticon%>" width="50" height="50" name="avatar"><br>
	<INPUT type="text" NAME="icon" value="<%=avaticon%>" class="form"> <font class="tablo_font"><a href="#" class="hintanchor" onMouseover="showhint('<%=uyelik_147%>', this, event, '250px')">[?]</a></font>
<%
resimlozel = rs("resimler")
rs.Close : Set rs = Nothing
If strresimackapa = "1" Then
yukleresimavat = "<font class=""tablo_font""><a ONCLICK=""window.open('Inc/upload/default.asp?uye=avatar','resimyukle','top=20,left=20,width=450,height=300,toolbar=no,scrollbars=yes');"" href=""#resimyukle"" title="&uyelik_73&">"&uyelik_73&"</a></font>"
Response.write(yukleresimavat)
End if %>
                  </td>
                </tr>
<%
If resimlozel <> "" Then
resimdizi = Split(resimlozel,",")
If resimdizi(0) <> "" Then
rdizi1 = resimdizi(0)
End if
If resimdizi(1) <> "" Then
rdizi2 = resimdizi(1)
End if
If resimdizi(2) <> "" Then
rdizi3 = resimdizi(2)
End if
Else
rdizi1 = "Resimler/resimyok.gif"
rdizi2 = "Resimler/resimyok.gif"
rdizi3 = "Resimler/resimyok.gif"
End if
%>
                <tr> 
                <td><div align="right"><font class="tablo_font"><%=uyelik_181%>1 : </font></div></td>
                <td><INPUT TYPE="text" NAME="resim1" value="<%=rdizi1%>" class="form"> <font class="tablo_font"><a href="#" class="hintanchor" onMouseover="showhint('<%=uyelik_182%>', this, event, '250px')">[?]</a></font><img src="<%=rdizi1%>" height="40" width="40" align="absmiddle"> <%=yukleresimavat%></td>
              </tr>
                <tr> 
                <td><div align="right"><font class="tablo_font"><%=uyelik_181%>2 : </font></div></td>
                <td><INPUT TYPE="text" NAME="resim2" value="<%=rdizi2%>" class="form"> <font class="tablo_font"><a href="#" class="hintanchor" onMouseover="showhint('<%=uyelik_182%>', this, event, '250px')">[?]</a></font><img src="<%=rdizi2%>" height="40" width="40" align="absmiddle"> <%=yukleresimavat%></td>
              </tr>
                <tr> 
                <td><div align="right"><font class="tablo_font"><%=uyelik_181%>3 : </font></div></td>
                <td><INPUT TYPE="text" NAME="resim3" value="<%=rdizi3%>" class="form"> <font class="tablo_font"><a href="#" class="hintanchor" onMouseover="showhint('<%=uyelik_182%>', this, event, '250px')">[?]</a></font><img src="<%=rdizi3%>" height="40" width="40" align="absmiddle"> <%=yukleresimavat%></td>
              </tr>
<% If guvenlikkodu = "1" Then %>	  <tr> 
                <td><div align="right"><font class="tablo_font"><%=uyelik_74%> : </font></div></td>
                <td><font class="tablo_font"><a href="javascript:void(0)" onClick="sendPost('Yenisif.asp','yok','GVsifre');"><font id="GVsifre"><% Call GVsifre %></font></a></font></td>
              </tr>
			  <tr> 
                <td><div align="right"><font class="tablo_font"><%=uyelik_75%> : </font></div></td>
                <td><INPUT TYPE="text" name="guvenlik" id="guvenlik" maxlength="50" class="form"> <font class="tablo_font"><a href="#" class="hintanchor" onMouseover="showhint('<%=uyelik_148%>', this, event, '250px')">[?]</a></font></td>
              </tr><% End if %>
			  <tr> 
                <td><div align="right"></div></td>
                <td>&nbsp;</td>
              </tr>
                <tr> 
                  <td colspan="2"><div align="center">
                      <INPUT TYPE="submit" value="<%=uyelik_76%>" class="buton">
                    </div></td>
                </tr>
              </table>
        </tr></form>
      </table>
<%
Call temaaltorta
call center2
call son
Call sona
Response.End
end if

if CheckQuery((Request.QueryString("bilgi")))="duzenle2" then
Call title
call bas
call center

if not session("siteye")="girdi" then
Call title
call bas
call center
%>
<!--#include file="Yasak.asp" -->
<%
call center2
call son
response.end
end if
%>
<font class="tablo_font">
<%
If guvenlikkodu = "1" Then
gusifre = "GVsifre"
Else
gusifre = ""
End if

if session(""&gusifre&"")=Request.Form("guvenlik") Then
If Request.Form("guvenlik")="" and guvenlikkodu = "1" Then
Connect.Close : Set Connect = Nothing
Forum.Close : Set Forum = Nothing
Member.Close : Set Member = Nothing
Response.Redirect "Default.asp"
Response.End
End if
Session("GVsifre")=""

sifre=temizmi(Trim(request.form("sifre")))
'imza=CreateURL(Trim(request.form("imza")))
imza=ayikla(Trim(request.form("imza")))
sifresoru=ayikla(request.form("sifresoru"))
cevap=temizmi(Trim(request.form("cevap")))
email=request.form("email")
msn=ayikla(request.form("msn"))
yahoo=ayikla(request.form("yahoo"))
isim=ayikla(request.form("isim"))
soyisim=ayikla(request.form("soyisim"))
cins=temizmi(request.form("cins"))
meslek=ayikla(request.form("meslek"))
yasne=temizmi(request.form("yil")&request.form("ay")&request.form("gun"))
web=ayikla(request.form("web"))
icon=ayikla(request.form("icon"))
sehir=ayikla(request.form("sehir"))
resim=ayikla(request.form("resim1"))&","&ayikla(request.form("resim2"))&","&ayikla(request.form("resim3"))

yaziformu=sansur(imza)
%><!--#include file="Inc/Renklendir.asp" --><%
imza=yaziformu

if sifresoru="" then
response.write (uyelik_77)
elseif isim="" then
response.write (uyelik_77)
elseif soyisim="" then
response.write (uyelik_77)
elseif sehir="" then
response.write (uyelik_77)
elseif yasne="" then
response.write (uyelik_77)
Elseif not dogruMu(email) then
response.write (uyelik_78)
else

if msn="" Then
msn=uyelik_76a
Else
msn=msn
End if
if yahoo="" Then
yahoo=uyelik_76a
Else
yahoo=yahoo
End if
if isim="" Then
isim=uyelik_76a
Else
isim=isim
End if
if soyisim="" Then
soyisim=uyelik_76a
Else
soyisim=soyisim
End if
if meslek="" Then
meslek=uyelik_76a
Else
meslek=meslek
End if
if web="" Then
web="http://"
Else
web=web
End if
if imza="" Then
imza=".."
Else
imza=imza
End if
if sehir="" Then
sehir="Yazmamiş"
Else
sehir=sehir
End if

uye=session("kulladi")
Set sifreal = Member.Execute("Select sifre,cevap from uyeler where kulladi = '"&uye&"'")

If sifre="" Then
sifregun=sifreal("sifre")
Else
sifregun=md5(sifre)
End if
If cevap="" Then
cevapgun=sifreal("cevap")
Else
cevapgun=md5(cevap)
End if
sifreal.Close : Set sifreal = Nothing

if Request.Form("gizli") = "on" Then
postgizle=1
Else
postgizle=0
End if

Set rs = Member.Execute("Select email from uyeler where kulladi = '"&uye&"'")
if not rs.eof then
If rs("email") <> email and struyeonay = "1" Then
onaytip = 0
Else
onaytip = 1
End if
End if
rs.Close : Set rs = Nothing

If struyeonay = "1" and onaytip = 0 Then

If sifre="" Then
sfposta = uyelik_155
Else
sfposta = request.form("sifre")
End if 
	    
    Body= Body & "<a href="""&strsiteadres&""">"&strsiteadres&"</a> "&uyelik_156&"<br>" & vbcrlf 
    Body= Body & "------------------------------<br>" & vbcrlf 
    Body= Body & ""&uyelik_92&"" & vbcrlf 
    Body= Body & "<b>"&uyelik_15&" :</b> "&uye&"<br>" & vbcrlf 
	Body= Body & "<b>"&uyelik_16&" :</b> "&sfposta&"<br>" & vbcrlf 
    Body= Body & "<b>"&uyelik_61&" :</b> "&isim&"<br>" & vbcrlf 
    Body= Body & "<b>"&uyelik_62&" :</b> "&soyisim&"<br>" & vbcrlf 
    Body= Body & "-----------------------------<br>" & vbcrlf 
    Body= Body & ""&uyelik_93&"<br>" & vbcrlf 
    Body= Body & "<a href="""&strsiteadres&"/Aktivasyon.asp?uye="&uye&"&aktivet="&sifregun&""">"&strsiteadres&"/Aktivasyon.asp?uye="&uye&"&aktivet="&sifregun&"</a><br>" & vbcrlf 
    Body= Body & "Text: "&strsiteadres&"/Aktivasyon.asp?uye="&uye&"&aktivet="&sifregun&"" & vbcrlf 
	Body= Body & "<br>" & vbcrlf
	Body= Body & "<br>" & vbcrlf
	Body= Body & ""&uyelik_94&" : <b>"&strsiteadi&"..</b>" & vbcrlf
        
GonderenAdi = uye
GonderenMail = strmailforum
GidecekMail = email
MailKonu = strmailkonu
Body = "<html><head></head><body>"&Body&"</body></html>"        
%><!--#include file="Inc/MailGon.asp" --><%
End if

Member.Execute("UpDate uyeler Set"& vbNewline & _
"sifre = '"&sifregun&"' , email = '"&email&"' , msn = '"&msn&"' , yahoo = '"&yahoo&"' , meslek = '"&meslek&"' , cinsiyet = '"&cins&"' , isim = '"&isim&"' , soyisim = '"&soyisim&"' , yasne = '"&yasne&"' , web = '"&web&"' , cevap = '"&cevapgun&"' , sifresoru = '"&sifresoru&"' , imza = '"&imza&"' , icon = '"&TagSil(icon)&"' , sehir = '"&sehir&"' , gizli = '"&postgizle&"' , onay = '"&onaytip&"' , resimler = '"&resim&"' where kulladi = '"&uye&"'")

If onaytip = 0 Then
Response.Write ("<center><br>"&uyelik_157&"</center>")

session("siteye")=""
session("kulladi")=""
session("sifre")=""
session("oturumid")=""
session("cevap")=""
session("kimdir")=""
session("fmod")=""
session("tema")=""
session("chat")=""
Response.Cookies(strkimlikstr&"Memis_portal")("kulladi") = ""
Response.Cookies(strkimlikstr&"Memis_portal")("sifre") = ""
Else
Response.Write ("<center><br>"&uyelik_79&"</center>")
End if
%>
</font>
<%
End if

Else
Response.Write (uyelik_80)
End if
call center2
call son
Response.End
end if

if (Request.QueryString("uye"))="ol" then

tmbaslikorta = uyelik_169
Call title
call bas
call center

Set memis = Connect.Execute("Select uyekural from ayarlar")
If not memis.Eof then
Call temaustorta
%>
      <table width="98%" border="0" align="center" cellpadding="0" cellspacing="5">
<form method="get">
        <tr>
          <td align="center"><font class="tablo_font"><b><%=uyelik_169%></b><br><br>
<div align="left" style="border:thin inset; padding:6px; height:175px; overflow:auto"><%=memis("uyekural")%></div><br>
<input type="radio" name="evethayir" onClick="ileri.disabled=false;" class="form"> <strong><%=uyelik_170%></strong>&nbsp;&nbsp;
<input type="radio" name="evethayir" onClick="ileri.disabled=true;" checked="checked" class="form"> <strong><%=uyelik_171%></strong><br><br>
<input type="button" onclick="window.location.href='?uye=ol2'; return false;" value="<%=uyelik_172%> &gt;&gt;&gt;" name="ileri" disabled="disabled" class="buton">
</font></td>
        </tr>
</form>
      </table>
<%
Call temaaltorta
End if
memis.Close : Set memis = Nothing
call center2
call son
Response.End
end if

if (Request.QueryString("uye"))="kontrol" then
Response.Write ("<font color=red>")
kulladi = ukarakter(Trim(request.form("kulladi")))
sebepkontrol = uyelik_196
if kulladi="" then
sebepkontrol = uyelik_77
elseif len(kulladi)<4 or len(kulladi)>15 then
sebepkontrol = uyelik_87
End if
arayasakli=Split(yasaklinick,",")
For y=0 To Ubound(arayasakli)  
If Instr(ucase(kulladi),ucase(arayasakli(y))) Then
sebepkontrol = uyelik_149
sebepkontrol = sebepkontrol&"<br><b>"&uyelik_158&" :</b> "&arayasakli(y)
End if
Next
Set rs = Member.Execute("Select kulladi from uyeler where kulladi = '"& kulladi &"'")
if not rs.eof then
sebepkontrol = uyelik_88
end if
rs.Close : Set rs = Nothing
Response.Write (sebepkontrol&"</font>")
Connect.Close : Set Connect = Nothing
Forum.Close : Set Forum = Nothing
Member.Close : Set Member = Nothing
Response.End
End if

if (Request.QueryString("uye"))="ol2" then
tmbaslikorta = uyelik_19
Call title
call bas
call center

If not struyeonay = "0" Then

if session("siteye")="girdi" then
Response.Write "<center><font class=""tablo_font"">"&uyelik_81&"</font></center>"
call center2
call son
response.end
end if
Call aciklama
Call temaustorta

If uyegelismisgizle = "none" Then
%>
<div align="center"><font class="tablo_font"><a onClick="TblGizleac('uyelik1');TblGizleac('uyelik2');TblGizleac('uyelik3');TblGizleac('uyelik4');TblGizleac('uyelik5');;TblGizleac('uyelik7');TblGizleac('uyelik9');TblGizleac('uyelik10');TblGizleac('uyelik11');TblGizleac('uyelik12');TblGizleac('uyelik13');TblGizleac('uyelik14');" href="javascript:void(0)"><b><%=uyelik_168%></b></a></font></div>
<% end if %><div align="center"><font id="Uyekontrol" class="tablo_font"></font></div>
<% If struyeonay = "1" Then Response.Write("<center><font class=""tablo_font"">"&uyelik_120&"</font></center> ") End if %>
<!--#include file="Seviye.asp" -->
      <table width="98%" border="0" align="center" cellpadding="0" cellspacing="5">
	  <form action="Hesabim.asp?uye=kayit" method="post" name="uye">
        <tr>
          <td>
		  <table width="100%" border="0">
              <tr> 
                <td width="35%"><div align="right"><font class="tablo_font"><%=uyelik_15%> : </font></div></td>
                <td width="65%"><INPUT TYPE="text" NAME="kulladi" maxlength="15" class="form"><font class="tablo_font"> * <a href="#" class="hintanchor" onMouseover="showhint('<%=uyelik_82%>', this, event, '200px')">[?]</a>&nbsp;<b><a href="javascript:void(0)" onClick="sendPost('Hesabim.asp?uye=kontrol','uye','Uyekontrol');"><%=uyelik_201%></a></b></font></td>
              </tr>
              <tr> 
                <td><div align="right"><font class="tablo_font"><%=uyelik_16%> : </font></div></td>
                <td><INPUT TYPE="password" name="sifre" maxlength="50" onKeyUp="EvalPwdStrength(this.value,'SifreLabel','SifreBar');" class="form"><font class="tablo_font"> * <a href="#" class="hintanchor" onMouseover="showhint('<%=uyelik_130%>', this, event, '200px')">[?]</a></font>&nbsp;<span id="SifreChkCon"><label id="SifreLabel"><%=uyelik_74%></label><div id="SifreBar"></div></span></td>
              </tr>
              <tr> 
                <td><div align="right"><font class="tablo_font"><%=uyelik_83%> : </font></div></td>
                <td><INPUT TYPE="password" name="tsifre" maxlength="50" class="form"><font class="tablo_font"> * <a href="#" class="hintanchor" onMouseover="showhint('<%=uyelik_131%>', this, event, '200px')">[?]</a></font></td>
              </tr>
              <tr> 
                <td><div align="right"><font class="tablo_font"><%=uyelik_54%> : </font></div></td>
                <td><INPUT TYPE="text" NAME="sifresoru" maxlength="50" class="form"><font class="tablo_font"> * <a href="#" class="hintanchor" onMouseover="showhint('<%=uyelik_132%>', this, event, '200px')">[?]</a></font></td>
              </tr>
              <tr> 
                <td><div align="right"><font class="tablo_font"><%=uyelik_55%> : </font></div></td>
                <td><INPUT TYPE="password" NAME="cevap" maxlength="50" onKeyUp="EvalPwdStrength(this.value,'CevapLabel','CevapBar');" class="form"><font class="tablo_font"> * <a href="#" class="hintanchor" onMouseover="showhint('<%=uyelik_133%>', this, event, '200px')">[?]</a></font>&nbsp;<span id="CevapChkCon"><label id="CevapLabel"><%=uyelik_74%></label><div id="CevapBar"></div></span></td>
              </tr>
              <tr> 
                <td><div align="right"><font class="tablo_font"><%=uyelik_57%> : </font></div></td>
                <td><INPUT TYPE="text" NAME="email" size="20" maxlength="50" class="form"><font class="tablo_font"> * <a href="#" class="hintanchor" onMouseover="showhint('<%=uyelik_134%>', this, event, '220px')">[?]</a> <%=uyelik_58%> : <input name="gizli" type="checkbox" class="form"> <a href="#" class="hintanchor" onMouseover="showhint('<%=uyelik_135%>', this, event, '200px')">[?]</a></font></td>
              </tr>
			  <tr id="uyelik1" style="display:<%=uyegelismisgizle%>;"> 
                <td><div align="right"><font class="tablo_font"><%=uyelik_59%> : </font></div></td>
                <td><INPUT TYPE="text" NAME="msn" size="20" maxlength="50" class="form"> <font class="tablo_font"><a href="#" class="hintanchor" onMouseover="showhint('<%=uyelik_136%>', this, event, '200px')">[?]</a></font></td>
              </tr>
			  <tr id="uyelik2" style="display:<%=uyegelismisgizle%>;"> 
                <td><div align="right"><font class="tablo_font"><%=uyelik_60%> : </font></div></td>
                <td><INPUT TYPE="text" NAME="yahoo" size="20" maxlength="50" class="form"> <font class="tablo_font"><a href="#" class="hintanchor" onMouseover="showhint('<%=uyelik_137%>', this, event, '200px')">[?]</a></font></td>
              </tr>
			  <tr id="uyelik3" style="display:<%=uyegelismisgizle%>;"> 
                <td><div align="right"><font class="tablo_font"><%=uyelik_61%> : </font></div></td>
                <td><INPUT TYPE="text" NAME="isim" size="20" maxlength="50" class="form"><font class="tablo_font"> * <a href="#" class="hintanchor" onMouseover="showhint('<%=uyelik_138%>', this, event, '200px')">[?]</a></font></td>
              </tr>
			  <tr id="uyelik4" style="display:<%=uyegelismisgizle%>;"> 
                <td><div align="right"><font class="tablo_font"><%=uyelik_62%> : </font></div></td>
                <td><INPUT TYPE="text" NAME="soyisim" size="20" maxlength="50" class="form"><font class="tablo_font"> * <a href="#" class="hintanchor" onMouseover="showhint('<%=uyelik_139%>', this, event, '200px')">[?]</a></font></td>
              </tr>
			  <tr id="uyelik5" style="display:<%=uyegelismisgizle%>;"> 
                <td><div align="right"><font class="tablo_font"><%=uyelik_63%> : </font></div></td>
                <td><INPUT TYPE="text" NAME="meslek" maxlength="50" class="form"> <font class="tablo_font"><a href="#" class="hintanchor" onMouseover="showhint('<%=uyelik_140%>', this, event, '200px')">[?]</a></font></td>
              </tr>
			  <tr> 
                <td><div align="right"><font class="tablo_font"><%=uyelik_64%> : </font></div></td>
                <td>
<script language="javascript">
<!--
function Ulkem(ulk) {
	document.getElementById('dis').style.visibility='hidden';
	document.getElementById('tr').style.visibility='hidden';
if (ulk == "tr") {
	document.getElementById('tr').style.visibility='visible';
}
if (ulk == "dis") {
	document.getElementById('dis').style.visibility='visible';
}
 }

function UlkemYeni(yulk) {
	document.getElementById('UlYeni').value = yulk;
}
//-->
</SCRIPT>
<input type="hidden" id="UlYeni" name="sehir" value="" class="form">
<select id="ulke" name="ulke" class="form" onChange="Ulkem(this.value);"> 
<option selected value="">Şehirler</option>
<option value="tr">** Yurt İçi **</option>
<option value="dis">** Yurt Dışı **</option>
</select>
<select id="tr" name="tr" class="form" style="visibility:hidden;" onChange="UlkemYeni(this.value);">
<option selected value="">____________</option>
<option value="Adana">Adana</option>
<option value="Adıyaman">Adıyaman</option>
<option value="Afyon">Afyon</option>
<option value="Ağrı">Ağrı</option>
<option value="Aksaray">Aksaray</option>
<option value="Amasya">Amasya</option>
<option value="Ankara">Ankara</option>
<option value="Antalya">Antalya</option>
<option value="Ardahan">Ardahan</option>
<option value="Artvin">Artvin</option>
<option value="Aydın">Aydın</option>
<option value="Balıkesir">Balıkesir</option>
<option value="Bartın">Bartın</option>
<option value="Batman">Batman</option>
<option value="Bayburt">Bayburt</option>
<option value="Bilecik">Bilecik</option>
<option value="Bingöl">Bingöl</option>
<option value="Bitlis">Bitlis</option>
<option value="Bolu">Bolu</option>
<option value="Burdur">Burdur</option>
<option value="Bursa">Bursa</option>
<option value="Çanakkale">Çanakkale</option>
<option value="Çankırı">Çankırı</option>
<option value="Çorum">Çorum</option>
<option value="Denizli">Denizli</option>
<option value="Diyarbakır">Diyarbakır</option>
<option value="Düzce">Düzce</option>
<option value="Edirne">Edirne</option>
<option value="Elazığ">Elazığ</option>
<option value="Erzincan">Erzincan</option>
<option value="Erzurum">Erzurum</option>
<option value="Eskişehir">Eskişehir</option>
<option value="Gaziantep">Gaziantep</option>
<option value="Giresun">Giresun</option>
<option value="Gümüşhane">Gümüşhane</option>
<option value="Hakkari">Hakkari</option>
<option value="Hatay">Hatay</option>
<option value="Iğdır">Iğdır</option>
<option value="Isparta">Isparta</option>
<option value="İstanbul">İstanbul</option>
<option value="İzmir">İzmir</option>
<option value="K.K.T.C.">K.K.T.C.</option>
<option value="K.Maraş">K.Maraş</option>
<option value="Karabük">Karabük</option>
<option value="Karaman">Karaman</option>
<option value="Kars">Kars</option>
<option value="Kastamonu">Kastamonu</option>
<option value="Kayseri">Kayseri</option>
<option value="Kırıkkale">Kırıkkale</option>
<option value="Kırklareli">Kırklareli</option>
<option value="Kırşehir">Kırşehir</option>
<option value="Kilis">Kilis</option>
<option value="Kocaeli">Kocaeli</option>
<option value="Konya">Konya</option>
<option value="Kütahya">Kütahya</option>
<option value="Malatya">Malatya</option>
<option value="Manisa">Manisa</option>
<option value="Mardin">Mardin</option>
<option value="Mersin">Mersin</option>
<option value="Muğla">Muğla</option>
<option value="Muş">Muş</option>
<option value="Nevşehir">Nevşehir</option>
<option value="Niğde">Niğde</option>
<option value="Ordu">Ordu</option>
<option value="Osmaniye">Osmaniye</option>
<option value="Rize">Rize</option>
<option value="Sakarya">Sakarya</option>
<option value="Samsun">Samsun</option>
<option value="Siirt">Siirt</option>
<option value="Sinop">Sinop</option>
<option value="Sivas">Sivas</option>
<option value="Şanlıurfa">Şanlıurfa</option>
<option value="Şırnak">Şırnak</option>
<option value="Tekirdağ">Tekirdağ</option>
<option value="Tokat">Tokat</option>
<option value="Trabzon">Trabzon</option>
<option value="Tunceli">Tunceli</option>
<option value="Uşak">Uşak</option>
<option value="Van">Van</option>
<option value="Yalova">Yalova</option>
<option value="Yozgat">Yozgat</option>
<option value="Zonguldak">Zonguldak</option>
</select>

<select id="dis" name="dis" class="form" style="visibility:hidden;" onChange="UlkemYeni(this.value);">
<option selected value="">____________</option>
<option value="Afrika">Afrika</option>
<option value="Almanya">Almanya</option>
<option value="A.B.D">A.B.D</option>
<option value="Arjantin">Arjantin</option>
<option value="Arnavutluk">Arnavutluk</option>
<option value="Avustralya">Avustralya</option>
<option value="Avusturya">Avusturya</option>
<option value="Azerbaycan">Azerbaycan</option>
<option value="Bahreyn">Bahreyn</option>
<option value="Belçika">Belçika</option>
<option value="Bosna Hersek">Bosna Hersek</option>
<option value="Brezilya">Brezilya</option>
<option value="Cezayir">Cezayir</option>
<option value="Çek Cumhuriyeti">Çek Cumhuriyeti</option>
<option value="Danimarka">Danimarka</option>
<option value="Endonezya">Endonezya</option>
<option value="Ermenistan">Ermenistan</option>
<option value="Estonya">Estonya</option>
<option value="Filipinler">Filipinler</option>
<option value="Finlandiya">Finlandiya</option>
<option value="Fransa">Fransa</option>
<option value="Guatemala">Guatemala</option>
<option value="Gürcistan">Gürcistan</option>
<option value="Hindistan">Hindistan</option>
<option value="Hırvatistan">Hırvatistan</option>
<option value="Hollanda">Hollanda</option>
<option value="Hong Kong">Hong Kong</option>
<option value="Irak">Irak</option>
<option value="İran">İran</option>
<option value="İrlanda">İrlanda</option>
<option value="İspanya">İspanya</option>
<option value="İsrail">İsrail</option>
<option value="İsveç">İsveç</option>
<option value="İsviçre">İsviçre</option>
<option value="İtalya">İtalya</option>
<option value="İzlanda">İzlanda</option>
<option value="Japonya">Japonya</option>
<option value="Kanada">Kanada</option>
<option value="Kore">Kore</option>
<option value="Kosta Rika">Kosta Rika</option>
<option value="Kuveyt">Kuveyt</option>
<option value="Letonya">Letonya</option>
<option value="Libya">Libya</option>
<option value="Litvanya">Litvanya</option>
<option value="Lübnan">Lübnan</option>
<option value="Lüksemburg">Lüksemburg</option>
<option value="Macaristan">Macaristan</option>
<option value="Makedonya">Makedonya</option>
<option value="Malezya">Malezya</option>
<option value="Malta">Malta</option>
<option value="Meksika">Meksika</option>
<option value="Mısır">Mısır</option>
<option value="Nikaragua">Nikaragua</option>
<option value="Norveç">Norveç</option>
<option value="Pakistan">Pakistan</option>
<option value="Panama">Panama</option>
<option value="Paraguay">Paraguay</option>
<option value="Peru">Peru</option>
<option value="Polonya">Polonya</option>
<option value="Portekiz">Portekiz</option>
<option value="Porto Riko">Porto Riko</option>
<option value="Romanya">Romanya</option>
<option value="Rusya">Rusya</option>
<option value="Singapur">Singapur</option>
<option value="Sırbistan">Sırbistan</option>
<option value="Slovakya">Slovakya</option>
<option value="Slovenya">Slovenya</option>
<option value="Suriye">Suriye</option>
<option value="Suudi Arabistan">Suudi Arabistan</option>
<option value="Şili">Şili</option>
<option value="Tayland">Tayland</option>
<option value="Tayvan">Tayvan</option>
<option value="Tunus">Tunus</option>
<option value="Ukrayna">Ukrayna</option>
<option value="Umman">Umman</option>
<option value="Ürdün">Ürdün</option>
<option value="Vietnam">Vietnam</option>
<option value="Yemen">Yemen</option>
<option value="Yeni Zelanda">Yeni Zelanda</option>
<option value="Yunanistan">Yunanistan</option>
</select><font class="tablo_font"> * <a href="#" class="hintanchor" onMouseover="showhint('<%=uyelik_141%>', this, event, '200px')">[?]</a></font></td>
              </tr>
			  <tr id="uyelik7" style="display:<%=uyegelismisgizle%>;"> 
                <td><div align="right"><font class="tablo_font"><%=uyelik_65%> : </font></div></td>
                <td><select name="cins" class="form">
	                <option value="<%=uyelik_163%>" selected><%=uyelik_163%>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</option>
	                <option value="<%=uyelik_164%>">Bayan</option>
	                </select> <font class="tablo_font"><a href="#" class="hintanchor" onMouseover="showhint('<%=uyelik_142%>', this, event, '200px')">[?]</a></font></td>
              </tr>
			  <tr>
                <td><div align="right"><font class="tablo_font"><%=uyelik_66%> : </font></div></td>
                <td><select name="gunn" class="form">
	<option value="0" selected><%=uyelik_165%></option>
<%
g=0
rakam=31
For i=1 To rakam
g = g + 1
If g < 10 Then
g = 0&g
End if
%>
<option value="<%=g%>"><%=g%></option>
<% Next %>
	</select>.<select name="ayy" class="form">
	<option value="0" selected><%=uyelik_166%></option>
<%
a=0
rakam=12
For i=1 To rakam
a = a + 1
If a < 10 Then
a = 0&a
End if
%>
<option value="<%=a%>"><%=a%></option>
<% Next %>
	</select>.<select name="yill" class="form">
	<option value="0" selected><%=uyelik_167%></option>
<%
y=Year(now)
yil=85
For i=1 To yil
y = y - 1
%>
<option value="<%=y%>"><%=y%></option>
<% Next %>
	</select><font class="tablo_font"> * <a href="#" class="hintanchor" onMouseover="showhint('<%=uyelik_143%>', this, event, '200px')">[?]</a></font></td>
              </tr>
			  <tr id="uyelik9" style="display:<%=uyegelismisgizle%>;"> 
                <td><div align="right"><font class="tablo_font"><%=uyelik_67%> : </font></div></td>
                <td><INPUT TYPE="text" NAME="web" value="http://" class="form"> <font class="tablo_font"><a href="#" class="hintanchor" onMouseover="showhint('<%=uyelik_144%>', this, event, '200px')">[?]</a></font></td>
              </tr>
			  <tr id="uyelik10" style="display:<%=uyegelismisgizle%>;"> 
                <td><div align="right"><font class="tablo_font"><%=uyelik_68%> : </font></div></td>
                <td>
<script language="JavaScript" type="text/javascript">
EditorTip = "mini"; EditorYolu ="Inc/AspsitemEditor"; EditorGenislik ="430"; EditorYukseklik ="100"
</script>
<script language="JavaScript" type="text/javascript" src="Inc/AspsitemEditor/AspsEditor.js"></script>
<textarea name="imza" ID="imza" rows="3" cols="20" class="form" style="display:none"></textarea>
<script language="JavaScript" type="text/javascript">
<!-- 
TextAdi = "imza";
Editor_Ac_Basla(Asp_Editor,document.getElementById(TextAdi)); //Editoru ac
//--> 
</script>
<font class="tablo_font"> <a href="#" class="hintanchor" onMouseover="showhint('<%=uyelik_145%>', this, event, '200px')">[?]</a><br><a ONCLICK="window.open('imzakodlari.asp','imza','top=20,left=20,width=500,height=420,toolbar=no,scrollbars=yes');" href="#imza" title="<%=uyelik_119%>"><%=uyelik_119%></a></font></td>
              </tr>
			  <tr id="uyelik11" style="display:<%=uyegelismisgizle%>;"> 
                <td><div align="right"><font class="tablo_font"><%=uyelik_69%> : <br><br><br><br><%=uyelik_70%> : </font></div></td>
                <td>
<select name="secenek" size="4" class="form" onChange="(avatar.src = secenek.options[secenek.selectedIndex].value);(icon.value = secenek.options[secenek.selectedIndex].value)">
	<option value="Resimler/avatar/bos.gif"selected><%=uyelik_71%></option>
<%
a=0
For i=1 To toplamavatar
a = a + 1  %>
					  <option value="Resimler/avatar/<%=a%>.gif"><%=a%></option>
<% Next %>
	</select>&nbsp;<font class="tablo_font"><a href="#" class="hintanchor" onMouseover="showhint('<%=uyelik_146%>', this, event, '200px')">[?]</a></font> <img onError="src = 'Resimler/avatar/1.gif'" src="Resimler/avatar/bos.gif" width="50" height="50" name="avatar"><br>
	<INPUT type="text" NAME="icon" value="Resimler/avatar/bos.gif" class="form"> <font class="tablo_font"><a href="#" class="hintanchor" onMouseover="showhint('<%=uyelik_147%>', this, event, '250px')">[?]</a></font>
				</td>
              </tr>
			  <tr id="uyelik12" style="display:<%=uyegelismisgizle%>;"> 
                <td><div align="right"><font class="tablo_font"><%=uyelik_181%>1 : </font></div></td>
                <td><INPUT TYPE="text" NAME="resim1" value="Resimler/resimyok.gif" class="form"> <font class="tablo_font"><a href="#" class="hintanchor" onMouseover="showhint('<%=uyelik_182%>', this, event, '250px')">[?]</a></font></td>
              </tr>
			  <tr id="uyelik13" style="display:<%=uyegelismisgizle%>;"> 
                <td><div align="right"><font class="tablo_font"><%=uyelik_181%>2 : </font></div></td>
                <td><INPUT TYPE="text" NAME="resim2" value="Resimler/resimyok.gif" class="form"> <font class="tablo_font"><a href="#" class="hintanchor" onMouseover="showhint('<%=uyelik_182%>', this, event, '250px')">[?]</a></font></td>
              </tr>
			  <tr id="uyelik14" style="display:<%=uyegelismisgizle%>;"> 
                <td><div align="right"><font class="tablo_font"><%=uyelik_181%>3 : </font></div></td>
                <td><INPUT TYPE="text" NAME="resim3" value="Resimler/resimyok.gif" class="form"> <font class="tablo_font"><a href="#" class="hintanchor" onMouseover="showhint('<%=uyelik_182%>', this, event, '250px')">[?]</a></font></td>
              </tr>
<% If guvenlikkodu = "1" Then %> <tr> 
                <td><div align="right"><font class="tablo_font"><%=uyelik_74%> : </font></div></td>
                <td><font class="tablo_font"><a href="javascript:void(0)" onClick="sendPost('Yenisif.asp','yok','GVsifre');"><font id="GVsifre"><% Call GVsifre %></font></a></font></td>
              </tr>
			  <tr> 
                <td><div align="right"><font class="tablo_font"><%=uyelik_75%> : </font></div></td>
                <td><INPUT TYPE="text" name="guvenlik" id="guvenlik" maxlength="50" class="form"> <font class="tablo_font"><a href="#" class="hintanchor" onMouseover="showhint('<%=uyelik_148%>', this, event, '250px')">[?]</a></font></td>
              </tr><% End if %>
			  <tr> 
                <td><div align="right"></div></td>
                <td>&nbsp;</td>
              </tr>
              <tr> 
                <td colspan="2"><div align="center"><INPUT TYPE="submit" value="<%=uyelik_84%>" class="buton">&nbsp;&nbsp;<INPUT TYPE="reset" value="<%=uyelik_50%>" class="buton"></div></td>
              </tr>
            </table>
        </tr></form>
      </table>
<%
Call temaaltorta
Else
Response.Write "<font class=""tablo_font""><b>"&uyelik_85&"</b></font>"
End if
call center2
call son
Call sona
Response.End
end if

if (Request.QueryString("uye"))="kayit" then
Call title
call bas
call center
%><font class="tablo_font">
<%
If guvenlikkodu = "1" Then
gusifre = "GVsifre"
Else
gusifre = ""
End if

if session(""&gusifre&"")=Request.Form("guvenlik") Then
If Request.Form("guvenlik")="" and guvenlikkodu = "1" Then
Connect.Close : Set Connect = Nothing
Forum.Close : Set Forum = Nothing
Member.Close : Set Member = Nothing
Response.Redirect "Default.asp"
Response.End
End if
Session("GVsifre")=""

kulladi=ukarakter(Trim(request.form("kulladi")))
sifre=temizmi(Trim(request.form("sifre")))
tsifre=temizmi(Trim(request.form("tsifre")))
'imza=CreateURL(Trim(request.form("imza")))
imza=ayikla(Trim(request.form("imza")))
sifresoru=ayikla(request.form("sifresoru"))
cevap=temizmi(Trim(request.form("cevap")))
email=request.form("email")
msn=ayikla(request.form("msn"))
yahoo=ayikla(request.form("yahoo"))
isim=ayikla(request.form("isim"))
soyisim=ayikla(request.form("soyisim"))
cins=CheckQuery(request.form("cins"))
meslek=ayikla(request.form("meslek"))
yasne=temizmi(request.form("yill")&request.form("ayy")&request.form("gunn"))
web=ayikla(request.form("web"))
icon=ayikla(request.form("icon"))
sehir=ayikla(request.form("sehir"))
resim=ayikla(request.form("resim1"))&","&ayikla(request.form("resim2"))&","&ayikla(request.form("resim3"))

yaziformu=sansur(imza)
%><!--#include file="Inc/Renklendir.asp" --><%
imza=yaziformu

arayasakli=Split(yasaklinick,",")
For y=0 To Ubound(arayasakli)  
If Instr(ucase(kulladi),ucase(arayasakli(y))) Then
Response.Write (uyelik_149)
Response.Write ("<br><b>"&uyelik_158&" :</b> "&arayasakli(y))
call center2
call son
response.end
End if
Next  

if sifre<>tsifre then
response.write (uyelik_86)
call center2
call son
response.end
end if

if kulladi="" then
response.write (uyelik_77)
elseif sifre="" then
response.write (uyelik_77)
elseif tsifre="" then
response.write (uyelik_77)
elseif sifresoru="" then
response.write (uyelik_77)
elseif cevap="" then
response.write (uyelik_77)
elseif sehir="" then
response.write (uyelik_77)
elseif yasne="000" then
response.write (uyelik_77)
Elseif not dogruMu(email) then
response.write (uyelik_78)
elseif len(kulladi)<4 or len(kulladi)>15 then
response.write (uyelik_87)
Else

sifre=md5(sifre)
tsifre=md5(tsifre)
cevap=md5(cevap)

if isim="" Then
isim=uyelik_76a
Else
isim=isim
End if
if soyisim="" Then
soyisim=uyelik_76a
Else
soyisim=soyisim
End if
if sehir="" Then
sehir=uyelik_76a
Else
sehir=sehir
End if
if msn="" Then
msn=uyelik_76a
Else
msn=msn
End if
if yahoo="" Then
yahoo=uyelik_76a
Else
yahoo=yahoo
End if
if meslek="" Then
meslek=uyelik_76a
Else
meslek=meslek
End if
if web="" Then
web="Http://"
Else
web=web
End if
if imza="" Then
imza=".."
Else
imza=imza
End if

Set rs = Member.Execute("Select kulladi from uyeler where kulladi = '"& kulladi &"'")
if not rs.eof then
response.write (uyelik_88)
call center2
call son
response.end
end if
rs.Close : Set rs = Nothing

Set rs = Member.Execute("Select kulladi from uyeler where email = '"& email &"'")
if not rs.eof then
response.write (uyelik_118)
call center2
call son
response.end
end if
rs.Close : Set rs = Nothing

If struyeonay = "1" or struyeonay = "2" Then
onayli=0
Else
onayli=1
End if
if Request.Form("gizli") = "on" Then
gizli=1
Else
gizli=0
End if

ipno = Request.ServerVariables("REMOTE_ADDR")

Member.Execute("INSERT INTO uyeler"& vbNewline & _
"(kulladi,sifre,email,msn,yahoo,meslek,cinsiyet,isim,soyisim,yasne,web,kayittarih,sifresoru,cevap,imza,icon,sehir,ipno,tema,onay,gizli,unvan,ban,giris,resimler) VALUES ('"&kulladi&"' , '"&sifre&"' , '"&email&"' , '"&msn&"' , '"&yahoo&"' , '"&meslek&"' , '"&cins&"' , '"&isim&"' , '"&soyisim&"' , '"&yasne&"' , '"&web&"' , '"&left(AspSitemzaman,8)&"' , '"&sifresoru&"' , '"&cevap&"' , '"&imza&"' , '"&TagSil(icon)&"' , '"&sehir&"' , '"&ipno&"' , '"&ilktema&"' , '"&onayli&"' , '"&gizli&"' , '0' , '0' , '0' , '"&resim&"')")

If struyeonay = "1" Then
	    
    Body= Body & ""&uyelik_89&" "&email&" "&uyelik_90&" <a href="""&strsiteadres&""">"&strsiteadres&"</a> "&uyelik_91&"" & vbcrlf 
    Body= Body & "------------------------------<br>" & vbcrlf 
    Body= Body & ""&uyelik_92&"" & vbcrlf 
    Body= Body & "<b>"&uyelik_15&" :</b> "&kulladi&"<br>" & vbcrlf 
	Body= Body & "<b>"&uyelik_16&" :</b> "&request.form("sifre")&"<br>" & vbcrlf 
    Body= Body & "<b>"&uyelik_61&" :</b> "&isim&"<br>" & vbcrlf 
    Body= Body & "<b>"&uyelik_62&" :</b> "&soyisim&"<br>" & vbcrlf 
    Body= Body & "-----------------------------<br>" & vbcrlf 
    Body= Body & ""&uyelik_93&"<br>" & vbcrlf 
    Body= Body & "<a href="""&strsiteadres&"/Aktivasyon.asp?uye="&kulladi&"&aktivet="&sifre&""">"&strsiteadres&"/Aktivasyon.asp?uye="&kulladi&"&aktivet="&sifre&"</a><br>" & vbcrlf 
    Body= Body & "Text: "&strsiteadres&"/Aktivasyon.asp?uye="&kulladi&"&aktivet="&sifre&"" & vbcrlf 
	Body= Body & "<br>" & vbcrlf
	Body= Body & "<br>" & vbcrlf
	Body= Body & ""&uyelik_94&" : <b>"&strsiteadi&"..</b>" & vbcrlf
        
GonderenAdi = kulladi
GonderenMail = strmailforum
GidecekMail = email
MailKonu = strmailkonu
Body = "<html><head></head><body>"&Body&"</body></html>"        
%><!--#include file="Inc/MailGon.asp" --><%
End if
%>
<center><br>
<%
If struyeonay = "1" Then
Response.Write (uyelik_95)
Elseif struyeonay = "2" Then
Response.Write (uyelik_96)
Else
Response.Write (uyelik_97)
End if
%>
</center></font>
<%
End if

Else
Response.Write (uyelik_80)
End if
call center2
call son
Response.End
End if

if (Request.QueryString("uye"))="sifre" then
tmbaslikorta = uyelik_20
Call title
call bas
call center
Call temaustorta
%>
      <table width="98%" border="0" align="center" cellpadding="0" cellspacing="5">
        <tr>
          <td><form action="Hesabim.asp?uye=sifre1" method="post">
		  <table width="100%" border="0">
              <tr>
                <td width="50%"><div align="right"><font class="tablo_font"><%=uyelik_15%> : </font></div></td>
                <td><INPUT TYPE="text" NAME="kulladi" class="form"></td>
              </tr>
              <tr> 
                <td width="50%"></td>
                <td><INPUT TYPE="submit" value="<%=uyelik_49%>" class="buton"></td>
              </tr>
            </table></form>

            </td>
        </tr>
      </table>
<%
Call temaaltorta
call center2
call son
Call sona
Response.End
end if

if CheckQuery(Request.QueryString("uye"))="sifre1" then
tmbaslikorta = uyelik_20&" : "&CheckQuery(ukarakter(request.form("kulladi")))
Call title
call bas
call center
Call temaustorta
%>
<font class="tablo_font">
<%
kulladi=CheckQuery(ukarakter(request.form("kulladi")))

Set rs = Member.Execute("Select sifresoru,kulladi,email from uyeler where kulladi = '"&kulladi&"'")
if rs.eof then
response.write (uyelik_98)
else
%></font>
      <table width="98%" border="0" align="center" cellpadding="0" cellspacing="5">
        <tr>
          <td>
		  <table width="100%" border="0"><form action="Hesabim.asp?uye=sifre2" method="post">
              <tr>
                <td width="43%"><div align="right"><font class="tablo_font"><%=uyelik_54%> : </font></div></td>
                <td width="57%">&nbsp;<font class="tablo_font"><b><%=rs("sifresoru")%></b></font></td>
              </tr>
			  <tr> 
                <td width="43%"><div align="right"><font class="tablo_font"><%=uyelik_55%> : </font></div></td>
                <td><INPUT TYPE="password" NAME="cevap" class="form"><INPUT TYPE="hidden" name="kulladi" value="<%=rs("kulladi")%>"></td>
              </tr>
<% If guvenlikkodu = "1" Then %>  <tr> 
                <td><div align="right"><font class="tablo_font"><%=uyelik_74%> : </font></div></td>
                <td><font class="tablo_font"><a href="javascript:void(0)" onClick="sendPost('Yenisif.asp','yok','GVsifre');"><font id="GVsifre"><% Call GVsifre %></font></a></font></td>
              </tr>
			  <tr> 
                <td><div align="right"><font class="tablo_font"><%=uyelik_75%> : </font></div></td>
                <td><INPUT TYPE="text" name="guvenlik" id="guvenlik" class="form"></td>
              </tr><% End if %>
              <tr> 
                <td width="43%"></td>
                <td><INPUT TYPE="submit" value="<%=uyelik_49%>" class="buton"></td>
              </tr>
              <tr> 
                <td colspan="2" align="center"><font class="tablo_font">
<a href="javascript:void(0)" onclick="window.open('Onaykodu.asp?gizli=yanit&uye=<%=kulladi%>','onay','top=20,left=20,width=200,height=100,toolbar=no,scrollbars=no');"><b><%=uyelik_177%></b></a>
               </font></td>
              </tr></form>
            </table>
            </td>
        </tr>
      </table><%end if%>
<%
rs.Close : Set rs = Nothing
Call temaaltorta
call center2
call son
Response.End
end if

if CheckQuery(Request.QueryString("uye"))="sifre2" then
tmbaslikorta = uyelik_20
Call title
call bas
call center
Call temaustorta
%>
      <table width="98%" border="0" align="center" cellpadding="0" cellspacing="5">
        <tr>
          <td><center><font class="tablo_font">
<%
If guvenlikkodu = "1" Then
gusifre = "GVsifre"
Else
gusifre = ""
End if

if session(""&gusifre&"")=Request.Form("guvenlik") Then
If Request.Form("guvenlik")="" and guvenlikkodu = "1" Then
Connect.Close : Set Connect = Nothing
Forum.Close : Set Forum = Nothing
Member.Close : Set Member = Nothing
Response.Redirect "Default.asp"
Response.End
End if
Session("GVsifre")=""
%></font></center><form action="Hesabim.asp?uye=sifre3" method="post">
		  <table width="100%" border="0">
              <tr>
                <td width="50%">
<%
cevap=CheckQuery(temizmi(request.form("cevap")))
cevap=md5(cevap)
kulladi=CheckQuery(ukarakter(request.form("kulladi")))

Set rs = Member.Execute("select kulladi,cevap from uyeler where kulladi='"&kulladi&"' and cevap='"&cevap&"'")
if not rs.eof then
session("cevapne")=cevap
session("kullanici")=rs("kulladi")
%>
				<div align="right"><font class="tablo_font"><%=uyelik_99%> : </font></div></td>
                <td><input type="password" name="sifre" class="form"><input type="hidden" name="kulladi" value="<%=rs("kulladi")%>">
				</td>
              </tr>
              <tr> 
                <td></td>
				<td><INPUT TYPE="submit" value="<%=uyelik_84%>" class="buton"></td>
<% else %><center><font class="tablo_font"><%=uyelik_100%></font></center><% end if %>
              </tr>
            </table></form>
<%
rs.Close : Set rs = Nothing
Else
Response.Write (uyelik_80)
End if
%>
            </td>
        </tr>
      </table>
<%
Call temaaltorta
call center2
call son
Response.End
end if

if CheckQuery(Request.QueryString("uye"))="sifre3" then

kulladi=ukarakter(session("kullanici"))
cevap=session("cevapne")
sifre=CheckQuery(temizmi(request.form("sifre")))
sifre=md5(sifre)
kulladi=kulladi
tmbaslikorta = uyelik_20
Call title
call bas
call center
Call temaustorta

If request.form("kulladi")=kulladi Then
Member.Execute("UpDate uyeler Set sifre = '"&sifre&"' where kulladi='"&kulladi&"' and cevap='"&cevap&"'")
End if
%>
<center><font class="tablo_font"><%=uyelik_101%></font></center>
<%
Call temaaltorta
call center2
call son
Response.End
end if

if (Request.QueryString("mesaj"))="sil" then

if not session("siteye")="girdi" then
Call title
call bas
call center
%>
<!--#include file="Yasak.asp" -->
<%
call center2
call son
response.end
end if

numara=CheckQuery(request.querystring("id"))
uye=CheckQuery(request.querystring("uye"))

if not uye=session("kulladi") then
response.write (uyelik_102)
Connect.Close : Set Connect = Nothing
Forum.Close : Set Forum = Nothing
Member.Close : Set Member = Nothing
response.end
end if

if CheckQuery(request.querystring("nasil")) = "tumu" Then

For i = 1 To request.form("list").Count 
id = request.form("list")(i) 
Connect.Execute("DELETE FROM mesaj where kime='"&uye&"' and numara = "&CheckQuery(id)&"")
Next

Response.Redirect("?mesaj=gelen")
Else

Connect.Execute("DELETE FROM mesaj where kime='"&uye&"' and numara = "&numara&"")
Response.Redirect("?mesaj=gelen")
End if
End if
%>