Select dentro da paginação MYSQL

[Carlos Moreira 0]

Ola pessoal preciso buscar a cidade do cliente dentro de uma paginação em MYSQL

 

esta ocorrendo este erro:

 

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

 

Estou utilizando o codigo abaixo, o que pode estar errado

 

Obs: ja verifiquei e o RSCidade é reamente um numero esta td certinho

 

<%
If Cidade = "" Then

RSCidade = RS("cidade")

mysqlcid = "SELECT * FROM cidade where id="&RSCidade&""
Set RScid = Conn.Execute(mysqlcid)
%> » 
<%
RSCidadev = RScid("cidade")
%>
<%=RSCidade%>
<%
RScid.Close 
Set RScid = Nothing 
%>

[Ted k' 126]

em que linha dar esse erro?

 

no sql??

 

tente assim

mysqlcid = "SELECT * FROM cidade where id='"&RSCidade&"'"

[Carlos Moreira 0]

Continua com esse erro

 

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

 

e é justamente a linha que você me passou

 

nem com aspa simples e nem sem

[Carlos Moreira 0]

GALERA TO POSTANDO O CODIGO ABAIXO é este que estou usando e da pau quando busca mais um select da cidade dentro dele por gentileza vejam o que conseguem fazer

 

<%
'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" 


'----------------------------------------------------------- 
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 
%>
Não tem registro
<%Else%>
   <%
RS.AbsolutePage = pag 
'Tazemos todos os dados da tabela 
While Not RS.Eof and i < RS.PageSize 
i = i + 1 

if Cortabela = Cortabela1 then 'Cor das tabelas
Cortabela = Cortabela2
else
Cortabela = Cortabela1
end if
%>
<%=RS("nome")%>
<%
RS.MoveNext 
Wend 
RS.Close 
Set RS = Nothing 
Call fecha_conexao1() 
%><%
pagina = Request.ServerVariables("Script_Name")


' cria os links de pagians...
IF CInt(pag) > 1 THEN
%> <%
Response.Write "<a href='"&pagina&"?Conteudo="&Conteudo&"&Cidade="&Cidade&"&pag=1'>Primeira</a> | "
%> <%
Else
Response.Write "<font color=""#ADADAD"">Primeira</font> | "
END IF
%> <%
if CInt(pag) > 1 then
Response.Write "<a href='"&pagina&"?Conteudo="&Conteudo&"&Cidade="&Cidade&"&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&"?Conteudo="&Conteudo&"&Cidade="&Cidade&"&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&"?Conteudo="&Conteudo&"&Cidade="&Cidade&"&pag=" & TotalPages & "'>Última</a> "
  END IF
Else
  Response.Write "<font color=""#ADADAD"">Última</font>"
  END IF
%> </td>
			  </tr>
			  <tr> 
				<td height="20" align="center"> <%
 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&"?Conteudo="&Conteudo&"&Cidade="&Cidade&"&pag=" & i & "'>" & i & "</a>  "
	 END IF
	 If CInt(i) > CInt(pag) Then
		 Response.Write "<a href='"&pagina&"?Conteudo="&Conteudo&"&Cidade="&Cidade&"&pag=" & i & "'>" & i & "</a>  "
  END IF
Next
%> <%
End IF
%>

[Mário Monteiro 179]

Que problema está tendo especificamente?

 

Será melhor descreve-lo para ajuda0lo mais rapidamente

[Carlos Moreira 0]

O erro é este:

 

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

[Ted k' 126]

mais como está a configuração do seu campo lá no banco?

[Carlos Moreira 0]

Cidade = Integer

[Carlos Moreira 0]

Testem o codigo que postei por gentileza

e onde pede o <%=RS("nome")%> tentem puxar um registro de outra tabela!