Bom amigos, volto aqui com minha dúvida... Fui alterando o código, e ele ficou assim: correio.asp <!-- #INCLUDE FILE="inc.asp" -->
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open dsn
mySQL1 = "SELECT * from Festa where FestaID = " & request.querystring("FestaID") & ""
set rs = conn.execute(mysql1)
%>
<%
ID = request.querystring("id")
Set Myconn = Server.CreateObject("ADODB.Connection")
Myconn.Open dsn
SET MYTABLE= SERVER.CREATEOBJECT("ADODB.RECORDSET")
mySQL = "select * from Fotos WHERE ID = " & ID & ""
mytable.open mysql,myconn,3
%>
<body class="fotos-fundo" leftmargin="3" topmargin="5" marginwidth="3" marginheight="5">
<form name="form1" method="post" action="envia.asp">
<table width="400" border="0" cellspacing="0" cellpadding="2" align="center">
<tr>
<td colspan="3"><input name="foto" type="hidden" value="<%= rs.fields("Secao") %>/<%= rs.fields("Ano") %>/<%= rs.fields("Mes") %>/<%= rs.fields("Dia") %>/B/<%= mytable.fields("Foto") %>.jpg">
<img src="<%= rs.fields("Secao") %>/<%= rs.fields("Ano") %>/<%= rs.fields("Mes") %>/<%= rs.fields("Dia") %>/<%= mytable.fields("Foto") %>.jpg"></td>
</tr>
<tr>
<td width="160" align="right"><font class="normal">Seu Nome.: </font></td>
<td width="3"> </td>
<td> <input id="seunome" name="seunome" size="30"> </td>
</tr>
<tr>
<td width="160" height="24" align="right"><font class="normal">Seu E-mail.: </font></td>
<td width="3"> </td>
<td> <input id="seuemail" name="seuemail" size="30"> </td>
</tr>
<tr>
<td width="160" align="right"><font class="normal">Nome do Amigo.: </font></td>
<td width="3"> </td>
<td> <input id="amigo" name="amigo" size="30"> </td>
</tr>
<tr>
<td width="160" align="right"><font class="normal">E-Mail do Amigo.: </font></td>
<td> </td>
<td><input id="amigoemail" name="amigoemail" size="30"></td>
</tr>
<tr>
<td width="160" align="right" valign="top"><font class="normal">Comentário.: </font></td>
<td> </td>
<td><textarea name="comentario" cols="26" rows="5" id="comentario"></textarea></td>
</tr>
</table>
<p align="center"><a href="javascript: document.forms[0].submit();"><img src="mandar.gif" width="66" height="22" border="0"></a>
</form>
</body>
</html>
envia.asp<%@ LANGUAGE = "VBScript" %>
<%
foto = Request.form("foto")
seunome = Request.form("seunome")
seuemail = Request.form("seuemail")
amigo = Request.form("amigo")
amigoemail = Request.form("amigoemail")
comentario = Request.form("comentario")
Sub SendPassEmail(sComente)
sBody = sBody & "<body bgcolor=ffffff>" & chr(10) & chr(13)
sBody = sBody & "<p align=left><a href=http://www.site.com.br target=_new><img src=logomarca.gif border=0></a></p>" & chr(10) & chr(13)
sBody = sBody & "<p align=left>Oi <b>" & amigo & "</b>, beleza?</p>" & chr(10) & chr(13)
sBody = sBody & "<p align=left><b><a href=mailto:" & seuemail & ">" & seunome & "</a></b> achou essa foto, que ele gostaria que você visse:<br>" & chr(10) & chr(13)
sBody = sBody & "<img src=" & foto & "></p>" & chr(10) & chr(13)
sBody = sBody & "<p align=left>Ele(a) também deixou um comentário: <br>" & comentario & "</p>" & chr(10) & chr(13)
sBody = sBody & "<p align=left>Veja fotos legais você também! Quem sabe não se encontra por lá? Basta acessar:<br><b><a href=http://www.site.com.br target=_new>www.site.com.br</a></b></p>" & chr(10) & chr(13)
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "smtp.servidor.com.br"
Mail.From = seuemail
Mail.FromName = seunome
Mail.AddAddress = amigoemail
Mail.Subject = ""& seunome &" lhe enviou uma foto"
Mail.IsHTML = True
Mail.Body = sBody
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Erro encontrado: " & Err.Description
else
response.write "Foto Enviada."
End If
End Sub
%>
<%
If sString <> "" Then
Response.Write (sString & "Por favor clique no botão <B>Voltar (Back)</B> no seu navegador e tente novamente.</CENTER>")
Else
Call SendPassEmail(sComente)
End If
%> O erro que sempre aparece é sequencia inválida, na linha E ai, alguém pode me ajudar? Abraços!