<%
'#################################################################################
' # # copyright (c) 2000-2001 Snitz Forums
' # #
' # # questo programma è un software libero; potete ridistribuirlo e/o
' # # modificarlo sotto i termini dell' autorizzazione del grande pubblico di GNU
' # # come pubblicati dal fondamento libero del software; **time-out** o versione 2
' # # autorizzazione, o qualsiasi successivo versione.
' # #
' # # Questo programma è distibuito nella speranza che possa essere utile,
' # # ma senza qualsiasi GARANZIA; senza persino la garanzia implicita di
' # # MERCHANTABILITY o IDONEITÀ PER SCOPI PRECISI. Per maggiori ragguagli consultare
' # # la licenza internazionale GNU e GPL. Troverete una copia della licenza all'interno
' # # del forum Snitz (http://forum.snitz.com)
' # #
' # # INFORMAZIONI PER GLI UTENTI ITALIANI
' # #
' # # Questo forum realizzato all'origine da Snitz Forums (http://forum.snitz.com)
' # # è stato modificato e trasformato completamente in Italiano da:
' # # Santarsiero Angelo, Lorusso Salvatore e Narciso Rocco
' # # Webmaster & Collaboratori di www.valvitalba.it
' # #
' # # I test, le correzioni del maggior numero di Bug ed errori\imprecisioni
' # # nonchè la compatibilità del forum con il maggior numero di piattaforme
' # # sono stati effettuati da Lorenzo Pascucci webmaster di www.WebMasterPoint.org
' # #
' # # DISTRIBUZIONE DELLA VERSIONE ITALIANA
' # # La versione italiana del forum viene diffusa da WebMasterPoint.org:
' # # il punto di riferimento dei webmaster italiani. All'interno troverete
' # # una sezione dedicata allo Snitz Forums con il suddetto forum e molti
' # # Mods corretti e tradotti in italiano. http://www.webmasterpoint.org
' # #
' # #
' # # CONTATTI
' # # Per consigli, errori, modifiche e altro contattateci a questi indirizzi
' # #
' # # Staff di Valvitalba
' # # ----------------------------
' # # Angelo angelo@valvitalba.it (Problemi grafici)
' # # Rocco rocco@valvitalba.it (Problemi logistici)
' # # Toto toto@valvitalba.it (Problemi linguaggio Asp)
' # # Sito: http://www.valvitalba.it
' # #
' # # Staff di WebMasterPoint
' # # ----------------------------
' # # Lorenzo lorenzo.pascucci@webmasterpoint.org (Distribuzione, bug)
' # # Sito: http://www.webmasterpoint.org
' # #
'#################################################################################
%>
<%
if not(strUseExtendedProfile) then
%>
<%
else
%>
<% end if
if strAuthType = "nt" then
if ChkAccountReg() <> "1" then %>
Nota: Questo cliente NT non è ancora registrato,ed il profilo non è disponibile.
Questo è il tuo Account, Premi qui per registrarti.
<% else%>
<% end if
else
if rs2("T_REPLIES") >= intHotTopicNum then%>
<% else%>
<% end if
end if
else
if rs2("T_LAST_POST") > Session(strCookieURL & "last_here_date") then %>
<% else%>
<% end if
end if
else
if rs2("T_LAST_POST") > Session(strCookieURL & "last_here_date") then %>
<% else %>
<% end if
end if %>
<%
end if
if (strCity = "1" and Trim(rs("M_CITY")) <> "") or (strCountry = "1" and Trim(rs("M_COUNTRY")) <> "") or (strCountry = "1" and Trim(rs("M_STATE")) <> "") then
%>
Locazione:
<% Response.Write(rs("M_CITY"))
if Trim(rs("M_CITY")) <> "" then
Response.Write(" ")
end if
if Trim(rs("M_STATE")) <> "" then
Response.Write(ChkString(rs("M_STATE"), "display") & " ")
end if
Response.Write(ChkString(rs("M_COUNTRY"), "display"))
%>
<%
end if
if (strAge = "1" and Trim(rs("M_AGE")) <> "") then
%>
Età:
<% =ChkString(rs("M_AGE"), "display") %>
<%
end if
if (strMarStatus = "1" and Trim(rs("M_MARSTATUS")) <> "") then
%>
Stato Civile:
<% = ChkString(rs("M_MARSTATUS"), "display") %>
<%
end if
if (strSex = "1" and Trim(rs("M_SEX")) <> "") then
%>
Sesso:
<% = ChkString(rs("M_SEX"), "display") %>
<%
end if
if (strOccupation = "1" and Trim(rs("M_OCCUPATION")) <> "") then
%>
<% end if
if strFavLinks = "1" then
if Trim(rs("M_LINK1")) <> "" and lcase(trim(rs("M_LINK1"))) <> "http://" and Trim(lcase(rs("M_LINK1"))) <> "https://" then %>
<% end if
end if
case "EditIt"
Err_Msg = ""
if Request.Form("Name") = "" then
Err_Msg = Err_Msg & "
Devi inserire l'User Name
"
end if
if (Instr(Request.Form("Name"), ">") > 0 ) or (Instr(Request.Form("Name"), "<") > 0) then
Err_Msg = Err_Msg & "
> and < Caratteri non validi, Prova un'altra password
"
end if
if strAuthType = "db" then
if Request.Form("Password") = "" then
Err_Msg = Err_Msg & "
Devi inserire una Password
"
end if
if Len(Request.Form("Password")) > 25 then
Err_Msg = Err_Msg & "
La password non può essere più lunga di 25 caratteri!
"
end if
if Request.Form("Password") <> Request.Form("Password2") then
Err_Msg = Err_Msg & "
Le password non combaciano.
"
end if
end if
if Request.Form("Email") = "" then
Err_Msg = Err_Msg & "
Dovete inserire un indirizzo Email!
"
end if
if EmailField(Request.Form("Email")) = 0 then
Err_Msg = Err_Msg & "
Inserisci un indirizzo Email valido!
"
end if
if (lcase(left(Request.Form("Homepage"), 7)) <> "http://") and (lcase(left(Request.Form("Homepage"), 8)) <> "https://") and (Request.Form("Homepage") <> "") then
Err_Msg = Err_Msg & "
L'indirizzo URl deve contenere http:// or https://
"
end if
if strUniqueEmail = "1" then
if lcase(Request.Form("Email")) <> lcase(Request.Form("Email2")) then
'## Forum_SQL
strSql = "SELECT M_EMAIL FROM " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " WHERE M_EMAIL = '" & Trim(Request.Form("Email")) &"'"
set rs = my_Conn.Execute (strSql)
if rs.BOF and rs.EOF then
'## Do Nothing - proceed
Else
Err_Msg = Err_Msg & "
l'Email e già in uso, prova un altra Email
"
end if
rs.close
set rs = nothing
' ################### Email Password Mod ####################
if lcase(strEmail) = "1" then
strPassword = emailPassword("yes")
end if
' ###########################################################
end if
' ################### Email Password Mod ####################
else
if lcase(Request.Form("Email")) <> lcase(Request.Form("Email2")) and lcase(strEmail) = "1" then
strPassword = emailPassword("yes")
end if
' ###########################################################
end if
if Len(ChkString(Request.Form("Sig"),"message")) > 255 then
Err_Msg = Err_Msg & "
La firma non può contenere più di 255 caratteri! "
Err_Msg = Err_Msg & "La firma " & Len(ChkString(Request.Form("Sig"),"message")) & " contiene troppi caratteri!
"
end if
if Err_Msg = "" then
if Trim(Request.Form("Homepage")) <> "" and lcase(trim(Request.Form("Homepage"))) <> "http://" and Trim(lcase(Request.Form("Homepage"))) <> "https://" then
regHomepage = ChkString(Request.Form("Homepage"),"url")
else
regHomepage = " "
end if
if Trim(Request.Form("LINK1")) <> "" and lcase(trim(Request.Form("LINK1"))) <> "http://" and Trim(lcase(Request.Form("LINK1"))) <> "https://" then
regLink1 = ChkString(Request.Form("LINK1"),"url")
else
regLink1 = " "
end if
if Trim(Request.Form("LINK2")) <> "" and lcase(trim(Request.Form("LINK2"))) <> "http://" and Trim(lcase(Request.Form("LINK2"))) <> "https://" then
regLink2 = ChkString(Request.Form("LINK2"),"url")
else
regLink2 = " "
end if
if Trim(Request.Form("PHOTO_URL")) <> "" and lcase(trim(Request.Form("PHOTO_URL"))) <> "http://" and Trim(lcase(Request.Form("PHOTO_URL"))) <> "https://" then
regPhoto_URL = ChkString(Request.Form("Photo_URL"),"url")
else
regPhoto_URL = " "
end if
'## Forum_SQL
strSql = "UPDATE " & strMemberTablePrefix & "MEMBERS "
' ####################### Email Password Mod ############################
if lcase(Request.Form("Email")) <> lcase(Request.Form("Email2")) and lcase(strEmail) = "1" then
strSql = strSql & " SET M_PASSWORD = '" & ChkString(strPassword,"") & "', "
else
strSql = strSql & " SET M_PASSWORD = '" & ChkString(Request.Form("Password"),"") & "', "
end if
' #######################################################################
strSql = strSql & " M_COUNTRY = '" & ChkString(Request.Form("Country"),"") & "', "
if strICQ = "1" then
strSql = strSql & " M_ICQ = '" & ChkString(Request.Form("ICQ"),"") & "', "
end if
if strYAHOO = "1" then
strSql = strSql & " M_YAHOO = '" & ChkString(Request.Form("YAHOO"),"") & "', "
end if
if strAIM = "1" then
strSql = strSql & " M_AIM = '" & ChkString(Request.Form("AIM"),"") & "', "
end if
if strHOMEPAGE = "1" then
strSql = strSql & " M_Homepage = '" & ChkString(Trim(regHomepage),"") & "', "
end if
strSql = strSql & " M_SIG = '" & ChkString(Request.Form("Sig"),"message") & "', "
strSql = strSql & " M_EMAIL = '" & ChkString(Request.Form("Email"),"") & "' "
if strfullName = "1" then
strSql = strSql & ", M_FIRSTNAME = '" & ChkString(Request.Form("FirstName"),"") & "'"
strSql = strSql & ", M_LASTNAME = '" & ChkString(Request.Form("LastName"),"") & "'"
end if
if strCity = "1" then
strsql = strsql & ", M_CITY = '" & ChkString(Request.Form("City"),"") & "'"
end if
if strState = "1" then
strsql = strsql & ", M_STATE = '" & ChkString(Request.Form("State"),"") & "'"
end if
'strsql = strsql & ", M_HIDE_EMAIL = '" & ChkString(Request.Form("HideMail"),"") & "'"
if strPicture = "1" then
strsql = strsql & ", M_PHOTO_URL = '" & ChkString(Request.Form("Photo_URL"),"") & "'"
end if
if strFavLinks = "1" then
strsql = strsql & ", M_LINK1 = '" & ChkString(Request.Form("LINK1"),"") & "'"
strSql = strSql & ", M_LINK2 = '" & ChkString(Request.Form("LINK2"),"") & "'"
end if
if strAge = "1" then
strSql = strsql & ", M_AGE = '" & ChkString(Request.Form("Age"),"") & "'"
end if
if strMarStatus = "1" then
strSql = strSql & ", M_MARSTATUS = '" & ChkString(Request.Form("MarStatus"),"") & "'"
end if
if strSex = "1" then
strSql = strsql & ", M_SEX = '" & ChkString(Request.Form("Sex"),"") & "'"
end if
if strOccupation = "1" then
strSql = strSql & ", M_OCCUPATION = '" & ChkString(Request.Form("Occupation"),"") & "'"
end if
if strBio = "1" then
strSql = strSql & ", M_BIO = '" & ChkString(Request.Form("Bio"),"message") & "'"
end if
if strHobbies = "1" then
strSql = strSql & ", M_HOBBIES = '" & ChkString(Request.Form("Hobbies"),"message") & "'"
end if
if strLNews = "1" then
strsql = strsql & ", M_LNEWS = '" & ChkString(Request.Form("LNews"),"message") & "'"
end if
if strQuote = "1" then
strSql = strSql & ", M_QUOTE = '" & ChkString(Request.Form("Quote"),"message") & "'"
end if
strSql = strSql & " WHERE M_NAME = '" & Request.Form("Name") & "' "
if strAuthType = "db" then
strSql = strSql & " AND M_PASSWORD = '" & Request.Form("Password-d") & "'"
end IF
my_Conn.Execute(strSql)
regHomepage = ""
%>
Profilo Aggiornato con successo!.
<% ' #################### Email Password Mod ###########################
if lcase(Request.Form("Email")) <> lcase(Request.Form("Email2")) and lcase(strEmail) = "1" then
if (strUseExtendedProfile) then
%>
L'indirizzo Email e statto modificato con successo, controllate nella vostra Email vi è stata spedita una nuova password
L'indirizzo Email e statto modificato con successo, controllate nella vostra Email vi è stata spedita una nuova password.
<%
end if
else
' #############################################################
if (strUseExtendedProfile) then
%>
0 then Response.Write("default.asp") else Response.Write(Request.Form("refer")) end if %>">
<% end if
end if
case "ModifyIt"
mLev = cint(ChkUser2(STRdbntUserName, Request.Form("Pass")))
if mLev > 0 then '## is Member
if mLev = 4 then '## is Admin
Err_Msg = ""
if Request.Form("Name") = "" then
Err_Msg = Err_Msg & "
Dovete sitemare l'user name
"
end if
if (Instr(Request.Form("Name"), ">") > 0 ) or (Instr(Request.Form("Name"), "<") > 0) then
Err_Msg = Err_Msg & "
> and < caratteri non validi, prego riprova
"
end if
'## Forum_SQL
strSql = "SELECT M_NAME FROM " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " WHERE M_NAME = '" & Trim(Request.Form("Name")) &"' "
strSql = strSql & " AND MEMBER_ID <> " & Trim(Request.Form("Member_ID")) &" "
set rs = my_Conn.Execute (strSql)
if rs.BOF and rs.EOF then
'## Do Nothing - proceed
else
Err_Msg = Err_Msg & "
UserName già in uso, riprova con un'altra
"
end if
rs.close
set rs = nothing
if strAuthType = "db" then
if Request.Form("Password") = "" then
Err_Msg = Err_Msg & "
Dovete sistemare la Password
"
end if
if Len(Request.Form("Password")) > 25 then
Err_Msg = Err_Msg & "
La Password non può essere più lunga di 25 caratteri
"
end if
'if Request.Form("Password") <> Request.Form("Password2") then
' Err_Msg = Err_Msg & "
Le password non combaciano.
"
'end if
end if
if Request.Form("Email") = "" then
Err_Msg = Err_Msg & "
Devi sistemare l'indirizzo Email
"
end if
if EmailField(Request.Form("Email")) = 0 then
Err_Msg = Err_Msg & "
Inserisci un indirizzo Email valido!
"
end if
if (lcase(left(Request.Form("Homepage"), 7)) <> "http://") and (lcase(left(Request.Form("Homepage"), 8)) <> "https://") and (Request.Form("Homepage") <> "") then
Err_Msg = Err_Msg & "
L'indirizzo URL deve contenere http:// or https://
"
end if
' ########################## Email Password Mod ##########################
if strUniqueEmail = "1" then
if lcase(Request.Form("Email")) <> lcase(Request.Form("Email2")) then
'## Forum_SQL
strSql = "SELECT M_EMAIL FROM " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " WHERE M_EMAIL = '" & Trim(Request.Form("Email")) &"'"
set rs = my_Conn.Execute (strSql)
if rs.BOF and rs.EOF then
'## Do Nothing - proceed
Else
Err_Msg = Err_Msg & "
L'Email scelta e già in uso, Riprova con un altra
"
end if
rs.close
set rs = nothing
if lcase(strEmail) = "1" then
strPassword = emailPassword("yes")
end if
end if
else
if lcase(Request.Form("Email")) <> lcase(Request.Form("Email2")) and lcase(strEmail) = "1" then
strPassword = emailPassword("yes")
end if
end if
' ##############################################################################
if Len(Request.Form("Sig")) > 255 then
Err_Msg = Err_Msg & "
La firma non può contenere più di 255 caratteri! "
Err_Msg = Err_Msg & "adesso contiene " & Len(Request.Form("Sig")) & " troppi caratteri.
"
end if
if Err_Msg = "" then '## L'aggiornamento del profilo e Ok
if Trim(Request.Form("Homepage")) <> "" and lcase(trim(Request.Form("Homepage"))) <> "http://" and Trim(lcase(Request.Form("Homepage"))) <> "https://" then
regHomepage = ChkString(Request.Form("Homepage"),"url")
else
regHomepage = " "
end if
if Trim(Request.Form("LINK1")) <> "" and lcase(trim(Request.Form("LINK1"))) <> "http://" and Trim(lcase(Request.Form("LINK1"))) <> "https://" then
regLink1 = ChkString(Request.Form("LINK1"),"url")
else
regLink1 = " "
end if
if Trim(Request.Form("LINK2")) <> "" and lcase(trim(Request.Form("LINK2"))) <> "http://" and Trim(lcase(Request.Form("LINK2"))) <> "https://" then
regLink2 = ChkString(Request.Form("LINK2"),"url")
else
regLink2 = " "
end if
if Trim(Request.Form("PHOTO_URL")) <> "" and lcase(trim(Request.Form("PHOTO_URL"))) <> "http://" and Trim(lcase(Request.Form("PHOTO_URL"))) <> "https://" then
regPhoto_URL = ChkString(Request.Form("Photo_URL"),"url")
else
regPhoto_URL = " "
end if
'## Forum_SQL
strSql = "UPDATE " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " SET M_NAME = '" & ChkString(Request.Form("Name"),"name") & "'"
if strAuthType = "nt" then
strSql = strSql & ", M_USERNAME = '" & ChkString(Request.Form("Account"),"") & "'"
else
if strAuthType = "db" then
' ######################## Email Password Mod ############################
if lcase(Request.Form("Email")) <> lcase(Request.Form("Email2")) and lcase(strEmail) = "1" then
strSql = strSql & ", M_PASSWORD = '" & ChkString(strPassword,"") & "'"
else
strSql = strSql & ", M_PASSWORD = '" & ChkString(Request.Form("Password"),"") & "'"
end if
' #########################################################################
end if
end if
strSql = strSql & ", M_EMAIL = '" & ChkString(Request.Form("Email"),"") & "'"
strSql = strSql & ", M_TITLE = '" & ChkString(Request.Form("Title"),"") & "'"
strSql = strSql & ", M_POSTS = " & ChkString(Request.Form("Posts"),"") & " "
strSql = strSql & ", M_COUNTRY = '" & ChkString(Request.Form("Country"),"") & "'"
if strICQ = "1" then
strSql = strSql & ", M_ICQ = '" & ChkString(Request.Form("ICQ"),"") & "'"
end if
if strYAHOO = "1" then
strSql = strSql & ", M_YAHOO = '" & ChkString(Request.Form("YAHOO"),"") & "'"
end if
if strAIM = "1" then
strSql = strSql & ", M_AIM = '" & ChkString(Request.Form("AIM"),"name") & "'"
end if
if strHOMEPAGE = "1" then
strSql = strSql & ", M_HOMEPAGE = '" & ChkString(Request.Form("Homepage"),"" ) & "'"
end if
strSql = strSql & ", M_SIG = '" & ChkString(Request.Form("Sig"),"message") & "'"
strSql = strSql & ", M_LEVEL = " & ChkString(Request.Form("Level"),"")
if strfullName = "1" then
strSql = strSql & ", M_FIRSTNAME = '" & ChkString(Request.Form("FirstName"),"") & "'"
strSql = strSql & ", M_LASTNAME = '" & ChkString(Request.Form("LastName"),"") & "'"
end if
if strCity = "1" then
strsql = strsql & ", M_CITY = '" & ChkString(Request.Form("City"),"") & "'"
end if
if strState = "1" then
strsql = strsql & ", M_STATE = '" & ChkString(Request.Form("State"),"") & "'"
end if
'strsql = strsql & ", M_HIDE_EMAIL = '" & ChkString(Request.Form("HideMail"),"") & "'"
if strPicture = "1" then
strsql = strsql & ", M_PHOTO_URL = '" & ChkString(Request.Form("Photo_URL"),"") & "'"
end if
if strFavLinks = "1" then
strsql = strsql & ", M_LINK1 = '" & ChkString(Request.Form("LINK1"),"") & "'"
strSql = strSql & ", M_LINK2 = '" & ChkString(Request.Form("LINK2"),"") & "'"
end if
if strAge = "1" then
strSql = strsql & ", M_AGE = '" & ChkString(Request.Form("Age"),"") & "'"
end if
if strMarStauts = "1" then
strSql = strSql & ", M_MARSTATUS = '" & ChkString(Request.Form("MarStatus"),"") & "'"
end if
if strSex = "1" then
strSql = strsql & ", M_SEX = '" & ChkString(Request.Form("Sex"),"") & "'"
end if
if strOccupation = "1" then
strSql = strSql & ", M_OCCUPATION = '" & ChkString(Request.Form("Occupation"),"") & "'"
end if
if strBio = "1" then
strSql = strSql & ", M_BIO = '" & ChkString(Request.Form("Bio"),"message") & "'"
end if
if strHobbies = "1" then
strSql = strSql & ", M_HOBBIES = '" & ChkString(Request.Form("Hobbies"),"message") & "'"
end if
if strLNews = "1" then
strsql = strsql & ", M_LNEWS = '" & ChkString(Request.Form("LNews"),"message") & "'"
end if
if strQuote = "1" then
strSql = strSql & ", M_QUOTE = '" & ChkString(Request.Form("Quote"),"message") & "'"
end if
strSql = strSql & " WHERE MEMBER_ID = " & Request.Form("MEMBER_ID")
my_Conn.Execute(strSql)
if ChkString(Request.Form("Level"),"") = "1" then
'## Forum_SQL - Remove the member from the moderator table
strSql = "DELETE FROM " & strTablePrefix & "MODERATOR "
strSql = strSql & " WHERE " & strTablePrefix & "MODERATOR.MEMBER_ID = " & Request.Form("MEMBER_ID")
my_Conn.Execute (strSql)
end if
%>
Profilo Aggiornato con Successo!
<%' #################### Email Password Mod ###########################
if lcase(Request.Form("Email")) <> lcase(Request.Form("Email2")) and lcase(strEmail) = "1" then
if (strUseExtendedProfile) then
%>
L'indirizzo Email e stato modificato con successo, controllate nella vosta posta, vi è stata spedita una nuova Password!
L'indirizzo Email e stato modificato con successo, controllate nella vosta posta, vi è stata spedita una nuova Password!
<%
end if
else
' #######################################################################
if (strUseExtendedProfile) then
%>
0 then Response.Write("default.asp") else Response.Write(Request.Form("refer")) end if %>">
<% end if %>
<% end if
else
if rs2("T_REPLIES") >= intHotTopicNum then%>
<% else%>
<% end if
end if
else
if rs2("T_LAST_POST") > Session(strCookieURL & "last_here_date") then %>
<% else %>
<% end if
end if %>