|
|
<%
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
If Len(Trim(Request.Form("EmailDe"))) = 0 Then
Response.Write ("O campo ""O seu email"" é obrigatorio
")
erro = 1
End If
If Len(Trim(Request.Form("EmailPara"))) = 0 Then
Response.Write ("O campo ""O email do destinatario"" é obrigatorio
")
erro = 1
End If
If Len(Trim(Request.Form("Texto"))) = 0 Then
Response.Write ("O campo ""Escreva a sua mensagem"" é obrigatorio
")
erro = 1
End If
If erro = 1 Then
Response.Write ("
Por favor volte a tras no seu ""browser"" e tente novamente
")
Else
'vai criar numero aliatorio para a mensagem
randomize
rndNumber = rnd*1000000000000
rndNumber = int(rndNumber)
mSQL = "INSERT INTO Postais("
mSQL = mSQL & "NumeroAliatorio,"
mSQL = mSQL & "De,"
mSQL = mSQL & "Para,"
mSQL = mSQL & "EmailDe,"
mSQL = mSQL & "EmailPara,"
mSQL = mSQL & "Imagem,"
mSQL = mSQL & "Titulo,"
mSQL = mSQL & "Texto,"
mSQL = mSQL & "Visto,"
mSQL = mSQL & "Assinatura)"
mSQL = mSQL & "Values("
mSQL = mSQL & "'" & rndNumber & "', "
mSQL = mSQL & "'" & Replace(Pcase(Request.Form("De")), "'", "''") & "', "
mSQL = mSQL & "'" & Replace(Pcase(Request.Form("Para")), "'", "''") & "', "
mSQL = mSQL & "'" & Request.Form("EmailDe") & "', "
mSQL = mSQL & "'" & Request.Form("EmailPara") & "', "
mSQL = mSQL & "'" & Request.Form("ImageId") & "', "
mSQL = mSQL & "'" & Replace(Request.Form("Titulo"), "'", "''") & "', "
mSQL = mSQL & "'" & Replace(Request.Form("Texto"), "'", "''") & "', "
mSQL = mSQL & "'" & "No" & "', "
mSQL = mSQL & "'" & Replace(Request.Form("Assinatura"), "'", "''") & "') "
Conn.Execute (mSQL)
Set RS = Nothing
Dim strTo, strSubject, strBody
Dim objCDOMail
If Len(Trim(request.form("De"))) = "0" then
strBody = "Alguem enviou-lhe um Cartoon - Postal! " & VbCrLf & VbCrLf & "Vá a http://www.eusei.com/cartoons/Cartoons_Ler.asp?cartoon="&rndNumber
Else
strBody = request.form("De") & " enviou-lhe um Cartoon - Postal! " & VbCrLf & VbCrLf & "Vá a http://www.eusei.com/cartoons/Cartoons_Ler.asp?cartoon="&rndNumber
End If
strBody = strBody & vbCrLf & vbCrLf
strBody = strBody & vbCrLf & vbCrLf
strBody = strBody & "Anda a procura da sua cara metade? Então experimente ver se esta aqui! http://www.eusei.com/encontros/"
strBody = strBody & vbCrLf & vbCrLf
strBody = strBody & "Se tens algum tipo de talento e gostavas de mostrar, aqui está a tua oportunidade http://www.windowoftalents.com"
strBody = strBody & vbCrLf & vbCrLf
strBody = strBody & "Não tem nada para fazer? Então jogue os nossos jogos on line em http://www.eusei.com/JogosOnLine/"
strBody = strBody & vbCrLf & vbCrLf
strBody = strBody & "Quer enviar um Cartoon divertido a um amigo? Então veja em http://www.eusei.com/Cartoons/"
strBody = strBody & vbCrLf & vbCrLf
strBody = strBody & "Quer conversar e não tem com quem? Então vá ate ao nosso chat em http://www.eusei.com/Chat/"
strBody = strBody & vbCrLf & vbCrLf
strBody = strBody & "Muito obrigado por preferir e utilizar o EuSei.com"
strBody = strBody & vbCrLf & vbCrLf
'Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
'objCDOMail.From = "Cartoons - Postais "
'objCDOMail.To = Request.Form("EmailPara")
'objCDOMail.Subject = "Um novo Cartoon - Postal do EuSei.com chegou!"
'objCDOMail.Body = strBody
'objCDOMail.Send
'Set objCDOMail = Nothing
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "Cartoons - Postais "
objEmail.ReplyTo = "eusei@eusei.com"
objEmail.To = Request.Form("EmailPara")
objEmail.Subject = "Um Postal divertido do EuSei.com chegou!"
objEmail.TextBody = strBody
With objEmail.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "webmail.eusei.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "eusei@eusei.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "total"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With
objEmail.Send
Set objEmail = Nothing
%>
O seu cartoon foi enviado com sucesso!
<%
End If
%>
<%
Else%>
| |