<% DB = "DRIVER={MySQL ODBC 3.51 Driver}; Server=31.210.86.5; Port=3306; UID=emedy_forfor12; pwd=q1w2e3r4t5; db=emedya_forfor12;" Set Baglanti = Server.CreateObject("ADODB.Connection") Baglanti.Open DB tablo = "SELECT thread.threadid, thread.title, thread.lastpost, thread.forumid, thread.replycount, thread.lastposter, thread.dateline, thread.iconid, IF(views<=replycount, replycount+1, views) AS views, thread.visible, user.username, user.userid, user.usergroupid, IF(displaygroupid=0, user.usergroupid, displaygroupid) AS displaygroupid FROM thread AS thread LEFT JOIN user AS user ON (user.username = thread.lastposter) WHERE NOT ISNULL(thread.threadid) AND thread.visible <> 2 ORDER BY lastpost DESC LIMIT 10" Set veri = Baglanti.Execute(tablo) If veri.Eof Then Response.Write "
Veri Bulunmamaktadır.
" Else Do While Not veri.Eof %> <% veri.MoveNext Loop End If %>
ElektrikForum'da Son 10 Konu
" target="_blank">  <%=veri("title")%>

www.elektrikforum.com