Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Meloque Souza

Problemas no envio de Form

Por , em ASP Clássico

Recommended Posts

Meloque Souza    0

Meloque Souza
Postado

E ai galera...

sou novo no ramo e peguei um site pra faze atualização, e o form dele ta dando erro na hora de enviar.

 

aparece o seguinte:

********************************************

Microsoft VBScript runtime error '800a0009'

 

Subscript out of range: 'cint(...)'

 

/site2005/SendMail.asp, line 33

********************************************

o codigo da pagina SendMail.asp é o seguinte:

<%
'-------------------------------'
' SendMail Versão 2.0			'
' Releases:						'
'	- Ordenamento dos Campos	'
'	- From Dinâmico				'
'-------------------------------'

' --- Parâmetros necessários ---
'	- hidTo 		: Recipiente
'	- hidFrom 		: Remetente
'	- hidSubject 	: Assunto

' --- Parâmetros opcionais ---
'	- hidCc 		: Cópia Carbono
'	- hidBcc 		: Cópia Carbono Oculta
'	- hidResp 		: URL de Resposta	
'	- hidJanela		: com value=1 se for popup

        
' Busca Dimensão da Matriz a ser Ordenada
wQtCampos = 0
for each var in Request.Form
  if left(var,3) <> "hid" and left(var,3) <> "cmd" then	
    wQtCampos = wQtCampos + 1
  end if
next
'Popula Matriz Ordenadamente
ReDim mCampos(wQtCampos)
for each var in Request.Form
  if left(var,3) <> "hid" and left(var,3) <> "cmd" then	
    wIndice = mid(var,4,2)
    mCampos(cint(wIndice)) = var
  end if
next

msg = 		"============================================================" & chr(13)
for i=1 to Ubound(mCampos)
    var = mCampos(i)
    wQtTabs = cint((20 - len(var))/3)
    if len(var) < 12 then 
        wTab = chr(9) & chr(9) & " " 
    elseif len(var) < 19 then
        wTab = chr(9) & " " 
    else
        wTab = " "
    end if
    msg = msg & right(var, len(var)-5)  & Wtab & ":  " & Request(var) & "  " &  chr(13)
next
msg = msg &	"============================================================" 
        
Set myMail = Server.CreateObject("CDONTS.NewMail")

myMail.From = request("hidfrom")
myMail.To = request("hidto")

if request("hidcc") <> "" then  myMail.Cc = request("hidcc")
if request("hidbcc") <> "" then  myMail.Bcc = request("hidbcc")

myMail.Subject = request("hidsubject")
myMail.Body = msg
myMail.Send

if request("hidresp") <> "" then
    response.redirect(request("hidresp"))
end if
%>
<html><head></head><body>
<font face=verdana,arial size=2>
<center><br><br><br><hr width='60%'><br>
<center>Email enviado com sucesso!!!<br><br>
<%if request("hidJanela") = "1" then%>
<a href='javascript:self.close();'><font size=2><b>FECHAR</b></font></a>
<%else%>
<a href='javascript:history.back();'><font size=2><b>VOLTAR</b></font></a>
<%end if%>
<br><br><hr width='60%'></center>
</body></html>

e a linha 33 é essa:

mCampos(cint(wIndice)) = var

 

 

 

deem uma ajuda ai...

 

desde ja agradeço

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Você está informando uma posição do vetor, maior do que ele.

 

Foi você quem criou o código acima?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Meloque Souza    0

Meloque Souza
Postado

Você está informando uma posição do vetor, maior do que ele.

 

Foi você quem criou o código acima?

 

 

não...as paginas ja estavam prontas, mas com muitos erros...

 

estou tentando arrumar...

 

mas nessa ai eu enrrosquei...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

o erro ali está claro

 

precisa ver que numero está usando ali pois ele está maior ou menor do que deveria

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

Subscrito fora do intervalo normalmente significa que você tentou acessar um elemento de uma matriz que foi maior do que quer o seu ubound ou inferior à sua lbound.

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito