Urgente...

Dezembro 17, 2003

Olá galera, alguém poderia colocar um codigo de paginacao nesta pagina pra mim...se quiser pode mandar pro meu e-mail derick.guitar@bol.com.br

<%

Dim strURL

Dim cnnSearch

Dim rstSearch

Dim strDBPath

Dim strSQL

Dim strSearch

inicio = Timer

function TiraAcento(StrAcento)

for i = 1 to len(StrAcento)

Letra = mid(StrAcento, i, 1)

Select Case Letra

Case "á","Á","à","À","ã","Ã","â","Â","â","ä","Ä"

Letra = "A"

Case "é","É","ê","Ê","Ë","ë","È","è"

Letra = "E"

Case "í","Í","ï","Ï","Ì","ì"

Letra = "I"

Case "ó","Ó","ô","Ô","õ","Õ","ö","Ö","ò","Ò"

Letra = "O"

Case "ú","Ú","Ù","ù","ú","û","ü","Ü","Û"

Letra = "U"

Case "ç","Ç"

Letra = "C"

Case "não"

Letra = "N"

End Select

texto = texto & Letra

end function

strURL = Request.ServerVariables("URL")

strSearch = Request.QueryString("Pesquisa")

%>

<html>

<head>

</head><body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

<table>

<tr>

<tr>

<td width="232" height="19" valign="top"><div align="center"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Busca</strong></font></div></td>

</tr>

</table>

<tr>

<tr>

<tr>

<td bgcolor="#FFFFFF"> <form action="<%= strURL %>" method="get">

<option>Usuario Ouro</option>

<option>Usuario Normal</option>

</select>

  </font>

<input name="Pesquisa" class="unnamed1" value="<%= strSearch %>" size="30" maxlength="45" />

</div>

</form>

<% dim tipo

tipo = (request.QueryString("Tipo"))

if strSearch <> "" then

strDBPath = Server.MapPath("Usuarios.mdb")

Const adUseClient = 3

Set cnnSearch = Server.CreateObject("ADODB.Connection")

cnnSearch.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"

cnnSearch.CursorLocation = adUseClient

if tipo = "Usuario Ouro" then

strSQL = "SELECT * " _

& "FROM Usu_Ouro " _

& "WHERE Nome LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _

& "ORDER BY Nome;"

end if

if tipo = "Usuario Normal" then

strSQL = "SELECT * " _

& "FROM Usu_Normal " _

& "WHERE Nome LIKE '%" & TiraAcento(Replace(strSearch, "'", "''")) & "%' " _

& "ORDER BY Nome;"

end if

Set rstSearch = cnnSearch.Execute(strSQL)

intContador = rstSearch.RecordCount

%>

<font size="1" face="Verdana, Arial, Helvetica, sans-serif">                                       [

Foram encontradas <b><%=intContador%></b> ocorrências

] <br>

<br>

</font> </div>

</tr>

</table>

<%

Do While Not rstSearch.EOF

%>

<% response.Write "<font face='Verdana' size='1'><a target='_blank' href=links.asp?ID=" & rstSearch.fields("ID") & ">" & rstSearch.fields("Nome").value%> - </td>

</tr>

</table>

<%

rstSearch.MoveNext

Loop

%>

                                  Sua

busca foi processada em

<%response.write FormatNumber( Timer - inicio, 2 )%>

segundos.</font> <br>

<%

rstSearch.Close

Set rstSearch = Nothing

cnnSearch.Close

Set cnnSearch = Nothing

end if

%>

</div>

</div></td>

</tr>

</table>

</div>

</td>

</tr>

</table>

</td>

</tr>

<tr>

</tr>

</table>

</table>

</body>

William Rodrigues · Dezembro 17, 2003

Brother !!!!

Fazendo você aprender....

Abraços,

Entrar

Urgente...

Pergunta

Guest derick.guitar

Link para o comentário

Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

William Rodrigues

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades