Concatenar Variáveis através de um looping

[Odair sanches 0]

Boa noite a todos.

Não estou conseguindo concatenar as variáveis através do looping

Agradeço antecipadamente, qualquer ajuda.

 

Recebo a mensagem de erro:

(Erro de tempo de execução do Microsoft VBScript (0x800A000D)

Tipos incompatíveis: 'CStr')

 

 

<%
Dim RsAc
Dim i 
Dim VrP1, VrP2, VrP3, VrP4, VrP5, VrP6, VrP7, VrP8
Dim VrM1, VrM2, VrM3, VrM4, VrM5, VrM6, VrM7, VrM8

Set RsAc = Server.CreateObject("ADODB.Recordset")
RsAc.ActiveConnection = MM_ConnSql_STRING

For i = 1 To 8
  RsAc.Open "SELECT NomeProf, materia  FROM TbProf  WHERE Periodo = 2008  AND Turma = 'crit' and seq = " & i & ""
	  If rsAc.EOF = True Then
	CStr("VrP"&(i))=""
	CStr("VrM"&(i))=""				 
	  Else
	CStr("VrP"&(i))= rsAc("NomeProf")
				CStr("VrM"&(i))= rsAc("Materia")		   
	  End If 
  RsAc.Close		
Next
 
Set RsAc = Nothing
%>

[hargon 64]

Não é possível "criar" variável dessa forma.

 

Aliás, se é possível desconheço. Mas já havia tentado isso antes, sem sucesso.

 

Porque você não cria um vetor?

[Odair sanches 0]

Obrigado por responder..

 

Na realidade, eu preciso preencher caixas de texto com o resultado deste looping.

Caso não seja possível concatenar as variáveis, como eu poderia concatenar o nome das caixas de texto?

 

Abraços

[hargon 64]

Caixa de texto seria input type="text" ?

 

Se for, você poderia fazer assim:

<%
Set RsAc = Server.CreateObject("ADODB.Recordset")
RsAc.ActiveConnection = MM_ConnSql_STRING

For i = 1 To 8
  RsAc.Open "SELECT NomeProf, materia  FROM TbProf  WHERE Periodo = 2008  AND Turma = 'crit' and seq = " & i & ""
	  If rsAc.EOF = True Then
%>
<input type="text" name="VrP<%=(i)%>" value="" />
<input type="text" name="VrM<%=(i)%>" value="" />
<%			
	  Else
%>
<input type="text" name="VrP<%=(i)%>" value="<%=rsAc("NomeProf")%>" />
<input type="text" name="VrM<%=(i)%>" value="<%=rsAc("Materia") %>" />
<%
	  End If
  RsAc.Close		
Next

Set RsAc = Nothing
%>

[Odair sanches 0]

Boa noite...

 

Desculpe-me não ter respondido, mas estive fora e cheguei agora... vou testar e depois eu retorno se funcionou..

 

Muito obrigado

 

Abraços