Aktif Konular For Webwiz8.0
-
List.ASP
---------------------------------------------------------------------------------------
<% If strDatabaseType = "Access" Then %>
<tr class="tableSubLedger">
<td colspan="2">Aktif Konular</td>
</tr>
<tr class="tableRow">
<td width="4%" align="center"><img src="<% = strImagePath %>active_users.gif" alt="<% = strTxtActiveUsers %>" /></td>
<td width="96%">
<%
'***********************************************
'*
'* BeyazSeytan // SheyTaNi999
'*
'* Mail & Msn & Gtalk : BeyazSeytan@gmail.com
'* Webs : www.WEbwizTurk.Com & www.Belasoft.Net
'* www.Tahribat.Com & www.ReaLHackeRS.Net
'*
'************************************************Dim rsEnSonMesajlar
Dim intSaySet rsEnSonMesajlar = Server.CreateObject("ADODB.Recordset")
strSql = "Select " & strDbTable & "Topic.Subject, " & strDbTable & "Topic.Topic_ID, " & strDbTable & "Forum.Forum_ID, " & strDbTable & "Forum.Forum_name, " & strDbTable & "Topic.Last_Thread_ID, " & strDbTable & "Topic.No_of_views "
strSql = strSql & "From " & strDbTable & "Topic, " & strDbTable & "Forum Where " & strDbTable & "Topic.Hide = False And " & strDbTable & "Topic.Forum_ID = " & strDbTable & "Forum.Forum_ID Order By " & strDbTable & "Topic.Last_Thread_ID desc"
rsEnSonMesajlar.Open strSQL, adoConFor intSay = 1 to 5
if rsEnSonMesajlar.Eof Then Exit ForResponse.Write "Forum :<a href=""forum_topics.asp?FID=" & rsEnSonMesajlar("Forum_ID") & """>" & rsEnSonMesajlar("Forum_name") & "</a> // "
Response.Write " Konu :<a href=""forum_posts.asp?TID=" & rsEnSonMesajlar("Topic_ID") & """>" & rsEnSonMesajlar("Subject") & "</a> // <a href=""get_last_post.asp?FID=" & rsEnSonMesajlar("Topic_ID") & """>Son Mesaji Oku</a>[" & rsEnSonMesajlar("No_of_views") & " Kere goruntulendi.]<br>"
rsEnSonMesajlar.MoveNext
Next
Response.Write "</td></tr>"
end if
%>
-------------------------------------------------------------------------------------------------------
List.asp yi olusturduktan sonra
Default.asp nin 641. satirina bu kodu ekleyin.
<!--#include file="List.asp" --> -
Hojam Güzel de web wizin 8.0 ını bulamadım bi de belasoftu ne zmn açacaksın..
-
Hata Tipi:
Microsoft VBScript derleme hatası (0x800A0411)
Ad yeniden tanımlandı
/forum8/List.asp, line 19, column 4
Dim rsEnSonMesajlar
---^Default sayfası list sayfasında hata var diye görüntülenemiyor
-
İndirmek için tıklayın // Sunucu 1
(Sunucu 1 için kullanmanız gereken kullanıcı adı: aspindir , şifre: sunucu1 'dir.)BU MUDUR YA-NE
-
web wiz 8.0 işin cılkını çıkardı iyice. adamların reklamlarından sitede bişey görünmüyor.7.97 daha temiz.