mariofdf
-
Total de itens
394 -
Registro em
-
Última visita
Tudo que mariofdf postou
-
<% 'declaração da variavel de memoria diretorio padrão codcartao = Request.QueryString("codcartao") codcategoria = Request.Form("codcategoria") de = Request.Form("de") deemail = Request.Form("deemail") para = Request.Form("para") paraemail = Request.Form("paraemail") mensagem = Request.Form("mensagem") foto = Request.Form("foto") 'data = Request.Form("data") data = day(date)&"/"&month(date)&"/"&year(date) hora = Request.Form("hora") IF request.form("acao") = "" then acao = Request.QueryString("acao") else acao = Request.Form("acao") end if %> <% function Verifica(valor) 'Veririca se alguns campos não foram preenchidos corretamente Response.Write("<font id=resumo>") If codcategoria = "" OR de = "" OR deemail = "" OR para = "" OR paraemail = "" OR mensagem = "" OR len(mensagem) > 250 OR foto = "" OR data = "" Then Response.Write("<img src=../bt-aviso.gif width=16 height=16 border=0> ") Response.Write("<b>Campos obrigatórios não foram preenchidos corretamente!!</b><br><br>") If codcategoria = "" then Response.Write("<li>Campo CATEGORIA é obrigatório!!<br>") end if If de = "" then Response.Write("<li>Campo DE é obrigatório!!<br>") end if If deemail = "" then Response.Write("<li>Campo SEU E-MAIL é obrigatório!!<br>") end if If para = "" then Response.Write("<li>Campo PARA é obrigatório!!<br>") end if If paraemail = "" then Response.Write("<li>Campo E-MAIL DESTINO é obrigatório!!<br>") end if If len(mensagem) > 250 then Response.Write("<li>Campo MENSAGEM deve ter no máximo 250 caracteres!!<br>") end if If mensagem = "" then Response.Write("<li>Campo MENSAGEM é obrigatório!!<br>") end if Verifica = false Response.Write("<p align=right>") Response.Write("<a href=java script:window.history.back()>Voltar</a>") else Verifica = true end if Response.Write("</\font>") end function %> <% If acao ="Enviar" then 'verifica se os campos estão preenchidos corretamente Resultado = Verifica(false) If Resultado = true then SQL = "INSERT INTO TbCartao (codcategoria, de, deemail, para, paraemail, mensagem, foto, data, hora)" SQL = SQL & "VALUES ('" & codcategoria & "','" & de & "', '" & deemail & "', '" & para & "', '" & paraemail & "', '" & mensagem & "', '" & foto & "', '" & data & "', '"& hora &"')" Set RC = Connexao.Execute(SQL) 'busca dados para enviar o cartão SQLp = "SELECT * FROM TbCartao WHERE mensagem = '"& mensagem & "' AND de = '"& de & "' AND para = '"& para & "' AND data = '"& data & "' AND hora = '"& hora &"'" Set RP = Connexao.Execute(SQLp) 'Inicia o CDONTS para envio de e-mail e cria variaveis do e-mail Set objMail = Server.CreateObject("CDONTS.NewMail") Dim objMail, htmlText 'enviando a mensagem htmlText = "<!DOCTYPE HTML PUBLIC ""-//W3D//DTD HTML 4.0 Transitional//EN"">" & chr(13) & chr(10) htmlText = htmlText & "<html>" & chr(13) & chr(10) htmlText = htmlText & "<head>" & chr(13) & chr(10) htmlText = htmlText & "<Title>diitroya.com.br - o maior e melhor site erotico gratuito</Title>" & chr(13) & chr(10) htmlText = htmlText & "</head>" & chr(13) & chr(10) htmlText = htmlText & "<body bgcolor='white'>" & chr(13) & chr(10) htmlText = htmlText & "<font size=3>" & chr(13) & chr(10) htmlText = htmlText & "Olá "¶&"<br>" & chr(13) & chr(10) htmlText = htmlText & de&" acabou de enviar um SexyCard Diitroya para você.<br>" & chr(13) & chr(10) htmlText = htmlText & "<font size=1>clique no link para abrir o cartão:</font><br>" & chr(13) & chr(10) htmlText = htmlText & "<a href=http://www.diitroya.com.br/SexyCard/cartao-visualizar.asp?codcartao="&RP("codcartao")&"¶email="&RP("paraemail")&">ver o meu cartão!!!</a><br><br>" & chr(13) & chr(10) htmlText = htmlText & "Obrigado, por participar e lembre-se:<br>" & chr(13) & chr(10) htmlText = htmlText & "<b>Diitroya - O maior e melhor site erótico do Brasil!!</b><br>" & chr(13) & chr(10) htmlText = htmlText & "atualizado diariamente !!!<br>" & chr(13) & chr(10) htmlText = htmlText & "<b><a href=http://www.diitroya.com.br>www.diitroya.com.br</a></b>" & chr(13) & chr(10) htmlText = htmlText & "</font>" & chr(13) & chr(10) htmlText = htmlText & "</body>" & chr(13) & chr(10) htmlText = htmlText & "<html>" & chr(13) & chr(10) objMail.From = Request("deemail") objMail.To = Request("paraemail") ObjMail.Subject = "Você acaba de receber um SexyCard!!" objMail.BodyFormat = 0 objMail.MailFormat = 0 objMail.Body = htmlText objMail.Send If Err <> 0 Then Response.Write "Erro encontrado: " & Err.Description else %> <font id="resumo"> <b>Seu cartão foi enviado!!</b><br> <b>Obrigado por participar!</b><br> <b>Aguarde...</b><br> <meta http-equiv="refresh" content="1; URL=index.asp"> </font> <%end if %> <% End If %>
-
Tenho um formulario em CDONT e ate semana passada estava normal , s´´ó que esta semana recebi algumas reclamações e contatei que ele havia parado de funcionar, não da nenhum erro, confirma a mensagem tudo direitinho, so que a mensagem n~~ao chega no destino... Problema no form e no arquivo não é pois não da erro, o que pode ser? Me ajudem... :blink:
-
não é bem isso que quero pessoal. Não quero buscar a promoç~~ão em minha loja, pois não tenho loja, tenho um shopping on vem o dono de uma loja e se cadastra ali, dai quando ele coloca uma promoção na loja dele o sistema de meu shopping busca esta promoção e mostra. Ajudem-me... Aguardo... :o :o :huh: :unsure: :blink: :ph34r:
-
Só mais uma coisa que me esqueci... Eu não estou criando uma loja virtual, e sim um shopping, onde tem lojas cadastradas, te varios seguimentos de produtos, o que eu quero é que quando a pagina principal for acessada , mostre a promoção do dia de 8 lojas e de forma aleatoria para cada dia.
-
Ola... Eu uso access, mas no meu banco de dados só esta cadastrado o nome daloja o endereço do banner e o endereço da url. Eu quero buscar as promoções da loja , isso vai funcionar? Por favor me explique tambem como usar o codigo pois sou novato em asp.
-
Estou construindo um shopping, e já tenho um banco de dados com as lojas cadastradas, percebo que nos shoppings a pagina principal usa um sistema que busca as promações do dia de modo aleatório de cada lofa cadastrada, e mostram de 6 em seis, gostaria de saber como fazer isso... Um sistema que busque a promoção das lojas... Agradeço... :D
-
Estou terminando um site, e gostaria de colocar um open de boas vindas. Eu gostaria de fazer um igual aquele que aparece quando entra no scriptbrasil, sem borda nem barra em cima nem barra de rolagem. se puderem me ajudar agradeço>>> :D
-
Tenho um pagina asp, e as vezes quando ela e acessada acontece o seguinte erro: ADODB.Field error '80020009' Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record. /Publicacoes/index.asp, line 0 dai eu atualizo e volta ao normal. gostaria que alguém me ajuda-se a corrigir esse erro, eu não sei mexer com asp muito bem. agradeço desde já... :)
-
acabei de postar todo o codigo. htmlText = htmlText & "<a href=http://www.diitroya.com.br/SexyCard/cartao-visualizar.asp?codcartao="&RP("codcartao")&"¶email="&RP("paraemail")&">ver o meu cartão!!!</a><br><br>" & chr(13) & chr(10) estra e a linha 90. mas este erro nâo acontece sempre, o card funciona, mas quando da o erro fica sem funcionar ate 1 hora. Agradeço se puderem me ajudar.
-
<% 'declaração da variavel de memoria diretorio padrão codcartao = Request.QueryString("codcartao") codcategoria = Request.Form("codcategoria") de = Request.Form("de") deemail = Request.Form("deemail") para = Request.Form("para") paraemail = Request.Form("paraemail") mensagem = Request.Form("mensagem") foto = Request.Form("foto") data = Request.Form("data") hora = Request.Form("hora") IF request.form("acao") = "" then acao = Request.QueryString("acao") else acao = Request.Form("acao") end if %> <% function Verifica(valor) 'Veririca se alguns campos não foram preenchidos corretamente Response.Write("<font id=resumo>") If codcategoria = "" OR de = "" OR deemail = "" OR para = "" OR paraemail = "" OR mensagem = "" OR len(mensagem) > 250 OR foto = "" OR data = "" Then Response.Write("<img src=../bt-aviso.gif width=16 height=16 border=0> ") Response.Write("<b>Campos obrigatórios não foram preenchidos corretamente!!</b><br><br>") If codcategoria = "" then Response.Write("<li>Campo CATEGORIA é obrigatório!!<br>") end if If de = "" then Response.Write("<li>Campo DE é obrigatório!!<br>") end if If deemail = "" then Response.Write("<li>Campo SEU E-MAIL é obrigatório!!<br>") end if If para = "" then Response.Write("<li>Campo PARA é obrigatório!!<br>") end if If paraemail = "" then Response.Write("<li>Campo E-MAIL DESTINO é obrigatório!!<br>") end if If len(mensagem) > 250 then Response.Write("<li>Campo MENSAGEM deve ter no máximo 250 caracteres!!<br>") end if If mensagem = "" then Response.Write("<li>Campo MENSAGEM é obrigatório!!<br>") end if Verifica = false Response.Write("<p align=right>") Response.Write("<a href=java script:window.history.back()>Voltar</a>") else Verifica = true end if Response.Write("</\font>") end function %> <% If acao ="Enviar" then 'verifica se os campos estão preenchidos corretamente Resultado = Verifica(false) If Resultado = true then SQL = "INSERT INTO TbCartao (codcategoria, de, deemail, para, paraemail, mensagem, foto, data, hora)" SQL = SQL & "VALUES ('" & codcategoria & "','" & de & "', '" & deemail & "', '" & para & "', '" & paraemail & "', '" & mensagem & "', '" & foto & "', '" & data & "', '"& hora &"')" Set RC = Connexao.Execute(SQL) 'busca dados para enviar o cartão SQLp = "SELECT * FROM TbCartao WHERE mensagem = '"& mensagem & "' AND de = '"& de & "' AND para = '"& para & "' AND data = '"& data & "' AND hora = '"& hora &"'" Set RP = Connexao.Execute(SQLp) 'Inicia o CDONTS para envio de e-mail e cria variaveis do e-mail Set objMail = Server.CreateObject("CDONTS.NewMail") Dim objMail, htmlText 'enviando a mensagem htmlText = "<!DOCTYPE HTML PUBLIC ""-//W3D//DTD HTML 4.0 Transitional//EN"">" & chr(13) & chr(10) htmlText = htmlText & "<html>" & chr(13) & chr(10) htmlText = htmlText & "<head>" & chr(13) & chr(10) htmlText = htmlText & "<Title>diitroya.com.br - o maior e melhor site erotico gratuito</Title>" & chr(13) & chr(10) htmlText = htmlText & "</head>" & chr(13) & chr(10) htmlText = htmlText & "<body bgcolor='white'>" & chr(13) & chr(10) htmlText = htmlText & "<font size=3>" & chr(13) & chr(10) htmlText = htmlText & "Olá "¶&"<br>" & chr(13) & chr(10) htmlText = htmlText & de&" acabou de enviar um SexyCard Diitroya para você.<br>" & chr(13) & chr(10) htmlText = htmlText & "<font size=1>clique no link para abrir o cartão:</font><br>" & chr(13) & chr(10) htmlText = htmlText & "<a href=http://www.diitroya.com.br/SexyCard/cartao-visualizar.asp?codcartao="&RP("codcartao")&"¶email="&RP("paraemail")&">ver o meu cartão!!!</a><br><br>" & chr(13) & chr(10) htmlText = htmlText & "Obrigado, por participar e lembre-se:<br>" & chr(13) & chr(10) htmlText = htmlText & "<b>Diitroya - O maior e melhor site erótico do Brasil!!</b><br>" & chr(13) & chr(10) htmlText = htmlText & "atualizado diariamente !!!<br>" & chr(13) & chr(10) htmlText = htmlText & "<b><a href=http://www.diitroya.com.br>www.diitroya.com.br</a></b>" & chr(13) & chr(10) htmlText = htmlText & "</font>" & chr(13) & chr(10) htmlText = htmlText & "</body>" & chr(13) & chr(10) htmlText = htmlText & "<html>" & chr(13) & chr(10) objMail.From = Request("deemail") objMail.To = Request("paraemail") ObjMail.Subject = "Você acaba de receber um SexyCard!!" objMail.BodyFormat = 0 objMail.MailFormat = 0 objMail.Body = htmlText objMail.Send ' Set Mail = Server.CreateObject("Persits.MailSender") ' Mail.Host = "omega.ldapalm.com.br" ' Mail.From = deemail 'Vindo do form - email do remetente ' Mail.FromName = de 'Vindo do form - nome do remetente ' Mail.AddAddress paraemail 'Destinatario - Nome é opcional ' Mail.AddReplyTo para 'Email para resposta ' Mail.Subject = "Você acaba de receber um SexyCard!!" ' Mail.IsHTML = True ' Mail.Body = htmlText ' On Error Resume Next ' Mail.Send If Err <> 0 Then Response.Write "Erro encontrado: " & Err.Description else %> <font id="resumo"> <b>Seu cartão foi enviado!!</b><br> <b>Obrigado por participar!</b><br> <b>Aguarde...</b><br> <meta http-equiv="refresh" content="1; URL=index.asp"> </font> <%end if %> <% End If %>
-
tenho um formulario para envio de cartao em meu site, esta acontecendo o seguinte erro com ele. error '80020009' Exception occurred. /Card/cartao-acao.asp, line 90 não acontece sempre mas quando ocorre fica cerca de 1 hora sem funcionar depois volta, e nunca avia acontecido isso antes. agradeço se puderem me ajudar. :huh: :huh: :huh:
-
:( Gostaria de saber a possibilidade de bloquear um ip, para que ele não possa acessar minha pagina, pois tem uma pessoa fazendo sacanagem com meus sites, usando scripts para causar milhares de hits por dia, se alguém tiver alguma solução eu agradeço.... Grato ... Mario Demari
-
Oi ... Ainda estou com o mesmo problema. Este código valeria ,mas , a pessoa que me sacaneou não esta mandando visitas , ela esta fazendo download da pagina, com o código <img src=> Não teria algum código para que eu revida-se isto? Agradeço desde já...
-
muito obrigado pelas informaçoes jissa... vou fazer isto..