quote:

---

Sorry to hear about your computer problems...

As soon as I'm done, I'll email it to you and post it... ran into some glitches...

Stay tuned...<snip>

---

Seems to me I opened a can of worms when I made my little request... Sorry to of put you through all this trouble Rob

As for the computer problems the new/old system has reminded me why I removed it in the first place after the 20th crash today I will be, tomorrow, replacing the Motherboard, yet again (I'm going to going to do a little bit of swapping and changing and pinch the wifes system )

• 0 = Return EXACTLY what is in the database with no processing whatsoever


• 1 = Use FormatStr function which is a little safer but keeps most of the formating.


• 2 = Use CheckStr function which is what is used in the post.asp file


• 3 = Use my new StripAll function which removes all forum code and html tags.

• 0 = Displays any topic.


• 1 = Does not Display topics that are in Private Forums.


• 2 = Does not Display topics that are in Hidden Forums.


• 3 = Does not Display topics that are in Hidden or Private Forums.

<%	case 100	'Link Only:  Displays Forum links that go to forum only
counter = counter + 1 %>
<tr>
	<td valign="top" align="left" colspan="1">
		<font face="<% =strDefaultFontFace %>" size="<% =strFooterFontSize %>">
			<%
			select case Ornament 
				case 0, 1, 2, 3, 4  ' Plain, Bullet 1, Bullet 2, Graphic 1, Graphic 2, respectively
					Response.Write strOrnamentDisplay
				case 5 ' MsgIcon %>
					<b>Ornament Display Mode Parameter<br>Out-of-bounds</b><br> <%
				case 6 ' Numbered
					if counter < 10 then %>
						<%=counter & strCounterDelimiter %><img width="10" height="1" src="images/blank.gif">
					<% else %>
						<%=counter & strCounterDelimiter %><img width="3" height="1" src="images/blank.gif">
					<% end if %>
			<%	case 7 ' Numbered Graphic %>
					<img width="<% =intNumberedGraphicWidth %>" height="<% =intNumberedGraphicHeight %>" src="<% =strGraphicsPath & counter & strNumberedGraphic %>">
			<%	case 8 ' Special - as Ornament  %>
					<b>Ornament Display Mode Parameter<br>Out-of-bounds</b><br>
			<%	case else %>
					<b>Ornament Display Mode Parameter<br>Out-of-bounds</b><br> <%' do nothing
			end select 
			%>
								
			<%	if SubjectLength = 0 then 	'Checks if SubjectLength is set to zero and doesn't use LEFT function with SubjectLength, if it is... %> 
					<b><a href="<%=strForumURL%>forum.asp?FORUM_ID=<% =rs("FORUM_ID") %>&CAT_ID=<% =rs("CAT_ID") %>&Forum_Title=<% =ChkString(rs("F_SUBJECT"),"urlpath")%>"><acronym title="Enter this forum..."><%= rs("F_SUBJECT") %></acronym></a></b>
			<%	elseif len(trim(rs("F_SUBJECT"))) > cint(SubjectLength) then
					AdjustedSubjectLength = SubjectLength - 3 %>
					<b><a href="<%=strForumURL%>forum.asp?FORUM_ID=<% =rs("FORUM_ID") %>&CAT_ID=<% =rs("CAT_ID") %>&Forum_Title=<% =ChkString(rs("F_SUBJECT"),"urlpath")%>"><acronym title="Enter this forum..."><%= rs("F_SUBJECT") %>...</acronym></a></b>
			<%	else %>
					<b><a href="<%=strForumURL%>forum.asp?FORUM_ID=<% =rs("FORUM_ID") %>&CAT_ID=<% =rs("CAT_ID") %>&Forum_Title=<% =ChkString(rs("F_SUBJECT"),"urlpath")%>"><acronym title="Enter this forum..."><%= rs("F_SUBJECT") %></acronym></a></b>
			<%	end if %>
		</font>
	</td>
	<td valign="bottom" align="right">
			<% if Special then %>
			<% ' do nothing %>
			<% end if %>	
	</td>						
</tr>

If DisplayMode < 100 then

end if

if DisplayMode = 100 then

	select case ContentType
		case 0
			strContentType = "FORUM.CAT_ID"
		case 1 
			strContentType = "FORUM.FORUM_ID"
		case else ' use Forum ... most likely used
			strContentType = "FORUM.FORUM_ID"
	end select	

	strSql = "SELECT TOP " & TopicCount
	strSql = strSql & " FORUM_ID, CAT_ID, F_SUBJECT, F_DESCRIPTION, F_COUNT "
	
	strSql = strSql & " FROM " & strTablePrefix & "FORUM "
	
	' Then specify criteria to select topics
	if ContentID = 0 then
		strSql = strSql & " WHERE " & strTablePrefix & strContentType & " > " & ContentID
	else
		strSql = strSql & " WHERE " & strTablePrefix & strContentType & " = " & ContentID
	end if
	
	' Change ASC to DESC if preferred...	
	select case DisplayOrder	
		case 0 ' By Cat ID
			strSql = strSql & " ORDER BY " & strTablePrefix & "FORUM.CAT_ID DESC "
		case 1 ' By Forum ID
			strSql = strSql & " ORDER BY " & strTablePrefix & "FORUM.FORUM_ID DESC "
		case 2 ' By most Forum Counts
			strSql = strSql & " ORDER BY " & strTablePrefix & "FORUM.F_COUNT DESC "
		case else ' Use the "default" - By Cat ID - DESC
			strSql = strSql & " ORDER BY " & strTablePrefix & "FORUM.CAT_ID DESC "
	end select
	
end if

	'Response.Write(strSQL)
	'Response.End

set rs = Server.CreateObject("ADODB.Recordset")
rs.cachesize=20

quote:

---

WOW... I just went to your site...

Do you actually have a seperate forum set up for every one of those cities? (Birmingham, Blackpool, Bournemouth, Brighton, etc.)

Looks like a lot of work went into this site... not exactly my cup of tea, but an excellent job on the site!
<snip>

---

Not exactly my cuppa either, the site started as a Group (back-up) Project for my University course and I got to be friends with the people wanting it and the “one thing led to another” bug bit deep,

The site is in its 4th incarnation (and hopefully last) and yes there are 3 forums per city 1 for the nightlife 1 for boys and 1 for girls. Once everything is in place each city will have a default page similar to the site main page or I may even set-up some sub-domains depends upon access and it’s ability to handle the load. Our hosts are quite reasonably priced @ £29 uk pounds for a years hosting with unlimited everything (except SQL).

But the bottom line is the site in it’s current and proposed state wouldn’t exist if it wasn’t for your MOD so WOW back

All we need now is an integrated chat system, other than ASP, (hate that dammed click) and a picture upload system for members profile perhaps a couple of modifications to the PM system (showing a buddylist instead of an Online List) and finally a script to allow other sites to display the content of a particular forum/category on their site.

If your interested in developing any of the above I’m really interested in using them

By the way you may of noticed that most of the forums are Members Only and that the forum menu was missing. The forum menu only becomes visible after someone logs in and it’s surprising how many people have signed up to look in an empty forum

Stupidity
The Gay Tour Site

PS just been inundated by 63 Snitz Notification emails, my past has finally caught up with me

quote:

---

Hi Rob,

I was wondering where you were on this mod. Is the update you mentioned a couple of posts earlier still in the works or is it already available?

Dave

The Writer Community

"Do not go where the path may lead, go instead where there is no path and leave a trail."
-Ralph Waldo Emerson

---

Hi Work Mule...

Not yet, but it's getting there...

I'm also modularizing it so that each dipslay mode is calling different functions like "WriteOrnament" or "WriteSubject", etc. This way, if you want to make a change on how the Ornaments are displayed, you don't have to do it for each display mod!

I want to make sure that the SQL is aslo working for Access...

I'll notify you when it is done....


Rob Poretti
Sascom Marketing Group ~ Toronto
vox.905.825.5373 fax.905.825.5960