| Author |
 Topic  |
|
Sonic
New Member
Germany
82 Posts |
 Posted - 16 August 2005 : 06:41:03
|
i made a litte mod like a shoutbox
des: every member who is log in can make a message in a box
screenshot: 
features:
- flood control
- bad word filter
- smilies are enabeld
- limit db to 15 entries can be edit in the admin pannel
- older entries will be automaticly deleted
- limit the Messages in the admin pannel --> Msg / 30 Sec.
- smile popup page (maybe you link to a other page mine is --> pop_smiles.asp )
can be edit in shoutbox_box.asp line 46
- admin can delete messages
- long words are breaked
red marked are new features since 06-09-2k5
when the limit of the messages are reached
old messages are deleted from the database
so it will be clean
download on http://www.snitzbitz.com/mods/details.asp?Version=All&mid=215
< |
ich finds genial...
bei uns ist es ratzekuz dunkel und bei dene alle heller nachmittag  |
Edited by - Sonic on 06 September 2005 13:55:54 |
|
|
Shaggy
Support Moderator
Ireland
6780 Posts |
Posted - 17 August 2005 : 07:53:57
|
Looks good, man. Got a demo running anywhere? What's the resource usage like?
< |
 Search is your friend
“I was having a mildly paranoid day, mostly due to the
fact that the mad priest lady from over the river had
taken to nailing weasels to my front door again.” |
 |
|
|
Sonic
New Member
Germany
82 Posts |
Posted - 17 August 2005 : 08:06:05
|
test page is runnig on local mashine on GMT+1 at 10:00 till 22:00
--> www.sonic-aug24.mine.nu/page/
on web (but at the moment with db read only) at (site will not work full)
--> www.sonic.augsburg24.de
sorry for my question but what do you mean with "resource usage like?"
for german -->
resourcen auslastung kann so gut wie alles bedeuten cpu oder code oder sonstiges  < |
ich finds genial...
bei uns ist es ratzekuz dunkel und bei dene alle heller nachmittag |
Edited by - Sonic on 17 August 2005 08:17:01 |
|
|
|
Sonic
New Member
Germany
82 Posts |
Posted - 17 August 2005 : 10:02:56
|
des:
- it will be shown the last 15 entries (can be edited in the shoutbox_entries.asp)
the oldest messages are at the top the newest at the bottom (automatic scroll to bottom = newest)
- a message can only contains max 200 chars< |
ich finds genial...
bei uns ist es ratzekuz dunkel und bei dene alle heller nachmittag |
|
|
|
silverman
Starting Member
4 Posts |
Posted - 28 August 2005 : 17:37:18
|
Hello,
I like your shoutbox, but I couldn't make it work.
I got the following error.
Active Server Pages error 'ASP 0113'
Script timed out
< |
|
|
|
Sonic
New Member
Germany
82 Posts |
Posted - 31 August 2005 : 13:19:27
|
öha
is in the error tag somewhere a tag like --> error in line ...... ?
i will look after my code
------------------------------------
i have published my new code
--> http://www.snitzbitz.com/mods/details.asp?Version=All&mid=215
some smaller bugs removed and small adons
test it normaly it should work
but know the links in the code are pointed to my webpagefolder path .... maybe you have to change it in the code
eg. images are domain.de/img/table/table_tr.gif
webpages are domain.de/pages/shoutbox_box.asp
and so on.....
if there are any bugs found or problems please post it
< |
ich finds genial...
bei uns ist es ratzekuz dunkel und bei dene alle heller nachmittag |
Edited by - Sonic on 31 August 2005 14:12:07 |
|
|
|
scorpswolle
Starting Member
39 Posts |
Posted - 01 September 2005 : 01:14:35
|
Hallo!
Also bei mir funktioniert es immer noch nicht!
Bekomme immer noch die Fehlermeldung:
Microsoft OLE DB Provider for SQL Server error '80040e14'
Zeile 1: Falsche Syntax in der Nähe von '*'.
/forum/shoutbox_entries.asp, line 84
wenn ich den * wegmache schreibt er mir die lines bis zu den maximalen Einträgen voll und dann bleibt alles so stehen, also der erste wird nicht gelöscht und kein neuer dazugeschrieben.
Mit * wird zwar ein neuer hinzugeschrieben aber keiner gelöscht.
Benutze SQL Server (MSDE) auf IIS6 (Windows 2003)
http://www.the-scorpions.com/forum/< |
|
|
|
Shaggy
Support Moderator
Ireland
6780 Posts |
Posted - 01 September 2005 : 05:10:02
|
In Firefox, the links above tell me I don't have frames, cookies or javascript enabled, which I do.
< |
Search is your friend
“I was having a mildly paranoid day, mostly due to the
fact that the mad priest lady from over the river had
taken to nailing weasels to my front door again.” |
|
|
|
Sonic
New Member
Germany
82 Posts |
Posted - 01 September 2005 : 14:23:07
|
ah endlich mal einer mit dem nam dütsch reden kann :-)
zur funktion:
if row > cint(strShoutEntries) then --> abfrage der max anzahl der einträge in der db
do until row = cint(strShoutEntries) --> vorgang solange wiederholen bis die max eintragszahl erreicht ist
strsql = "SELECT S_ID FROM " & strTablePrefix & "SHOUTBOX" --> hier soll die ID des ersten obersten eintrages ausgewählt werden
set liners = my_conn.execute(TopSQL(strsql,1))
line_ID = liners("S_ID")
liners.Close
Set liners = Nothing
set rrst = my_conn.execute("DELETE * FROM " & strTablePrefix & "SHOUTBOX Where S_ID = "& line_ID & "") --> löschen des eintrages mit dieser ID
Set rrst = Nothing
row = row - 1 --> aktuelle anzahl der einträge -1
loop
end if
prob ist ich hab zwar die topsql funktion aus der inc_func_common.asp herausgefunden aber leider hab ich noch keinen iis 6 oder sql server am laufen und konnte da es leider nicht testen....
aber ich bräuchte den genauen sql befehl für --> lösche alles aus der tabelle mit dieser id
dann würde es klappen...
aber trotzdem danke für bug report :-)
------------------------------------------------------------------
in englisch: one bug is found and will be fixed soon if i have the sql server command for
--> delete everything in table wehre id = bla bla bla
------------------------------------------------------------------
to my page:
i have a browser selection script enabled
it checks if a browser supports table, cookies, java and frames
but firefox did not tell to the IIS that it supports it all ---> so the error apears
to see the page klick after the text
---> ...... angezeigt werden und versuche es erneut.
on the link called ---> weiter
so you will see my page :-)
updates: time for site running is : --> 18:30 till 23:00 on GMT +1 (because i'm working)
if someone want to see the testsite on other times please tell me i will turn on my pc 24h on for one day
< |
ich finds genial...
bei uns ist es ratzekuz dunkel und bei dene alle heller nachmittag |
|
|
|
Astralis
Senior Member
USA
1218 Posts |
Posted - 03 September 2005 : 07:34:35
|
Sonic,
Your forums have been down for at least two days. I continue to get this error:
Microsoft JET Database Engine error '80004005'
Operation must use an updateable query.
/page/pages/inc_func_common.asp, line 602< |
|
|
|
scorpswolle
Starting Member
39 Posts |
Posted - 03 September 2005 : 07:46:06
|
Also ich habs jetzt hingekriegt:
Der * muss weg:
set rrst = my_conn.execute("DELETE FROM " & strTablePrefix & "SHOUTBOX Where S_ID = "& line_ID & "")
Die admin_config_features.asp hab ich so bearbeitet, da die Schleifen bei mir komischerweise nicht funktionierten:
"<!--##### Shoutbox Mod #####-->" & vbNewLine
if MemberID = intAdminMemberID then
Response.Write " <tr valign=""middle"">" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Shoutmessages:</b> </font></td>" & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" <select name=""strShoutMaxMsg"">" & vbNewLine & _
" <option value=""1""" & chkSelect(strshoutmaxmsg,1) & ">1</option>" & vbNewLine & _
" <option value=""2""" & chkSelect(strshoutmaxmsg,2) & ">2</option>" & vbNewLine & _
" <option value=""3""" & chkSelect(strshoutmaxmsg,3) & ">3</option>" & vbNewLine & _
" <option value=""4""" & chkSelect(strshoutmaxmsg,4) & ">4</option>" & vbNewLine & _
" <option value=""5""" & chkSelect(strshoutmaxmsg,5) & ">5</option>" & vbNewLine & _
" <option value=""10""" & chkSelect(strshoutmaxmsg,10) & ">10</option>" & vbNewLine & _
" <option value=""20""" & chkSelect(strshoutmaxmsg,20) & ">20</option>" & vbNewLine & _
" <option value=""30""" & chkSelect(strshoutmaxmsg,30) & ">30</option>" & vbNewLine & _
" <option value=""40""" & chkSelect(strshoutmaxmsg,40) & ">40</option>" & vbNewLine & _
" <option value=""50""" & chkSelect(strshoutmaxmsg,50) & ">50</option>" & vbNewLine & _
" <option value=""60""" & chkSelect(strshoutmaxmsg,60) & ">60</option>" & vbNewLine & _
" <option value=""70""" & chkSelect(strshoutmaxmsg,70) & ">70</option>" & vbNewLine & _
" <option value=""80""" & chkSelect(strshoutmaxmsg,80) & ">80</option>" & vbNewLine & _
" <option value=""90""" & chkSelect(strshoutmaxmsg,90) & ">90</option>" & vbNewLine & _
" <option value=""100""" & chkSelect(strshoutmaxmsg,100) & ">100</option>" & vbNewLine & _
" </select> Msg. / 30 Sec." & vbNewLine & _
" <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" <select name=""strShoutEntries"">" & vbNewLine & _
" <option value=""10""" & chkSelect(strshoutentries,10) & ">10</option>" & vbNewLine & _
" <option value=""15""" & chkSelect(strshoutentries,15) & ">15</option>" & vbNewLine & _
" <option value=""20""" & chkSelect(strshoutentries,20) & ">20</option>" & vbNewLine & _
" <option value=""25""" & chkSelect(strshoutentries,25) & ">25</option>" & vbNewLine & _
" <option value=""30""" & chkSelect(strshoutentries,30) & ">30</option>" & vbNewLine & _
" <option value=""35""" & chkSelect(strshoutentries,35) & ">35</option>" & vbNewLine & _
" <option value=""40""" & chkSelect(strshoutentries,40) & ">40</option>" & vbNewLine & _
" <option value=""45""" & chkSelect(strshoutentries,45) & ">45</option>" & vbNewLine & _
" <option value=""50""" & chkSelect(strshoutentries,50) & ">50</option>" & vbNewLine & _
" </select> Msg." & vbNewLine & _
" </tr>" & vbNewLine
end if
Response.Write " <tr valign=""middle"">" & vbNewLine & _
"<!--#########################################-->" & vbNewLine & _
Gruß Wolfgang
http://www.the-scorpions.com/forum< |
|
|
|
Sonic
New Member
Germany
82 Posts |
Posted - 03 September 2005 : 20:08:42
|
@ Astralis i know
the page on www.sonic.augsburg24.de is only to show and on the db i have at the moment no write acess!!
so i give the link to my local mashine --> http://sonic-aug24.mine.nu where the site works
but i start the pc when i come home after work, and shut down when i go to bed...
< |
ich finds genial...
bei uns ist es ratzekuz dunkel und bei dene alle heller nachmittag |
|
|
|
Sonic
New Member
Germany
82 Posts |
Posted - 06 September 2005 : 14:00:31
|
2 new features
- admin can delete messages
- long words are breaked eg
---> longword;longword;longword;longword;
---> longword;longword;-(and insert <br>)
longword;longword;
new screenshot available here on post one!< |
ich finds genial...
bei uns ist es ratzekuz dunkel und bei dene alle heller nachmittag |
|
|
|
ruirib
Snitz Forums Admin
Portugal
26364 Posts |
Posted - 05 May 2006 : 06:30:22
|
I find this mod probably the worst documented mod I've ever tried to install.
The requirements are not clear (there are no popup windows with smilies in a base Snitz version, so it should be stated that the code requires some smilie add-on).
The code to add to admin_config_features is utterly careless and does not use the formatting required to integrate it on the page.
Mod posting should require a bit more care!< |
Snitz 3.4 Readme | Like the support? Support Snitz too |
|
|
|
Ghassan
Starting Member
18 Posts |
Posted - 13 May 2006 : 17:32:24
|
A detailed installation notes will be deeply apprecitiated :)
Thanks< |
|
|
|
rasure
Junior Member
289 Posts |
Posted - 13 May 2006 : 18:43:30
|
I did manage to install it a while ago,
although it did take some tweaking to get to
fit in correctly and I've modified it a
little to work why my setup.
Screenshot
 < |
Psychic & Spiritual Development Resources |
Edited by - rasure on 13 May 2006 18:44:00 |
|
|
|
Topic |
|
shoutbox v1.5 updated
