| Author |
 Topic  |
|
filo_2k
Starting Member
Italy
37 Posts |
 Posted - 11 December 2003 : 11:20:22
|
This simple MOD shows a popup with the prewiew of all the avatars.
1) create a new page called pop_avatar_gallery.asp with the code below<%
'#################################################################################
'## Avatar gallery MOD Copyright (c) 2003, filo_2k
'#################################################################################
%>
<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="inc_header_short.asp" -->
<%
strTempFont = "<font face=""" & strDefaultFontFace & """ size=" & strDefaultFontSize & ">"
response.write "<table border=""0"" width=""95%"" cellspacing=""1"" cellpadding=""3"" bgcolor=""" & strTableBorderColor & """>" & vbNewline &_
" <tr bgcolor=""" & strHeadCellColor & """>" & vbNewline &_
" <td width=""50%"" align=""center""> </td>" & vbNewline &_
" <td width=""50%"" align=""center""> </td>" & vbNewline &_
" </tr>" & vbNewline
'##### Get Avatar's from DB
strSql = "SELECT " & strTablePrefix & "AVATAR.A_ID"
strSql = strSql & ", " & strTablePrefix & "AVATAR.A_URL"
strSql = strSql & ", " & strTablePrefix & "AVATAR.A_NAME"
strSql = strSql & ", " & strTablePrefix & "AVATAR.A_MEMBER_ID"
strSql = strSql & " FROM " & strTablePrefix & "AVATAR "
strSql = strSql & " WHERE " & strTablePrefix & "AVATAR.A_MEMBER_ID = 0 "
strSql = strSql & " ORDER BY " & strTablePrefix & "AVATAR.A_NAME DESC;"
set rsAvatar = Server.CreateObject("ADODB.Recordset")
rsAvatar.open strSql, my_Conn, 3
if rsAvatar.EOF then
recAvatarCount = ""
else
allAvatarInfo = rsAvatar.GetRows(adGetRowsRest)
recAvatarCount = UBound(allAvatarInfo,2)
avatar_ID = 0
avatar_URL = 1
avatar_Name = 2
avatar_Member_ID = 3
end if
rsAvatar.close
set rsAvatar = nothing
pari = 0
if recAvatarCount <> "" then
for iAvatar = 0 to recAvatarCount
AvatarID = allAvatarInfo(avatar_ID, iAvatar)
AvatarURL = allAvatarInfo(avatar_URL, iAvatar)
AvatarNAME = allAvatarInfo(avatar_Name, iAvatar)
AvatarMEMBERID = allAvatarInfo(avatar_Member_ID, iAvatar)
if pari = "0" then
response.write " <tr bgcolor=""" & strForumCellColor & """>" & vbNewline
end if
response.write " <td width=""50%"" align=""center"" bgcolor=""" & strForumCellColor & """><img src=""" & AvatarURL & """><br><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & AvatarNAME & "</font></td>" & vbNewline
if pari = "0" then
pari = 1
else
response.write " </tr>" & vbNewline
pari = 0
end if
next
else
response.write "<tr><td colspan=2>No Avatars Found</td></tr>"
end if
response.write "</table>" & vbNewline
%><!--#INCLUDE FILE="inc_footer_short.asp" -->
2) paste the code below where you need to have the prewiew (for example in inc_avatar.asp)<a href=""JavaScript:openWindow3('pop_avatar_gallery.asp')"">See avatars gallery</a> |
filo_2k
Admin @ FastWeb-Italia-NetworK
http://www.fin2k.net |
|
|
weeweeslap
Senior Member
USA
1077 Posts |
Posted - 11 December 2003 : 17:37:37
|
| got a demo somewhere? |
coaster crazy |
 |
|
|
Image
Average Member
Canada
574 Posts |
|
|
edbyrne
Starting Member
Ireland
34 Posts |
Posted - 11 December 2003 : 20:32:46
|
Thanks filo_2k
I have just uploaded the new asp page and it works a dream. A useful add-on.
cheers,
|
Eddie
http://www.cleft.ie |
|
|
|
weeweeslap
Senior Member
USA
1077 Posts |
Posted - 12 December 2003 : 02:19:00
|
| ok, thank you. |
coaster crazy |
|
|
|
wii
Free ASP Hosts Moderator
Denmark
2632 Posts |
Posted - 12 December 2003 : 06:46:26
|
| What about a gallery that shows all the Avatars that are actually used by members ? |
|
|
|
MarcelG
Retired Support Moderator
Netherlands
2625 Posts |
|
|
wii
Free ASP Hosts Moderator
Denmark
2632 Posts |
Posted - 12 December 2003 : 08:16:43
|
Do you have a test login ?
quote:
Originally posted by marcelgoertz
Addition ; CrashCode has this feature available, along with paging.
Demo: http://avatars.oxle.com
|
|
|
|
filo_2k
Starting Member
Italy
37 Posts |
Posted - 12 December 2003 : 15:00:53
|
quote:
Originally posted by marcelgoertz
Addition ; CrashCode has this feature available, along with paging.
Demo: http://avatars.oxle.com
do you have the source code?
could be nice imho have a popup like the one i did but with also a radio input under the image to choose it: as soon as i have time i'll try to do it |
filo_2k
Admin @ FastWeb-Italia-NetworK
http://www.fin2k.net |
|
|
|
MarcelG
Retired Support Moderator
Netherlands
2625 Posts |
|
|
xx ENIGMA xx
Junior Member
166 Posts |
|
|
filo_2k
Starting Member
Italy
37 Posts |
|
|
xx ENIGMA xx
Junior Member
166 Posts |
|
|
Etymon
Advanced Member
United States
2385 Posts |
|
|
filo_2k
Starting Member
Italy
37 Posts |
|
|
xx ENIGMA xx
Junior Member
166 Posts |
Posted - 14 December 2003 : 14:51:21
|
quote:
Originally posted by filo_2k
quote:
Originally posted by Etymon
The link below does not work: 
http://www.fin2k.net/varie/avatargallery.zip
it's strange: i've just tryed and it's working perfectly
does not work for me either....
takes me here when clicked http://fin.altervista.org/varie/avatargallery.zip
ore 403
Non puoi accedere alla pagina o directory desiderata, ecco le possibili ragioni:
La directory non contiene un file indice, comunemente (index.html).
Non sei connesso con un numero IP valido (IP: 24.155.38.91, se stai usando un proxy puoi provare a disabilitarlo e riconnetterti.
Il traffico verso quest'area del sito č bloccato, oppure non hai l'autorizzazione per accedere alla risorsa che hai richiesto
http://www.altervista.org
then it redirects me to this http://www.altervista.org/
|
my little forum playground
|
|
|
|
Topic |
|
Topic Locked
