Select ID

[sga 0]

<%Dim Conn Set Conn = Server.CreateObject("ADODB.Connection")Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("gallery.mdb")Dim IDID = request.Querystring("ID")IF ID = "" THEN'If there is no string in ID this will execute the main page'Main gallery page SQLSQL = "Select * FROM tbGallery Order BY PhotoLabel"set RS = Conn.execute(SQL)%>tipo o codigo acima esta selecionando a coluna de uma table, onde estão os id de q preciso, acontece q eu preciso de apenas uma faixa desses ids e naum de todos como ele selecionadai tipo eu vo usa essa faixa de ids no codigo abaixo <% do while not rs.eof %> <tr> <% Dim n n = 0 do while n < colNum and NOT rs.eof %> <td width="<%= tdwidth%>%"> <center><a href="gallery.asp?ID=<%=RS("ID")%>"><img src="<%=RS("thumbURL")%>" alt="<%=RS("PhotoLabel")%>"><br><%=RS("PhotoLabel")%></a></center></td> <% RS.Movenext n = n + 1 loop %> </tr> <%loop%> como eu faço se tipo eu tenhu 60 ids, tipo numa pagina eu quero q apareçam 30 ids e na outra os outros 30 ids, alguem pode me ajudar???

[allan.web 0]

você pode fazer uma paginação de 30 em 30 dados do bd...

 

<%regs = 30 'Aqui setamos quantos registros serão listados por páginapag = request.querystring("pagina") if pag = "" Then   pag = 1end if set conn = createobject("adodb.connection")conn.open "provider=microsoft.jet.oledb.4.0; data source=" & server.mappath("bd.mdb") set rs = createobject("adodb.recordset") set rs.activeconnection = conn rs.cursortype = 3 'Definimos o cursor a ser utilizadors.pagesize = regs sql = "select * from gb order by cod desc"rs.open sql if rs.eof or rs.bof then   response.write "O banco de dados está vazio"else   rs.absolutepage = pag   contador = 0   do while not rs.eof and contador < rs.pagesizeresponse.write rs("mensagem")    contador = contador +1   rs.movenext   loopend if 'Criando links para a navegação response.write "<br><b>Página(s):</b> " for i = 1 to rs.pagecount if i = cint(pag) then   response.write "<i><b>" & i & "</b></i> "else   response.write "<a href='" & request.servervariables("script_name") & "?pagina=" & i & "'>" & i & "</a> "end if next rs.closeconn.closeset rs = nothingset conn = nothing%>

Espero ter ajudado....

 

Um abraço

[sga 0]

valew allan

[sga 0]

como eu interejo esse codigo com o meu?