<% On Error Resume Next 'Insert your mailserver name and port (usually 25) mailserver="LOCALHOST" 'mailserver="paralerepensar.com.br:25" %> Cartão Postal Paralerepensar <% Flag = request.form("Flag") If IsEmpty(Flag) or Flag = "" then %>

Cartão Postal
Mensagens

Escreva um título para o seu cartão



Escolha um cartão

Jonh Lennon Gonzaguinha Confúcio Clarice Lispector
Princípio do TAO Mário Quintana A Felicidade José Saramago
Amigos Paulo Coelho Princípio do TAO Richard Bach
VInicius de Moraes VInicius de Moraes Machado de Assis Gabriel García Marquez
Bertrand Piccard Gabriel García Marquez Gabriel García Marquez Gabriel García Marquez
Antoine de Saint Exuperry Paulo Coelho Fernando Pessoa Herman Hesse
 Escreva sua mensagem:  
 Nome do destinatário:">
 E-mail do destinatário">
 Seu nome:
 Seu e-mail:


Atenção: Não deixe a mensagem em branco e
certifique-se que os e-mails estejam corretos,
caso contrário o cartão não será enviado.

<% end if if flag = 1 then anafn1 = request.form("nafn1") anetfang1 = request.form("netfang1") anafn2 = request.form("nafn2") anetfang2 = request.form("netfang2") akvedja = request.form("kvedja") afsogn = request.form("fsogn") amynd = request.form("mynd") akvedja = server.HTMLencode(Request.form("kvedja")) akvedja = Replace(akvedja, vbCrLf, "
") %>
Visualizando Cartão...
<%= afsogn %>


<%= akvedja %> 		Para: <%= anafn1 %>
<%= anetfang1 %>
 

De: <%= anafn2 %>
<%= anetfang2 %>

<% End If If Flag = 2 then Randomize apass = int(rnd*99999)+1 adags = now() anafn1 = request.form("nafn1") anetfang1 = request.form("netfang1") anafn2 = request.form("nafn2") anetfang2 = request.form("netfang2") akvedja = request.form("kvedja") afsogn = request.form("fsogn") amynd = request.form("mynd") set conn = server.createobject("adodb.connection") DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " DSNtemp=dsntemp & "DBQ=" & server.mappath("kort.mdb") conn.Open DSNtemp SQLstmt = "INSERT INTO kort (pass,dags,nafn1,netfang1,nafn2,netfang2,kvedja,fsogn,mynd)" SQLstmt = SQLstmt & " VALUES (" SQLstmt = SQLstmt & "'" & apass & "'," SQLstmt = SQLstmt & "'" & adags & "'," SQLstmt = SQLstmt & "'" & anafn1 & "'," SQLstmt = SQLstmt & "'" & anetfang1 & "'," SQLstmt = SQLstmt & "'" & anafn2 & "'," SQLstmt = SQLstmt & "'" & anetfang2 & "'," SQLstmt = SQLstmt & "'" & akvedja & "'," SQLstmt = SQLstmt & "'" & afsogn & "'," SQLstmt = SQLstmt & "'" & amynd & "'" SQLstmt = SQLstmt & ")" Set RS = conn.execute(SQLstmt) If err.number>0 then response.write "VBScript error:" & "

" response.write "Number=" & err.number & "

" response.write "Explanation.=" & err.description & "

" response.write "Help Context=" & err.helpcontext & "

" response.write "Help Path=" & err.helppath & "

" response.write "Native Error=" & err.nativeerror & "

" response.write "Source=" & err.source & "

" response.write "SQLState=" & err.sqlstate & "

" end if IF conn.errors.count> 0 then response.write "Access database error" & "

" response.write SQLstmt & "

" for counter= 0 to conn.errors.count response.write "Error #" & conn.errors(counter).number & "

" response.write "Explanation. -> " & conn.errors(counter).description & "

" next Conn.Close set conn = nothing else Conn.Close set conn = nothing set conn = server.createobject("adodb.connection") DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " DSNtemp=dsntemp & "DBQ=" & server.MapPath("kort.mdb") conn.Open DSNtemp sqlstmt = "SELECT * FROM kort WHERE nafn1 = " sqlstmt = sqlstmt & "'" & anafn1 & "'" sqlstmt = sqlstmt & " AND pass = " sqlstmt = sqlstmt & apass sqlstmt = sqlstmt & " ORDER BY id DESC;" 'rs.Open sqlstmt,conn,3,3 set rs = conn.Execute(sqlstmt) id = rs("id") Conn.Close Set conn = nothing dim mailbody scriptname = Request.servervariables("script_name") scriptname = Replace(scriptname,"mensagens.asp","mensagensver.asp") scriptname = "http://" & request.servervariables("server_name") & scriptname mailbody = anafn2 & " enviou para você um cartão postal com uma mensagem muito especial." & Vbcrlf & vbcrlf mailbody = mailbody & "Para recebê-lo, clique no endereço abaixo e confira :" & vbcrlf mailbody = mailbody & ScriptName & "?id=" & id & "&pass=" & apass mailbody = mailbody & vbcrlf & vbcrlf mailbody = mailbody & "Ou visite: " & scriptname & vbcrlf mailbody = mailbody & "E entre com:" & vbcrlf mailbody = mailbody & "Número do cartão = " & id & vbcrlf mailbody = mailbody & "Password do cartão = " & apass & vbCrlf & vbcrlf mailbody = mailbody & "Escrito por - http://www.paralerepensar.com.br" blabla = "Você está recebendo um Cartão Postal de " & anafn2 'Response.Write mailbody 'set SMTP=Server.CreateObject("Jmail.SMTPMail") 'SMTP.ServerAddress= mailserver 'SMTP.Sender=anetfang2 'SMTP.AddRecipient anetfang1 'SMTP.Subject=blabla 'SMTP.Body=mailbody 'SMTP.Execute '########################### Set objMail = Server.CreateObject("SMTPsvg.Mailer") objMail.FromName = anafn2 objMail.FromAddress= anetfang2 objMail.RemoteHost = "localhost" objMail.AddRecipient anafn1, anetfang1 objMail.Subject = blabla objMail.ContentType = "text/plain" objMail.BodyText = mailbody if objMail.SendMail Then msgFinal = ""&_ "

Obrigado por utilizar os nossos serviços !!
"&_ "

Cartão postal enviado para : "& anafn1 &"

"&_ "

Remetente : "& anafn2 &"

"&_ "" else msgFinal = "

Ocorreu um erro ao processar seu cartão.
"&_ "

Favor tentar novamente

" end if %>

<%=msgFinal%>


Retornar <% end if end if %>