<%@ Language="vbscript"%> EuSei.com - Cartoons virtuais
   

     
<%If Len(Trim(Application("QuantosAgora"))) = 1 Then%> <%=Application("QuantosAgora")%> visitante On-Line. <%Else%> <%=Application("QuantosAgora")%> visitantes On-Line. <%End If%> <% dim meses(12) meses(1)="Janeiro" meses(2)="Fevereiro" meses(3)="Março" meses(4)="Abril" meses(5)="Maio" meses(6)="Junho" meses(7)="Julho" meses(8)="Agosto" meses(9)="Setembro" meses(10)="Outubro" meses(11)="Novembro" meses(12)="dezembro" dim semana(7) semana(1) ="Domingo" semana(2) ="2ª Feira" semana(3) ="3ª Feira" semana(4) ="4ª Feira" semana(5) ="5ª Feira" semana(6) ="6ª Feira" semana(7) ="Sábado" sem = weekday(date) dia = day(date) mes = month(date) ano = year(date) function diadomes(d) nc = len(dia) if nc < 2 then diadomes = 0&dia else diadomes = dia end if end function data = semana(sem)&", "&diadomes(dia)&" de "&meses(mes)&" de "&ano %>  <%=data%>
Serviços

 ● Anedotas e humor

 ● Astrologia e horóscopos

 ● Empregos em Portugal

 ● E-mail gratis

 ● Forum Miminhos   Novo

 ● Miminhos   Novo

 ● Paginas pessoais grátis

 ● Pesquisa Nacional

 ● Pesquisa Mundial

 
On Line

 ● Jornais

 ● Cartoons virtuais

 ● Encontros

 ● Empregos no Brasil

 ● Empregos em Portugal

 ● Jogos

 ● Postais virtuais

 ● Radios on line

 ● Super chat

 

<% 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%>
<% msq1 = "SELECT * FROM [Postcard]" Set RS=Conn.Execute(msq1) Do While Not RS.EOF If Request.QueryString("record") = RS("imageName") then %>
">
<% End If RS.MoveNext Loop RS.Close 'Conn.Close Set RS = Nothing %> <% End If%>

" border="0" alt="">
  
 
O seu nome:

O seu email:

(depois ira receber a notificacao neste email)
 
Nome do destinatario:

 
Email do destinatario:

Titulo da mensagem:

 
Escreva a sua mensagem:

Assinatura:

Pagina Principal | Registar Novo Cartoon | Ver Novidades


EuSei.com Rede de Banners

Para algum problema contactar: webmaster@eusei.com
       
EuSei.com All rights reserved.© 1999 - 2007