| Author |
 Topic  |
|
|
03blownvenom
Starting Member
1 Posts |
 Posted - 31 July 2002 : 00:18:29
|
Does anyone have an english version of this chat? I get it to work but the admin.asp doesn't seem to go anywhere. New at this so cut me some slack...Thanks ahead of time...
|
|
|
richfed
Average Member
United States
999 Posts |
Posted - 01 August 2002 : 13:43:43
|
If you're looking for translation, visit my board. We have a "Test User" set up. You can log on as, User Name: Invited Visitor with a Password of: invitedvisitor. Then the Chat link will appear up near the upper right-hand corner. I've got it all translated, thanks in part to a good Dutch friend, though some of it is expanded upon as I saw fit. A lot of it was just common sense - delete user, etc.
Mohican Board
Rich |
Edited by - richfed on 18 August 2002 07:07:28 |
 |
|
|
shyguy
Starting Member
47 Posts |
|
|
OneWayMule
Dev. Team Member & Support Moderator
Austria
4969 Posts |
|
|
shyguy
Starting Member
47 Posts |
Posted - 11 August 2002 : 17:18:29
|
Can you tell me how to add the chat link to inc_top.asp menu?
<%
sub sForumNavigation()
' DEM --> Added code to show the subscription line
if mlev > 0 then
strSql = "SELECT COUNT(*) AS SubCount FROM " & strTablePrefix & "SUBSCRIPTIONS"
if mlev <> 4 then
strSql = strSql & " WHERE MEMBER_ID = " & MemberID
end if
set rsCount = my_Conn.Execute (strSql)
if rsCount.BOF or rsCount.EOF then
' No Subscriptions found, do nothing
else
SubCount = rsCount("SubCount")
rsCount.Close
set rsCount = nothing
end if
else
SubCount = 0
end if
Response.Write " <a href=""" & strHomeURL & """><acronym title=""Homepage"">Home</acronym></a>" & vbNewline & _
" |" & vbNewline
if strUseExtendedProfile then
Response.Write " <a href=""pop_profile.asp?mode=Edit""><acronym title=""Edit your personal profile..."">Profile</acronym></a>" & vbNewline
else
Response.Write " <a href=""javascript:openWindow3('pop_profile.asp?mode=Edit')""><acronym title=""Edit your personal profile..."">Profile</acronym></a>" & vbNewline
end if
if strAutoLogon <> 1 then
Response.Write " |" & vbNewline & _
" <a href=""policy.asp""><acronym title=""Register to post to our forum..."">Register</acronym></a>" & vbNewline
end if
Response.Write " |" & vbNewline & _
" <a href=""active.asp""><acronym title=""See what topics have been active since your last visit..."">Active Topics</acronym></a>" & vbNewline
' DEM --> Start of code added to show subscriptions if they exist
if SubCount > 0 then
if mlev = 4 then
Response.Write " |" & vbNewline & _
" <a href=""subscription_list.asp?MODE=all""><acronym title=""See all current subscriptions"">All Subscriptions</acronym></a>" & vbNewline
end if
Response.Write " |" & vbNewline & _
" <a href=""subscription_list.asp""><acronym title=""See all of my subscriptions"">My Subscriptions</acronym></a>" & vbNewline
end if
' DEM --> End of Code added to show subscriptions if they exist
Response.Write " |" & vbNewline & _
" <a href=""members.asp""><acronym title=""Current members of these forums..."">Members</acronym></a>" & vbNewline & _
" |" & vbNewline & _
" <a href=""search.asp""><acronym title=""Perform a search by keyword, date, and/or name..."">Search</acronym></a>" & vbNewline & _
" |" & vbNewline & _
" <a href=""faq.asp""><acronym title=""Answers to Frequently Asked Questions..."">FAQ</acronym></a>" & vbNewline
end sub
%>
Then link:
<% if strDBNTUserName = "" then %>Chat<% else %><a href="javascript:openChat()">Chat</a><% end if %>
Where should I add and how?
Thanks |
http://www.virtualafghans.com/forumboard/ |
|
|
|
OneWayMule
Dev. Team Member & Support Moderator
Austria
4969 Posts |
Posted - 11 August 2002 : 18:10:00
|
<%
sub sForumNavigation()
' DEM --> Added code to show the subscription line
if mlev > 0 then
strSql = "SELECT COUNT(*) AS SubCount FROM " & strTablePrefix & "SUBSCRIPTIONS"
if mlev <> 4 then
strSql = strSql & " WHERE MEMBER_ID = " & MemberID
end if
set rsCount = my_Conn.Execute (strSql)
if rsCount.BOF or rsCount.EOF then
' No Subscriptions found, do nothing
else
SubCount = rsCount("SubCount")
rsCount.Close
set rsCount = nothing
end if
else
SubCount = 0
end if
Response.Write " <a href=""" & strHomeURL & """><acronym title=""Homepage"">Home</acronym></a>" & vbNewline & _
" |" & vbNewline
if strUseExtendedProfile then
Response.Write " <a href=""pop_profile.asp?mode=Edit""><acronym title=""Edit your personal profile..."">Profile</acronym></a>" & vbNewline
else
Response.Write " <a href=""javascript:openWindow3('pop_profile.asp?mode=Edit')""><acronym title=""Edit your personal profile..."">Profile</acronym></a>" & vbNewline
end if
if strAutoLogon <> 1 then
Response.Write " |" & vbNewline & _
" <a href=""policy.asp""><acronym title=""Register to post to our forum..."">Register</acronym></a>" & vbNewline
end if
Response.Write " |" & vbNewline & _
" <a href=""active.asp""><acronym title=""See what topics have been active since your last visit..."">Active Topics</acronym></a>" & vbNewline
' DEM --> Start of code added to show subscriptions if they exist
if SubCount > 0 then
if mlev = 4 then
Response.Write " |" & vbNewline & _
" <a href=""subscription_list.asp?MODE=all""><acronym title=""See all current subscriptions"">All Subscriptions</acronym></a>" & vbNewline
end if
Response.Write " |" & vbNewline & _
" <a href=""subscription_list.asp""><acronym title=""See all of my subscriptions"">My Subscriptions</acronym></a>" & vbNewline
end if
' DEM --> End of Code added to show subscriptions if they exist
Response.Write " |" & vbNewline & _
" <a href=""members.asp""><acronym title=""Current members of these forums..."">Members</acronym></a>" & vbNewline & _
" |" & vbNewline & _
" <a href=""search.asp""><acronym title=""Perform a search by keyword, date, and/or name..."">Search</acronym></a>" & vbNewline & _
" |" & vbNewline & _
" <a href=""faq.asp""><acronym title=""Answers to Frequently Asked Questions..."">FAQ</acronym></a>" & vbNewline
" |" & vbNewline
if strDBNTUserName = "" then
Response.Write "Chat"
else
Response.Write"<a href=""javascript:openChat()"">Chat</a>" & vbNewline
end if
end sub
%>
Add the code in red just as shown above. This should do it. |
My MODs:
Birthdays - Custom Policy - F.A.Q. Administration - Forum Rules - Guestbook
Links Manager - MyOwnGoogle - Profile Views - Search Log - WebSearch
Useful stuff:
Forum and MOD Installation - MOD Installation Guide - Snitz v3.4.05 Readme - Free ASP Hosts - Support Snitz
|
|
|
|
shyguy
Starting Member
47 Posts |
Posted - 13 August 2002 : 03:15:59
|
I get this error when I put that line in the inc_top.asp
Microsoft VBScript compilation error '800a0400'
Expected statement
/forum/inc_top.asp, line 399
" |" & vbNewline
^
|
http://www.virtualafghans.com/forumboard/ |
|
|
|
Hamlin
Advanced Member
United Kingdom
2386 Posts |
Posted - 18 August 2002 : 07:14:10
|
Change this bit
" <a href=""faq.asp""><acronym title=""Answers to Frequently Asked Questions..."">FAQ</acronym></a>" & vbNewline & _
" |" & vbNewline
Add the red code |
|
|
|
digmind
Junior Member
Greece
177 Posts |
Posted - 21 August 2002 : 03:45:07
|
I have tried the snitzy chat, dream chat, and conquer chat.
with a few changes useing the conquer chat was able to have multiple rooms, the reresh is kinda liekhte snitzy chat, much cleaner then the dream chat. and all can be added eazily. I even took the conquer chat and adapted it to use the username and pass of the db set of my site, witch matches in with the forum.
now i'm working on making it so that the active users will see it as well.
www.theill.com is the location of the chat, he has a few support strings as well to help with problems intergrating it.
good luck
DigMind |
is it 4:20? |
|
|
|
alex042
Average Member
USA
631 Posts |
Posted - 21 August 2002 : 08:54:39
|
quote:
I even took the conquer chat and adapted it to use the username and pass of the db set of my site, witch matches in with the forum.
now i'm working on making it so that the active users will see it as well.
Making this a MOD for v3.4?
|
|
|
|
Jeepaholic
Average Member
USA
697 Posts |
Posted - 28 August 2002 : 20:21:46
|
Anyone converted ConquerChat to use a database? Man, it sure can be slow at times. I like it best, interface wise out of what I've seen...but...the speed hurts a bit.
Would also like to see anyone's code for using the Snitz DB for username authorization, if available.
Thanks! |
Al Bsharah
Aholics.com
Jeepaholics Anonymous
Broncoholics Anonymous
Network Insight
|
Edited by - Jeepaholic on 28 August 2002 20:22:26 |
|
|
|
digmind
Junior Member
Greece
177 Posts |
Posted - 30 August 2002 : 03:41:17
|
i have conquer chat using the snitz db for names, then changing things around, i have added a few things as rooms as well. if you go to his site, you can find several ways to do it. and a few people have posted versions that work with access and sql.
here's some code to get it running on your snitz db.
<%
set mycon = Server.CreateObject("ADODB.Recordset")
mycon.ActiveConnection = my_Conn
mycon.Source = "SELECT * FROM FORUM_MEMBERS "
mycon.CursorType = 0
mycon.CursorLocation = 2
mycon.LockType = 3
mycon.Open()
mycon_numRows = 0
%>
<%
dim Fname
Fname = Session("svM_FIRSTNAME")
%>
then i can get all the info i want as everything is passed to the chat from here.
just make as many session variables. also for the speed check out www.theill.com he has some fixes. and watch the memory there is a post on it as the memory sometimes rises to high.
DigMind |
is it 4:20? |
|
|
| |
Topic |
|
Topic Locked
