<% 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
Sol

Escreva um título para o seu cartão



Escolha um cartão



 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,"sol.asp","solver.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 '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 %>