Ana Menu

Anasayfa

iletisim

Resim galerisi

ziyaretci defteri

xxx

Sponsorlarimiz

<% '*********************************************************************** '** Copyright (C) 2001 - 2003 Max Yuan All Rights Reserved '** Modülü Üreten: OgReTmEnLeRiM.NeT | Bülent KARAYAZI '*********************************************************************** dim featDesc, featpicTitle, featUrli, featHits, featPICID featuredPIC = 1 sub getFeaturedPIC(fPIC_ID) strSql = "SELECT PIC_ID, TITLE, DESCRIPTION, POST_DATE, HIT, SHOW FROM PIC WHERE PIC_ID = " & fPIC_ID dim rsFeat naStr = "N/A" set rsFeat = Server.CreateObject("ADODB.Recordset") rsFeat.Open strSql, my_Conn if rsFeat.EOF = TRUE and rsFeat.BOF = TRUE then featpicTitle = naStr featDesc = naStr featUrli = "" featHits = naStr else featpicTitle = rsFeat("TITLE") featDesc = rsFeat("DESCRIPTION") featHits = rsFeat("HIT") featPICID = rsFeat("PIC_ID") end if rsFeat.close set rsFeat = Nothing end sub sub displayPIC2 %> <%end sub getFeaturedPIC(featuredPIC) intPopular = 20 mwpThemeTitle= "Resim Galerisinden" mwpThemeCellCustomCode = "align=""center"" colspan=""4""" mwpThemeBlock_open()%>

<% strSQL = "SELECT TOP " & intPopular & " PIC_ID, TITLE, URL, KEYWORD, DESCRIPTION, POST_DATE, HIT, CATEGORY, PARENT_ID, SHOW, BADLINK FROM PIC WHERE SHOW = 1 ORDER BY HIT DESC" dim rsPopular set rsPopular = server.CreateObject("adodb.recordset") rsPopular.Open strSQL, my_Conn Do While Not rsPopular.EOF strDescription = rsPopular("DESCRIPTION") strpicTitle = rsPopular("TITLE") strPostDate = strtodate(rsPopular("POST_DATE")) dateSince=DateDiff("d", Date(), strPostDate)+7 intHit = rsPopular("HIt") intPICID = rsPopular("PIC_ID") %> <%=left(strpIcTItle,28)%> <% rsPopular.MoveNext Loop rsPopular.Close Set rsPopular = Nothing %>

<%mwpThemeBlock_close() %>

Ziyaretçiler

Bugun	2
Dun	6
Bu Hafta	308
Bu ay	308
Toplam	13418

Haber Duyuru

Tum sonuclar ,program ve puan durumu

Devamýný oku...

 

online olan sayilar

Spor haberleri