Select dentro de select com paginação MySQL

[Carlos Moreira 0]

Ola pessoal ocorre o seguinte tenho uma paginação em MYSQL que funciona redondinha, ok!

 

Mas estou tentando dar outro select dentro da mesma, onde ocorre o erro.

 

percebam que onde estara em negrito no código abaixo é onde da o erro.

mas em contra partida se eu deixar assim: categ="10" ai funciona mas tambem ja testei o RS e tambem aparece o valor, mas nao esta lendo na linha abaixo que esta em negrito.

 

oi erro é este

A variável usa um tipo de automação sem suporte no VBScript

 

e ja coloquei aspas simples no select de dentro e tambem nao funciona

 

Preciso muito disso.

Vejam o que podem fazer por mim.

Desde ja obrigado

 

<%

'Definição de Variáveis

Dim Conn

Dim RS

Dim sql

Dim Pag

'-----------------------------------------------------------

'Controles de Paginação

pag = Request.QueryString("pag")

 

If pag = "" Then

pag = 1

End if

 

Call abre_conexao1(ConnString,Conn)

 

Conn.CursorLocation = 3 '<- Cursor de conexão

'-----------------------------------------------------------

'Criação de RecordSet

Set RS = Server.CreateObject("ADODB.RecordSet")

'-----------------------------------------------------------

'Conexão Ativa

Set RS.ActiveConnection = Conn

'-----------------------------------------------------------

'Select na tabela do banco

sql = "SELECT * FROM Cliente order by nome"

'-----------------------------------------------------------

RS.CursorType = 3 'Tipo do cursor do RecordSet

RS.PageSize = 10 'Qtde de registros a serem exibidos

RS.Open sql '<- Executa o Select

TotalPages = RS.Pagecount

'-----------------------------------------------------------

'Se nao existir dados cadastrados

%>

<%

If RS.Eof Then

%>

Nenhum cadastro no momento

<%Else%>

<%

RS.AbsolutePage = pag

'Tazemos todos os dados da tabela

While Not RS.Eof and i < RS.PageSize

i = i + 1

%>

<%=RS("nome")%>

<%

'categ = RS("id") '<<<<<<<<<<<< Ele le o nº certinho mas nao funciona com ele

categ = "8" '<<<<<<<<<<<< perceba que se coloco direto o nº ai funciona

sqlq = "SELECT * FROM site where cliente="&categ&""

Set RScateg = Conn.Execute(sqlq)

'do until RScateg.eof

DO WHILE NOT RScateg.EOF

 

valor = valor + clng(replace(RScateg("valor"),",","."))

i = i+1

Count = Count + 1

RScateg.MoveNext

LOOP

%>

<%=FormatCurrency(valor, 2)%>

<%

RScateg.Close

Set RScateg = Nothing

%>

<%

RS.MoveNext

Wend

%><%

pagina = Request.ServerVariables("Script_Name")

 

 

' cria os links de pagians...

IF CInt(pag) > 1 THEN

%> <%

Response.Write "<a href='"&pagina&"?p=1'>Primeira</a> | "

%> <%

Else

Response.Write "<font color=""#ADADAD"">Primeira</font> | "

END IF

%> <%

if CInt(pag) > 1 then

Response.Write "<a href='"&pagina&"?pag=" & pag - 1 &"'><b>Anterior</b></a> | "

Else

Response.Write "<font color='#ADADAD'><b>Anterior</b></font> | "

END IF

%> <%

IF (CInt(pag) < TotalPages) THEN

IF CInt(PF) <> TotalPages THEN

Response.Write "<a href='"&pagina&"?pag=" & pag+1 & "'><b>Próxima</b></a> | "

END IF

Else

Response.Write "<font color=""#ADADAD""><b>Próxima</b></font> | "

END IF

%> <%

IF (CInt(pag) < TotalPages) THEN

IF CInt(PF) <> TotalPages THEN

Response.Write "<a href='"&pagina&"?pag=" & TotalPages & "'>Última</a> "

END IF

Else

Response.Write "<font color=""#ADADAD"">Última</font>"

END IF

%> <%

max_n_mostrados = 9

 

intervalo = Int(max_n_mostrados /2)

inicio = pag - intervalo

final = pag + intervalo

 

If CInt(inicio) <1 Then

inicio = 1

final = 10

END IF

If CInt(final) > CInt(TotalPages) Then final = TotalPages

 

For i = inicio To final

If CInt(i)=CInt(pag) Then

Response.Write "<font color=""#000000"">[<B>" & i & "</B>]<font color=""#000000""></font> "

END IF

If CInt(i) < CInt(pag) Then

Response.Write "<a href='"&pagina&"?pag=" & i & "'>" & i & "</a> "

END IF

If CInt(i) > CInt(pag) Then

Response.Write "<a href='"&pagina&"?pag=" & i & "'>" & i & "</a> "

END IF

Next

%><%

RS.Close

Set RS = Nothing

Call fecha_conexao1()

End IF

%>

[jrcardozo 4]

no mysql é necessario setar o cursor da conexão

conn.cursorlocation = 3

[Carlos Moreira 0]

Ok no primeiro select ja estou usando, ok!

 

Como ficaria onde esta em negrito, acima?