Ir para conteúdo
Fórum Script Brasil
  • 0

Ajuda Urgente

mariofdf

Perguntado por mariofdf,

 Share

Pergunta

mariofdf

mariofdf

Postado
Postado

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:

Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 0
mariofdf

mariofdf

Postado
  • Autor
Postado

<%

'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>&nbsp;")

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á "&para&"<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")&"&paraemail="&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 %>

Link para o comentário
Compartilhar em outros sites
  • 0
mariofdf

mariofdf

Postado
  • Autor
Postado

acabei de postar todo o codigo.

htmlText = htmlText & "<a href=http://www.diitroya.com.br/SexyCard/cartao-visualizar.asp?codcartao="&RP("codcartao")&"&paraemail="&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.

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...