 |
Seleziona una categoria dal menù e spedisci anche tu una cartolina ad un tuo amico |
 |
|
<%
connetti objConnCartoline
%>
<%
strSqlCartoline="select distinct categoria, count(*) as numero from Cartoline group by categoria order by categoria"
apriRs rsCartoline,objConnCartoline,strSqlCartoline
%>
<%
if not rsCartoline.eof then
%>
<%
while not rsCartoline.eof
if rsCartoline("numero")<>0 then
%>
| |
<%
end if
rsCartoline.moveNext
wend
%>
<%
end if
rsCartoline.close
%>
<%
'pagina ricezione cartolina
retro=false
if request("lato")="retro" then retro=true
if request("azione")="ricevi_cartolina" and not retro then
codicededica=request("pass_utente")
if codicededica="" then codicededica=Request.Form ("codice_dedica")
strSqlCartoline="select c.cartolina as immagine ,d.nomedestinatario from dediche d ,cartoline c where iddedica='" & codicededica & "' and d.cartolina=c.idcartolina"
apriRs rsCartoline,objConnCartoline,strSqlCartoline
%>
<%
if not rsCartoline.eof then
%>
<%=rsCartoline("nomedestinatario")%> c'è una cartolina per te!!!
|
 ">
|
|
<%
else
%>
Valore codice errato
riprovare... |
<%
end if
rsCartoline.close
elseif request("azione")="ricevi_cartolina" and retro then
codicededica=request("pass_utente")
strSqlCartoline="select d.nomedestinatario,d.nomemittente,d.emailmittente,d.testo,d.datainvio, c.cartolina as immagine, c.descrizione from dediche d ,cartoline c where iddedica='" & codicededica & "' and d.cartolina=c.idcartolina"
apriRs rsCartoline,objConnCartoline,strSqlCartoline
%>
<%
if not rsCartoline.eof then
%>
<%=rsCartoline("nomedestinatario")%> c'è una cartolina per te!!!
|
| <%=rsCartoline("descrizione")%> |
| <%=rsCartoline("testo")%>
|
|
|
|
<%
else
%>
Valore codice errato
riprovare... |
<%
end if
rsCartoline.close
'pagina invio
elseif Request.Form("azione")="ok_cartolina" then
strSqlCartoline="insert into sequenza (campo) values ('"& mid(Request.Form ("nome_mittente"),1,2) & mid(Time(),1,2) & mid(Request.Form ("nome_destinatario"),1,2) & mid(Time(),7,2) & "')"
objConnCartoline.execute strSqlCartoline
strSqlCartoline="select top 1 * from sequenza order by iddedica desc"
apriRs rsCartoline,objConnCartoline,strSqlCartoline
if not rsCartoline.eof then
codicededica=rsCartoline("iddedica") & rsCartoline("campo")
end if
rsCartoline.close
strSqlCartoline="insert into dediche (iddedica,nomemittente,emailmittente,nomedestinatario,emaildestinatario,testo,cartolina,dataInvio) " & _
"values ('" & codicededica & "', " & _
"'" & Request.Form("nome_mittente") & "'," & _
"'" & Request.Form("email_mittente") & "'," & _
"'" & Request.Form("nome_destinatario") & "'," & _
"'" & Request.Form("email_destinatario") & "'," & _
"'" & Request.Form("messaggio") & "'," & Request.Form("idcartolina") & "," & _
"'" & FormatDateTime(Request.Form("data_cartolina"),1) & "')"
objConnCartoline.execute strSqlCartoline
on error resume next
dim TextBody
TextBody="Ti e' stata inviata una cartolina da parte di " & Request.form("nome_mittente") &", per vederla clicca qui: "
TextBody=TextBody & " " & urlroot &"cartoline.asp?pass_utente=" & codicededica & "&azione=ricevi_cartolina"
TextBody=TextBody & chr(13) & chr(10) & "Oppure utilizza questa password: " & codiceDedica & " all'indirizzo: " & urlroot & "cartoline.asp"
Dim objMail
Set objMail = Server.CreateObject("CDO.Message")
objMail.From = Request.Form("nome_mittente") & "<" & Request.Form("email_mittente") & ">"
objMail.To = Request.Form("email_destinatario")
objMail.Subject = Request.Form("nome_mittente") & "ti ha inviato una cartolina"
objMail.TextBody = TextBody
objMail.Fields("urn:schemas:httpmail:importance").Value = 0
objMail.Fields.Update()
objMail.Send()
if Err.number <> 0 then
%>
Invio non riuscito: <%=Err.description%> |
<%
else
%>
Cartolina inviata con successo!
invia tante cartoline ai tuoi amici...
|
<%
end if
set objMail = Nothing
'pagina preview
elseif Request.Form("azione")="nuova_cartolina" then
%>
Questa e' l'anteprima della cartolina che hai creato. Se non sei soddisfatto torna indietro per fare delle modifiche.
|
 ">
|
<%=replace(Request.Form("messaggio"),chr(13)&chr(10),"
")%>
|
|
|
<%
'inizio home page
elseif idCartolina="" and idCategoria="" then
%>
<%
strSqlCartoline="select top 9 c.idcartolina,c.cartolina, count(*) as numero from dediche d,Cartoline c where d.cartolina=c.idcartolina group by c.idcartolina,c.cartolina order by count(*) desc"
apriRs rsCartoline,objConnCartoline,strSqlCartoline
%>
<%
if not rsCartoline.eof then
%>
<%
for i= 1 to 9
if i=1 or i=4 or i=7 then Response.Write ""
if not rsCartoline.eof then
if rsCartoline("numero")<>0 then
%> &steps=1&imm=<%=rsCartoline("cartolina")%>"> ">
spedita <%=rsCartoline("numero")%> volte |
<% end if
rsCartoline.moveNext
else
%> |
<% end if
if i=3 or i=6 or i=9 then
Response.Write " "
if rsCartoline.eof then exit for
end if
next
%>
<%
else
%>
Scegli una categoria ed invia anche tu una cartolina ad un amico... |
<%
end if
rsCartoline.close
%>
|
<%
'inizio pagina della categoria
elseif idCartolina="" AND IDCategoria<>"" then
%>
Scegli la cartolina che più ti piace
|
<%
page = Request("page")
pageIn = Request("pageIn")
if page="" then page=1
if pageIn="" then pageIn=1
strSqlCartoline="select * from Cartoline c where c.categoria='" & idcategoria & "' order by cartolina"
rsCartoline.open strSqlCartoline, objConnCartoline,1
if not rsCartoline.eof then
If (rsCartoline.Eof=false and rsCartoline.Bof=false) then
rsCartoline.PageSize = RecordsPerPagina
rsCartoline.AbsolutePage = page
end if
if rsCartoline.PageCount<>1 then %>
<% end if %>
<%
For i=1 to RecordsPerPagina
if i=1 or i=4 or i= 7 then
%>
<%
end if
if Not rsCartoline.EOF then
%> &steps=1&imm=<%=rsCartoline("cartolina")%>">">
<%=rsCartoline("descrizione")%> |
<% rsCartoline.moveNext
else
%> |
<% end if
if i=3 or i=6 or i= 9 then
%>
<%
end if
next
%>
<% if rsCartoline.PageCount<>1 then %>
<%
end if
rsCartoline.close
end if
'fine pagina della categoria
'inizio pagina descrittiva del Cartolina
elseif idCartolina<>"" AND IDCategoria="" and steps="1" then
imm=request("imm")
%>
|
Prec 10
<%
Response.Write ""
end if
if ancora THEN
fine=fine+1
Response.Write ""
%>
Succ 10
<%
Response.Write ""
END IF
%>
