Como comentamos anteriormente, o código faz uma dupla função, se ao capturar a variável
tema
através de
request.form("tema")
esta está vazia, mostramos um formulário para poder escolher o tema do postal, em caso contrário, mostramos todas a imagens sobre o tema escolhido.
Nas variáveis
urlfoto
e
urlminiatura
salvamos o endereço relativo dos diretórios que contém nossas imagens
CONFIRMAPOSTAL.ASP
Neste módulo comprovamos que nenhuma das variáveis recebidas pelo default.asp está vazia, se alguma estiver, emitimos uma mensagem de erro e não mostramos a pré-visualização do postal.
Utilizamos a função
comentarios=replace(request.form("comentarios"),chr(10),"<br>")
para substituir as quebras de linha de teclado por etiquetas
Defaul.asp
<html>
<head>
<title>Envio de E-Postais</title>
</head>
<body>
set rs=createobject("ADODB.Recordset")
if tema="" then
sqltxt="SELECT distinct tema from postais"
rs.open sqltxt,conna%>
<p align="left">Escolhe um tema para seu postal:</p>
<form method="POST" action="default.asp">
<p align="center"><select size="1" name="tema">
<%do while not rs.eof %>
<option><%=rs("tema")%></option>
<%rs.movenext
loop
rs.close
set rs=nothing%>
</select><input type="submit" value="Selecionar" name="B1"></p>
</form>
<p><br>
<%else
sqltxt="SELECT * from postais where tema like '%"&tema&"%' order by id"
rs.open sqltxt,conna%>
</p>
<p align="left"><font color="#0000FF">Tema:</font><font color="#00FFFF"> </font>
<%=tema%></p>
<p align="left">Escolhe uma imagem para seu postal:</p>
<form method="POST" action="confirmapostal.asp">
<table border="0" width="100%" bgcolor="#55B5F1"><tr>
<%contador=0
do while not rs.eof
contador = contador+1
if contador >3 then
contador=1%>
</tr><tr>
<%end if %>
<%if request.form("id")="" then
response.redirect "default.asp"
end if
urlfoto="images/"
urlminiatura="images/miniaturas/"%>
<html>
<head>
<title>Envio de E-Postais</title>
</head>
<body>
<div align="center">
<center>
<table border="0" width="80%" bgcolor="#D9F8FF">
<tr>
<td width="100%">
<%for each v_entrada in request.form
for indice=1 to request.form(v_entrada).count
if request.form(v_entrada)(indice) = "" then
mal=1%>
<font color="#FF00FF">El campo <%=v_entrada%> não pode estar vazio</font><br>
<%end if
next
next
if mal <> 1 then
Set Conna = Server.CreateObject("ADODB.Connection")
'nota: a cadeia de conexão deve de ir em uma só linha, aqui está cortada por design
set rs=createobject("ADODB.Recordset")
sqltxt="SELECT * from postais where id="&request.form("id")
rs.open sqltxt,conna
url=rs("url")
rs.close
set rs=nothing
%>
<h3 align="center"><font color="#FF0000">Esta é o postal que vai
enviar</font></h3>
<div align="center">
<center>
<table border="0" width="500" background="images/rayasgrises.gif">
<tr>
<td width="642" colspan="2">
<%'cambiamos los saltos de carro por <br>
comentarios=replace(request.form("comentarios"),chr(10),"<br>")
'Colocamos a primeira letra em maiúsculas
inicial=ucase(mid(request.form("comentarios"),1,1))
'Atribuímos à variável comentários o resto da cadeia
comentarios=mid(comentarios,2)
%>
<td valign="top"> <i>
<font color="#FF00FF" size="7"> <%=inicial%></font></i><%=comentarios%></td>
</tr>
<tr>
<td width="100%" colspan="2"><font color="#FF0000">De:</font>
<a href="mailto:<%=request.form("email")%>"><%=request.form("nome")%></a><br>
<font color="#FF0000">Para:</font>
<%=request.form("amigo")%> (<%=request.form("emailamigo")%>)</td>
</tr>
</table>
<p> </p>
