Mini Forum Bölümü
Not: Online topluluğumuza katılarak,
paylaşımda bulunmak istiyorsanız lütfen üye kayıt formu doldurunuz...
Kayıt olmak istiyorum
>>>
MS'le İlgili Merak Edilenler
<%
'-----------------------------------------------------------------------------------------------
If forum.EOF then
Response.Write "Mini Foruma Kayıtlı Kategori Bulunamadı !"
End If
'-----------------------------------------------------------------------------------------------
Do While not forum.EOF
'-----------------------------------------------------------------------------------------------
%>
Türkiye MS Derneği tarafından
yayınlanan ve MS' le ilgili neredeyse bir başucu kaynağı niteliğinde
olan 45 sayfalık makalenin orjinaline aşağıdaki linki tıklayarak
ulaşabilirsiniz...
Makaleyi indirmek için tıklayın
>>>
<%
'-----------------------------------------------------------------------------------------------
forum.MoveNext
Loop
'-----------------------------------------------------------------------------------------------
%>
Merak
Ediyorum
<%
'- En Yeni Üye Listeme Bölümü : ----------------------------------------------------------------
Set enyenikonularRS = Server.CreateObject( "ADODB.Recordset" )
enyenikonularRS.ActiveConnection = bag2
enyenikonularRS.CursorType= adOpenStatic
enyenikonularRS.Open " Select * From Forum_Veriler Where liste=0 " &_
" ORDER by ftarih DESC "
'-----------------------------------------------------------------------------------------------
'-----------------------------------------------------------------------------------------------
IF enyenikonularRS.EOF Then
Response.Write "# Kayıt Yok !"
ELSE
enyenikonularRS.PageSize = 20
FOR i = 1 TO enyenikonularRS.PageSize
IF enyenikonularRS.eof THEN
EXIT FOR
END IF
'-----------------------------------------------------------------------------------------------
%>
Özellikle MS
li dostlarımızın hastalıkları, hukuksal sorunları ve diğer bir
çok konuda sorularını yanıtlamaya hazır uzman dostlarımızın e-posta
adresleri listesine buradan
ulaşabilirsiniz.
Not: Üyelik
gerektirmiyor...
<%
'-----------------------------------------------------------------------------------------------
enyenikonularRS.Movenext
Next
End If
'-----------------------------------------------------------------------------------------------
%>
MsliyizBiz
FM
<%
'- En Yeni Üye Listeme Bölümü : ----------------------------------------------------------------
Set enyenikonularRS = Server.CreateObject( "ADODB.Recordset" )
enyenikonularRS.ActiveConnection = bag2
enyenikonularRS.CursorType= adOpenStatic
enyenikonularRS.Open " Select * From Forum_Veriler Where liste=0 " &_
" ORDER by ftarih DESC "
'-----------------------------------------------------------------------------------------------
'-----------------------------------------------------------------------------------------------
IF enyenikonularRS.EOF Then
Response.Write "# Kayıt Yok !"
ELSE
enyenikonularRS.PageSize = 20
FOR i = 1 TO enyenikonularRS.PageSize
IF enyenikonularRS.eof THEN
EXIT FOR
END IF
'-----------------------------------------------------------------------------------------------
%>
DJ'
liğini MS' li dostlarımızın yaptığı ve arabesk hariç (üzüntünün iyi
gelmediğini söylemiştir bir çoğumuzun doktoru:-) her tarz
müziği dinleyebileceğiniz, sadece müzik dinlemekle kalmayıp o an
radyomuza bağlı tüm arkadaşlarımızla sohbet edebileceğiniz
MSliyizBiz FM yayında... Radyomuzun 24 saat kesintisiz yayın
yapabilmesi için gerekli çalışmalar tüm hızıyla sürdürülmekte olup,
bu konuda üyelerimiz arasından (dünyanın her yerinden) canlı yayın
yapma talebi olanların bu taleplerini site yönetimine ayrıntılı bir
mail veya mesaj göndererek belirtmeleri gerekmektedir.
MSliyizBiz FM &
Web; Dünyanın her yerinde yayındayız...
Radyo dinle
>>>
<%
'-----------------------------------------------------------------------------------------------
enyenikonularRS.Movenext
Next
End If
'-----------------------------------------------------------------------------------------------
%>
Ziyaretçi
Defteri
<%
'- En Yeni Üye Listeme Bölümü : ----------------------------------------------------------------
Set enyenikonularRS = Server.CreateObject( "ADODB.Recordset" )
enyenikonularRS.ActiveConnection = bag2
enyenikonularRS.CursorType= adOpenStatic
enyenikonularRS.Open " Select * From Forum_Veriler Where liste=0 " &_
" ORDER by ftarih DESC "
'-----------------------------------------------------------------------------------------------
'-----------------------------------------------------------------------------------------------
IF enyenikonularRS.EOF Then
Response.Write "# Kayıt Yok !"
ELSE
enyenikonularRS.PageSize = 20
FOR i = 1 TO enyenikonularRS.PageSize
IF enyenikonularRS.eof THEN
EXIT FOR
END IF
'-----------------------------------------------------------------------------------------------
%>
Web sitemiz, MS ve dilediğiniz her konuda paylaşmak istediklerinizi
ziyaretçi defterimize yazabilir ve yazılan mesajları
okuyabilirsiniz.
Üyelik gerektirmiyor >>>
<%
'-----------------------------------------------------------------------------------------------
enyenikonularRS.Movenext
Next
End If
'-----------------------------------------------------------------------------------------------
%>
İletişim
Formu
<%
'- En Yeni Üye Listeme Bölümü : ----------------------------------------------------------------
Set enyenikonularRS = Server.CreateObject( "ADODB.Recordset" )
enyenikonularRS.ActiveConnection = bag2
enyenikonularRS.CursorType= adOpenStatic
enyenikonularRS.Open " Select * From Forum_Veriler Where liste=0 " &_
" ORDER by ftarih DESC "
'-----------------------------------------------------------------------------------------------
'-----------------------------------------------------------------------------------------------
IF enyenikonularRS.EOF Then
Response.Write "# Kayıt Yok !"
ELSE
enyenikonularRS.PageSize = 20
FOR i = 1 TO enyenikonularRS.PageSize
IF enyenikonularRS.eof THEN
EXIT FOR
END IF
'-----------------------------------------------------------------------------------------------
%>
Web
sitemizin genel yapısıyla ilgili tüm görüş, öneri, teklif, fikir ve
taleplerinizi iletişim formunu kullanarak
bize iletebilirsiniz...
<%
'-----------------------------------------------------------------------------------------------
enyenikonularRS.Movenext
Next
End If
'-----------------------------------------------------------------------------------------------
%>
Haberler
Sağlık
Haberleri
<%
'- En Yeni Üye Listeme Bölümü : ----------------------------------------------------------------
Set enyenikonularRS = Server.CreateObject( "ADODB.Recordset" )
enyenikonularRS.ActiveConnection = bag2
enyenikonularRS.CursorType= adOpenStatic
enyenikonularRS.Open " Select * From Forum_Veriler Where liste=0 " &_
" ORDER by ftarih DESC "
'-----------------------------------------------------------------------------------------------
'-----------------------------------------------------------------------------------------------
IF enyenikonularRS.EOF Then
Response.Write "# Kayıt Yok !"
ELSE
enyenikonularRS.PageSize = 20
FOR i = 1 TO enyenikonularRS.PageSize
IF enyenikonularRS.eof THEN
EXIT FOR
END IF
'-----------------------------------------------------------------------------------------------
%>
<%
'-----------------------------------------------------------------------------------------------
enyenikonularRS.Movenext
Next
End If
'-----------------------------------------------------------------------------------------------
%>
Genel
Haberler
<%
'- En Yeni Üye Listeme Bölümü : ----------------------------------------------------------------
Set enyenikonularRS = Server.CreateObject( "ADODB.Recordset" )
enyenikonularRS.ActiveConnection = bag2
enyenikonularRS.CursorType= adOpenStatic
enyenikonularRS.Open " Select * From Forum_Veriler Where liste=0 " &_
" ORDER by ftarih DESC "
'-----------------------------------------------------------------------------------------------
'-----------------------------------------------------------------------------------------------
IF enyenikonularRS.EOF Then
Response.Write "# Kayıt Yok !"
ELSE
enyenikonularRS.PageSize = 20
FOR i = 1 TO enyenikonularRS.PageSize
IF enyenikonularRS.eof THEN
EXIT FOR
END IF
'-----------------------------------------------------------------------------------------------
%>
<%
'-----------------------------------------------------------------------------------------------
enyenikonularRS.Movenext
Next
End If
'-----------------------------------------------------------------------------------------------
%>
<%
'-----------------------------------------------------------------------------------------------
If forum.EOF then
Response.Write "Mini Foruma Kayıtlı Kategori Bulunamadı !"
End If
'-----------------------------------------------------------------------------------------------
Do While not forum.EOF
'-----------------------------------------------------------------------------------------------
%>
<%
'-----------------------------------------------------------------------------------------------
forum.MoveNext
Loop
'-----------------------------------------------------------------------------------------------
%>
Bazı
e-Devlet Uygulamaları ve Haber Siteleri
<%
'- En Yeni Üye Listeme Bölümü : ----------------------------------------------------------------
Set enyenikonularRS = Server.CreateObject( "ADODB.Recordset" )
enyenikonularRS.ActiveConnection = bag2
enyenikonularRS.CursorType= adOpenStatic
enyenikonularRS.Open " Select * From Forum_Veriler Where liste=0 " &_
" ORDER by ftarih DESC "
'-----------------------------------------------------------------------------------------------
'-----------------------------------------------------------------------------------------------
IF enyenikonularRS.EOF Then
Response.Write "# Kayıt Yok !"
ELSE
enyenikonularRS.PageSize = 20
FOR i = 1 TO enyenikonularRS.PageSize
IF enyenikonularRS.eof THEN
EXIT FOR
END IF
'-----------------------------------------------------------------------------------------------
%>
<%
'-----------------------------------------------------------------------------------------------
enyenikonularRS.Movenext
Next
End If
'-----------------------------------------------------------------------------------------------
%>