<% @ Language=VBScript %> <% Option Explicit %> <% '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ' mydesign | haberci ' W: http://www.mydesign.gen.tr ' @: mydesign@mydesign.gen.tr ' Üye Profil Sayfası Kodları ' Son Düzenleme: 27 Eylül 2006 (v0.4) '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ '// Sayfanın önbellekten alnması önleniyor Response.Buffer = True Response.Expires = -1 Response.ExpiresAbsolute = Now() - 2 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "No-Store" '// Değişkenler tanımlanıyor Dim SQL Dim intUyeID Dim strUyeAd Dim strUyeMail Dim blnUyeMailGizle Dim strUyeSite Dim strUyeNick Dim strUyeResim Dim strUyeSeviye Dim intUyeSeviye Dim blnUyeVar Dim intLooper Dim intUyeHaberSayisi Dim strUyeHakkinda '// Formdan veriler alınıyor intUyeID = Temizle(Trim(Request.QueryString("id"))) '// Varsayılan değerler giriliyor blnUyeVar = True '// Haber verisinin olup olmadığı ve verinin sayı olup olmadığı kontrol ediliyor If intUyeID = "" Or IsNumeric(intUyeID) = False Or intUyeID = 2 Then blnUyeVar = False Else '// Veri, sayıysa veritabanı kontrolü yapılıyor kdGenel.Open "SELECT * FROM tblUyeler WHERE uyeID = "& CInt(intUyeID) &"", adoCon, 1, 3 '// Uygun kayıt bulunamadıysa mesaj yazılıyor If kdGenel.EOF Then blnUyeVar = False '// Kayıt varsa haber gösteriliyor Else strUyeAd = kdGenel("Ad") strUyeMail = kdGenel("Eposta") blnUyeMailGizle = kdGenel("Eposta_Gizle") strUyeSite = kdGenel("WebSite") strUyeNick = kdGenel("Kullanici") strUyeResim = kdGenel("Resim") intUyeSeviye = kdGenel("seviye") strUyeHakkinda = kdGenel("hakkinda") If intUyeSeviye = "1" Then strUyeSeviye = "Admin" Else strUyeSeviye = "Editör" End If kdYardimci.Open "SELECT onay, durum, editor FROm tblHaberler WHERE durum = True AND onay = True AND editor = "& CInt(intUyeID) &"", adoCon, 1, 3 intUyeHaberSayisi = kdYardimci.RecordCount kdYardimci.Close End If kdGenel.Close End If %> <%=strSiteAdi%> <% If blnUyeVar Then Response.Write " » Üye Profili: "& strUyeNick %>
<% '// Haber bulunamasıysa mesaj yazılıyor If blnUyeVar = False Then Response.Write("

Yanlış üye numarası seçtiniz.

") '// Uygun kayıt varsa gösteriliyor Else %>

<%=strUyeNick%> adlı editöre ait bilgiler
<% If Len(strUyeResim) > 5 Then Response.Write "" Response.Write "" End If If Len(strUyeAd) > 2 Then Response.Write "" Response.Write "" End If If Len(strUyeSite) > 9 Then Response.Write "" Response.Write "" End If If blnUyeMailGizle = False AND Len(strUyeMail) > 4 Then Response.Write "" Response.Write "" End If Response.Write "" Response.Write "" Response.Write "" Response.Write "" If Len(strUyeHakkinda) > 2 Then Response.Write "" Response.Write "" End If Response.Write "
 
Gerçek Ad:"& strUyeAd &"
Web-Site:"& strUyeSite &"
E-Posta:"& strUyeMail &"
Üyelik Grubu:"& strUyeSeviye &"
Haber Sayısı:"& intUyeHaberSayisi &" (Bul)
Üye Hakkında:"& strUyeHakkinda &"
" End If %>

 

< Geri Dön