<%
'|=======================================|'
'| Toplam Kayıt Sayısı |'
'| Mustafa Kaan KAMIŞ |'
'| msn@kaankamis.info |'
'| 22 Temmuz 2008 02:30 |'
'|=======================================|'
' Access'ten MySQL'a yeni geçenlerin sıkıntısını umarım gideririz.
' MySQL database'imize bağlanalım
Set db = Server.CreateObject("adodb.connection" )
db.Open = "driver={mysql odbc 3.51 driver}; server=localhost; UID=Mustafa; pwd=Kaan; db=KAMIŞ;"
' MySQL database'imize bağlandık
' Toplam Üye Sayısınız Alma Kodumuz
Set UYE = db.Execute("Select Count(ID) from uyeker ORDER BY ID desc")
ToplamUye=uye(0)
UYE.Close : Set UYE = Nothing
' Sayfamıza Yazdıralım
Response.Write ToplamUye
'|=======================================|'
'|Iyı Çalışmalar, |'
'| Mustafa Kaan KAMIŞ |'
'| msn@kaankamis.info |'
'| 22 Temmuz 2008 02:30 |'
'|=======================================|'
%>