<%
'#################################################################################
' # # 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
' # #
'#################################################################################
%>
<%
set rs = Server.CreateObject("ADODB.RecordSet")
'## Forum_SQL
strSql = "SELECT * FROM " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " WHERE MEMBER_ID = " & Request.QueryString("ID")
rs = my_Conn.Execute (strSql)
%>
Manda un Email
<%
if lcase(strEmail) = "1" then
Err_Msg = ""
if Request.Form("YName") = "" then
Err_Msg = Err_Msg & "Devi inserire il tuo Username!"
end if
if Request.Form("YEmail") = "" then
Err_Msg = Err_Msg & "Devi inserire il tuo indirizzo Email!"
else
if EmailField(Request.Form("YEmail")) = 0 then
Err_Msg = Err_Msg & "Devi inserire una indirizzo Email valido!"
end if
end if
if Request.Form("Name") = "" then
Err_Msg = Err_Msg & "Devi inserire il tuo nome!"
end if
if Request.Form("Email") = "" then
Err_Msg = Err_Msg & "Inserisci il messaggio per il destinatario!"
else
if EmailField(Request.Form("Email")) = 0 then
Err_Msg = Err_Msg & "Devi inserire un indirizzo Email valido per il destinatario!"
end if
end if
if Request.Form("Msg") = "" then
Err_Msg = Err_Msg & "Devi inserire il Messaggio!"
end if
'## Emails Message to the Author of this Reply.
'## This needs to be Edited to use your own email component
'## if you don't have one, try the w3Jmail component from www.dimac.net it's free!
if Request.QueryString("mode") = "DoIt" then
if (Err_Msg = "") then
strRecipientsName = Request.Form("Name")
strRecipients = Request.Form("Email")
strFrom = Request.Form("YEmail")
strFromName = Request.Form("YName")
strSubject = "Messaggio dal " & strForumTitle & " inviato da " & Request.Form("YName")
strMessage = "Ciao " & Request.Form("Name") & vbCrLf & vbCrLf
strMessage = strMessage & "Hai ricevuto questo messaggio da : " & Request.Form("YName") & " (" & Request.Form("YEmail") & ") " & vbCrLf & vbCrLf
strMessage = strMessage & "Tramite questo Forum: " & strForumURL & vbCrLf & vbCrLf
strMessage = strMessage & Request.Form("Msg") & vbCrLf & vbCrLf
strMessage = strMessage & ""
strMessage = strMessage & "Il forum di Valvitalba non ha alcun tipo di responsabilità per il contenuto di questo messaggio."
strMessage = strMessage & "Grazie per aver usato i servizi gratuiti di Valvitalba"
if strFrom <> "" then
strSender = strFrom
end if
%>
L'Email
e stata spedita
<%
else
%>
Si
è verificato un problema alla tua Email
Torna
ad inserire i dati
Chiudi
Finestra
<%
Response.End
end if
else
Err_Msg = ""
'CHECK EMAIL
IF rs("M_HIDE_EMAIL") = 0 THEN
if rs("M_EMAIL") <> " " then
strSql = "SELECT M_NAME, M_USERNAME, M_EMAIL "
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS"
strSql = strSql & " WHERE "&Strdbntsqlname&" = '" & STRdbntUserName & "'"
set rs2 = my_conn.Execute (strSql)
YName = ""
YEmail = ""
if (rs2.EOF or rs2.BOF) then
if strLogonForMail <> "0" then
Err_Msg = Err_Msg & "Per inviare un messaggio dovete essere nel Forum"
%>
<% If InStr(Request.ServerVariables("HTTP_REFERER"), "pop_profile.asp") <> 0 then %>
Ritorna
al Profilo
<% end if %>
Chiudi
Finestra
<%
Response.End
end if
else
YName = Trim("" & rs2("M_NAME"))
YEmail = Trim("" & rs2("M_EMAIL"))
end if
rs2.close
set rs2 = nothing
%>
<% else %>
Nessun indirizzo Email e disponibile per questo utente.
<% end if %>
<% 'CHECK MAIL
ELSE
response.write "Ci dispiace ma il membro non ha reso pubblica la sua Email"
end if %>
<% end if %>
<% else %>
<% IF rs("M_HIDE_EMAIL") <> 1 THEN %>
Premi qui per inviare l'Email
<% ELSE
response.write "L'indirizzo Email di questo membro non è stata resa pubblica"
END IF %>
<% end if %>
<% If InStr(Request.ServerVariables("HTTP_REFERER"), "pop_profile.asp") <> 0 then %>
Ritorna
al Profilo
<% end if %>
<% set rs = nothing %>