thekamboh.com

Person of the Month
Ch.Zubair Ahmad

A Tribute to
Waseem Jahangeer Kamboh

Home
Forum
Kamboh Search
Matrimonial
Kamboh History
Contact Us
Add in Kamboh Dir
Magzine
photo Album
Magzine-May07
MagzineMay2007
GuestBook

Site Stats

People Online: 1

Membership

Site Memberships: 143
Newest Member: Boloiuytqawe

Hit Counter

16511 Visitors
Since Feb. 28, 2005

Home:

<% Dim rsLastestPostsModMarquee Dim strSQLModMarquee Dim adoConModMarquee Dim strTopicSubject '=========== 1 Dim lnggetlast Dim rsGetLast Dim strSQLGetLast Dim lngLastEntryID '=========== 1 Set rsLastestPostsModMarquee = Server.CreateObject("ADODB.Recordset") strSQLModMarquee = "SELECT Top 6 tblTopic.Topic_ID, tblTopic.Subject, tblForum.Forum_ID " strSQLModMarquee = strSQLModMarquee & "FROM tblForum INNER JOIN tblTopic ON tblForum.Forum_ID = tblTopic.Forum_ID " strSQLModMarquee = strSQLModMarquee & "WHERE ((tblForum.Password) Is Null) " strSQLModMarquee = strSQLModMarquee & "ORDER BY tblTopic.Last_entry_date DESC;" rsLastestPostsModMarquee.Open strSQLModMarquee, strCon If rsLastestPostsModMarquee.EOF Then Response.Write "No Forum Posts Made" Else Do while NOT rsLastestPostsModMarquee.EOF If len(rsLastestPostsModMarquee("Subject"))>26 then strTopicSubject = left(rsLastestPostsModMarquee("Subject"),26) & "... " Else strTopicSubject = rsLastestPostsModMarquee("Subject") End If '=========== 2 lnggetlast = rsLastestPostsModMarquee("Topic_ID") Set rsGetLast = Server.CreateObject("ADODB.Recordset") strSQLGetLast = "SELECT tblThread.Thread_ID, tblThread.Message_date FROM tblThread WHERE tblThread.Topic_ID = " & lnggetlast & " " strSQLGetLast = strSQLGetLast & "ORDER BY tblThread.Message_date DESC;" 'strSQLGetLast = "SELECT tblThread.Thread_ID, tblThread.Author_ID, tblThread.Message, tblThread.Message_date, tblAuthor.Username " 'strSQLGetLast = strSQLGetLast & "FROM tblAuthor INNER JOIN tblThread ON tblAuthor.Author_ID = tblThread.Author_ID " 'strSQLGetLast = strSQLGetLast & "WHERE tblThread.Topic_ID = " & lnggetlast & " " 'strSQLGetLast = strSQLGetLast & "ORDER BY tblThread.Message_date DESC;" 'Query the database rsGetLast.Open strSQLGetLast, strCon If NOT rsGetLast.EOF Then 'Read in the username and date of the last entry from the record set lngLastEntryID = CLng(rsGetLast("Thread_ID")) End If rsGetLast.Close Set rsGetLast = Nothing '=========== 2 Response.Write(" Page 1"" alt=""" & strTopicSubject & " > Page 1"">" & strTopicSubject & " ") rsLastestPostsModMarquee.MoveNext If NOT rsLastestPostsModMarquee.EOF Then Response.Write(" :: ") Loop End If rsLastestPostsModMarquee.Close Set rsLastestPostsModMarquee = Nothing %>

Please Pay Attention:

Posted By : azhar Sep 6 2007 6:55:34 PM

Please send ur comments.We are waiting for ur Quick responce.