cyberalexxx

tenta assim: Procura= "select * from compressores_om where ordem_servico_tipo like '%"& request.form("ordem_servico_tipoForm") & "%'"

o que eu sei é que o arquivo global.asa deve ficar no raiz do diretorio virtual.

é isso ai que o Dark0 disse mesmo, só para complementar, caso existam muitos campos crie uma função que faça a verificação e a exibição dos dados. EDITADO Olha aki a função: function exibe(valor) if valor = "" then response.write "0" else response.write valor end if end function Como usar: exibe rs.fields("campo")

é que mudando o valor da variavel var_data voce esta invalidando a validação, pois ela sempre sera diferente do valor do recordset, deixa assim: if left(var_data,10) <> left(rs("data"),10) Then var_data = rs("data") response.write "<b>" & rs("data") & "</b>" & "<br>" end if

Sim isso é possivel, e é uma das duvidas mais frequentes no forum, faça uma busca no forum por paginação você vai achar muita coisa sobre isso. Olhe aki a busca: http://scriptbrasil.com.br/forum/index.php...e=pagina%E7%E3o

versão velha é complicada principalmente trial, porque os sites que disponibilizam isso geralmente atualizam, por se tratar de versão trial, acredito que as versões antigas estejam expiradas. já tentou em alguma rede P2P (obs: isso não é pirataria é versão trial)

é isso que você quer?? <%set conexao=server.createobject("adodb.connection") caminho="DBQ=" & server.mappath("banco.mdb") conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & caminho SQL = "INSERT INTO tabela(Data) VALUES (" SQL = SQL & "'" & date() & "')" set rs=conexao.execute(SQL) %>

me lembro da sua duvida anterior sobre a exibição da hora na frente das noticias, esta acontecendo isso porque o campos que grava a data grava a hora tambem, tenta assim:

tenta assim:

Da uma olhada se o componente esta instalado, é só rodar esse script: <% Dim comList(55) comList(0) = Array( "AB Mailer","ABMailer.Mailman" ) comList(1) = Array( "ABC Upload","ABCUpload4.XForm" ) comList(2) = Array( "ActiveFile","ActiveFile.Post" ) comList(3) = Array( "ActiveX Data Object","ADODB.Connection" ) comList(4) = Array( "Adiscon SimpleMail","ADISCON.SimpleMail.1" ) comList(5) = Array( "ASP DNS", "AspDNS.Lookup" ) comList(6) = Array( "ASP HTTP","AspHTTP.Conn" ) comList(7) = Array( "ASP Image","AspImage.Image" ) comList(8) = Array( "ASP Mail","SMTPsvg.Mailer" ) comList(9) = Array( "ASP NNTP News", "AspNNTP.Conn" ) comList(10) = Array( "ASP POP 3", "POP3svg.Mailer" ) comList(11) = Array( "ASP Simple Upload","ASPSimpleUpload.Upload" ) comList(12) = Array( "ASP Smart Cache","aspSmartCache.SmartCache" ) comList(13) = Array( "ASP Smart Mail","aspSmartMail.SmartMail" ) comList(14) = Array( "ASP Smart Upload","aspSmartUpload.SmartUpload" ) comList(15) = Array( "ASP Tear","SOFTWING.ASPtear" ) comList(16) = Array( "ASP Thumbnailer","ASPThumbnailer.Thumbnail" ) comList(17) = Array( "ASP WhoIs","WhoIs2.WhoIs" ) comList(18) = Array( "ASPSoft NT Object","ASPSoft.NT" ) comList(19) = Array( "ASPSoft Upload","ASPSoft.Upload" ) comList(20) = Array( "CDO NTS","CDONTS.NewMail" ) comList(21) = Array( "Chestysoft Image","csImageFile.Manage" ) comList(22) = Array( "Chestysoft Upload","csASPUpload.Process" ) comList(23) = Array( "Dimac JMail","JMail.Message" ) comList(24) = Array( "Distinct SMTP","DistinctServerSmtp.SmtpCtrl" ) comList(25) = Array( "Dundas Mailer","Dundas.Mailer" ) comList(26) = Array( "Dundas Upload","Dundas.Upload.2" ) comlist(27) = Array( "Dundas PieChartServer", "Dundas.ChartServer.2") comlist(28) = Array( "Dundas 2D Chart", "Dundas.ChartServer2D.1") comlist(29) = Array( "Dundas 3D Chart", "Dundas.ChartServer") comList(30) = Array( "Dynu Encrypt","Dynu.Encrypt" ) comList(31) = Array( "Dynu HTTP","Dynu.HTTP" ) comList(32) = Array( "Dynu Mail","Dynu.Email" ) comList(33) = Array( "Dynu Upload","Dynu.Upload" ) comList(34) = Array( "Dynu WhoIs","Dynu.Whois" ) comList(35) = Array( "Easy Mail","EasyMail.SMTP.5" ) comList(36) = Array( "File System Object","Scripting.FileSystemObject" ) comList(37) = Array( "Ticluse Teknologi HTTP","InteliSource.Online" ) comList(38) = Array( "Last Mod","LastMod.FileObj" ) comList(39) = Array( "Microsoft XML Engine","Microsoft.XMLDOM" ) comList(40) = Array( "Persits ASP JPEG","Persits.Jpeg" ) comList(41) = Array( "Persits ASPEmail","Persits.MailSender" ) comList(42) = Array( "Persits ASPEncrypt","Persits.CryptoManager" ) comList(43) = Array( "Persits File Upload","Persits.Upload.1" ) comList(44) = Array( "SMTP Mailer","SmtpMail.SmtpMail.1" ) comList(45) = Array( "Soft Artisans File Upload","SoftArtisans.FileUp" ) comList(46) = Array( "Image Size", "ImgSize.Check" ) comList(47) = Array( "Microsoft XML HTTP", "Microsoft.XMLHTTP" ) comList(48) = Array( "Zaks POP3 ", "zakspop3.Server" ) comList(49) = Array( "MS XML ", "MSXML_PROGID2" ) comList(50) = Array( "ASPUpLoad ", "ASPUpLoad.clsUpload" ) comList(51) = Array( "MSXML2 ", "MSXML2.ServerXMLHTTP" ) comList(52) = Array( "AspCrypt ", "AspCrypt.Crypt" ) comList(53) = Array( "AspZip ", "aspZip.EasyZIP" ) comList(54) = Array( "Imagem Glue ", "ImageGlue5.Canvas" ) comList(55) = Array( "Image Effects", "ImageEffects.FX" ) Function TestObject( comIdentity ) On Error Resume Next TestObject = False Err.Clear Set xTestObj = Server.CreateObject( comIdentity ) If Err = 0 Then TestObject = True Set xTestObj = Nothing Err.clear End Function Public Function CheckCOM() OKCount = 0 strTxt = "<table border=1 bordercolor=black cellspacing=0 cellpadding=0 align=center width=400>" For Idx = LBound( comList ) To UBound( comList ) Provider = Idx strTxt = strTxt & "<tr><td width=200>" & comList(Idx)(0) & "</td>" 'strTxt = strTxt & "" If TestObject( comList(Idx)(1) ) Then strTxt = strTxt & "<td align=center><font color=red>Instalado</font></td>" OKCount = OKCount + 1 Else strTxt = strTxt & "<td align=center>Não Instalado</td>" End If strTxt = strTxt & "</tr>" Next strTxt = strTxt & "</table><p align=center><b>" & OKCount & "</b> de " strTxt = strTxt & UBound( comList ) + 1 & " componentes estão avaliados em seu servidor.</p>" CheckCOM = strTxt End Function Response.Write( CheckCOM() ) %>

tenta assim: if mid(cotacoes,cont,1) = ";" or mid(cotacoes,cont,1) = " " or mid(cotacoes,cont,1) = Chr(10) then

Se voce não pode alterar as propriedades do recordset, acho que tem que ser "na raça" pelo método "gambi" (leia-se gambiarra) passe o parametro de pagina no link tipo pagina=3 e coloque comparações na hora de exibir os registros, tipo: pagina = Request("pagina") i = 1 Do while not RecordSet.Eof if i > ((pagina-1)*22) and i < ((pagina*22)+1) then ' mostra os dados end if RecordSet.MoveNext i = i + 1 loop essa é uma idéia. Ai voce tera também que fazer alguns ajustes/considerações, tipo algumas alterações caso seja a primeira pagina. monitorar o total de registros, mais isso não é dificil. T+

Se não esta mudando é porque voce esta pegando o mes através de date(), voce tera que que pegar o valor do mes nos dados que estão sendo lidos. Posta o seu código pra gente ver como esta sendo feito hoje, para poder sugerir alguma mudança.

beleza!! Bro!! Após mais um arduo dia de trabalho não tive mais a mensagem de memoria virtual baixa. em alguns momentos com a fila de impressão cheia o desenpenho caiu um pouco, mais não chegou a ficar a "carroça" que tava antes. Acho que resolveu. Valeu []'s

da pra usar: RecordSet.RecordCount

beleza!! to fechando o tópico. []'s

Antes de criar o RecordSet são feitas varias comparoções (IFs) no seu código, voce verificou se alguma condição dakela esta sendo atendida, de modo que o RecordSet seja criado.

Qual é a linha 55???

Sem refresh, acho q não dá! para não atualizar a pagina toda, você pode criar um iframe e dar um refresh só na pagina do frame e disparar um pop-up quando houver atendimento a ser feito.

muda automatico sim. é so colocar assim no link depois de fazer o select case: pagina.asp?mes=<%=mes%>

Não tem a descrição do erro?? Caso não, desabilite a opção Mostrar mensagens de erro http amigaveis no seu navegador em Ferramentas, opções da Internet, avançadas.

é isso ai que o DARK0 disse, caso queira o nome do mes da pra fazer assim: select case month(now) case 1 mes="janeiro" case 2 mes="fevereiro" case 11 mes="novembro" case 12 mes="dezembro" end select pronto o nome do mes fica na variavel mes.

tópico fechado!!

Calma!! através de uma busca no forum você conseguiria exemplos de como resolver seu problema. Segue abaixo um código que eu já tinha pronto aki, que faz o q você quer, tente adapta-lo ao seu sistema. <% ' Definindo o caminho do banco de dados caminho = server.mappath("vendas.mdb") ' Fazendo a conexão com o banco de dados (paginacao.mdb) set objconn = Server.CreateObject("ADODB.Connection") DSN = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & caminho objconn.Open DSN ' String SQL para consulta SQL = "select * from vendas" ' Abrindo o registro SET objRS = Server.CreateObject("ADODB.Recordset") objRS.Open SQL,objconn,3 ' Se não encontrar nada escreve a mensagem ' Senão lista os registros If objRS.EOF Then Response.Write("Nenhum registro foi encontrado") Else ' Definindo o número de registros por página objRS.PageSize = 10 ' Recupera o valor da variável pagina pagina = Request.QueryString("pagina") ' Se a variável pagina for vazio, indica que a página sera a primeira ' Senão a variável pagina recebe o valor da página corrente, definida acima If pagina = "" Then objRS.AbsolutePage = 1 pagina = 1 Else objRS.AbsolutePage = pagina End If %> <% ' Imprime o número de registros, o total de páginas e a página atual Response.Write("<table><tr><td><FONT FACE=Verdana SIZE=1 COLOR=#000000><B>Foram encontrados" & objRS.RecordCount & " registros" & vbcrlf ) Response.Write("<br>Mostrando página <b>" & pagina & "</b> de <b>" & objRS.PageCount & "" & vbcrlf ) Response.Write("<br><FONT FACE=Verdana SIZE=1 COLOR=#000000><B>Busca Avançada <a href='#' onClick=javascript:window.open('../busca_avc.asp','','width=200,height=50,scrollbars=no, resizable=no,left=00,top=0');>aqui</a></B></FONT></td></tr></table>") %> <% ' Criando a barra de navegação ' Se a variável pagina for maior que 1 então imprime o botão Anterior com link ' Senão imprime sem link If CInt(pagina) > 1 Then Response.Write("<center><FONT FACE=Verdana SIZE=1 COLOR=#000000><B><a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & pagina-1 & "'>Anterior</a> ") Else Response.Write("<center><FONT FACE=Verdana SIZE=1 COLOR=#000000><B>Anterior") End If ' Lista todas as páginas encontradas if objRs.PageCount < 6 then For i = 1 To objRS.PageCount if i <> CInt(pagina) then response.write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & i & "'>" & i & "</a> ") end if Next end if if objRs.PageCount > 5 then inicio=pagina fim=pagina + 4 tot = pagina + 4 if tot > ObjRS.PageCount then inicio = pagina-((pagina+4)-ObjRs.PageCount) fim = inicio+4 end if for i = inicio to fim if i <> CInt(pagina) then response.write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & i & "'>" & i & "</a> ") end if next end if ' Se a variável pagina for menor que o total de páginas então imprime o botão Próxima com link ' Senão imprime sem link If CInt(pagina) < objRS.PageCount Then Response.Write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & pagina+1 & "'>Próxima</a></B></FONT></center>") Else Response.Write("Próxima</B></FONT></center>") End If End If %> <% 'mostrando os dados While Not objRS.EOF AND cont < objRS.PageSize response.write objRS.fields("data") & "<br>" response.write objRS.fields("nome") & "<br>" cont = cont + 1 objRS.MoveNext Wend %> </tr> </table> <% ' Fecha e destroi os objetos RS e conn objRS.Close : objconn.Close Set RS = Nothing : Set objconn = Nothing %>

Mano.. qual seu sistema operacional? Se for windows 98.. não sei se existe alguma coisa a se fazer.. pois ele realmente não consegue gerenciar impressões corretamente. Se for 2000/xp você pode tentar aumentar a memoria virtual, e deixar ela em um valor fixo.. algo como 3x total de memoria ram. No mais, quem sabe, reinstalar o driver da impressora, tentar colocar um mais atualizado. Abraços Coloquei a memoria virtual no máximo com você disse, agora vou aguardar pra ver o andamento da coisa. Valeu brow!! []'s