Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Meu site estava todo em access e resolvi passar ele para MySQL.
E o MySQL tem umas par de coisa que é diferente, já consegui resolver tudo esceto a páginação, que eu achei uma que segundo os caras funcionava, deem uma olhada no codigo:
<!--#Include File="arquivo_de_conexao.asp"-->
<%
ord = request.QueryString("ord")
Call AbreConn()
'pega a pagina atual
pagina = request.ServerVariables("SCRIPT_NAME")
'numero de registros por pagina...
pageSize = 20
if(len(Request.QueryString("p")) = 0 )then
paginaAtual = 1
else
paginaAtual = CInt(Request.QueryString("p"))
end if
' conta o numero de registros...
sql = "SELECT COUNT(*) AS total FROM jogosonline where simulador like '%x%'"
set rs = conn.execute(sql)
'total de registros
recordCount = Cint(rs("total"))
'calculamos o numero de paginas...
pageCount = Clng(recordCount / pageSize)
If pageCount < 1 then
pageCount = 1
end if
rs.Close()
Flag1 = INT(paginaAtual / pagesize)
PI = INT(Flag1 * pagesize)
IF PI = 0 THEN
PI = 1
END IF
PF = PI + pagesize - 1
' selecionamos os registros...
sql = "SELECT FROM jogosonline where simulador like '%x%' order by "&ord&" LIMIT " & (paginaAtual - 1) pageSize & " , " & pageSize
set rs = conn.execute(sql)
do while not rs.eof
' aqui entra o q você quer exibir
response.write "<table width='610' border='0' cellspacing='0' cellpadding='0'><tr><td width='80' height='80' valign='top'><a href='exibegame.asp?id=" & RS("codigo") & "'><img src='imagens/jogosswf/" & RS("foto") & "' width='75' height='75' border='0'></a></td><td width='220' valign='top'><p><strong><a href='exibegame.asp?id=" & RS("codigo") & "'>" & RS("titulo") & "</a></strong></p><p class='style5'>" & left(RS("descricao"), 100) & "...</p></td><td width='10'> </td>" & RS.MoveNext & "<td width='80' height='80' valign='top'><a href='exibegame.asp?id=" & RS("codigo") & "'><img src='imagens/jogosswf/" & RS("foto") & "' width='75' height='75' border='0'></a></td><td width='220' valign='top'><p><strong><a href='exibegame.asp?id=" & RS("codigo") & "'>" & RS("titulo") & "</a></strong></p><p class='style5'>" & left(RS("descricao"), 100) & "...</p></td></tr></table>"
rs.MoveNext()rs.Close()
set rs = nothing
Call FechaConn()
set conn = nothing
Response.Write ("<B><strong> Página " & paginaAtual & " de " & pagecount & " </strong></B><br>")
' cria os links de pagians...
IF CInt(paginaAtual) > 1 THEN
Response.Write "<a href='"&pagina&"?p=1'>Primeira</a> "
Else
Response.Write "<font color=""#ADADAD"">Primeira</font> "
END IF
if CInt(paginaAtual) > 1 then
Response.Write "<a href='"&pagina&"?ord="&ord&"?p=" & paginaAtual - 1 &"'>Anterior</a> "
Else
Response.Write "<font color='#666666'>Anterior</font> "
END IF
for i=1 to pageCount
Response.Write("<a href='"&pagina&"?ord="&ord&"?p=" & i & "'>" & i & "</a> ")
next
IF (CInt(paginaAtual) < pagecount) THEN
IF CInt(PF) <> pagecount THEN
Response.Write "<a href='"&pagina&"?ord="&ord&"?p=" & paginaAtual+1 & "'>Próxima</a> "
END IFIF (CInt(paginaAtual) <> pagecount) THEN
IF CInt(PF) <> pagecount THEN
Response.Write "<a href='"&pagina&"?ord="&ord&"?p=" & pagecount & "'>Última</a> "
END IF Response.Write "<font color=""#ADADAD"">Última</font> "
END IF
%>
Só que estou tendo problemas, a primeira pagina funciona normal, mais quando clica para ir a segunda dá o seguinte erro:
Microsoft OLE DB Provider for ODBC Drivers error '80040e10'
[MySQL][ODBC 3.51 Driver][mysqld-5.0.45-community-nt]SQLBindParameter not used for all parameters
/gamesonlinesimulador.asp, line 477
Pelo o que eu vi, o erro só aparece quando a variavel ?p aparece na URL, ae da pal. Acredito ser erro nessa parte do código:
if(len(Request.QueryString("p")) = 0 )then
paginaAtual = 1
else
paginaAtual = CInt(Request.QueryString("p"))
end if
alguem sabe o que é e como concertar?
Carregando comentários...