it-it Wed, 22 Apr 2026 04:51:43 +0200 webmaster@giumer.it (Giumer, Forum) 60 Giumer Forum - webdesign https://www.giumer.it/forum/default.asp?CAT_ID=6 Giumer Forum https://www.giumer.it/forum/default.asp?CAT_ID=6 https://www.giumer.it/forum/images/shadowtech2.gif Giumer Forum - webdesign 144 47 Codice Colori Tabelle Forum Giumer@giumer.it (Giumer) https://www.giumer.it/forum/topic.asp?TOPIC_ID=294 webdesign / Asp Thu, 02 Feb 2012 07:37:31 +0200 https://www.giumer.it/forum/topic.asp?TOPIC_ID=294
]]> inc_func_common Giumer@giumer.it (Giumer) https://www.giumer.it/forum/topic.asp?TOPIC_ID=293 webdesign / Asp Sat, 28 Jan 2012 04:17:43 +0200 https://www.giumer.it/forum/topic.asp?TOPIC_ID=293
Spoiler: Non sei Registrato ? ti devi Registrare per Accedere completamente al Forum, Per Registrarti clicca QUI !
Download:
inc_func_common.txt (205,68 KB)
]]> change the path of a director ? Giumer@giumer.it (Giumer) https://www.giumer.it/forum/topic.asp?TOPIC_ID=280 webdesign / Asp Thu, 24 Mar 2011 11:24:55 +0200 https://www.giumer.it/forum/topic.asp?TOPIC_ID=280
<%
'#################################################################################
'## Ver.3.4.07 multi-language Skin3D Portal V2
'#################################################################################
'## Copyright (C) 2001-10 Gaëtan Dupont All Rights Reserved
'##
'## By using this program, you are agreeing to the terms of the
'## GNU General Public License.
'##
'## This program is free software; you can redistribute it and/or
'## modify it under the terms of the GNU General Public License
'## as published by the Free Software Foundation; either version 2
'## of the License, or (at your option) any later version.
'##
'## All copyright notices regarding ImageForums2001 must remain intact
'## in the scripts and in the outputted HTML.
'## The "Image Forums 2001" text with a link back to
'## http://www.forums2001.ca in the footer of the pages MUST
'## remain visible when the pages are viewed on the internet or intranet.
'##
'## Support can be obtained from support forums at:
'## http://www.forums2001.ca
'##
'## E-mail: imageforums2001@hotmail.com
'##
'#################################################################################
%>
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_func_common.asp" --><%

set my_Conn= Server.CreateObject("ADODB.Connection")
my_Conn.Open strConnString

strDBNTUserName = Request.Cookies(strUniqueID & "User")("Name")
if strAuthType = "nt" then
strDBNTUserName = Session(strCookieURL & "userID")
end if

chkCookie = 1
mLev = cLng(chkUser(strDBNTUserName, Request.Cookies(strUniqueID & "User")("Pword"),-1))
chkCookie = 0

call WriteStyleCss(intStylesCss,getStyles)


Response.Write "<html>" & vbNewline & _
vbNewline & _
"<head>" & vbNewline & _
"<meta http-equiv=""Content-Type"" content=""text/html; charset=" & strLangCharSet & """>" & vbNewline & _
"<title>" & strForumTitle & "</title>" & vbNewline & _
"<script language=""JavaScript"" type=""text/javascript"">" & vbNewLine & _
"<!-- hide from JavaScript-challenged browsers" & vbNewLine & _
"function jumppage(sel) {" & vbNewLine & _
"var i = sel.selectedIndex" & vbNewLine & _
"self.location.href = sel.options[i].value" & vbNewLine & _
"}" & vbNewLine & _
"// done hiding -->" & vbNewLine & _
"</script>" & vbNewLine
if (mlev = 0 or getStyles = "1") or strStylesCss = "0" then
%><!-- #INCLUDE FILE="inc_default_skin.asp"--><%
Response.Write "<link rel=""stylesheet"" type=""text/css"" href=""http://www.giumer.it/forum/css/" & skin & ".css"" id=""skin"" />" & vbNewline
%><!-- #INCLUDE FILE="skin.asp"--><%
Response.Write "<script language=""JavaScript"" type=""text/javascript"">browserChk();</script>" & vbNewline
Response.Write "</head>" & vbNewLine & _
vbNewLine
Response.Write "<body onLoad=""window.focus();"">" & vbNewLine
else
Response.Write "<style><!--" & vbNewline & _
"body {Scrollbar-Face-Color:" & strScrollbarFaceColor & ";Scrollbar-Arrow-Color:" & strScrollbarArrowColor & ";Scrollbar-Track-Color:" & strScrollbarTrackColor & ";Scrollbar-Shadow-Color:" & strScrollbarShadowColor & ";Scrollbar-Highlight-Color:" & strScrollbarHighlightColor & ";Scrollbar-3Dlight-Color:" & strScrollbar3DlightColor & "}" & vbNewLine & _
"a:link {color:" & strLinkColor & ";text-decoration:" & strLinkTextDecoration & "}" & vbNewline & _
"a:visited {color:" & strVisitedLinkColor & ";text-decoration:" & strVisitedTextDecoration & "}" & vbNewline & _
"a:hover {color:" & strHoverFontColor & ";text-decoration:" & strHoverTextDecoration & "}" & vbNewline & _
"a:active {color:" & strActiveLinkColor & ";text-decoration:" & strActiveTextDecoration & "}" & vbNewLine & _
"--></style>" & vbNewline & _
"</head>" & vbNewLine & _
vbNewLine & _
"<body bgColor=""" & strPageBGColor & """ text=""" & strDefaultFontColor & """ link=""" & strLinkColor & """ aLink=""" & strActiveLinkColor & """ vLink=""" & strVisitedLinkColor & """ onLoad=""window.focus();"">" & vbNewLine
end if
'*End

Response.Write "<table width=""100%"" height=""100%"" align=""center"">" & vbNewline & _
" <tr>" & vbNewline & _
" <td align=""center"" valign=""middle"">" & vbNewline & _
" <div align=""center"">" & vbNewline & _
" <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewline

if strDBNTUserName = "" then
Response.Write " <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """>" & fLang("strLangWas_Problem00010") & "</font></p>" & vbNewLine & _
" <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & fLang("strLangGallery00030") & "</font></p>" & vbNewLine
else

' Fotoalbum
Dim CurFile, ShowSub, ShowPic, PictureNo
Dim strPathInfo, strPhysicalPath
CurFile = "ShowPicture.asp"

Response.Write " <form action=" & CurFile & " method=""post"">" & vbNewline & _
" <table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewLine & _
" <tr valign=""middle"">" & vbNewLine & _
" <td align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><b>" & fLang("strLangGallery00040") & "</b></font>" & vbNewLine & _
" <select name=""go"" onChange=""jumppage(this);"" size=""1"">" & vbNewline

ShowSub = Request("ShowSub")
ShowPic = Request("ShowPic")
strPathInfo = Request.ServerVariables("PATH_INFO")
strPhysicalPath = Server.MapPath(strPathInfo)

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(strPhysicalPath)
Set objFolder = objFile.ParentFolder
Set objFolderContents = objFolder.Files
for each Folder in objFolder.SubFolders

if Left(Folder.Name,1)<>"_" then
Response.write "<option "
if ShowSub=Folder.Name Then Response.Write("selected ")
Response.Write "value='" & CurFile & "?ShowSub="
Response.Write(Replace(Folder.Name, " ", "%20"))
Response.Write "'>"
Response.Write(Folder.Name & "</option>")
if ShowSub <= " " then
ShowSub = Folder.Name
end if
end if
next

Set objFSO = nothing

Response.Write " </select>" & vbNewline & _
" </td>" & vbNewline & _
" </tr>" & vbNewline & _
" </table>" & vbNewline & _
" </form>" & vbNewline

if ShowPic > " " then
ShowPic = Replace(ShowPic, " ", "%20")
Response.Write " <a href='JavaScript:history.go(-1)'><img src='" & ShowPic & "' border=0><br /><br /><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """><b>" & fLang("strLangInc_Func_Secure00080") & "</b></font></a>"
else

Response.Write " <table border=""0"" width=""100%"" cellpadding=""0"" cellspacing=""5"">" & vbNewline & _
" <tr>" & vbNewline

strPhysicalPath = Server.MapPath(".\" & ShowSub)
if ShowSub > " " then
ShowSub = Replace(ShowSub, " ", "%20")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strPhysicalPath)
Set objFolderContents = objFolder.Files
for Each objFileItem in objFolderContents

if Ucase(Right(objFileItem.Name,4))=".GIF" OR Ucase(Right(objFileItem.Name,4))=".JPG" then
ShowPic = Replace(objFileItem.Name, " ", "%20")
' Response.Write " <td align='center' width='25%'><a href=" & ShowSub & "\"
Response.Write " <td align=""center"" width=""33%""><a href=" & CurFile & "?ShowPic=" & ShowSub & "\" & ShowPic
' Response.Write(Replace(objFileItem.Name, " ", "%20"))
Response.Write ">"
Response.Write("<img src=""" & ShowSub & "\" & objFileItem.Name & """ width=""120"" border=""0"">")
Response.Write("<center><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>" & Mid(objFileItem.Name,1,Len(objFileItem.Name)-4) & "</b></font></center>")
Response.write "</a><br /></td>"
PictureNo = PictureNo + 1
if PictureNo=3 then
Response.write "</tr><tr>"
PictureNo = 0
end if
end if
next

Set objFSO = nothing
end if

Response.Write " </tr>" & vbNewline & _
" </table>" & vbNewline
end if
end if
%><!-- #INCLUDE FILE="inc_footer_short.asp" --><%
Response.End
%>
]]> rinnovo MsSql orsacchiotta@giumer.it (orsacchiotta) https://www.giumer.it/forum/topic.asp?whichpage=-1&TOPIC_ID=102&REPLY_ID=912 All / Database Tue, 23 Feb 2010 22:28:50 +0200 https://www.giumer.it/forum/topic.asp?TOPIC_ID=102 Quote:
scusa non avevo capito.... te li mando!!!]]> per Maria nuova skin Giumer@giumer.it (Giumer) https://www.giumer.it/forum/topic.asp?whichpage=-1&TOPIC_ID=193&REPLY_ID=897 webdesign / Asp Mon, 15 Feb 2010 23:11:38 +0200 https://www.giumer.it/forum/topic.asp?TOPIC_ID=193 Quote:
allora Maria ti avviso che le gif sono parecchie !! ti allego la cartella praticamente non bisogna ne modicare i nomi ne modificare le dimensioni , va solo cambiato il colore la mia Idea e rendere queste gif in un colore natalizio poi se e possibile farle per i colori puoi fare tu intanto vedi se sono possibile modificarle !

Download:
20070624195002_skin3DPortalv2.zip (984,61 KB)]]> mod video Giumer@giumer.it (Giumer) https://www.giumer.it/forum/topic.asp?TOPIC_ID=188 webdesign / Asp Fri, 12 Feb 2010 18:19:35 +0200 https://www.giumer.it/forum/topic.asp?TOPIC_ID=188 ]]> Help me!!!! Giumer@giumer.it (Giumer) https://www.giumer.it/forum/topic.asp?whichpage=-1&TOPIC_ID=108&REPLY_ID=382 webdesign / Asp Fri, 02 Oct 2009 16:25:48 +0200 https://www.giumer.it/forum/topic.asp?TOPIC_ID=108 Quote:
si ho gia mandato il tutto al mio amico ! aspetto risposta !]]> Google Language Translation API - Translate Posts Giumer@giumer.it (Giumer) https://www.giumer.it/forum/topic.asp?whichpage=-1&TOPIC_ID=59&REPLY_ID=171 webdesign / Asp Mon, 20 Jul 2009 22:03:09 +0200 https://www.giumer.it/forum/topic.asp?TOPIC_ID=59 Quote:
adesso sembra funzionare lo provo per un po e vedo se ci sono problemi ! grazie !]]> problemi con il mio forum Giumer@giumer.it (Giumer) https://www.giumer.it/forum/topic.asp?whichpage=-1&TOPIC_ID=56&REPLY_ID=140 webdesign / Asp Sat, 18 Jul 2009 17:24:57 +0200 https://www.giumer.it/forum/topic.asp?TOPIC_ID=56 Quote:
ciao allora per i moderatori devi andare lista membri e modificare il loro profilo . da moderatore lo setti normale poi in admin dovrebbe esserci la voce moderatori per assegnargli il forum

per spostare le discussioni ci vuole un mod merge o split topic .

e per inserire i video sempre un mod ti do un link dove puoi trovare parecchi mod in versione inglese

http://www.snitzbitz.com/mods/default.asp]]>