Problemas no formulario

[neotheone 0]

Fala pessoal, acessem esse link abaixo e tentem mandar o e-mail, vcs verão que está dando um erro no meu arquivo ASP ("formmail.asp")

 

http://www.artfilms.com.br/pop_ups/promo_tudo_em_familia.htm

 

Abaixo o código do arquivo FORMMAIL.ASP, a linha que está acusando o erro eu vou por *******

 

 

 

<%@ LANGUAGE="vb script:void(0)" onClick="self.close();return false">Close this window</a></strong></font></p>

 

<%

else

%>

<p align="center"><strong><font face="Verdana" size="2" color="#000000">Caro usuário, seu e-mail foi enviado com

sucesso.</font></strong></p>

<p align="center"><font color="#FFFFFF"><strong><font face="Verdana" size="2">Muito obrigado.</font></strong></font></p>

<p align="center"><font face="Verdana" size="2"><strong> <a href="java script:void(0)" onClick="self.close();return false">Fechar esta janela</a></strong></font></p>

 

<% End if

 

End if %>

 

</body>

</html>

 

<% '---------------------------------------------------------------------------

' Subroutines and functions.

'---------------------------------------------------------------------------

 

sub AddErrorMsg(msg)

 

dim n

 

'Add an error message to the list.

 

n = UBound(errorMsgs)

Redim Preserve errorMsgs(n + 1)

errorMsgs(n + 1) = msg

 

end sub

 

function GetHost(url)

 

dim i, s

 

GetHost = ""

 

'Strip down to host or IP address and port number, if any.

 

if Left(url, 7) = "http://" then

s = Mid(url, 8)

elseif Left(url, 8) = "https://" then

s = Mid(url, 9)

end if

i = InStr(s, "/")

if i > 1 then

s = Mid(s, 1, i - 1)

end if

 

getHost = s

 

end function

 

function IsValidEmail(email)

 

dim names, name, i, c

 

'Check for valid syntax in an email address.

 

IsValidEmail = true

names = Split(email, "@")

if UBound(names) <> 1 then

IsValidEmail = false

exit function

end if

for each name in names

if Len(name) <= 0 then

IsValidEmail = false

exit function

end if

for i = 1 to Len(name)

c = Lcase(Mid(name, i, 1))

if InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 and not IsNumeric© then

IsValidEmail = false

exit function

end if

next

if Left(name, 1) = "." or Right(name, 1) = "." then

IsValidEmail = false

exit function

end if

next

if InStr(names(1), ".") <= 0 then

IsValidEmail = false

exit function

end if

i = Len(names(1)) - InStrRev(names(1), ".")

if i <> 2 and i <> 3 then

IsValidEmail = false

exit function

end if

if InStr(email, "..") > 0 then

IsValidEmail = false

end if

 

end function

 

function FormFieldList()

 

dim str, i, name

 

'Build an array of form field names ordered as they were received.

 

str = ""

for i = 1 to Request.Form.Count

for each name in Request.Form

if Left(name, 1) <> "_" and Request.Form(name) is Request.Form(i) then

if str <> "" then

str = str & ","

end if

str = str & name

exit for

end if

next

next

FormFieldList = Split(str, ",")

 

end function

 

function SendMail()

 

dim mailObj

dim addrList

 

'Send email based on mail component. Uses global variables for parameters

'because there are so many.

 

SendMail = ""

 

'Send email (CDONTS version), doesn't support reply-to address and has

'no error checking.

 

if mailComp = "CDONTS" then

set mailObj = Server.CreateObject("CDONTS.NewMail")

mailObj.BodyFormat = 0

mailObj.MailFormat = 0

mailObj.From = fromAddr

mailObj.To = recipients

mailObj.Subject = subject

mailObj.Body = body

mailObj.Send ************************************************************

end if

 

'Send email (JMail version).

 

if mailComp = "JMail" then

set mailObj = Server.CreateObject("JMail.SMTPMail")

mailObj.Silent = true

mailObj.ServerAddress = smtpServer

mailObj.Sender = fromAddr

mailObj.ReplyTo = replyTo

mailObj.Subject = subject

addrList = Split(recipients, ",")

for each addr in addrList

mailObj.AddRecipient Trim(addr)

next

mailObj.ContentType = "text/html"

mailObj.Body = body

if not mailObj.Execute then

SendMail = "O envio falhou, cheque seus dados. Erro: " & mailObj.ErrorMessage & "."

end if

end if

 

'Send email (ASPMail version).

 

if mailComp = "ASPMail" then

set mailObj = Server.CreateObject("SMTPsvg.Mailer")

mailObj.FromAddress = fromAddr

mailObj.RemoteHost = smtpServer

mailObj.ReplyTo = replyTo

for each addr in Split(recipients, ",")

mailObj.AddRecipient "", Trim(addr)

next

mailObj.Subject = subject

mailObj.ContentType = "text/html"

mailObj.BodyText = body

if not mailObj.SendMail then

SendMail = "O envio falhou, cheque seus dados. Erro: " & mailObj.Response & "."

end if

end if

 

end function %>

[filipescoob 1]

E ai beleza...Bom dia...Bom estou no serviço agora não pude olhar muito bem... porem o q esta acontecendo é o seguinte o erro esta na linda do comando enviar o q acontece é que na hora de enviar ele da erro por que deve estar alguma variavel não declarada corretamente ou com erro em alguma linha acima porem ele identifica na hora de enviar... o mesmo problema ocorre com o command... é normal ele junta toda a inforamção na hora de executar tudo da erro...Ok da uma analizada nas suas variaveis... ok Falow até mais bom dia

Cara, primeiro qdo eu clico no botao de enviar ja da um erro na pagina. Depois, ele redireciona e da o erro q a pagina nao pode ser exibida. você nao pode simplificar isso nao?

O problema ai é no seu navegador... ok falow...