22 gennaio 2006 alle 15:01:30

<!-- #include virtual='/includes/includes-inc.asp' -->
<%
'************************************************************************
'Postcard by Trisorio Silvio http://www.giulin.net risorse per webmaster
'************************************************************************
sTitlePage = "Invia la tua cartolina"


If sPseudo = "" Then
Set oLangXML = Nothing
Response.Redirect GLOBAL_SITE_PATH & "denied.asp"
Response.End
End If

%>
<!-- #include virtual='/includes/toppage-inc.asp' -->
<%
createtoptable "tabella","Invia la tua cartolina"
%>
<!--#include file="common.asp"-->
<_Script>
function submitit(){
var name = document.theform.name.value
var email = document.theform.email.value
if (name==""){
alert("Inserisci la tua E-Mail!!!")
document.theform.name.focus()
return false
}

if (email.indexOf('@', 0) == -1 || email.indexOf('.', 0) == -1){
alert("indirizzo e-mail non valido!!");
document.theform.email.focus()
return false

}
}

</_Script>
<%
dim pic,action,rndNumber,conn,RS,sql
pic = request.queryString("pic")

action = request("action")
select case action
case "send"
Const fsoForWriting = 2

Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

'Open the text file
Dim objTextStream

randomize
rndNumber = rnd*1000000000000
rndNumber = int(rndNumber)
dim path
path = server.MapPath(dircartoline&rndNumber&".htm")


Set objTextStream = objFSO.OpenTextFile(path, fsoForWriting, True)



'Per una eventuale anteprima
objTextStream.WriteLine "<_html><_head><_title>CARTOLINA PER TE<_/title><_/head>"
objTextStream.WriteLine "<_body bgcolor=white>"
objTextStream.WriteLine "<table align='center' cellspacing=0 width='500' border=0 style='font-family: Verdana; color: #0000FF; font-size:12px;'>"
objTextStream.WriteLine "<tr align=center><td><img src='"&dirimmagini & request.form("ImageId") & "' width='250' height='300' border='0'></tr></td>"
objTextStream.WriteLine "<tr align='center'><td>" & request.form("mes") & "</tr></td>"
objTextStream.WriteLine "<tr align='center'><td>Saluti da " & request.form("name") & "</td></tr>"
objTextStream.WriteLine "<tr><td align=center><a href='"&httpprog&"'>Rispondi con una cartolina</a></td></tr>"
objTextStream.WriteLine "</table><_/body><_/html>"
objTextStream.Close
Set objTextStream = Nothing
Set objFSO = Nothing

' ' e-mail
' Dim objCDO
' Set objCDO = Server.CreateObject("CDONTS.NewMail")
' objCDO.To = request.form("email")
' objCDO.From = request.form("name")
' objCDO.Subject = "C'e' una cartolina per te! "
' '::::con questo body si inserisce un link per rivedere il file sul server
' objCDO.Body = request.form("name")& " ti ha mandato una cartolina da " &httpcart&rndNumber& ".htm clicca sul link per vederla"
' '::::::::

' objCDO.Send
' set objCDO = nothing
' response.write "<_Script>alert('Cartolina inviata correttamente!');location_href='index.asp'</_Script>"
' response.end


'Cdosys

'Impostiamo le nostre preferenze
Dim Destinatario, Mittente, Oggetto, Testo
Destinatario = request.form("email")
Mittente = request.form("name")
Oggetto = "C'e' una cartolina per te! "
'Testo = request.form("name")& " ti ha mandato una cartolina da " &httpcart&rndNumber& ".htm clicca sul link per vederla"

'Creiamo l'oggetto mail con CDOSYS
Dim eMail
Set eMail = CreateObject("CDO.Message")

'Definiamo i diversi attributi della nostra mail
eMail.From = Mittente
eMail.To = Destinatario
eMail.Subject = Oggetto

'Se il testo è in Html useremo HTMLBody al posto di TextBody
eMail.HTMLBody = "" & request.form("name") & "" & " ti ha mandato una cartolina da <a href=http://www.Tribu.cc>Tribu.cc</a><br><a href=" & httpcart & rndNumber & ".htm </a> " & "clicca sul link per vederla"

'Stabiliamo il livello di importanza (1 o 2)
eMail.Fields("urn:schemas:httpmail:importance").Value = 2
eMail.Fields.Update()

'Inviamo la mail!
eMail.Send()

'Eliminiamo l'oggetto...
Set eMail = Nothing
response.write "<_Script>alert('Cartolina inviata correttamente!');location_href='index.asp'</_Script>"
' response.end


end select
%>
<!--#include file="header.asp"-->

<_form name="theform" action="send.asp?action=send" method="post" onsubmit="return submitit()">

<%
set conn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
conn.open dsn
sql = "select * from postcard where ID="&pic
rs.open sql,conn%>
<input type="hidden" name="ImageId" value="<%=rs("imageName")%>">
<tr align=center><td><img src="/public/cards/CartolineImg/<%=rs("imageName")%>" border="0" alt=""></td></tr>
<tr align="center"><td>SCRIVI LA TUA E-MAIL:<br><input type=text name=name class="campo"></td></tr>
<tr align="center"><td>E-MAIL DEL DESTINATARIO:<br><input type=text name=email class="campo"></td></tr>
<tr align="center"><td>MESSAGGIO:<br><textarea name="mes" class="areatesto"></textarea></td></tr>
<tr align="center"><td><input type="submit" name="submit" value="Invia la tua cartolina" class="campo"></td></tr>
</_form>
</table>

<%call close()%>
<_/body>
<_/html>

<%
CreateBottomTable ""
%>
<!-- #include virtual='/includes/bottompage-inc.asp' -->
<!-- #include virtual='/includes/clearitall-inc.asp' -->