Ir para conteúdo

POWERED BY:

Arquivado

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

vitorlouzada

Adaptação em um script

Por , em ASP Clássico

Recommended Posts

vitorlouzada    0

vitorlouzada
Postado

To tentando fazer uma busca por período.. mas não sei montar a página que deverá fazer a busca e os resultados.. entou tentando.. mas só da erro.. rsrsrs

 

a página do formulário:

<form name="form1" method="post" action="busca.asp">
  Busca data:<br> 
  <input name="data1" type="text" id="data1"> 
  até <br>
  <input name="data2" type="text" id="data2"> 
  <input type="submit" name="Submit" value="Bucar">
</form>
A página de busca:

<% Set Conexao = CreateObject("ADODB.CONNECTION")
conStr ="DBQ=C:\Inetpub\wwwroot\emplacart\dados.mdb;Driver={Microsoft Access Driver (*.mdb)}" 
ConexaoAberta = FALSE
Sub AbreConexao()
	if not ConexaoAberta then
	Conexao.Open ConStr
	ConexaoAberta = True
	end if
end sub
Sub FechaConexao()
	if ConexaoAberta then
	Conexao.close
	ConexaoAberta = False
	end if
end sub %>

<%
Set rs = conexao.Execute("SELECT * FROM pedidos WHERE data BETWEEN  = '" & data1 & "' and '" & data2 & "' ORDER BY data DESC") 
%>
data da pesquisa é: <%=rs("data")%> <br>
<%  rs.MoveNext
  Loop
Else
  Response.Write("Não Foram encontrados registros com essa data")
End if
%>

 

Alguem pode me ajudar a completar esse código?

Compartilhar este post

Link para o post
Compartilhar em outros sites

vitorlouzada    0

vitorlouzada
Postado

troquei o metod do form para get e agora tá dando esse erro aqui:

 

Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A040E)

'loop' sem 'do'

/emplacart/teste/busca.asp, line 22

Loop

 

;(

Compartilhar este post

Link para o post
Compartilhar em outros sites

Luizgrs    0

Luizgrs
Postado

Ali no seu código sem duas linhas estranhas:

ASP
rs.MoveNext

Loop

 

É isso que está causando o erro, já no comando SQL tente substituir os apóstofos (em se tratando de datas) por #.

 

E outra coisa, não está presente aí no código, mas você está preenchendo essas variavéis data1 e data2 com os valores dos campos?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

ou o codigo ta incompleto ou ta errado mesmo a logica

 

o que quer fazer?

Compartilhar este post

Link para o post
Compartilhar em outros sites

JapaPhr    0

JapaPhr
Postado

No código voce não esta recuperando as datas , e seu looping esta errado.

 

Ou voce utiliza por exemplo :

 

do while not rs.eof

response.write rs("data")

rs.moveNext

loop

ou

 

while not rs.eof

response.write rs("data")

rs.movenext

wend

Outra coisa , voce esta fazendo errado para saber se existem registros ou nao.Voce pode usar uma variavel auxiliar como contador.

Compartilhar este post

Link para o post
Compartilhar em outros sites

vitorlouzada    0

vitorlouzada
Postado

Hum...

 

Muito obrigado.. eu consegui resolver de outra forma...

 

ao invés de fazer a busca pela data eu fiz pelo status do pedido.

 

Eu não consigo fazer um sistema pesquisando por BETWEEN de jeito nenhum rsrsrs

 

Vocês tem dica de algum material pelo qual eu posso pesquisar sobr between e aprender mais??

Compartilhar este post

Link para o post
Compartilhar em outros sites

vitorlouzada    0

vitorlouzada
Postado

Boa Tarde...

 

To com um problemão aqui

 

tenho esse sistema todo pronto abaixo de busca, ele busca por todos os campos que tem no bd... bem completo, segue o código:

<% @ LANGUAGE="VBSCRIPT" %>
<%

'*******************************************************************
' Altere os valores das variáveis indicadas abaixo se necessário

'String de conexão para o banco de dados do Microsoft Access
strCon = "DBQ=C:\Inetpub\wwwroot\emplacart\dados.mdb;Driver={Microsoft Access Driver (*.mdb)};"

'Número total de registros a serem exibidos por página
Const RegPorPag = 15

'Número de páginas a ser exibido no índice de paginação
VarPagMax = 10

'Cor da linha selecionada na tabela de registros
cor_linha_selecionada = "gainsboro"

'Nome da página de consulta
pagina_consulta = "relatorio.asp"

'Nome da página de consulta da cidade
pagina_consulta2 = "consultar_cidade.asp"

'Nome da página de consulta da cidade
pagina_consulta3 = "consulta_estado.asp"

'Nome da página de inclusão
pagina_inclusao = "df_inclusao.asp"

'Nome da página de alteração
pagina_alteracao = "alteracao.asp"

'Nome da página de relatórios
pagina_relatorio = "relatorio.asp"

'Nome da página de login
pagina_login = "login.asp"

'Nome da página de logoff
pagina_logoff = "sair.asp"

'*******************************************************************
If Session("admin") <> "" And Session("ip_admin") = Request.ServerVariables("REMOTE_ADDR") Then
%>

<HTML><style type="text/css">
<!--
body {
	background-image: url(../images/fd.jpg);
}
-->
</style>
<HEAD>
<TITLE>Consultar Registros</TITLE>
<meta name="copyright" content="Dataform">
<meta name="keywords" content="dataform, asp dataform, aspdataform, asp-dataform">
<meta name="robots" content="ALL">
<script language="javascript">
function confirmaExclusao(aURL) {
if(confirm('Você tem certeza que deseja excluir?')) {
location.href = aURL;
}
}
</script>

<style type="text/css">
<!--
.texto_pagina
{
font-family: Tahoma, Verdana, Arial;
font-size: 11px;
color: dimgray;
}

.tabela_registros
{
width: 100%;
background-color: white;
}

.titulos_registros
{
font-family: Tahoma, Verdana, Arial;
font-size: 11px;
color: white;
background-color: gray;
}

.exibe_registros
{
font-family: Tahoma, Verdana, Arial;
font-size: 11px;
width: 100%;
color: dimgray;
background-color: whitesmoke;
}

.tabela_paginacao
{
font-family: Tahoma, Verdana, Arial;
font-size: 11px;
width: 100%;
color: gray;
border-top: 1px solid gainsboro;
background-color: gainsboro;
}

.links_paginacao
{
color: dimgray;
text-decoration: none;
}

.links_paginacao:hover
{
color: gray;
text-decoration: underline;
}
-->
</style>
<script language="JavaScript">
<!--
function abre_foto(width, height, nome) {
  var top; var left;
  top = ( (screen.height/2) - (height/2) )
  left = ( (screen.width/2) - (width/2) )
  window.open('',nome,'width='+width+',height='+height+',scrollbars=yes,toolbar=no,location=no,status=no,menubar=no,resizable=no,lef
='+left+',top='+top);
}
function confirm_delete(form) {
  if (confirm("Tem certeza que deseja excluir o registro?")) {
	document[form].action = '<%=Request.ServerVariables("SCRIPT_NAME")%>';
	document[form].submit();
  }
}
//-->
</SCRIPT>
</HEAD>
<BODY class=texto_pagina>
Menu:<br><br> <a href= "principal.asp" class="texto_pagina">Home</a> | <a href="df_inclusao.asp" class="texto_pagina">Inclusão de Clientes</a> | <a href="df_consulta.asp" class="texto_pagina">Consultar Clientes</a> | <a href="particulares/inclusao_particulares.asp" class="texto_pagina">Cadastro de Cliente Particular</a> | <a href="inclusao_pedido.asp" class="texto_pagina">Incluir Pedido de Clientes Particulares</a> | <a href="consultar_renavam.asp" class="texto_pagina">Consultar Renavam </a> | <a href="particulares/consulta_particulares.asp" class="texto_pagina">Consultar Cliente Particular</a> | <a href="relatorio.asp" class="texto_pagina">Relatórios de Pedidos e Alteração de Status</a> | <a href="cons_pedido_particular.asp" class="texto_pagina">Relatórios de Pedidos Particulares e Alteração de Status</a>  | <a href="sair.asp" class="texto_pagina">Sair
<hr size=1 color=gainsboro></a> <br>

<%
If Request.QueryString("PagAtual") = "" Then
  PagAtual = 1
  NumPagMax = VarPagMax
Else
  NumPagMax = CInt(Request.QueryString("NumPagMax"))
  PagAtual = CInt(Request.QueryString("PagAtual"))
  Select Case Request.QueryString("Submit")
	Case "Anterior" : PagAtual = PagAtual - 1
	Case "Proxima" : PagAtual = PagAtual + 1
	Case "Menos" : NumPagMax = NumPagMax - VarPagMax
	Case "Mais" : NumPagMax = NumPagMax + VarPagMax
	Case Else : PagAtual = CInt(Request.QueryString("Submit"))
  End Select
  If NumPagMax < PagAtual then
	NumPagMax = NumPagMax + VarPagMax
  End If
  If NumPagMax - (VarPagMax - 1) > PagAtual then
	NumPagMax = NumPagMax - VarPagMax
  End If
End If

Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open strCon

  If Session("admin") <> "" And Session("ip_admin") = Request.ServerVariables("REMOTE_ADDR") Then
  If Request.Form("recordno") <> "" Then
	Set objRS_delete = Server.CreateObject("ADODB.Recordset")
	objRS_delete.CursorLocation = 3
	objRS_delete.CursorType = 0
	objRS_delete.LockType = 3

	strQ_delete = Request.Form("strQ")
	indice = Trim(Request.Form("indice"))
	If indice <> "" Then strQ_delete = " SELECT * FROM pedido WHERE " & indice

	objRS_delete.Open strQ_delete, objCon, , , &H0001
	If indice = "" Then objRS_delete.Move Request.Form("recordno") - 1
	If Not objRS_delete.EOF Then
	  objRS_delete.Delete
	  objRS_delete.UpdateBatch
	End IF

	objRS_delete.Close
	Set objRS_delete = Nothing
	Set strQ_delete = Nothing
  End If
  End If

Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.CursorLocation = 3
objRS.CursorType = 2
objRS.LockType = 1
objRS.CacheSize = RegPorPag
strQ = "SELECT * FROM pedido"

If Trim(Request("string_busca")) <> "" Then
  If Trim(Request("campo_busca")) <> "" Then
	strQ = strQ & " Where " & Trim(Request("campo_busca")) & " LIKE '%" & Trim(Request("string_busca")) & "%'"
  Else
	strQ = strQ & " Where 1 <> 1"
	strQ = strQ & " Or Código LIKE '%" & Trim(Request("string_busca")) & "%'"
	strQ = strQ & " Or cliente LIKE '%" & Trim(Request("string_busca")) & "%'"
	strQ = strQ & " Or data LIKE '%" & Trim(Request("string_busca")) & "%'"
	strQ = strQ & " Or hora LIKE '%" & Trim(Request("string_busca")) & "%'"
	strQ = strQ & " Or Preco LIKE '%" & Trim(Request("string_busca")) & "%'"
	strQ = strQ & " Or status LIKE '%" & Trim(Request("string_busca")) & "%'"
	strQ = strQ & " Or placa LIKE '%" & Trim(Request("string_busca")) & "%'"
	strQ = strQ & " Or renavam LIKE '%" & Trim(Request("string_busca")) & "%'"
	strQ = strQ & " Or tipo LIKE '%" & Trim(Request("string_busca")) & "%'"
	strQ = strQ & " Or categoria LIKE '%" & Trim(Request("string_busca")) & "%'"
	strQ = strQ & " Or descricao LIKE '%" & Trim(Request("string_busca")) & "%'"
	strQ = strQ & " Or material LIKE '%" & Trim(Request("string_busca")) & "%'"
	strQ = strQ & " Or medida LIKE '%" & Trim(Request("string_busca")) & "%'"
	strQ = strQ & " Or lacre LIKE '%" & Trim(Request("string_busca")) & "%'"
	strQ = strQ & " Or observacao LIKE '%" & Trim(Request("string_busca")) & "%'"
	strQ = strQ & " Or cidades LIKE '%" & Trim(Request("string_busca")) & "%'"
	strQ = strQ & " Or estados LIKE '%" & Trim(Request("string_busca")) & "%'"
  End If
End If

If Trim(Request.QueryString("Ordem")) <> "" Then
  strQ = strQ & " ORDER BY " & Request.QueryString("Ordem")
End If
objRS.Open strQ, objCon, , , &H0001
objRS.PageSize = RegPorPag

Set objRS_indice = Server.CreateObject("ADODB.Recordset")
objRS_indice.CursorLocation = 2
objRS_indice.CursorType = 0
objRS_indice.LockType = 2
strQ_indice = "SELECT * FROM pedido WHERE 1 <> 1"
objRS_indice.Open strQ_indice, objCon, , , &H0001
indice = ""
For Each item In objRS_indice.Fields
  If item.properties("IsAutoIncrement") = True Then
	indice = item.name
	Exit For
  End If
Next
objRS_indice.Close
Set objRS_indice = Nothing
Set strQ_indice = Nothing

Set objRS.ActiveConnection = Nothing
objCon.Close
Set objCon = Nothing
%>

<B>Consultar Registros</B><BR>Visualize os registros da 
tabela abaixo:<BR>
<FORM name="form_busca" method="post" action="<%=Request.ServerVariables("SCRIPT_NAME")%>">
Pesquizar por <INPUT type=text name=string_busca value="<%=Request("string_busca")%>" class=texto_pagina> em
<SELECT name=campo_busca class=texto_pagina>
  <OPTION value="" selected>Registros</OPTION>
  <OPTION value="Código" <% If Trim(Request("campo_busca")) = Trim("Código") Then : Response.Write "selected" : End If %>>Nº Pedido</OPTION>
  <OPTION value="cliente" <% If Trim(Request("campo_busca")) = Trim("cliente") Then : Response.Write "selected" : End If %>>Cliente</OPTION>
  <OPTION value="data" <% If Trim(Request("campo_busca")) = Trim("data") Then : Response.Write "selected" : End If %>>Data</OPTION>
  <OPTION value="hora" <% If Trim(Request("campo_busca")) = Trim("hora") Then : Response.Write "selected" : End If %>>Hora</OPTION>
  <OPTION value="Preço" <% If Trim(Request("campo_busca")) = Trim("Preco") Then : Response.Write "selected" : End If %>>Preço</OPTION>
  <OPTION value="status" <% If Trim(Request("campo_busca")) = Trim("status") Then : Response.Write "selected" : End If %>>Status</OPTION>
  <OPTION value="placa" <% If Trim(Request("campo_busca")) = Trim("placa") Then : Response.Write "selected" : End If %>>Placa</OPTION>
  <OPTION value="renavam" <% If Trim(Request("campo_busca")) = Trim("renavam") Then : Response.Write "selected" : End If %>>Renavam</OPTION>
  <OPTION value="tipo" <% If Trim(Request("campo_busca")) = Trim("tipo") Then : Response.Write "selected" : End If %>>Tipo</OPTION>
  <OPTION value="categoria" <% If Trim(Request("campo_busca")) = Trim("categoria") Then : Response.Write "selected" : End If %>>Categoria</OPTION>
  <OPTION value="descricao" <% If Trim(Request("campo_busca")) = Trim("descricao") Then : Response.Write "selected" : End If %>>Descricao</OPTION>
  <OPTION value="material" <% If Trim(Request("campo_busca")) = Trim("material") Then : Response.Write "selected" : End If %>>Material</OPTION>
  <OPTION value="medida" <% If Trim(Request("campo_busca")) = Trim("medida") Then : Response.Write "selected" : End If %>>Medida</OPTION>
  <OPTION value="lacre" <% If Trim(Request("campo_busca")) = Trim("lacre") Then : Response.Write "selected" : End If %>>Lacre</OPTION>
  <OPTION value="observacao" <% If Trim(Request("campo_busca")) = Trim("observacao") Then : Response.Write "selected" : End If %>>Observação</OPTION>
  <OPTION value="cidades" <% If Trim(Request("campo_busca")) = Trim("cidades") Then : Response.Write "selected" : End If %>>Cidade</OPTION>
  <OPTION value="estados" <% If Trim(Request("campo_busca")) = Trim("estados") Then : Response.Write "selected" : End If %>>Estado</OPTION>
</SELECT>
<INPUT type="submit" name="submit" value="ok" class=texto_pagina style="color: black">
</FORM>

<%
If Not(objRS.EOF) Then
  objRS.AbsolutePage = PagAtual
  TotPag = objRS.PageCount
%>

Foram encontrados <%= objRS.RecordCount%> registros<BR><BR>

<TABLE border=0 cellpadding=2 cellspacing=1 class=tabela_registros>
  <TR class=titulos_registros>

<%
If Session("admin") <> "" And Session("ip_admin") = Request.ServerVariables("REMOTE_ADDR") Then
  Response.Write "<TD align=""center"" style=""background-color: crimson; color: white"" width=""1%"" nowrap><b>Editar</b></TD>"
End IF

If Right(Request.QueryString("Ordem"), 3) = "asc" Then
  Ordem = "desc"
Else
  Ordem = "asc"
End IF
%>

  <TD style="cursor: hand" valign=top nowrap onClick="window.open('<%=Request.ServerVariables("SCRIPT_NAME")%>?Ordem=Código+<%=Ordem%>', '_self')"><%If Left(Request.QueryString("Ordem"), 6) = "Código" Then : Response.Write "<img src=""imagens\ordem_" & Ordem & ".gif"" width=9 height=10> " : End If%><b>Nº Pedido</b></TD>
  <TD style="cursor: hand" valign=top nowrap onClick="window.open('<%=Request.ServerVariables("SCRIPT_NAME")%>?Ordem=cliente+<%=Ordem%>', '_self')"><%If Left(Request.QueryString("Ordem"), 7) = "cliente" Then : Response.Write "<img src=""imagens\ordem_" & Ordem & ".gif"" width=9 height=10> " : End If%><b>Cliente</b></TD>
  <TD style="cursor: hand" valign=top nowrap onClick="window.open('<%=Request.ServerVariables("SCRIPT_NAME")%>?Ordem=data+<%=Ordem%>', '_self')"><%If Left(Request.QueryString("Ordem"), 4) = "data" Then : Response.Write "<img src=""imagens\ordem_" & Ordem & ".gif"" width=9 height=10> " : End If%><b>Data</b></TD>
  <TD style="cursor: hand" valign=top nowrap onClick="window.open('<%=Request.ServerVariables("SCRIPT_NAME")%>?Ordem=hora+<%=Ordem%>', '_self')"><%If Left(Request.QueryString("Ordem"), 4) = "hora" Then : Response.Write "<img src=""imagens\ordem_" & Ordem & ".gif"" width=9 height=10> " : End If%><b>Hora</b></TD>
  <TD style="cursor: hand" valign=top nowrap onClick="window.open('<%=Request.ServerVariables("SCRIPT_NAME")%>?Ordem=Preço+<%=Ordem%>', '_self')"><%If Left(Request.QueryString("Ordem"), 5) = "Preço" Then : Response.Write "<img src=""imagens\ordem_" & Ordem & ".gif"" width=9 height=10> " : End If%><b>Preço</b></TD>
  <TD style="cursor: hand" valign=top nowrap onClick="window.open('<%=Request.ServerVariables("SCRIPT_NAME")%>?Ordem=status+<%=Ordem%>', '_self')"><%If Left(Request.QueryString("Ordem"), 6) = "status" Then : Response.Write "<img src=""imagens\ordem_" & Ordem & ".gif"" width=9 height=10> " : End If%><b>Status</b></TD>
  <TD style="cursor: hand" valign=top nowrap onClick="window.open('<%=Request.ServerVariables("SCRIPT_NAME")%>?Ordem=placa+<%=Ordem%>', '_self')"><%If Left(Request.QueryString("Ordem"), 5) = "placa" Then : Response.Write "<img src=""imagens\ordem_" & Ordem & ".gif"" width=9 height=10> " : End If%><b>Placa</b></TD>
  <TD style="cursor: hand" valign=top nowrap onClick="window.open('<%=Request.ServerVariables("SCRIPT_NAME")%>?Ordem=renavam+<%=Ordem%>', '_self')"><%If Left(Request.QueryString("Ordem"), 7) = "renavam" Then : Response.Write "<img src=""imagens\ordem_" & Ordem & ".gif"" width=9 height=10> " : End If%><b>Renavam</b></TD>
  <TD style="cursor: hand" valign=top nowrap onClick="window.open('<%=Request.ServerVariables("SCRIPT_NAME")%>?Ordem=tipo+<%=Ordem%>', '_self')"><%If Left(Request.QueryString("Ordem"), 4) = "tipo" Then : Response.Write "<img src=""imagens\ordem_" & Ordem & ".gif"" width=9 height=10> " : End If%><b>Tipo</b></TD>
  <TD style="cursor: hand" valign=top nowrap onClick="window.open('<%=Request.ServerVariables("SCRIPT_NAME")%>?Ordem=categoria+<%=Ordem%>', '_self')"><%If Left(Request.QueryString("Ordem"), 9) = "categoria" Then : Response.Write "<img src=""imagens\ordem_" & Ordem & ".gif"" width=9 height=10> " : End If%><b>Categoria</b></TD>
  <TD style="cursor: hand" valign=top nowrap onClick="window.open('<%=Request.ServerVariables("SCRIPT_NAME")%>?Ordem=descricao+<%=Ordem%>', '_self')"><%If Left(Request.QueryString("Ordem"), 9) = "descricao" Then : Response.Write "<img src=""imagens\ordem_" & Ordem & ".gif"" width=9 height=10> " : End If%><b>Descricao</b></TD>
  <TD style="cursor: hand" valign=top nowrap onClick="window.open('<%=Request.ServerVariables("SCRIPT_NAME")%>?Ordem=material+<%=Ordem%>', '_self')"><%If Left(Request.QueryString("Ordem"), 8) = "material" Then : Response.Write "<img src=""imagens\ordem_" & Ordem & ".gif"" width=9 height=10> " : End If%><b>Material</b></TD>
  <TD style="cursor: hand" valign=top nowrap onClick="window.open('<%=Request.ServerVariables("SCRIPT_NAME")%>?Ordem=medida+<%=Ordem%>', '_self')"><%If Left(Request.QueryString("Ordem"), 6) = "medida" Then : Response.Write "<img src=""imagens\ordem_" & Ordem & ".gif"" width=9 height=10> " : End If%><b>Medida</b></TD>
  <TD style="cursor: hand" valign=top nowrap onClick="window.open('<%=Request.ServerVariables("SCRIPT_NAME")%>?Ordem=lacre+<%=Ordem%>', '_self')"><%If Left(Request.QueryString("Ordem"), 5) = "lacre" Then : Response.Write "<img src=""imagens\ordem_" & Ordem & ".gif"" width=9 height=10> " : End If%><b>Lacre</b></TD>
  <TD style="cursor: hand" valign=top nowrap onClick="window.open('<%=Request.ServerVariables("SCRIPT_NAME")%>?Ordem=observacao+<%=Ordem%>', '_self')"><%If Left(Request.QueryString("Ordem"), 10) = "observacao" Then : Response.Write "<img src=""imagens\ordem_" & Ordem & ".gif"" width=9 height=10> " : End If%><b>Observação</b></TD>
  <TD style="cursor: hand" valign=top nowrap onClick="window.open('<%=Request.ServerVariables("SCRIPT_NAME")%>?Ordem=cidades+<%=Ordem%>', '_self')"><%If Left(Request.QueryString("Ordem"), 7) = "cidades" Then : Response.Write "<img src=""imagens\ordem_" & Ordem & ".gif"" width=9 height=10> " : End If%><b>Cidade</b></TD>
  <TD style="cursor: hand" valign=top nowrap onClick="window.open('<%=Request.ServerVariables("SCRIPT_NAME")%>?Ordem=estados+<%=Ordem%>', '_self')"><%If Left(Request.QueryString("Ordem"), 7) = "estados" Then : Response.Write "<img src=""imagens\ordem_" & Ordem & ".gif"" width=9 height=10> " : End If%><b>Estado</b></TD>
  </TR>

<%
For Cont = 1 to objRS.PageSize
%>

  <TR class=exibe_registros onMouseOver="this.style.backgroundColor='<%=cor_linha_selecionada%>';" onMouseOut="this.style.backgroundColor='';">

<%
If Session("admin") <> "" And Session("ip_admin") = Request.ServerVariables("REMOTE_ADDR") Then
  Response.Write "<FORM name=""form_edit_" & Cont & """ action=""" & pagina_alteracao & """ method=post>"
  Response.Write "<TD  align=""center"" nowrap style=""background-color: gainsboro""  nowrap> "
  If indice <> "" Then Response.Write "<input type=""hidden"" name=""indice"" value=""" & indice & "=" & objRS.Fields.Item(indice).Value & """>"
  Response.Write "<INPUT type=hidden name=recordno value=""" & (objRS.AbsolutePosition) & """>"
  Response.Write "<INPUT type=hidden name=strQ value=""" & strQ & """>"
  Response.Write "<INPUT type=image src=""imagens\edit.gif"" alt=""Alterar Registro"" name=alterar value=alterar>"
  If Session("admin") <> "" And Session("ip_admin") = Request.ServerVariables("REMOTE_ADDR") Then
  Response.Write " <IMG src=""imagens\delete.gif"" alt=""Excluir Registro"" name=delete border=0 style=""cursor:hand"" OnClick=""confirm_delete('form_edit_" & Cont & "')"">"
  End If
  Response.Write " </TD>"
  Response.Write "</FORM>"
End If
%>

	<TD><%=(objRS.Fields.Item("Código").Value)%></TD>
	<TD><%=(objRS.Fields.Item("cliente").Value)%></TD>
	<TD><%=(objRS.Fields.Item("data").Value)%></TD>
	<TD><%=(objRS.Fields.Item("hora").Value)%></TD>
	<TD><%=(objRS.Fields.Item("preco").Value)%></TD>
	<TD><%=(objRS.Fields.Item("status").Value)%></TD>
	<TD><%=(objRS.Fields.Item("placa").Value)%></TD>
	<TD><%=(objRS.Fields.Item("renavam").Value)%></TD>
	<TD><%=(objRS.Fields.Item("tipo").Value)%></TD>
	<TD><%=(objRS.Fields.Item("categoria").Value)%></TD>
	<TD><%=(objRS.Fields.Item("descricao").Value)%></TD>
	<TD><%=(objRS.Fields.Item("material").Value)%></TD>
	<TD><%=(objRS.Fields.Item("medida").Value)%></TD>
	<TD><%=(objRS.Fields.Item("lacre").Value)%></TD>
	<TD><%=(objRS.Fields.Item("observacao").Value)%></TD>
	<TD><%=(objRS.Fields.Item("cidades").Value)%></TD>
	<TD><%=(objRS.Fields.Item("estados").Value)%></TD>
  </TR>

<%
  objRS.MoveNext
  If objRS.Eof then Exit For
Next
Set Cont = Nothing
%>

<TR>
  <TD colspan="18"><%LinksNavegacao()%></TD>
</TR>

</TABLE>

<%
  If indice = "" Then
	Response.Write "<BR><B>ATENÇÃO:</B> Crie um campo do tipo <i>AutoIncrement</i> com qualquer nome em sua tabela para evitar erros na alteração dos dados. "
	Response.Write "<a href=""http://www.dataform.com.br/criar_campo_autoincrement.asp"" target=""_blank"">Clique aqui</a> para mais detalhes."
  End If
  objRS.Close
  Set objRS = Nothing
Else
%>

<BR><B>Nenhum registro foi encontrado</B><BR><BR>

<%
End If
%>

</BODY>
</HTML>
<%
Else
  Response.Write "<B>Acesso negado...</B> somente o administrador do site tem acesso a esta página."
  Response.Write "<BR><a href=""" & pagina_login & """ class=""texto_pagina"">Clique aqui</a> para efetuar login no sitema"
End If
%>
<%
Sub LinksNavegacao()
'O código a seguir insere uma tabela com todos os links de navegação das páginas
Response.Write "<TABLE border=0 cellPadding=2 cellSpacing=0 class=tabela_paginacao>"
Response.Write "<TR><TD align=center vAlign=top noWrap colspan=5>"
Response.Write "Página " & PagAtual & " de " & TotPag
Response.Write "</TD></TR><TR><TD width=33% align=right vAlign=top noWrap>"
If PagAtual > 1 Then
  Response.Write "<A href=""" & Request.ServerVariables("SCRIPT_NAME") & "?PagAtual=" &  PagAtual &"&VarPagMax=" & VarPagMax & "&NumPagMax=" & NumPagMax & "&Submit=Anterior&Ordem=" & Request.QueryString("Ordem")& "&string_busca=" & Server.URLEncode(Request("string_busca")) & "&campo_busca=" & Server.URLEncode(Request("campo_busca"))  & """ class=links_paginacao>< Anterior</A>"
End If
Response.Write "</TD><TD width=33% align=middle vAlign=top noWrap>"
If NumPagMax - VarPagMax <> 0 then
  Response.Write " <A href=""" & Request.ServerVariables("SCRIPT_NAME") & "?PagAtual=" & NumPagMax - VarPagMax & "&VarPagMax=" & VarPagMax & "&NumPagMax=" & NumPagMax - VarPagMax & "&Submit=Menos&Ordem=" & Request.QueryString("Ordem") & "&string_busca=" & Server.URLEncode(Request("string_busca")) & "&campo_busca=" & Server.URLEncode(Request("campo_busca")) & """ class=links_paginacao><<</A>  "
End If
for i = NumPagMax - (VarPagMax - 1) to NumPagMax
  If i <= TotPag then
	If i <> CInt(PagAtual) then
	  Response.Write " <A href=""" & Request.ServerVariables("SCRIPT_NAME") & "?PagAtual=" & PagAtual & "&VarPagMax=" & VarPagMax & "&NumPagMax=" & NumPagMax & "&Submit=" & i & "&Ordem=" & Request.QueryString("Ordem") & "&string_busca=" & Server.URLEncode(Request("string_busca")) & "&campo_busca=" & Server.URLEncode(Request("campo_busca")) & """ class=links_paginacao>" & i & "</A> "
	Else
	  If PagAtual <> TotPag Then
		Response.Write " " & i & " "
	  End If
	End If
  End If
Next
If NumPagMax  < TotPag then
  Response.Write "  <A href=""" & Request.ServerVariables("SCRIPT_NAME") & "?PagAtual=" & NumPagMax + 1 & "&VarPagMax=" & VarPagMax & "&NumPagMax=" & NumPagMax + VarPagMax & "&Submit=Mais&Ordem=" & Request.QueryString("Ordem") & "&string_busca=" & Server.URLEncode(Request("string_busca")) & "&campo_busca=" & Server.URLEncode(Request("campo_busca")) & """ class=links_paginacao>>></A>"
End If
Response.Write "</TD><TD width=33% align=left vAlign=top noWrap>"
If PagAtual <> TotPag Then
  Response.Write "  <A href=""" & Request.ServerVariables("SCRIPT_NAME") & "?PagAtual=" & PagAtual & "&VarPagMax=" & VarPagMax & "&NumPagMax=" & NumPagMax & "&Submit=Proxima&Ordem=" & Request.QueryString("Ordem") & "&string_busca=" & Server.URLEncode(Request("string_busca")) & "&campo_busca=" & Server.URLEncode(Request("campo_busca")) & """ class=links_paginacao>Proxima ></A>"
End If
Response.Write "</TD></TR></TABLE>"
End Sub
%>

Bem grande.. rsrs..

 

Mas então eu queria acrescentar nesse sistema uma busca por períodos de datas e que o resultado aparecesse na mesma forma que já aparece, como que eu posso fazer isso?alguem tem uma dica???

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