Clauido José

resolvi achei uma função aqui script legal pra quem quizer ver como ficou não repete de geito nenhum minha ideia era o seguinte tinha que criar um campo numa tabela para ser o numero de protocolo da retirada do estoque mas não tinha que ser digitado já tinha que vir automatico, pensei num atonumeração mas achei está função e bem legal e simples. Dim chr_Array(9) chr_array(0) = "0" chr_array(1) = "1" chr_array(2) = "2" chr_array(3) = "3" chr_array(4) = "4" chr_array(5) = "5" chr_array(6) = "6" chr_array(7) = "7" chr_array(8) = "8" chr_array(9) = "9" Randomize do while len(chave) < 5 num = chr_array(Int(9 * Rnd )) chave = chave + num loop codigo=Chave

tudo bem então vou pensar em outra alternativa porque tenho que desenvolver um sistema para um cliente que tire foto o banco vai ficar online entende por isso que pensei em asp mas pelo geito vou ter que fazer em vb. Valeu obrigado

Ola pessoal tenho que criar um sistema simples de Usuario, colocar uma opão para capturar uma imagem de webcan. Parece simples mas não sei como fazer isso

Ola pessoal to com uma duvidia, tenho um sistema feito em asp e javascript para validar, bom neste sistema criei um loop onde trago um resultado de umm recordset, e coloquei um checkbox para validar se ta checado ou não, bom ta funcionando mas tem hora que eu clico no check para selecionar algum item deste loop ele fala que não está selecionado.Estou fazendo da seguinte forma. validação do check function validachk(iQtdeVetor){ var ck=new Array(); var cks = document.getElementsByName('chkItem[]'); var atri= document.getElementsByName('codAtribuido[]') for (i = 0; i < cks.length; i++) { if (cks[i].checked != false) { if (atri[i].value=="RA"){ atribuido = true; }else{ atribuido = false; } ck = true; }else{ ck = false; } } if ( atribuido ){ alert('Algum item já foi atribuido!') return false; } if (ck){ alert("Não selecionado"); return false; } return true } o loop com o resultado do recordset <table width="100%" border="0" align="center" cellpadding="2" cellspacing="2"> <%Bg="#8AACE7"%> <tr> <td bgcolor="<%=Bg%>" width="45" align="left" class="SubTitulo">No. Os</td> <td bgcolor="<%=Bg%>" width="40" align="left" class="SubTitulo">Servi&ccedil;o</td> <td bgcolor="<%=Bg%>" width="100" align="left" class="SubTitulo">Tipo Os </td> <td bgcolor="<%=Bg%>" width="50" align="left" class="SubTitulo">Periodo</td> <td bgcolor="<%=Bg%>" width="30" align="left" class="SubTitulo">Status</td> <td bgcolor="<%=Bg%>" width="180" align="left" class="SubTitulo">Endereco</td> <td bgcolor="<%=Bg%>" width="65" align="left" class="SubTitulo">Cep</td> <td bgcolor="<%=Bg%>" width="60" align="left" class="SubTitulo">Residencia</td> <td bgcolor="<%=Bg%>" width="15" align="left" class="SubTitulo"></td> <td bgcolor="<%=Bg%>" width="15" align="left" class="SubTitulo"></td> <td bgcolor="<%=Bg%>" width="15" align="left" class="SubTitulo"></td> </tr> <% dim i i =0 vVetor = 0 if rsRota.RecordCount>0 then do while Not rsRota.EOF if rsRota("idstatus")=1 then sData=rsRota("datCompromisso") if rsRota("codServico")<>"AT" then sSql="Select * from tabDth where tabDth.NoOs="&rsRota("NoOs") if rsBusca.state=1 then rsBusca.close rsBusca.open sSql,Conexao,1,1 if rsBusca.RecordCount >0 then sIdTipoOs=rsBusca("idTipoOs") if trim(sIdTipoOs) <> "" or trim(sIdTipoOs) <> null then Sql="Select * from tabTipoOs where idTipoOs="&sIdTipoOs if rsTipoOs.state=1 then rsTipoOs.close rsTipoOs.Open Sql,Conexao,1,1 sTipoOs=rsTipoOs("Descricao") end if end if else sTipoOs="" end if if Bg="#8AACE7" then Bg="#FFFFFF" else Bg="#8AACE7" end if if rsRota("baixado")=1 then Bg="#66CCCC" sAtribuido=rsRota("Atribuido") Sql = "Select * from tabStatus where idStatus=" & cint(rsRota("idStatus")) if rsStatus.State=1 then rsStatus.Close sAtribuido=rsRota("Atribuido") Sql = "Select * from tabStatus where idStatus=" & cint(rsRota("idStatus")) if rsStatus.State=1 then rsStatus.Close rsStatus.Open Sql,Conexao,1,1 if rsStatus.RecordCount=0 then sStatus=rsStatus("Codigo") Sql = "Select * from tabCliente where idCliente=" & rsRota("idCliente") if rsCliente.state=1 then rsCliente.Close rsCliente.Open Sql,Conexao,1,1 if rsCliente.RecordCOunt then sEndereco=rsCliente("Endereco") sCep11111=rsCliente("Cep") sTipoResi=rsCliente("TipoResidencia") end if %> <tr bgcolor="<%=Bg%>" > <td width="50" align="left" class="SubTitulo" style="cursor:hand" onClick="chamaAssinantes('<%=rsRota("NoOs")%>')"><%=rsRota("NoOs")%></td> <td width="40" align="left" class="SubTitulo" ><%=rsRota("codServico")%></td> <td width="100" align="left" nowrap bgcolor="<%=Bg%>" class="SubTitulo" ><%=sTipoOs%></td> <td width="50" align="left" bgcolor="<%=Bg%>" class="SubTitulo"><%=rsRota("Periodo")%></td> <td width="30" align="left" bgcolor="<%=Bg%>" class="SubTitulo"><%=sStatus%></td> <td width="180" align="left" bgcolor="<%=Bg%>" class="SubTitulo"><%=rsRota("Endereco")%></td> <td width="65" align="left" bgcolor="<%=Bg%>" class="SubTitulo"><%=rsRota("Cep")%></td> <td width="70" align="left" bgcolor="<%=Bg%>" class="SubTitulo"><%=rsRota("TipoResidencia")%></td> <td width="15" align="left" bgcolor="<%=Bg%>" class="SubTitulo"><%=rsRota("idEmpresa")%></td> <td width="15" align="left" bgcolor="<%=Bg%>" class="SubTitulo"><%=rsRota("idTecnico")%></td> <td width="15" align="left" bgcolor="<%=Bg%>" class="SubTitulo"><input name="chkItem[]" type="checkbox" id="chkItem_<%=i%>" value="<%=rsRota("NoOs")%>" /> <input name="codAtribuido[]" type="hidden" id="codAtribuido[]" value="<%=sAtribuido%>" /></td> </tr> <% end if i = i + 1 rsRota.MoveNext loop end if %> </table>

Ola pessoal como faço par apagar o conteudo de uma divid com javascript

o que seria o md5 desculpe a minha iguinorancia

Ola pessoal estou com uma duvida tenho que criar um sistema onde toda vez que o usuario entrar gere um numero só que não pode repetir o numero randomico faz isso né? Se for eu sei criar já vi um script que faz isso. A minha duvida se o numero randomico repete?

Entendi value, desculpé a demora para fechar o tópico estou com muito trampo, ainda junta faculdade já viu value.

Ola pessoal estou com um pequena duvida, terminei a pouco um sistema web feito em asp que fiz aqui na empresa, a empresa pediou para documentalo, como sou iniciante em progrmação nunca tive que fazer isso alguém tem algum tópico ou algum documento ou site que possa me ajudar. Agradeço desde já

estou fazendo da seguinte maneira. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <title>Relatorio de Ordem de Servi&ccedil;os</title> <script> function fechar(){ if (window.confirm("Deseja sair do relatorio?")){ document.location="default.asp" } } function Imprimindo(){ if (window.confirm("Deseja imprimir este relatorio")){ window.print(); } } </script> <link href="css/estilos.css" rel="stylesheet" type="text/css"> <style type="text/css"> <!-- body { margin-left: 3px; margin-top: 3px; margin-right: 3px; margin-bottom: 3px; } --> </style></head> <body> <!--#include file="strcon.asp"--> <% call abreConexao() Server.ScriptTimeout = 999999 sEmpresa = Request("sEmpresa") sTecnico = Request("sTecnico") sServico = Request("sServico") sTipo = Request("sTipo") sData = Request("sData") dia = day(sdata) mes = month(sdata) ano = year(sdata) data = (ano&"/"&mes&"/"&dia) Sql = "Select * from tabDth where tabDth.DatCompromisso='" & Data & "'" if sServico<>"" then Sql = Sql & " and tabDth.idServico = " & sServico if sEmpresa<>"" then Sql = Sql & " and tabDth.idEmpresa = " & sEmpresa if sTecnico<>"" then Sql = Sql & " and tabDth.idTecnico = " & sTecnico if sTipo=1 then Sql = Sql & " and tabDth.idEmpresa<>0 or idTecnico<>0 " else if sTodos=2 then Sql = Sql & " and tabDth.idEmpresa=0 and idTecnico=0 " Sql =Sql & " order by tabDth.idTecnico,tabDth.idEmpresa,tabDth.idServico " if rsBusca.State = 1 then rsBusca.close rsBusca.Open Sql,conexao,1,1 if rsBusca.Eof then Response.Write("<script>") Response.Write("alert('Não foram atribuidos dados para esta empresa');") Response.Write("history.back();") Response.Write("</script>") else %> <table width="730" height="299" border="0" align="center" cellpadding="0" cellspacing="0"> <form name="form1" method="post" action=""> <tr> <td height="20" colspan="3"><table width="848" border="0" cellpadding="2" cellspacing="2"> <tr> <td height="19" colspan="3" align="right">&nbsp;</td> </tr> <tr> <td width="45%" height="24" align="right"><input name="butImprimi" type="button" id="butImprimi" value="IMPRIMIR" onClick="Imprimindo();"></td> <td width="5%" align="center">&nbsp;</td> <td width="45%"><input name="butFechar" type="button" id="butFechar" value=" FECHAR " onClick="fechar();"></td> </tr> </table></td> </tr> </form> <tr> <td colspan="9"><div id="conteudo"><table width="850" border="0" cellpadding="2" cellspacing="2"> <% i = 1 sTotalServico=0 sTotalPontos=0 idTecnico=rsBusca("idTecnico") DO while not rsBusca.eof %> <tr> <td colspan="9"><table width="850" border="0" cellpadding="2" cellspacing="2" class="Tabela"> <%if Bg="#BDD1D2" then Bg="#4682B4" else Bg="#BDD1D2" end if if i = 3 or rsBusca("idTecnico")<>idTecnico then%> <tr> <td colspan="7" bgcolor="<%=bg%>" class="SubTitulo">&nbsp;</td> </tr> <tr> <td colspan="7" bgcolor="<%=bg%>" class="SubTitulo">&nbsp;</td> </tr> <tr style="page-break-before:always;"> <td colspan="7" bgcolor="<%=bg%>" class="SubTitulo">&nbsp;</td> </tr> <% i= 0 idTecnico=rsBusca("idTecnico") elseif rsBusca("idTecnico")=idTecnico then %> <tr> <td colspan="7" bgcolor="<%=bg%>" class="SubTitulo">&nbsp;</td> </tr> <tr> <td colspan="7" bgcolor="<%=bg%>" class="SubTitulo">&nbsp;</td> </tr> <tr> <td colspan="7" bgcolor="<%=bg%>" class="SubTitulo"><h3>RELATORIO DE ORDEM DE SERVI&Ccedil;O </h3></td> </tr> <tr> <td colspan="7"><table width="100%" border="0" cellpadding="2" cellspacing="2" class="tblBoderP"> <%if Bg="#BDD1D2" then Bg="#4682B4" else Bg="#BDD1D2" end if%> <tr> <td bgcolor="<%=bg%>" class="SubTitulo"><table width="100%" border="0" cellspacing="2" cellpadding="2"> <tr> <td width="4%">TA:</td> <td width="11%"><%=rsBusca("NoTa")%></td> <td width="6%">SERVI&Ccedil;O:</td> <td width="9%"><%=rsBusca("CODSERVICO")%></td> <td width="7%">PERIODO:</td> <td width="9%"><%=rsBusca("PERIODO")%></td> <td width="16%">DATA DE SOLICITA&Ccedil;&Atilde;O:</td> <td width="10%"><%=rsBusca("datSolicitada")%></td> <td width="17%">DATA DE COMPROMISSO:</td> <td width="11%"><%=rsBusca("datCompromisso")%></td> </tr> </table></td> </tr> <% if Bg="#BDD1D2" then Bg="#4682B4" else Bg="#BDD1D2" end if if rsBusca("idEmpresa")<>0 then sSql = "Select * from tabEmpresa where Empresa=" & rsBusca("idEmpresa") if rsEmpresa.state=1 then rsEmpresa.Close rsEmpresa.Open sSql,Conexao,1,1 if rsEmpresa.RecordCount>0 then sEmpresa=rsEmpresa("Responsavel") end if %> <tr> <td class="SubTitulo"><table width="100%" border="0" cellspacing="2" cellpadding="2"> <tr> <td bgcolor="<%=bg%>" width="6%">CODIGO:</td> <td bgcolor="<%=bg%>" width="9%"><%=rsBusca("NoOs")%></td> <td bgcolor="<%=bg%>" width="7%">EMPRESA:</td> <td bgcolor="<%=bg%>" width="78%"><%=sEmpresa%></td> </tr> </table></td> </tr> <% if Bg="#BDD1D2" then Bg="#4682B4" else Bg="#BDD1D2" end if Sql = "select * from tabCliente where NoOs = " & rsBusca("NoOs") if rsCliente.state=1 then rsCliente.Close rsCliente.Open Sql,Conexao,1,1 if rsCliente.RecordCount>0 then sCliente=rsCliente("NomeCliente") sEndereco=rsCliente("Endereco") sBairro=rsCliente("Bairro") sCep=rsCliente("Cep") sTerminal=rsCliente("Terminal") sTipoRes=rsCliente("TipoResidencia") end if %> <tr> <td class="SubTitulo"><table width="100%" border="0" cellspacing="2" cellpadding="2"> <tr> <td bgcolor="<%=bg%>" width="7%">CLIENTE:</td> <td bgcolor="<%=bg%>" width="29%"><%=sCliente%></td> <td bgcolor="<%=bg%>" width="7%">&nbsp;</td> <td bgcolor="<%=bg%>" width="6%">&nbsp;</td> <td bgcolor="<%=bg%>" width="9%">&nbsp;</td> <td bgcolor="<%=bg%>" width="10%">&nbsp;</td> <td bgcolor="<%=bg%>" width="6%">&nbsp;</td> <td bgcolor="<%=bg%>" width="26%">&nbsp;</td> </tr> <tr> <td bgcolor="<%=bg%>">ENDERE&Ccedil;O:</td> <td bgcolor="<%=bg%>"><%=sEndereco%></td> <td bgcolor="<%=bg%>" align="right">No.:</td> <td bgcolor="<%=bg%>"><%=sNUMERO%></td> <td bgcolor="<%=bg%>" align="right">CEP:</td> <td bgcolor="<%=bg%>"><%=sCep%></td> <td bgcolor="<%=bg%>" align="right">BAIRRO:</td> <td bgcolor="<%=bg%>"><%=sBairro%></td> </tr> <tr> <td bgcolor="<%=bg%>">CIDADE:</td> <td bgcolor="<%=bg%>"><%=sCidade%></td> <td bgcolor="<%=bg%>">ESTADO:</td> <td bgcolor="<%=bg%>"><%=sEstado%></td> <td bgcolor="<%=bg%>">RESID&Ecirc;NCIA:</td> <td bgcolor="<%=bg%>"><%=sTipoRes%></td> <td bgcolor="<%=bg%>">TERMINAL:</td> <td bgcolor="<%=bg%>"><%=sTerminal%></td> </tr> </table></td> </tr> <% if Bg="#BDD1D2" then Bg="#4682B4" else Bg="#BDD1D2" end if if rsBusca("idTecnico")<>0 then sSql = "Select * from tabTecnicos where idTecnico=" & rsBusca("idTecnico") if rsTecnicos.state=1 then rsTecnicos.Close rsTecnicos.Open sSql,Conexao,1,1 if rsTecnicos.RecordCount>0 then sRe=rsTecnicos("RE") sNomeTecnico=rsTecnicos("NomeTecnico") end if end if if rsBusca("idTipoOs")<>0 then sSql = "Select * from tabTipoOs where idTipoOs=" & rsBusca("idTipoOs") if rsTipoOs.State= 1 then rsTipoOs.Close rsTipoOs.Open sSql, Conexao,1,1 if rsTipoOs.RecordCOunt>0 then sTipoOs=rsTipoOs("Descricao") end if %> <tr> <td bgcolor="<%=bg%>" class="SubTitulo"><table width="100%" border="0" cellspacing="2" cellpadding="2"> <tr> <td bgcolor="<%=bg%>" width="9%">RE:</td> <td bgcolor="<%=bg%>" width="11%"><%=sRe%></td> <td bgcolor="<%=bg%>" width="7%">TECNICO:</td> <td bgcolor="<%=bg%>" colspan="3"><%=sNomeTecnico%></td> <td bgcolor="<%=bg%>" width="15%" align="right">TIPO DE OS: </td> <td bgcolor="<%=bg%>" width="19%"><%=sTipoOs%></td> </tr> <tr> <td bgcolor="<%=bg%>">PRODUTO:</td> <td bgcolor="<%=bg%>"><%=sProdutos%></td> <td bgcolor="<%=bg%>">PONTOS:</td> <td bgcolor="<%=bg%>" width="11%"><%=rsBusca("ContagemDia")%></td> <td bgcolor="<%=bg%>" width="7%">PACOTE</td> <td bgcolor="<%=bg%>" width="21%"><%=rsBusca("Pacote")%></td> <td bgcolor="<%=bg%>">CONTAGEM DE DIAS: </td> <td bgcolor="<%=bg%>"><%=rsBusca("QtdPontos")%></td> </tr> </table></td> </tr> <%if Bg="#BDD1D2" then Bg="#4682B4" else Bg="#BDD1D2" end if%> <tr> <td bgcolor="<%=bg%>" class="SubTitulo"><table width="100%" border="0" cellspacing="2" cellpadding="2"> <tr> <td width="6%">TAREFAS</td> <td width="94%" rowspan="2"><%=rsBusca("Tarefa")%></td> </tr> <tr> <td>&nbsp;</td> </tr> </table></td> </tr> <%if Bg="#BDD1D2" then Bg="#4682B4" else Bg="#BDD1D2" end if%> <tr> <td bgcolor="<%=bg%>" class="SubTitulo"><table width="100%" border="0" cellspacing="2" cellpadding="2"> <tr> <td width="9%">OBSERVA&Ccedil;&Atilde;O:</td> <td width="91%" rowspan="2" valign="top"><%=rsBusca("Observacao")%></td> </tr> <tr> <td>&nbsp;</td> </tr> </table></td> </tr> <%if Bg="#BDD1D2" then Bg="#4682B4" else Bg="#BDD1D2" end if%> <tr> <td bgcolor="<%=bg%>" class="SubTitulo"><table width="100%" border="0" cellspacing="2" cellpadding="2"> <tr> <td width="12%">INF. ADICIONAIL: </td> <td width="88%" rowspan="2" valign="top"><%=rsBusca("InfoAdcionais")%></td> </tr> <tr> <td>&nbsp;</td> </tr> </table></td> </tr> <%if Bg="#BDD1D2" then Bg="#4682B4" else Bg="#BDD1D2" end if%> <tr> <td bgcolor="<%=bg%>" class="SubTitulo"><table width="100%" border="0" cellspacing="2" cellpadding="2"> <tr> <td width="8%">DESCRI&Ccedil;&Atilde;O:</td> <td width="92%" rowspan="2" valign="top"><%=rsBusca("Descricao")%></td> </tr> <tr> <td>&nbsp;</td> </tr> </table></td> </tr> <%if Bg="#BDD1D2" then Bg="#4682B4" else Bg="#BDD1D2" end if%> <tr> <td bgcolor="<%=bg%>" class="SubTitulo"><table width="100%" border="0" cellspacing="2" cellpadding="2"> <tr> <td width="12%">No. Os Garantia: </td> <td width="18%"><%=rsBusca("NoGarantia")%></td> <td width="19%">DATA BAIXA GARANTIA: </td> <td width="21%"><%=rsBusca("DtDatBaiGarantia")%></td> <td width="15%">TECNICO GARANTIA: </td> <td width="15%"><%=rsBusca("TecnicoGarantia")%></td> </tr> </table></td> </tr> </table></td> </tr> </table></td> </tr> <% end if i = i +1 rsBusca.MoveNext loop %> </table></div></td> </tr> </table> <% end if %> </body> </html>

é isso valeu obrigado. Aproveitando este tópico,estou com uma duvida tenho um sistema feito em asp, e tenho que fazer um relatorio, buscando dados de uma tabela Sql Server, bom isso já to fazendo, minha duvida é como faço pra impirmir sem que mostre os botões Imprimir e Fechar quero que imprima somente o conteudo do relatorio.

Ola pessoal como faço para imprimir na impressora local uma tabela colorida valeu obrigado.

Resolvi valeu Rafa mais uma heim Fico assim pra quem tiver duvida. sDatComp=rsDth("datCompromisso") sData = now dia = day(sData) mes = month(sData) ano = year(sData) sData=(dia&"/"&mes&"/"&ano) Ddata = DateDiff("d", sData, sDatComp) if Ddata < 90 then sCodServ="ATDH" sServico="ATDH" end if

olha não sou eu eu trampo em uma empresa e eles optaramo por hospedar na localweb,por isso mas pensei que tinha resolvido esse problema mas não resolvi mas o gosado que na minha maquina esse script funciona

Ola pessoal estou com uma duvida simples mas não lembro como faz isso, tenho que calcular um valore entre datas por exemplo tenho que fazer uma pesquisa num banco de dados sql server, bom tem um campo datComprimosso se essa data form maior que 90 dias, eu tenho que especificar qué é garantia. sei que é simples mas não lembro desculpa ai pessoa alguém pode me dar uma luz

ajudo valeu

Ola pessoal com posso gerar um relat[orio a partir do crystall report 8.5 usando banco de dados sql server 2008 alguém tem um exemplo

ola pessoal alguém sabe como eu chamo um relatorio gerado no crystal report no asp?

que nada valeu veio me ajudou

Ola pessoal estou com um problema tenho uma função em javascript para validar um array de chekbock, bom essa o checkbock é criado dentro de um loop que faço com a quantidade de registro de uma determinada busca no banco sql server, essa pagina está em asp. Bom está rotina estava funcionando até hotem não sei porque, ontem ele apareceu a seguinte mensagem. A rotina para validar para saber quantos checkbox estão selecionado é essa: //-->Função para validar se o usuario selecionou algum item function validachk(iQtdeVetor){ //Controles NÃO É ARRAY deve ser tratado sem o indíce if (document.frmObjRotas.chkItem.length == undefined){ if (!document.frm.chkItem.checked){ alert('Selecione pelo menos um item!'); document.frmObjRotas.chkItem.focus(); return false; } }else{ var bmarcado = false; var atribuido= false; var ck for (var i=0;i<iQtdeVetor;i++){ if (document.frmObjRotas.chkItem[ i ].checked){ // o erro está nessa linha. bmarcado = true; if (document.frmObjRotas.codAtribuido[ i ].value=="RA"){ atribuido = true; } } } //Controles É ARRAY deve ser tratado com o indíce if (!bmarcado){ alert('Selecione pelo menos um item!'); return false; } if ( atribuido ){ alert('Algum item já foi atribuido!') for (var i=0;i<iQtdeVetor;i++){ if (document.frmObjRotas.chkItem[ i ].checked){ document.frmObjRotas.chkItem[ i ].checked=false } } return false; } } return true } Eu crio o array assim: <table> <% while Not rsRota.EOF %> <tr bgcolor="<%=Bg%>" > <td width="60" align="left" class="SubTitulo" style="cursor:hand" onClick="chamaAssinantes('<%=rsRota("NoOs")%>')"><%=rsRota("NoOs")%></td> <td width="60" align="left" class="SubTitulo" ><%=rsRota("codServico")%></td> <td width="100" align="left" bgcolor="<%=Bg%>" class="SubTitulo" ><%=sTipoOs%></td> <td width="60" align="left" bgcolor="<%=Bg%>" class="SubTitulo"><%=rsRota("Periodo")%></td> <td width="50" align="left" bgcolor="<%=Bg%>" class="SubTitulo"><%=sStatus%></td> <td width="160" align="left" bgcolor="<%=Bg%>" class="SubTitulo"><%=sEndereco%></td> <td width="100" align="left" bgcolor="<%=Bg%>" class="SubTitulo"><%=sCep11111%></td> <td width="100" align="left" bgcolor="<%=Bg%>" class="SubTitulo"><%=sTipoREsi%></td> <td width="33" align="left" bgcolor="<%=Bg%>" class="SubTitulo"><%=rsRota("idEmpresa")%></td> <td width="33" align="left" bgcolor="<%=Bg%>" class="SubTitulo"><%=rsRota("idTecnico")%></td> <td width="33" align="left" bgcolor="<%=Bg%>" class="SubTitulo"><input name="chkItem" type="checkbox" id="chkItem" value="<%=rsRota("NoOs")%>" /> <input name="codAtribuido" type="hidden" id="codAtribuido" value="<%=sAtribuido%>" /></td> </tr> <% rsRota.MoveNext wEnd %> </table>

Ola pessoal alguém sabe se eu econtro o cristal report 8.5 para downloads ?

Bom por exemplo, tenho uma pagina asp que tem um formulario de cadastro a inclusão faço com ajax e chamo um pagina chamada objAparelho, onde gravo os aparelhos no banco no final desse script eu monto um grid, isso na inclusão, agora para atualização eu tenho que trazer esse formulario de cadastro como s dados do cliente junto o grid, entendeu?

consegi resolver achei aqui nesse link planet-source-code

Ola pessoal alguém tem algum exemplo de calendario em asp?

Ola pessoal é seguinte tenho um sistema que desenvolvi em asp e uso javascript para validar um array de checkbox ele ta funcionando mas este array eu monto dentro de um loop que abro com recordset, para chamar a rotina de validação eu uso a quantidade de registro aberto pelo recordset, meu problema ta que quando o recordset é maior que 100 ele fala que o valor do checkbox é nullo vou postar o codigo para você entenderem. //-->Função para validar se o usuario selecionou algum item function validachk(iQtdeVetor) { //Controles NÃO É ARRAY deve ser tratado sem o indíce if (document.frmObjRotas.chkItem.length == undefined){ if (!document.frm.chkItem.checked){ alert('Selecione pelo menos um item!'); document.frmObjRotas.chkItem.focus(); return false; } }else{ var bmarcado = false; var atribuido= false; var ck for (var i=0;i=iQtdeVetor;i++){ if (document.frmObjRotas.chkItem[i].checked){ bmarcado = true; if (document.frmObjRotas.codAtribuido[i].value=="RA"){ atribuido = true; } } } //Controles É ARRAY deve ser tratado com o indíce if (!bmarcado){ alert('Selecione pelo menos um item!'); return false; } if ( atribuido ){ alert('Algum item já foi atribuido!') for (var i=0;i<iQtdeVetor;i++){ if (document.frmObjRotas.chkItem[ i ].checked){ document.frmObjRotas.chkItem[ i ].checked=false } } return false; } } return true } iQtdeVetor está variavel eu chamo do recordset seria a quantidade de checkbox que o loop cria.Chamo essa funcunção da seguinte maneira. <a href="#" onClick="mostraDiv('1','Atribui','<%=rs%>');">Atribui</a> função mostraDiv function mostraDiv(sOpt,id,iQtdeVetor){ if (iQtdeVetor>50){ iQtdeVetor=50 } if ((sOpt==1) || (sOpt==2) || (sOpt==3)){ if (sOpt==1) { var validar= validachk(iQtdeVetor) document.frmObjRotas.hiMenu.value=sOpt }else if (sOpt==2){ var validar= validachkre(iQtdeVetor) document.frmObjRotas.hiMenu.value=sOpt } }else{ var validar= true } if ( validar ) { if(document.getElementById(id).style.display=="block") { document.getElementById(id).style.display="none" } else { document.getElementById(id).style.display="block" } } }