| Author |
 Topic  |
|
RichardKinser
Snitz Forums Admin
USA
16655 Posts |
 Posted - 26 March 2001 : 14:32:46
|
Martha2Mary,
yes, all of those things are possible.
I'll need your default.asp file, your inc_top.asp file, your inc_fader.asp file, your inc_announce.asp file and your view_announcements.asp file.
I'll work on this a little and put it on a test site for you to look at and see if it's what you had in mind. Should have it done tonight sometime (if nothing else comes up). |
 |
|
|
Aznknight
Senior Member
USA
1373 Posts |
Posted - 26 March 2001 : 15:05:13
|
I just installed this mod on my test forums. Pretty cool mod.
- Alan
www.iamviet.com |
|
|
|
RichardKinser
Snitz Forums Admin
USA
16655 Posts |
Posted - 26 March 2001 : 15:49:51
|
Glad you like it  |
|
|
|
Martha2Mary
Junior Member
New Zealand
250 Posts |
Posted - 26 March 2001 : 16:14:00
|
Hi Richard,
Have sent the files you mentioned to your yahoo addy - thanks very much for doing this 
*If the world didn't suck, we'd all fall off! * |
|
|
|
RichardKinser
Snitz Forums Admin
USA
16655 Posts |
|
|
Aznknight
Senior Member
USA
1373 Posts |
Posted - 26 March 2001 : 16:56:54
|
quote:
Glad you like it
Hi richard, yeah love it...Man, why didn't I use this mod before
I did some customization of it for iamviet. it displays in it's own part 
- Alan
www.iamviet.com |
|
|
|
RichardKinser
Snitz Forums Admin
USA
16655 Posts |
Posted - 27 March 2001 : 02:13:49
|
| Looks nice Alan |
|
|
|
Warchild
Starting Member
USA
46 Posts |
Posted - 28 March 2001 : 08:30:55
|
Any posible way to let Moderators post as opposed to only the admin?
|
|
|
|
AliasMoze
New Member
USA
55 Posts |
Posted - 08 April 2001 : 22:47:59
|
Richard,
This mod looks great. I have the mod installed, and I have no problems reading and writing accouncements in the admin section. However, I do not see the announcements box on my default.asp page. Is there something I need to add to the page to make the accouncements show up like:
quote:
Take a look here and see if this is what you were wanting:
http://www.websamba.com/dssdbs/forum/default.asp
Thanks!
AliasMoze
"That activates my hilarity unit." |
|
|
|
big9erfan
Average Member
540 Posts |
Posted - 08 April 2001 : 23:03:55
|
Alias,
This is what you need in INC_TOP.ASP to see the announcement forum wide ( copy and paste from the readme.txt )
In the file: inc_top.asp *
***************************
Look at the very bottom for the following:
------------------------------------------
</table>
</td>
</tr>
</table>
Replace the above with the following:
-------------------------------------
</table>
</td>
<%
if InstrRev(Request.ServerVariables("Path_Info"), "view_announcements.asp") = 0 then
if InstrRev(Request.ServerVariables("Path_Info"), "admin_") = 0 then
'## Forum_SQL - Build SQL to get forums via category
strSql = "SELECT " & strTablePrefix & "ANNOUNCE.A_ID "
strSql = strSql & "FROM " & strTablePrefix & "ANNOUNCE "
set rschkAnnounce = my_Conn.Execute (strSql)
if rschkAnnounce.eof or rschkAnnounce.bof then '## No Announcements found in DB
Response.Write ""
Else
%>
<tr>
<td>
<!--#INCLUDE FILE="inc_announce.asp" -->
</td>
</tr>
<% End If
set rschkAnnounce = nothing
end if
end if
%>
</tr>
</table>
http://www.ugfl.net/forums |
|
|
|
AliasMoze
New Member
USA
55 Posts |
Posted - 08 April 2001 : 23:23:27
|
big9erFan,
My inc_top.asp page is updated. The default.asp page still looks the same as it did (weird).
Strangely, I can do everything else, administer announcements, run view_accouncements.asp, and everything. They just don't show up on my default page.
Richard,
I just saw your post. Actually, I was testing locally on IIS. It was giving me problems with Private Forums, so I wasn't sure if it wasn't causing me problems with Announcements as well. I will post a link as soon as I upload the files to the server.
Thanks !!!
AliasMoze
"That activates my hilarity unit."
Edited by - AliasMoze on 08 April 2001 23:32:03 |
|
|
|
RichardKinser
Snitz Forums Admin
USA
16655 Posts |
Posted - 08 April 2001 : 23:27:05
|
Do you have a link to your forum?
are the announcements current? ie. they aren't expired, or they haven't started yet.. |
|
|
|
AliasMoze
New Member
USA
55 Posts |
Posted - 08 April 2001 : 23:29:17
|
OK. I got it working by using the included inc_top.asp.
I was afraid to use it before, because I didn't know if it would disable my Private Forums.
Anyway, it works!!!!!!!Thanks for your help niner and Richard.
AliasMoze
AliasMoze
"That activates my hilarity unit." |
|
|
|
big9erfan
Average Member
540 Posts |
|
|
Marino
Starting Member
Canary Islands
42 Posts |
Posted - 19 April 2001 : 20:23:26
|
This is only a comment and take it only at that, please.
Im using Portal mod (well, not using but really the site now is most based in portal mod beeing the forum like a mod of the portal  ) and for every mod I install I should "portalize" it. See the example with this mod:
<%
sub ShowAnnouncements
if InstrRev(Request.ServerVariables("Path_Info"), "view_announcements.asp") = 0 then
if InstrRev(Request.ServerVariables("Path_Info"), "admin_") = 0 then
'## Forum_SQL - Build SQL to get forums via category
strSql = "SELECT " & strTablePrefix & "ANNOUNCE.A_ID "
strSql = strSql & "FROM " & strTablePrefix & "ANNOUNCE "
set rschkAnnounce = my_Conn.Execute (strSql)
if rschkAnnounce.eof or rschkAnnounce.bof then '## No Announcements found in DB
Response.Write ""
Else
strSql = "SELECT " & strTablePrefix & "ANNOUNCE.A_ID, "
strSql = strSql & strTablePrefix & "ANNOUNCE.A_AUTHOR, "
strSql = strSql & strTablePrefix & "ANNOUNCE.A_MESSAGE, "
strSql = strSql & strTablePrefix & "ANNOUNCE.A_START_DATE, "
strSql = strSql & strTablePrefix & "ANNOUNCE.A_END_DATE, "
strSQl = strSQL & strTablePrefix & "ANNOUNCE.A_SUBJECT "
strSql = strSql & "FROM " & strTablePrefix & "ANNOUNCE "
strSql = strSql & " WHERE " & strTablePrefix & "ANNOUNCE.A_START_DATE <= " & "'" & DatetoStr(Now()) & "'"
strSql = strSql & " AND " & strTablePrefix & "ANNOUNCE.A_END_DATE > " & "'" & DatetoStr(Now()) & "'"
strSql = strSql & " ORDER BY " & strTablePrefix & "ANNOUNCE.A_START_DATE DESC"
strSql = strSql & ", " & strTablePrefix & "ANNOUNCE.A_ID DESC;"
set rsAnnounce = my_Conn.Execute (strSql)
if rsAnnounce.eof or rsAnnounce.bof then
Response.Write ""
else
Response.Write "<table border=0 width=""100%"" align=""center"">" & vbCrLf & _
" <tr valign=""center"">" & vbCrLf & _
" <td>" & _
" <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><img src=""icon_announce.gif"" height=32 width=32 border=""0"" align=""middle"" alt=""Announcements""> <a href=""view_announcements.asp"">" & rsAnnounce("A_SUBJECT") & "</a></font></td>" & vbCrLf & _
" </tr>" & vbCrLf & _
"</table>" & vbCrLf
end if
End If
set rschkAnnounce = nothing
end if
end if
end sub
%>
This is my inc_announce.asp. So what I do is just enclosing everything inside a sub and removing every part of the code that makes it "non easy insertable everywhere"
In that way, what I only need to do is to include
<!-- #INCLUDE FILE="inc_announce.asp"-->
at the bottom of inc_top and I can show announcements wherever I want just calling <%ShowAnnouncements%>. So I can show them in top of the forum, outside the forum pages, in the fixed left column, at the right colum..., etc.
Continues in next post (Size limit?)
Marino
 |
|
|
|
Topic |
|
Topic Locked
