Joabers

Valeu pela força eu já consegui fazer...

mas eu não posso colocar mais de um campo no link... acrescentar depois de estado localidade?

SOS Alguém ve esse codigo...

Será que ninguém pode me ajudar nisso... Este codigo determina que tenha o link... if cstr(counter) <> mypage then ref="<a href='" & scriptname ref=ref & "?whichpage=" & counter & "&pagesize=" & mypagesize ref=ref & "&Estado=" & Estado& "'>" & pad & counter & "</a>" else ref="<b>" & pad & counter & "</b>" end if response.write ref if counter <> counterend then response.write " " Beleza mais quando aperece pagina dois e eu clico ele não corresponde ao que eu quero.. Exemplo: se eu localizar uma cidade no estado do rio ele acha mais na proxima pagina ele vai buscar todas as cidades no estado do rio... porque eru não sei como acresecentar localidade tb na paginação...

Eu fiz uma busca no banco de dados e funciona beleza.. mas quando tem paginação ocorre que a primeira pagina ele busca certo.. mas na segunda ele só busca pelo estado não vai a localide de produto... quer dizer que ele muda a partir da segunda porque eu só coloquei para estado... Eu preciso que ele continue paginando corretamente... If isPrev = False AND isNext = True AND isEnd = False then w2 = " &nbsp;<strong><a HREF=" & scriptname & "?whichpage=" & nextpage & "&pagesize=" & mypagesize & "&Estado=" & Estado& "><font face=Arial size=2>[Próxima&nbsp;&gt;]</font></a></strong>" k2 = "" End If if isPrev = True AND isNext = True AND isEnd = False then w2 = " &nbsp;<strong><a HREF=" & scriptname & "?whichpage=" & prevpage & "&pagesize=" & mypagesize & "&Estado=" & Estado& "><font face=Arial size=2>[<&nbsp;Anterior]</font></a></strong>" k2 = " &nbsp;<strong><a HREF=" & scriptname & "?whichpage=" & nextpage & "&pagesize=" & mypagesize & "&Estado=" & Estado& "><font face=Arial size=2>[Próxima&nbsp;&gt;]</font></a></strong>" end if if isPrev = True AND isNext = False AND isEnd = True then w2 = " &nbsp;<strong><a HREF=" & scriptname & "?whichpage=" & prevpage & "&pagesize=" & mypagesize & "&Estado=" & Estado& "><font face=Arial size=2>[<&nbsp;Anterior]</font></a></strong>"

alguém me ajuda a corrigir este erro... Quero que funcione a paginaçao por localidade - estado e produto desta forma só estado funciona <% if Not iResultCount = 0 then Dim w2, pad, k2, ref, scriptname, isPrev, isNext, isEnd, counter Dim nextpage, prevpage, intPageDisp, counterstart, counterend, pagesize2, again pad="" scriptname=request.servervariables("script_name") if iResultCount <> "0" Then response.write "<font size='2' color='black' face='Verdana, Arial,Helvetica, sans-serif'>&nbsp;Resultado das Páginas: " else end if if (mypage mod 10) = 0 then counterstart = mypage - 9 else counterstart = mypage - (mypage mod 10) + 1 end if counterend = counterstart + 9 if counterend > maxpages then counterend = maxpages Response.Write open for counter=counterstart to counterend If counter>=10 then pad="" end if if cstr(counter) <> mypage then ref="<a href='" & scriptname ref=ref & "?whichpage=" & counter & "&pagesize=" & mypagesize ref=ref & "&Estado=" & Estado& "'>" & pad & counter & "</a>" else ref="<b>" & pad & counter & "</b>" end if response.write ref if counter <> counterend then response.write " " next Response.Write close ' Find out if there should be Backward or Forward Buttons on the table. intPageDisp = False if mypage = 1 AND RS.recordcount = 9 then isPrev = False isNext = False isEnd = True elseif mypage = 1 then isPrev = False isNext = True isEnd = False elseif mypage > 1 AND ok = RS.recordcount then isPrev = True isNext = False isEnd = True else isPrev = True isNext = True isEnd = False End If if RS.recordcount <= 10 then isNext = False else nextpage = mypage + 1 prevpage = mypage - 1 end if If isPrev = False AND isNext = True AND isEnd = False then w2 = " &nbsp;<strong><a HREF=" & scriptname & "?whichpage=" & nextpage & "&pagesize=" & mypagesize & "&Estado=" & Estado& "><font face=Arial size=2>[Próxima&nbsp;&gt;]</font></a></strong>" k2 = "" End If if isPrev = True AND isNext = True AND isEnd = False then w2 = " &nbsp;<strong><a HREF=" & scriptname & "?whichpage=" & prevpage & "&pagesize=" & mypagesize & "&Estado=" & Estado& "><font face=Arial size=2>[<&nbsp;Anterior]</font></a></strong>" k2 = " &nbsp;<strong><a HREF=" & scriptname & "?whichpage=" & nextpage & "&pagesize=" & mypagesize & "&Estado=" & Estado& "><font face=Arial size=2>[Próxima&nbsp;&gt;]</font></a></strong>" end if if isPrev = True AND isNext = False AND isEnd = True then w2 = " &nbsp;<strong><a HREF=" & scriptname & "?whichpage=" & prevpage & "&pagesize=" & mypagesize & "&Estado=" & Estado& "><font face=Arial size=2>[<&nbsp;Anterior]</font></a></strong>" k2 = "" end if if isPrev = False AND isNext = False AND isEnd = true then w2 = "" k2 = "" end if response.write w2 & k2 response.write "" & again %> <% else response.write "<center><br>Desculpa nenhuma ocorrência encontrada.</center>" end if RS.close set RS=nothing %>

Eu tentei da um erro... Preciso ver um exemplo como ficaria...

Sim e esta Como Objeto Ole...

Funciona tudo menos a foto <% Set conn = Server.CreateObject("ADODB.Connection") conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("clientes.mdb") Dim mypage, mypagesize mypage=request.querystring("whichpage") mypagesize=request("pagesize") If mypage="" then mypage=1 end if If mypagesize="" then mypagesize=10 end if 'Cria nossa variável de instrução de SQL Dim strSQL Dim strWhere Dim RS, sql set RS = Server.CreateObject("ADODB.Recordset") localidade = request("localidade") produto = request("produto") estado = request("estado") empresa = request("empresa") sql = "select * from search where Cidade like '%" & localidade & "%' and NomeFantasia like '%" & empresa & "%' and Estado like '%" & estado & "%' and RamoDeAtividade like '%" & produto & "%'" RS.Open sql, conn, adOpenStatic, adLockReadOnly, adCmdText if NOT RS.EOF then RS.movefirst RS.pagesize=mypagesize Dim maxpages, maxpage, maxrecs, howmanyrecs, howmanyfields Dim close, open, iResultCount, ok Dim whichpage, all RS.Movefirst maxpages=cint(RS.pagecount) maxpage = maxpages maxrecs=cint(RS.pagesize) RS.absolutepage=mypage howmanyrecs=0 howmanyfields=RS.fields.count -1 close = "]" open = "[" else close = "" open = "" end if if NOT RS.Eof Then iResultCount = (mypagesize * (mypage - 1)) + 1 else iResultCount = "0" end if if iResultCount + 9 > RS.recordcount then ok = RS.recordcount else ok = iResultCount + 9 end if all = RS.recordcount do UNTIL RS.eof OR howmanyrecs>=maxrecs if NOT RS.eof then RamoDeAtividade = RS("RamoDeAtividade") NomeFantasia = RS("NomeFantasia") Endereco = RS("Endereco") Bairro = RS("Bairro") Cidade = RS("Cidade") Estado = RS("Estado") Telefone = RS("Telefone") Email = RS("Email") Site = RS("Site") %><font face="Verdana"> </font> <b><font face="Verdana" size="1" color="#000080"><%= RamoDeAtividade %></a></font></b><font face="Verdana"> <br> </font> <font face="Verdana" size="1" color="navy">Nome de Fantasia: <%= NomeFantasia %></font><font face="Verdana"> <br> </font> <font face="Verdana" size="1" color="navy">Endereço: <%= Endereco %></font><font face="Verdana"> <br> </font> <font face="Verdana" size="1" color="navy">Bairro: <%= Bairro %></font><font face="Verdana"> <br> </font> <font face="Verdana" size="1" color="navy">Cidade: <%= Cidade %></font><font face="Verdana"> <br> </font> <font face="Verdana" size="1" color="navy">Estado: <%= Estado %></font><font face="Verdana"> <br> </font> <font face="Verdana" size="1" color="navy">Telefone: <%= Telefone %></font><font face="Verdana"> <br> </font> <font face="Verdana" size="1" color="navy"><b>E-mail: </b><a href="mailto:<%= Email %>"><%= Email %></a></font><font face="Verdana"> <br> </font> <font face="Verdana" size="1" color="navy"><b>Site: </b><a href="<%= Site %>"><%= Site %></a></font><font face="Verdana"> <br> <img src="Foto/<%= rs("Foto")%>"width="150" height="80"> <br> <br> </font><b> </b> </tr>

Eu sei que deve ser dificil mas não estou conseguindo vizualizar uma foto de um banco de dados... Alguém pode me ajudar no codigo... Este é o retorno a conexao e a busca ta ok.. só da erro porque não visulaiza a foto... RamoDeAtividade = RS("RamoDeAtividade") NomeFantasia = RS("NomeFantasia") Endereco = RS("Endereco") Bairro = RS("Bairro") Cidade = RS("Cidade") Estado = RS("Estado") Telefone = RS("Telefone") Email = RS("Email") Site = RS("Site") Foto = RS("Foto") %><font face="Verdana"> </font> <b><font face="Verdana" size="1" color="#000080"><%= RamoDeAtividade %></a></font></b><font face="Verdana"> <br> </font> <font face="Verdana" size="1" color="navy">Nome de Fantasia: <%= NomeFantasia %></font><font face="Verdana"> <br> </font> <font face="Verdana" size="1" color="navy">Endereço: <%= Endereco %></font><font face="Verdana"> <br> </font> <font face="Verdana" size="1" color="navy">Bairro: <%= Bairro %></font><font face="Verdana"> <br> </font> <font face="Verdana" size="1" color="navy">Cidade: <%= Cidade %></font><font face="Verdana"> <br> </font> <font face="Verdana" size="1" color="navy">Estado: <%= Estado %></font><font face="Verdana"> <br> </font> <font face="Verdana" size="1" color="navy">Telefone: <%= Telefone %></font><font face="Verdana"> <br> </font> <font face="Verdana" size="1" color="navy"><b>E-mail: </b><a href="mailto:<%= Email %>"><%= Email %></a></font><font face="Verdana"> <br> </font> <font face="Verdana" size="1" color="navy"><b>Site: </b><a href="<%= Site %>"><%= Site %></a></font><font face="Verdana"> <br> <img src="Foto/<%= rs("Foto")%>"width="150" height="80"> <br> <br> </font><b> Erro Microsoft OLE DB Provider for ODBC Drivers error '80040e21' Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done.

Esta forma que voce passou continua a mesma coisa pois estou buscando so pela cidade e da ocorrencia não encontrada so acha a cidade se colocar o estado o que eu quero e localiza tudo mesmo que fique sem o estado...

Fiz uma busca em um banco de daos mais quando vou consulta por uma localidade ou produto sempre tenho que determinar o estado... O que posso fazer para mesmo que o estado fique vazio ele faça a consulta... este é o codigo completo 'Cria nossa variável de instrução de SQL Dim strSQL Dim strWhere Dim RS, sql set RS = Server.CreateObject("ADODB.Recordset") localidade = request("localidade") produto = request("produto") estado = request("estado") empresa = request("empresa") sql = "select * from search where Cidade like '%" & localidade & "%' and NomeFantasia like '%" & empresa & "%' and Estado like '%" & estado & "%' and RamoDeAtividade like '%" & Produto & "%'" RS.Open sql, conn, adOpenStatic, adLockReadOnly, adCmdText if NOT RS.EOF then RS.movefirst