Problemas com document.tegElementByName

vagalmore · Setembro 26, 2008

Eae Pessoal, to com problemas com aki no meu cadastro para excluir varios arquivos ao mesmo tempo selecionados por checkbox

se alguem poder dar uma olhada ai agradeço muito

codigo onde gera a lista

<% Option Explicit %>

<!--#include file = "../funcoes/asp/fConnection.asp" -->
<!--#include file = "../funcoes/asp/fUpload.asp" -->

<%
session.LCID = 1046

'Index
Dim strNomePagina
Dim onLoad
Dim msg_enviada
Dim ary
Dim cont

'Estudos
Dim x, background, usuario, lstArquivos
Dim numPag, pagAtual, numReg, maxReg

'initPage(page)
sub initPage(page)
	if page = "index" then
		strNomePagina = "PT/Empresa Cidadã"
		msg_enviada = request.Cookies("msg_enviada")

		response.Cookies("msg_enviada") = ""
		if msg_enviada <> "" then onLoad = " onload=""java script: alert('"&msg_enviada&"');"" "

	elseif page = "estudos" then
		if session("usuario") = "" or session("idUsuario") = "" then
			response.Redirect("index.asp")
		end if

		lstArquivos = geraListaArquivos()
	end if
end sub

'geraListaArquivos()
function geraListaArquivos()
	Dim lst

	Dim paginacao

	Dim imagemArq

	'Define a paginação ---------------------------------------------------------------------------------------------------

	pagAtual = request("pagAtual")
	if len(pagAtual) = 0 or not isNumeric(pagAtual) or pagAtual < 0 then
		pagAtual = 0
	end if

	maxReg = request("maxReg")
	if len(maxReg) = 0 then maxReg = 20

	'Busca o número de produtos cadastrados
	call getNumArquivos("")
	numReg = ary(0, 0)
	numPag = cInt(numReg)/cInt(maxReg)

	'Define o número de páginas
	if inStr(cStr(numPag), ",") > 0 And cInt(numPag) < numPag then
		numPag = cInt(numPag)+1
	else
		numPag = cInt(numPag)
	end if

	call getArquivoUploadUsuario("ORDER BY a.idArquivoUpload DESC LIMIT " & maxReg*pagAtual & ", " & maxReg)

	lst = "<table border=""0"" cellpadding=""0"" cellspacing=""1"" style=""width:556px; margin-top:10px;"">" & vbCr

	if cont > -1 then
		lst = lst & "<tr style=""background:url(../imagens/estudos/bg_tr.jpg) repeat-x;"">" & vbCr & _
					"	<td   colspan=""5"">" & vbCr & _
					"	   <img style=""margin-right:10px; cursor:pointer"" src=""../imagens/estudos/marcarTodos.jpg"" border=""0"" onclick=""java script:selecionar_tudo()"" />" & vbCr & _
					"	  <img style=""margin-right:4px; cursor:pointer""  src=""../imagens/estudos/desmarcarTodos.jpg"" border=""0"" onclick=""java script:deselecionar_tudo()"" />" & vbCr & _
					"	  <img style=""cursor:pointer"" src=""../imagens/estudos/excluirTodos.jpg"" border=""0"" onclick=""java script:excluirTodos(" & ary(0, x) & ", '" & ary(3, x) & "');"" />" & vbCr & _
					"   </td>" & vbCr & _
					"</tr>" & vbCr & _
					"<tr style=""background:#0F4077;"">" & vbCr & _
					"	<td style=""color:#FFFFFF; font-weight:bold; ""> Nome do Arquivo</td>" & vbCr & _
					"	<td style=""color:#FFFFFF; font-weight:bold; text-align:center; width:25%;""> Disponibilizado</td>" & vbCr & _
					"	<td style=""color:#FFFFFF; font-weight:bold; text-align:center; width:15%;""> Tamanho</td>" & vbCr & _
					"	<td style=""color:#FFFFFF; font-weight:bold; text-align:center; width:25%;""> Data</td>" & vbCr & _
					"	<td style=""color:#FFFFFF; font-weight:bold; text-align:center; width:15%"">Opçoes</td>" & vbCr & _
					"</tr>" & vbCr

					

		for x=0 to cont
			if x mod 2 = 0 then background = "#E9EEF5" else background = "#FFF"

			if inStr(ary(3, x), ".") then
				imagemArq = right(ary(3, x), len(ary(3, x)) - inStrRev(ary(3, x), "."))
			else
				imagemArq = "default"
			end if

			lst = lst & "<tr style=""background:" & background & ";"">" & vbCr & _
						"	<td><img src=""/imagens/estudos/" & imagemArq & ".gif"" alt=""""> " & ary(3, x) & "</td>" & vbCr & _
						"   <td style=""text-align:center;""> " & ary(2, x) & "</td>" & vbCr & _
						"   <td style=""text-align:center""> " & ary(4, x) & "</td>" & vbCr & _
						"   <td style=""text-align:center;""> " & ary(5, x) & "</td>" & vbCr & _
						"   <td style=""text-align:center;"">" & vbCr & _
						"		<img src=""../imagens/estudos/iconedow.gif"" alt=""Download"" onclick=""java script:download('" & ary(3, x) & "');"" style=""cursor:pointer;"" />" & vbCr & _
						"		<img src=""../imagens/estudos/excluir.gif"" alt=""Excluir"" onclick=""java script:excluir(" & ary(0, x) & ", '" & ary(3, x) & "');"" style=""cursor:pointer;"" />" & vbCr & _
						"<input type=""checkbox"" name=""selall"" id=""selall "" & x"">" & vbCr & _
						"</tr>" & vbCr
		next

		paginacao = getPaginacao(numPag, pagAtual, numReg, maxReg)

	else
		lst = lst & "<tr><td style=""text-align:center;"">Não há registros a serem exibidos</td></tr>" & vbCr
	end if

	lst = lst & "</table>" & vbCr

	geraListaArquivos = lst & paginacao
end function

'getPaginacao(numPag, pagAtual, numReg, maxReg)
function getPaginacao(numPag, pagAtual, numReg, maxReg)
	Dim arwfirst, arwPrev, arwNext, arwLast
	Dim dsplBotoes

	if cInt(numReg) <= 20 then
		dsplBotoes = "none"
	else
		dsplBotoes = "block"
	end if

	if numPag <= 1 then
		arwPrev = "/imagens/estudos/arwPrevDsb.gif"
		arwNext = "/imagens/estudos/arwNextDsb.gif"
	elseif pagAtual+1 = 1 then
		arwPrev = "/imagens/estudos/arwPrevDsb.gif"
		arwNext = "/imagens/estudos/arwNext.gif"
	elseif pagAtual+1 = numPag then
		arwPrev = "/imagens/estudos/arwPrev.gif"
		arwNext = "/imagens/estudos/arwNextDsb.gif"
	else
		arwPrev = "/imagens/estudos/arwPrev.gif"
		arwNext = "/imagens/estudos/arwNext.gif"
	end if

	getPaginacao = 	"<table border=""0"" cellpadding=""0"" cellspacing=""0"" style=""width:100%; margin-top:10px;"">" & vbCr & _
					"	<tr>" & vbCr & _
					"		<td style=""text-align:right;"">" & vbCr & _
					"			<div style=""float:right; width:350px; display:" & dsplBotoes & ";"">" & vbCr & _
					"				<div style=""float:left;"">" & vbCr & _
					"					<label>Ir para a página:</label>" & vbCr & _
					"					<input type=""text"" id=""irPag"" name=""irPag"" value="""" style=""width:30px; text-align:center;"" maxlength=""3"" onkeypress=""java script:return submitPage(" & numPag & ", event);"">" & vbCr & _
					"					<input type=""button"" value=""Ir"" style=""padding:0;"" onclick=""java script:irParaPag(" & numPag & ");"">" & vbCr & _
					"				</div>" & vbCr & _ 
					"				<div style=""float:right;"">" & vbCr & _
					"					<div style=""float:left;"">" & vbCr & _
					"						<img src=""" & arwPrev & """ id=""arwPrev"" name=""arwPrev"" alt=""Anterior"" title=""Anterior"" style=""cursor:pointer;"" onclick=""java script:paginacao(this, '"&request("url")&"');"" />" & vbCr & _
					"					</div>" & vbCr & _
					"					<div id=""paginas"" style=""float:left; width:60px; text-align:center;"">" & vbCr & _
					"						" & pagAtual+1 & " de " & numPag & vbCr & _
					"					</div>" & vbCr & _
					"					<div style=""float:left;"">" & vbCr & _
					"						<img src=""" & arwNext & """ id=""arwNext"" name=""arwNext"" alt=""Próximo"" title=""Próximo"" style=""cursor:pointer;"" onclick=""java script:paginacao(this, '"&request("url")&"');"" />" & vbCr & _
					"					</div>" & vbCr & _
					"				</div>" & vbCr & _
					"			</div>" & vbCr & _
					"		</td>" & vbCr & _
					"		<td style=""width:35%;"">" & vbCr & _
					"			<div style=""float:right;"">" & vbCr & _
					"				<span id=""nRegistros"" style=""font-weight:bold"">" & numReg & "</span>" & vbCr & _
					"				registro(s) encontrado(s)" & vbCr & _
					"			</div>" & vbCr & _
					"		</td>" & vbCr & _
					"	</tr>" & vbCr & _
					"</table>" & vbCr
end function
%>

aki o codigo que excluir onde ta dando o erro

//excluir(idArquivo)
function excluirTodos(idArquivo, arquivo){
	var url = 'excluir.asp';

	var f = document.form;
	var chk = document.getElementByName("selall");
	
	for(i = 0; i < chk; i++){
		if(chk[i].checked = 'true'){
			if(browser == 'Microsoft Internet Explorer'){
				url += '?idArquivo='+idArquivo+'&nmArquivo='+arquivo+'&acao=excluir';
			}else{
				document.form.enctype = '';
				document.form.acao.value = 'excluir';
				document.form.idArquivo.value = idArquivo;
				document.form.nmArquivo.value = arquivo;
			}
	
			document.form.action = url;
			document.form.submit();
			}
	}
}

//excluir(idArquivo)
function excluir(idArquivo, arquivo){
	var url = 'excluir.asp';

	if(confirm('Deseja realmente excluir este registro?' + arquivo)){

		if(browser == 'Microsoft Internet Explorer'){
			url += '?idArquivo='+idArquivo+'&nmArquivo='+arquivo+'&acao=excluir';
		}else{
			document.form.enctype = '';
			document.form.acao.value = 'excluir';
			document.form.idArquivo.value = idArquivo;
			document.form.nmArquivo.value = arquivo;
		}

		document.form.action = url;
		document.form.submit();
	}
}

hargon · Setembro 26, 2008

Pela descrição do seu erro, é um erro de Javascript.

Vou mover o tópico para o Fórum de Javascript / DHTML

Movido de ASP http://forum.imasters.com.br/public/style_emoticons/default/seta.gif Javascript / DHTML

Entrar

Arquivado

Problemas com document.tegElementByName

Recommended Posts

vagalmore 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

Alteracao Tema Wordpress Profolio

Alteracao Tema Wordpress Profolio

Alteracao Tema Wordpress Profolio

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante