Clauido José

isso eu quero que quando eu clicar num botão ele aparece uma tabela ensima da pagina

Andreia eu coloque assim sDatBaix = Replace(rsAcrecimo("DatBaixa")," ", Null) E deu a seguinte mensagem de erro

O pessoal quero uma ajuda como eu sobre ponho uma tabela em cima da outra com ajax alguém tem um exemplo ou pode me ajudar?

valeu resolvi é isso mesmo

ola pessoal to aqui de novo estou com um problema estou criando um formulario e estou colocando algumas rotinas em ajax e javascript para validar campos preenchidos. mas não estou conseguindo. È seguinte estou fazendo da seguinte forma. function trazdadospesquisa() { valida(); var oHTTPRequest = createXMLHTTP(); oHTTPRequest.open("post", "objRota.asp", true); oHTTPRequest.setRequestHeader("Content-Type", "application/x-www-form-urlencoded"); oHTTPRequest.onreadystatechange=function(){ if (oHTTPRequest.readyState==4){ document.all.divPesquisa.innerHTML = oHTTPRequest.responseText;}} oHTTPRequest.send("idEmpresa=" + frmRotas.codEmpresa.value); } function valida(){ if(document.frmRotas.txData.value=="") { alert("O Data é obrigatório"); document.frmRotas.txData.focus(); return false } } <input name="butPesquisar" type="button" id="butPesquisar" value="BUSCAR" onclick="trazdadospesquisa();" /> do jeito que ta ele até informa que o campo não está preenchido mas sempre traz o resolutado do tazdadospesquisa alguém pode me ajudar?

Resolvi valeu era issmo da um replace.

como assim?

O problema é seguinte este banco recebe dados de uma importação de arquivo excell as vezes esse campo data esta em branco as vezes não entende? A detalhe estava me esquecendo por exemplo num outro caso que tenho num cadastro de usuario existe um campo data ativo e outro data inativo quando for incluir um usuario ele sempre vai ser ativo e logicamente a data inativo vai ser branco e na hora de atualizar ele pode colocar ou não a data inativo e sempre que atualizo ou insiro uma data em branco ele me da esse tipo de erro.

Pesssoal é seguinte estou quebrando a cabeça aqui pra resolver um problema de dublicação de registro quando vou inserir um novo registro bom é seguinte como eu pesquiso banco pra não acontecer o seguinte casos de duplicação por exemplo: Se eu Inserir um Usuario com o nome de Claudio Josè Martinez Cardoso não podera haver: Claudio Jose Martinez Cardoso ou claudio jose martinez cardoso ou claudio josé martinez cardoso me ajudem por favor A detelhe ele tb não pode por exemplo estar cadastrado com um nome e outro usuario, ou com um nome e outro re ou mesmo nome em outra empresa. Estou abrindo o select da seguinte maneira: strSql = "Select * From tabUsuario where NomeUsuario = '%" & NomeUsuario & "%'" strSql = strSql & " or Usuario = '" & Usuario & "'" strsql = strsql & " or idEmpresa = " & Empresa strsql = strsql & " or ReUsuario = '" & ReUsuar & "'" set rsUsuario = Conexao.Execute(strSql)

Andreia da uma olhada nesse tópico do aspbrasil.com por isso que eu fiz assim eu andei quebrando a cabeça com isso então resolvei ir iliminando os campos até achar o campo que estava dando erro, e é justamente este campo data em que esta em branco e eu coloquei o requerido como sim e testei ele como não. data em branco

mas eu coloquei isso mas quando eu gravo uma data em branco ele da este erro Tipo de dados imcompatível na expressão de critério. Andei verificando é porque existem datas em branco por isso e me informaram aqui no site que o asp não aceita data em branco.

Eu estou inserindo um campo data em branco no access com o asp e pelo que sei ele não aceita data em branco correto então fiz o seguinte verifico se a data for branco ele grava a data "011\1900" entendeu?

Quando eu for incluir um registro novo por exemplo ele tem que consultar pra ver se ele já ta cadastrado. E não pode ter os exemplo que eu coloquei

Ola pessoal to com um problemão aqui bom é seguinte tenho um sistema onde tenho uma tabela de usuario bom o problema que o cliente não quer duplicação de nome de registro por exemplo: Usuario=Claudio José Usuario=Claudio Jose Usuario=claudio jose Usuario=CLAUDIO JOSE Tavendo só pode ter um Claudio José os outro não pode como resolver isso?

eu consegui resolver erra isso mesmo eu postei a duvida no js valeu

valeu pela dica velho uma abraço resolvi.

Ola pessoal estou aqui de novo, minha duvida agora é o seguinte eu criei uma função no javascript para abrir um pop bom ele faz certo mas gostaria de saber se tem como permitir que este pop tenha scrollbar e que o usuario possa amentar a janela a função é assim function AbrirJanela(janela,Pos1,Pos2,Pos3,Pos4){ if (window.confirm("Deseja imprimir o relatório?")){ window.open(janela,"SESSAO","left="+Pos1+",top="+Pos2+",width="+Pos3+",height="+Pos4) } }

AQUI É A PAGINA QUE GERO A TABELA QUE É PARA IMPRIMIR <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>CAPA LOTE GERAL</title> <script language="javascript" src="jsp/ajax.js"></script> <script type="text/JavaScript"> function finalizar() { document.frmLote.method="POST"; document.frmLote.action="capalotegeral.asp?atc=ok" document.frmLote.submit(); } function Sair() { if (window.confirm("Deseja sair do relatório?")) { document.location="conteudo.asp"; } } function Imprimi(idE,idT,IdS,Data) { if (window.confirm("Deseja imprimir o relatório?")) { document.location="imprimicapalotegeral.asp?idEmpresa=" + idE + "&idTecnico=" + idT + "&idServico=" + IdS + "&strData=" + Data } } function trazdados() { var oHTTPRequest = createXMLHTTP(); oHTTPRequest.open("post", "capalotegeral.asp", true); oHTTPRequest.setRequestHeader("Content-Type", "application/x-www-form-urlencoded"); oHTTPRequest.onreadystatechange=function(){} oHTTPRequest.send("idEmpresa=" + frmLote.seEmpresa.value); } function trazdadosTecnicos() { var oHTTPRequest = createXMLHTTP(); oHTTPRequest.open("post", "capalotegeral.asp", true); oHTTPRequest.setRequestHeader("Content-Type", "application/x-www-form-urlencoded"); oHTTPRequest.onreadystatechange=function(){} oHTTPRequest.send("idTecnico=" + frmLote.seTecnicos.value); } function trazdadosServicos() { var oHTTPRequest = createXMLHTTP(); oHTTPRequest.open("post", "capalotegeral.asp", true); oHTTPRequest.setRequestHeader("Content-Type", "application/x-www-form-urlencoded"); oHTTPRequest.onreadystatechange=function(){} oHTTPRequest.send("idServico=" + frmLote.seServicos.value); } function Data() { separador = '/'; conjunto1 = 2; conjunto2 = 5; if (document.frmLote.txData.value.length == conjunto1) { document.frmLote.txData.value = document.frmLote.txData.value + separador; } if (document.frmLote.txData.value.length == conjunto2) { document.frmLote.txData.value = document.frmLote.txData.value + separador; } } function IsNumber(caracter) { if(document.all) { var tecla = event.keyCode; }else { if(document.layers){ var tecla = caracter.which; } } if(tecla > 47 && tecla < 58) { return true; } else { if (tecla != 8 && tecla != 13) { alert("Digite apenas números.") return false; } else { return true; } } } </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"--> <% dim Conexao, strSql, strData call abreConexao() if Request.QueryString("atc") = "ok" then data =Request.Form("txData") dia = datepart ("d", data) mes = datepart ("m", data) ano = datepart ("yyyy", data) strdata = (mes&"/"&dia&"/"&ano) campo = "tabDth.NoOs,tabCidades.Cidade,tabEstados.Sigla,tabDth.Periodo,tabDth.QtdPontos,tabDth.TipoResidencia," campo = campo & "tabDth.DatSolicitada,tabDth.idEmpresa,tabDth.idTecnico,tabDth.idServico,tabDth.DatCompromisso," campo = campo & "tabDth.idTipoOs" strSql = "SELECT " & campo & " FROM tabEstados INNER JOIN (tabCidades INNER JOIN (tabCliente INNER JOIN tabDth " strSql = strSql & "ON tabCliente.idCliente = tabDth.idCliente) ON tabCidades.idCidade = tabCliente.IdCidade) ON " strSql = strSql & "tabEstados.idEstado = tabCliente.IdEstado " strSql = strSql & "WHERE tabDth.idEmpresa=" & Request.Form("seEmpresa") strSql = strSql & " AND tabDth.idServico='" & Request.Form("seServicos") & "'" strSql = strSql & " AND tabDth.DatCompromisso=#" & strData & "#" if rsRota.state = 1 then rsRota.Close rsRota.open strsql, Conexao, 3, 3 end if status = "Contratada" %> <form name="frmLote" method="post" action="capalotecontratada.asp?atc=ok"> <table width="740" height="480" border="0" align="center" cellpadding="0" cellspacing="0" class="Tabela"> <tr> <td width="5%">&nbsp;</td> <td colspan="8" class="SubTitulo">Ola <%=Session("Usuario")%> voc&ecirc; est&aacute; em <strong>Intranet DTH 25</strong> <strong>&raquo; Capa Lote &raquo; <%=status%></strong></td> </tr> <tr> <td>&nbsp;</td> <td colspan="8" class="Texto">&nbsp;</td> </tr> <tr> <td class="SubTitulo">&nbsp;</td> <td align="right" class="SubTitulo">Empresa:</td> <td width="12%" class="SubTitulo"> <select name="seEmpresa" class="campo" onchange="trazdados();"> <option value="idEmpresa=0">Selecione</option> <% strSql = "Select * from tabEmpresa" set rsEmpresa = Conexao.Execute(strSql) if not rsEmpresa.Eof then while not rsEmpresa.Eof %> <option value="<%=rsEmpresa("Empresa")%>"><%=rsEmpresa("Empresa")%></option> <% rsEmpresa.MoveNext wEnd end if %> </select></td> <td width="9%" align="right" class="SubTitulo">Servi&ccedil;o</td> <td width="14%" class="SubTitulo"> <select name="seServicos" class="campo" onchange="trazdadosServicos()" style="width:100px"> <option value="capalotegeral.asp">Selecione</option> <% strSql = "Select * from tabServico " set rsServico = Conexao.Execute(strSql) if not rsServico.Eof then While Not rsServico.EOF %> <option value="<%=rsServico("Codigo")%>"><%=rsServico("Codigo")%></option> <% rsServico.MoveNext wEnd end if %> </select> </td> <td width="11%" align="right" class="SubTitulo">Compromisso:</td> <td width="9%" class="SubTitulo"><input name="txData" type="text" class="campo" id="txData" size="10" maxlength="10" onkeypress="Data();return IsNumber(event);" /></td> <td width="4%" align="center" class="SubTitulo"><img src="imagem/icon_mini_search.gif" width="15" height="13" border="0" style="cursor: hand" onclick="finalizar();"></td> <td width="4%" align="center" class="SubTitulo">&nbsp;</td> </tr> <tr> <td colspan="9">&nbsp;</td> </tr> <%if Request.QueryString("atc") = "ok" then%> <tr> <td width="16%" colspan="9"><div><table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" class="Tabela1"> <%Bg="#5082B4" strSql = "Select * from tabEmpresa where Empresa = " & rsRota("idEmpresa") set rsEmpresa = Conexao.Execute(strSql) if rsEmpresa.Eof then sEmpresa = "" else sEmpresa = Left(rsEmpresa("Responsavel"),15) strSql = "Select * from tabTecnicos where idTecnico = " & rsRota("idTecnico") set rsTecnicos = Conexao.Execute(strSql) if rsTecnicos.Eof then sTecnicos = "" else sTecnicos = Left(rsTecnicos("Tecnico"),15) strSql = "Select * from tabTipoOS where idTipoOS=" & rsRota("idTipoOs") set rsTipoOs =Conexao.Execute(strSql) if rsTipoOs.Eof then sTipoOs="" else sTipoOs = rsTipoOs("Descricao") %> <tr bgcolor="<%=bg%>"> <td colspan="10" align="left" class="SubTitulo">Empresa Telefonica TV Digital</td> </tr> <tr bgcolor="<%=Bg%>"> <td colspan="10" align="center" class="SubTitulo">&nbsp;</td> </tr> <tr bgcolor="<%=Bg%>"> <td colspan="10" align="center" class="SubTitulo">RELATÓRIO DE PROGRAMAÇÃO DE TAREFAS PARA TECNICOS DT</td> </tr> <tr bgcolor="<%=Bg%>"> <td colspan="10" class="SubTitulo">&nbsp;</td> </tr> <tr bgcolor="<%=Bg%>"> <td colspan="10" class="SubTitulo">Contratada: Lider </td> </tr> <tr bgcolor="<%=Bg%>"> <td colspan="10" align="center" class="SubTitulo">&nbsp;</td> </tr> <tr bgcolor="<%=Bg%>"> <td width="10%" align="center" class="SubTitulo">EMPRESA</td> <td width="8%" align="center" class="SubTitulo">No. Os </td> <td width="15%" align="center" class="SubTitulo">CIDADE</td> <td width="8%" align="center" class="SubTitulo">ESTADO</td> <td width="8%" align="center" class="SubTitulo">PERIODO</td> <td width="16%" align="center" class="SubTitulo">TIPO OS </td> <td width="8%" align="center" class="SubTitulo">PONTOS</td> <td width="8%" align="center" class="SubTitulo">SERVICO</td> <td width="10%" align="center" class="SubTitulo">RESIDENCIA</td> <td width="8%" align="center" class="SubTitulo">DATA</td> </tr> <% while not rsRota.Eof if bg = "#5082B4" then Bg = " #FFFFFF" else Bg = "#5082B4" end if %> <tr bgcolor="<%=Bg%>"> <td width="10%" align="center" class="SubTitulo"><%=sEmpresa%></td> <td width="8%" align="center" class="SubTitulo"><%=rsRota("NoOs")%></td> <td width="15%" align="center" class="SubTitulo"><%=rsRota("Cidade")%></td> <td width="8%" align="center" class="SubTitulo"><%=rsRota("Sigla")%></td> <td width="8%" align="center" class="SubTitulo"><%=rsRota("Periodo")%></td> <td width="16%" align="center" class="SubTitulo"><%=sTipoOs%></td> <td width="8%" align="center" class="SubTitulo"><%=rsRota("QtdPontos")%></td> <td width="8%" align="center" class="SubTitulo"><%=rsRota("idServico")%></td> <td width="10%" align="center" class="SubTitulo"><%=rsRota("TipoResidencia")%></td> <td width="8%" align="center" class="SubTitulo"><%=rsRota("DatSolicitada")%></td> </tr> <% rsRota.Movenext wend data =Request.Form("txData") dia = datepart ("d", data) mes = datepart ("m", data) ano = datepart ("yyyy", data) strdata = (mes&"/"&dia&"/"&ano) campo = "Count(NoOs) AS ContarNoOs,Count(QtdPontos) AS ContarQtdPontos,idEmpresa," campo = campo & "idTecnico,idServico,DatCompromisso " strSql = "SELECT " & campo & " FROM tabDth " strSql = strSql & "GROUP BY idEmpresa,idTecnico,idServico,DatCompromisso " strSql = strSql & "HAVING idEmpresa=" & Request.Form("seEmpresa") strSql = strSql & " AND idServico='" & Request.Form("seServicos") & "'" strSql = strSql & " AND DatCompromisso=#" & strData & "#" 'response.Write(strsql) 'Response.End() if rsRota.State = 1 then rsRota.close rsRota.open strsql, Conexao, 3, 3 %> <tr> <td colspan="10" align="left" valign="top" class="Titulo">&nbsp;</td> </tr> <tr> <td colspan="10" align="left" valign="top" class="Titulo"><span class="SubTitulo"><%=(formatdatetime(now,1))%></span></td> </tr> </table></div></td> <tr> <td colspan="9" align="center"> <input name="cmdImprimir" type="button" id="cmdImprimir" value="Imprimir" onclick="Imprimi('<%=Request.Form("seEmpresa")%>','<%=Request.Form("seTecnicos")%>','<%=Request.Form("seServicos")%>','<%=Request.Form("txData")%>')"> <input name="butFechar" type="button" id="butFechar" value="Sair" onclick="Sair();"> </td> </tr> <%else%> <tr> <td colspan="9"><div class="noprint"> <table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" class="Tabela1"> <tr bgcolor="<%=Bg%>"> <td width="10%" align="center" class="SubTitulo">EMPRESA</td> <td width="8%" align="center" class="SubTitulo">No. Os </td> <td width="15%" align="center" class="SubTitulo">CIDADE</td> <td width="8%" align="center" class="SubTitulo">ESTADO</td> <td width="8%" align="center" class="SubTitulo">PERIODO</td> <td width="16%" align="center" class="SubTitulo">TIPO OS </td> <td width="8%" align="center" class="SubTitulo">PONTOS</td> <td width="8%" align="center" class="SubTitulo">SERVICO</td> <td width="10%" align="center" class="SubTitulo">RESIDENCIA</td> <td width="8%" align="center" class="SubTitulo">DATA</td> </tr> </table></div></td> </tr> <%end if%> </tr> </table> </form> </body> </html> E ESTA É A PAGINA QUE EU VOU IMPRIMIR <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>CAPA LOTE GERAL</title> <style type="text/css"> .noprint { display: none; } </style> <link href="css/estilos.css" rel="stylesheet" type="text/css"> </head> <body onUnload="window.print();"> <!--#include file="strCon.asp"--> <% dim Conexao, strSql, strData call abreConexao() data =Request.QueryString("strData") dia = datepart ("d", data) mes = datepart ("m", data) ano = datepart ("yyyy", data) strdata = (mes&"/"&dia&"/"&ano) campo = "tabDth.NoOs,tabCidades.Cidade,tabEstados.Estado,tabDth.Periodo,tabDth.QtdPontos,tabDth.TipoResidencia," campo = campo & "tabDth.DatSolicitada,tabDth.idEmpresa,tabDth.idTecnico,tabDth.idServico,tabDth.DatCompromisso" strSql = "SELECT " & campo & " FROM tabEstados INNER JOIN (tabCidades INNER JOIN (tabCliente INNER JOIN tabDth " strSql = strSql & "ON tabCliente.idCliente = tabDth.idCliente) ON tabCidades.idCidade = tabCliente.IdCidade) ON " strSql = strSql & "tabEstados.idEstado = tabCliente.IdEstado " strSql = strSql & "WHERE tabDth.idEmpresa=" & Request.QueryString("idEmpresa") strSql = strSql & " AND tabDth.idTecnico=" & Request.QueryString("idTecnico") strSql = strSql & " AND tabDth.idServico='" & Request.QueryString("idServico") & "'" strSql = strSql & " AND tabDth.DatCompromisso=#" & strData & "#" 'response.Write(strsql) 'response.End() if rsRota.state = 1 then rsRota.Close rsRota.open strsql, Conexao, 3, 3 'Response.Write(rsRota.RecordCount) 'response.End() Bg="#5082B4" strSql = "Select * from tabEmpresa where Empresa = " & rsRota("idEmpresa") set rsEmpresa = Conexao.Execute(strSql) if rsEmpresa.Eof then sEmpresa = "" else sEmpresa = Left(rsEmpresa("Responsavel"),15) strSql = "Select * from tabTecnicos where idTecnico = " & rsRota("idTecnico") set rsTecnicos = Conexao.Execute(strSql) if rsTecnicos.Eof then sTecnicos = "" else sTecnicos = Left(rsTecnicos("Tecnico"),15) %> <table width="740" height="480" border="0" align="center" cellpadding="0" cellspacing="0" class="Tabela"> <tr> <td colspan="11"><table width="95%" border="0" align="center" cellpadding="1" cellspacing="1" class="Tabela1"> <tr bgcolor="<%=bg%>"> <td colspan="8" align="left" class="SubTitulo">Empresa Telefonica TV Digital</td> </tr> <tr bgcolor="<%=Bg%>"> <td colspan="8" align="center" class="SubTitulo">&nbsp;</td> </tr> <tr bgcolor="<%=Bg%>"> <td colspan="8" align="center" class="SubTitulo">RELATÓRIO DE PROGRAMAÇÃO DE TAREFAS PARA TECNICOS DTH</td> </tr> <tr bgcolor="<%=Bg%>"> <td colspan="8" class="SubTitulo">&nbsp;</td> </tr> <tr bgcolor="<%=Bg%>"> <td colspan="8" class="SubTitulo">Tecnico: <%=rsTecnicos("Tecnico")%></td> </tr> <tr bgcolor="<%=Bg%>"> <td colspan="8" align="center" class="SubTitulo">&nbsp;</td> </tr> <tr bgcolor="<%=Bg%>"> <td width="15%" align="center" class="SubTitulo">EMPRESA</td> <td width="10%" align="center" class="SubTitulo">No. Os </td> <td width="15%" align="center" class="SubTitulo">CIDADE</td> <td width="10%" align="center" class="SubTitulo">ESTADO</td> <td width="10%" align="center" class="SubTitulo">PERIODO</td> <td width="8%" align="center" class="SubTitulo">PONTOS</td> <td width="15%" align="center" class="SubTitulo">RESIDENCIA</td> <td width="8%" align="center" class="SubTitulo">SOLICITA&Ccedil;&Atilde;O</td> </tr> <% while not rsRota.Eof if bg = "#5082B4" then Bg = " #FFFFFF" else Bg = "#5082B4" end if %> <tr bgcolor="<%=Bg%>"> <td width="15%" align="center" class="SubTitulo"><%=sEmpresa%></td> <td width="10%" align="center" class="SubTitulo"><%=rsRota("NoOs")%></td> <td width="15%" align="center" class="SubTitulo"><%=rsRota("Cidade")%></td> <td width="10%" align="center" class="SubTitulo"><%=rsRota("Estado")%></td> <td width="10%" align="center" class="SubTitulo"><%=rsRota("Periodo")%></td> <td width="8%" align="center" class="SubTitulo"><%=rsRota("QtdPontos")%></td> <td width="15%" align="center" class="SubTitulo"><%=rsRota("TipoResidencia")%></td> <td width="8%" align="center" class="SubTitulo"><%=rsRota("DatSolicitada")%></td> </tr> <% rsRota.Movenext wend data =Request.QueryString("strData") dia = datepart ("d", data) mes = datepart ("m", data) ano = datepart ("yyyy", data) strdata = (mes&"/"&dia&"/"&ano) campo = "Count(NoOs) AS ContarNoOs,Count(QtdPontos) AS ContarQtdPontos,idEmpresa," campo = campo & "idTecnico,idServico,DatCompromisso " strSql = "SELECT " & campo & " FROM tabDth " strSql = strSql & "GROUP BY idEmpresa,idTecnico,idServico,DatCompromisso " strSql = strSql & "HAVING idEmpresa=" & Request.QueryString("idEmpresa") strSql = strSql & " AND idTecnico=" & Request.QueryString("idTecnico") strSql = strSql & " AND idServico='" & Request.QueryString("idServico") & "'" strSql = strSql & " AND DatCompromisso=#" & strData & "#" 'response.Write(strsql) 'Response.End() if rsRota.State = 1 then rsRota.close rsRota.open strsql, Conexao, 3, 3 %> <tr> <td align="left" valign="top" class="Titulo">Total de Servi&ccedil;o: </td> <td colspan="2" align="left" valign="top" class="Titulo"><%=rsRota("ContarNoOs")%></td> <td colspan="2" align="right" valign="top" class="Titulo">Total de Pontos: </td> <td colspan="2" align="left" valign="top" class="Titulo"><%=rsRota("ContarQtdPontos")%></td> <td align="left" valign="top" class="Titulo">&nbsp;</td> </tr> </table></td> </tr> </table> <% Response.Redirect("conteudo.asp")%> </body> </html>

não deu certo ele imprimi a pagina default.asp toda e não a pagina que eu quero imprimir.

Quase isso. Tentei fazer desse modo só ele imprimi a pagina que esta no browser correto, só que esse relatorio está dentro de uma pagina default.asp onde tenho um menu e chamo esse relatorio dentro do iframe como faço para imprimir só a pagina? Entendeu quer que eu coloque o codigo para você olhar?

eu não tenho como jogar este relatóro direto para impressora sem que tenha que exportar para o excel?

Na verdade é o seguinte o sistema é feito com access e tenho que puxar os dados desse db imprimir ele na impressora local não é grafico, já tenho ele pronto, fiz ele dentro de uma tabela agora eu não sei como eu faço para imprimi-lo.

ola pessoal estou desenvolvendo um sistema feito em asp e tenho que gerar um relatório extraido de um banco de dados como eu faço isso ? Nunca precisei fazer relatório via asp

Ola pessoal tenho que desenvolver um relatório no html mas quero fazer dentro de uma tabela mas não lembro como faz alguém pode me ajudar?

como assim não entendi mas da uma olhada nesse codigo que eu fiz pode ajudar ele não exclui um item mas verifica se todos item do arry estão selecionados. <html> <link href="css/estilos.css" rel="stylesheet" type="text/css"> <script type="text/JavaScript"> function trazdados() { var combouf = createXMLHTTP(); combouf.open("post", "objEmpresa.asp", true); combouf.setRequestHeader("Content-Type", "application/x-www-form-urlencoded"); combouf.onreadystatechange=function() { if (combouf.readyState==4) {// abaixo o texto do gerado no arquivo executa.asp e colocado no div document.all.divcombouf.innerHTML = combouf.responseText; } } } function valida() { if(document.frmGeral.seEmpresa.selectedIndex==0) { alert("Selecione uma empresa"); document.frm.seEmpresa.focus(); return false; } if(document.frmGeral.seTecnicos.selectedIndex==0) { alert("Selecione um tecnico"); document.frm.seTecnicos.focus(); return false; } } function AbrirJanela(janela,Pos1,Pos2,Pos3,Pos4) { window.open(janela,"SESSAO","left="+Pos1+",top="+Pos2+",width="+Pos3+",height="+Pos4) } function MM_jumpMenu(targ,selObj,restore){ //v3.0 eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'"); if (restore) selObj.selectedIndex=0; } function processa(iQtdeVetor){ if (consiste_controles(iQtdeVetor)){ document.frm.submit(); } } function consiste_controles(iQtdeVetor){ var bmarcado = false; //Controles NÃO É ARRAY deve ser tratado sem o indíce if (document.frm.chkItem.length == undefined){ if (!document.frm.chkItem.checked){ alert('Selecione pelo menos um item!'); document.frm.chkItem.focus(); return false; } }else{ for (var i=0;i<iQtdeVetor;i++){ if (document.frm.chkItem[ i ].checked){ bmarcado = true; } } //Controles É ARRAY deve ser tratado com o indíce if (!bmarcado){ alert('Selecione pelo menos um item!'); document.frm.chkItem[ i ].focus(); return false; } } return true; } function MM_jumpMenu(targ,selObj,restore){ //v3.0 eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'"); if (restore) selObj.selectedIndex=0; } function marca_desmarca(opcao,iQtdeVetor){ //Controles NÃO É ARRAY deve ser tratado sem o indíce if (document.frm.chkItem.length == undefined){ document.frm.chkItem.checked = opcao; }else{ for (var i=0;i<iQtdeVetor;i++){ //Controles É ARRAY deve ser tratado com o indíce document.frm.chkItem[ i ].checked = opcao; } } } </script> <script language="javascript" src="jsp/ajax.js"></script> </head> <body> <!--#include file="strCon.asp"--> <% dim Conexao, strSql, strData, strVetor call abreConexao() if Request.QueryString("atc") = "New" then strNoOs = Request.QueryString("NoOs") stridTecnico = Request.QueryString("idTecnico") data = date dia = datepart ("d", data) mes = datepart ("m", data) ano = datepart ("yyyy", data) strdata = (mes&"/"&dia&"/"&ano) vItensMarcado = split(Request.Form("chkItem"),",") if not IsArray(vItensMarcado) then vItensMarcado = array(vItensMarcado) end if for i = 0 to ubound(vItensMarcado) strSql = "Select * from tabDTH where DatCompromisso = #" & strData & "# " strSql = strSql & " and NoOs = " & vItensMarcado(i) & " order by idEmpresa" set rsRota = Conexao.Execute(StrSql) if not rsRota.Eof then strSql = "Update tabDth Set " strSql = StrSql & "idEmpresa=" & Request.QueryString("Empresa")& "," strsql = strSql & "idTecnico=" & Request.QueryString("idTecnicos") strSql = strSql & " where idDth=" & rsRota("idDth") 'response.Write(strSql) 'response.End() Conexao.Execute(StrSql) end if next end if data = date dia = datepart ("d", data) mes = datepart ("m", data) ano = datepart ("yyyy", data) strdata = (mes&"/"&dia&"/"&ano) campo = "tabDth.NoOs,tabDth.DatCompromisso,tabDth.Periodo,tabDth.QtdPontos,tabDth.Sta tus,tabCidades.Cidade" campo = campo & ",tabCliente.Cep,tabCliente.Bairro,tabCliente.TipoResidencia,tabDth.IdServico ,tabTipoOs.Descricao" campo = campo & ",tabDTh.idEmpresa,tabDth.idTecnico" strSql = "SELECT " & campo strSql = strSql & " FROM tabTipoOs INNER JOIN (tabEstados INNER JOIN ((tabCidades INNER JOIN tabCliente ON " strSql = strSql & "tabCidades.idCidade = tabCliente.IdCidade) INNER JOIN tabDth ON " strSql = strSql & "tabCliente.idCliente = tabDth.idCliente) ON (tabEstados.idEstado = tabCliente.IdEstado) " strSql = strSql & "AND (tabEstados.idEstado = tabCidades.idEstado)) ON tabTipoOs.idTipoOs = tabDth.idTipoOs " strSql = strSql & "WHERE (((tabDth.DatCompromisso)=#" & strData & "#))" if rsRota.state = 1 then rsRota.Close rsRota.Open strSql, Conexao, 3, 3 status = "Rota Geral " rs = rsRota.RecordCount %> <form action="atribuirotaGeral.asp?atc=New&Empresa=<%=Request.QueryString("Empresa")%>&idTecnicos=<%=Request.QueryString("idTecnicos")%>" method="post" name="frm" id="frm" onSubmit="valida();" > <table width="700" border="0" align="center" cellpadding="2" cellspacing="2" class="Tabela"> <tr> <td colspan="6"><span class="SubTitulo">Ola<%=Session("Usuario")%> voc&ecirc; est&aacute; em <strong>Intranet DTH 25</strong> <strong>&raquo; Atribui&ccedil;&atilde;o &raquo; <%=status%></strong></span></td> </tr> <tr> <td colspan="6">&nbsp;</td> </tr> <tr> <td colspan="6"><table width="100%" border="0" cellspacing="2" cellpadding="2"> <tr> <td width="50%"><table width="100%" border="0" cellspacing="2" cellpadding="2"> <tr> <td width="24%" class="SubTitulo">&nbsp;</td> <td width="39%" class="SubTitulo"><label id="Nome">Informe a Empresa:</label></td> <td width="37%" class="SubTitulo"> <select name="seEmpresa" onChange="MM_jumpMenu('this',this,0)"> <option value="atribuirotageral.asp?idEmpresa=0">Selecione</option> <% strSql = "Select * from tabEmpresa" set rsEmpresa = Conexao.Execute(strSql) if not rsEmpresa.Eof then while not rsEmpresa.Eof %> <option value="atribuirotageral.asp?idEmpresa=<%=rsEmpresa("idEmpresa")%>&Empresa=<%=rsEmpresa("Empresa")%>"<%if cint(Request.QueryString("idEmpresa")) = rsEmpresa("idEmpresa") then%>selected<%end if%>><%=rsEmpresa("Empresa")%></option> <% rsEmpresa.MoveNext wEnd end if %> </select> </td> </tr> </table></td> <td width="50%"><table width="100%" border="0" cellpadding="2" cellspacing="2"> <tr> <td colspan="2" class="SubTitulo"><label id="Nome">Informe um tecnico:</label></td> <td width="64%" class="SubTitulo"> <select name="seTecnicos" onChange="MM_jumpMenu('this',this,0)"> <option value="atribuirotageral.asp">Selecione</option> <% strSql = "Select * from tabTecnicos" set rsTecnicos = Conexao.Execute(strSql) if not rsTecnicos.Eof then while not rsTecnicos.Eof %> <option value="atribuirotageral.asp?Opt=VoltaT&amp;idTecnicos=<%=rsTecnicos("idTecnico")%>&idEmpresa=<%=Request.QueryString("idEmpresa")%>&Empresa=<%=Request.QueryString("Empresa")%>"<%if cint(Request.QueryString("idTecnicos")) = rsTecnicos("idTecnico") then%>selected<%end if%>><%=rsTecnicos("Tecnico")%></option> <% rsTecnicos.MoveNext wEnd end if %> </select> </td> </tr> </table></td> </tr> </table></td> </tr> <tr> <td width="10" align="right">&nbsp;</td> <td width="203">&nbsp;</td> <td width="102"><input type="button" name="Submit" value="Enviar" onClick="java script: processa(<%=rs%>);"></td> <td width="103"><input name="subLimpar" type="reset" id="subLimpar" value="Limpar" /></td> <td>&nbsp;</td> <td width="126">&nbsp;</td> </tr> <tr> <td height="10" colspan="6" class="Texto">&nbsp;</td> </tr> <tr> <td colspan="6" class="Texto">&nbsp;</td> </tr> <tr> <td colspan="6"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" class="Tabela"> <%Bg="#FFFFFF"%> <tr bgcolor="<%=Bg%>"> <td width="9%" align="center" class="SubTitulo">No. Os</td> <td width="7%" align="center" class="SubTitulo">Servi&ccedil;o</td> <td width="14%" align="center" class="SubTitulo">Tipo Os </td> <td width="9%" align="center" class="SubTitulo">Periodo</td> <td width="6%" align="center" class="SubTitulo">Status</td> <td width="9%" align="center" class="SubTitulo">CEP</td> <td width="10%" align="center" class="SubTitulo">Cidade</td> <td width="6%" align="center" bgcolor="<%=Bg%>" class="SubTitulo">Bairro</td> <td width="10%" align="center" class="SubTitulo">Residencia </td> <td width="20%" align="center" class="SubTitulo">&nbsp;</td> </tr> <tr> <td colspan="10" valign="top"><div><table width="100%" border="0" align="left" cellpadding="1" cellspacing="1" class="Tabela1" style="margin-left:0"> <% if not rsRota.Eof then dim i i =0 vVetor = 0 while Not rsRota.EOF if Bg="#FFFFFF" then Bg="#5082B4" else Bg="#FFFFFF" end if %> <tr bgcolor="<%=Bg%>"> <td width="10%" class="SubTitulo"><%=rsRota("NoOs")%></td> <td width="7%" align="center" class="SubTitulo"><%=rsRota("idServico")%></td> <td width="16%" align="center" class="SubTitulo"><%=left(rsRota("Descricao"),20)%></td> <td width="11%" align="center" class="SubTitulo"><%=rsRota("Periodo")%></td> <td width="6%" align="center" class="SubTitulo"><%=rsRota("Status")%></td> <td width="11%" align="center" class="SubTitulo"><%=rsRota("Cep")%></td> <td width="10%" align="center" class="SubTitulo"><%=left(rsRota("Cidade"),10)%></td> <td width="10%" align="center" class="SubTitulo"><%=left(rsRota("Bairro"),10)%></td> <td width="10%" align="center" class="SubTitulo"><%=left(rsRota("TipoResidencia"),10)%></td> <td width="20%" class="SubTitulo"><input name="chkItem" type="checkbox" class="campo" id="chkItem" value="<%=rsRota("NoOs")%>" /> <%if rsRota("idEmpresa") <> 0 then%> <%=rsRota("idEmpresa")%> <%end if%> - <%if rsRota("idEmpresa")<>0 then%> <%=rsRota("idTecnico")%> <%end if%></td> </tr> <% rsRota.Movenext wEnd end if %> </table></div></td> </tr> </table></td> </tr> <tr> <td colspan="4">&nbsp;</td> <td class="SubTitulo"><input name="optMarca" type="radio" value="radiobutton" onClick="java script: marca_desmarca(true,<%=rs%>);" > Marcar Todas</td> <td span class="SubTitulo"><input name="optDemarca" type="radio" value="radiobutton" onClick="java script: marca_desmarca(false,<%=rs%>);"> Desmarcar Todas</td> </tr> <tr> <td colspan="4">&nbsp;</td> <td width="120" class="SubTitulo">&nbsp;</td> <td width="126" span class="SubTitulo">&nbsp;</td> </tr> </table> </form> </body> </html>