Declarar Vetor

[modernel]

como crio um vetor ???

estou fazendo da seguinte maneira:

I = 1 
While not x.eof 
 qtd(I) = request.form("tste")
I = I + 1
x.movenext
wend

e está me dando o seguinte erro :

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'qtd'

Poderiam me ajudar ?

[ViniciusJau]

eu acho que ele tá dizendo que você fez uma combinação errada..

800a000d = Erro de Tipo

não vai resolver, mais isso aqui está certo ?

qtd(I) = request.form("tste")

[modernel]

tão tudo certo, eu num sei o que estou errando

quais os motivos possiveis

[dark0]

como crio um vetor ???

Como declarar um vetor:

dim vetor(10)

onde 10 é o numero de posições do vetor

[[ GuTo ]]

i = 0
arr = Array()
While not rs.eof
ReDim Preserve arr(i)
arr(i) = request.form("tste")
i = i + 1
rs.movenext
wend

Tente assim...

[modernel]

Vou colocar os codigos aqui , asism fica mais facil

ao usuario submeter o formulário com o botao atualizar o codigo abaixo será executado:

if request.querystring("act") = "atualizar" then
set busca = conn.execute("Select * from fotos where confirma = 0 and usuario = "&session("login"))
I = 1
qtd = Array()
while not busca.eof
ReDim Preserve qtd(I)
if request.form("r"&busca("cod")) <> 1 then
conn.execute("Delete * from fotos where cod = " & busca("cod"))
end if
If Request.Form("t1-"&busca("cod")) <> "" Then
   qtd(I) = Request.Form("t1-"&busca("cod"))
   If qtd(I) > 0 and qtd(I) <= 10 Then
      preço = 1.00
   ElseIf qtd(I) > 10 and qtd(I) <= 30 Then
      preço = 0.90
   ElseIf qtd(I) > 30 and qtd(I) <= 60 Then
      preço = 0.85
   ElseIf qtd(I) > 60 and qtd(I) <= 100 Then
      preço = 0.79
   ElseIf qtd(I) > 100 and qtd(I) <= 150 Then
      preço = 0.75
   ElseIf qtd(I) > 150 and qtd(I) <= 200 Then
      preço = 0.70
   ElseIf qtd(I) > 200 and qtd(I) <= 300 Then
      preço = 0.68
   ElseIf qtd(I) > 300 Then
      preço = 0.65
   End If
  Else
   qtd(I) = 0
   preço = 0
End If
valor = FormatCurrency(Ccur(preço)*qtd(I))

O que aparecerá na página é seguinte:

<table width="473" border="0" cellspacing="0" cellpadding="0">
<%set busca = conn.execute("Select * from fotos where confirma = 0 and usuario = "&session("login"))
 If Not busca.EOF Then
 qtd = Array()
 I = 1 %>
 <form name="frm" method="post">
  <% While Not busca.EOF 
   ReDim Preserve qtd(I)%>
    <tr valign="top" bgcolor="#F8F8F8">
     <td width="150" height="100" align="center"><div align="center"><img src="img.asp?a=<%=busca("usuario")%>-<%=busca("cod")%>.jpg" vspace="5"><br>
      <input name="r<%=busca("cod")%>" type="checkbox" value="1" checked>
      <span class="style14">Revelar</span></div></td>
      <td width="190" height="100" align="left"><span class="style6 style4">Tamanho:</span>             
      <table width="185" height="77" border="0" cellpadding="0" cellspacing="0">
                <tr align="left">
                  <td width="34" height="16"><input name="t1-<%=busca("cod")%>" type="text" class="textbox" size="3" value="<% =qtd(I) %>"></td>
                  <td width="151" height="16"><span class="style14"> 10 x 15 - R<% =valor%></span></td>
                </tr>
                <tr align="left">
                  <td height="16"><input name="t2-<%=busca("cod")%>" type="text" class="textbox" size="3" value="<% =qtd1 %>"></td>
                  <td height="16"><span class="style14">13 x 18 - R<% =valor1%></span></td>
                </tr>
              </table></td>
              <td width="133" height="100" align="left"><span class="style4 style6">Superf&iacute;cie:</span>
                <table width="121" height="36" border="0" cellpadding="0" cellspacing="0">
                  <tr align="left">
                    <td width="26" height="16"><input name="papel<%=busca("cod")%>" type="radio" value="1"></td>
                    <td width="95" height="16" class="style14"> Fosca</td>
                  </tr>
                  <tr align="left">
                    <td height="16"><input name="papel<%=busca("cod")%>" type="radio" value="2" checked></td>
                    <td height="16" class="style14">Brilhante</td>
                  </tr>
                </table>
                <span class="style4 style6">Borda:</span> 
                <table width="121" height="32" border="0" cellpadding="0" cellspacing="0">
                 <tr align="left">
                  <td width="26" height="16"><input name="borda<%=busca("cod")%>" type="radio" value="1"></td>
                  <td width="95" height="16" class="style14"> Com borda </td>
                 </tr>
                 <tr align="left">
                  <td height="16"><input name="borda<%=busca("cod")%>" type="radio" value="0" checked></td>
                  <td height="16" class="style14">Sem borda </td>
                 </tr>
                </table></td>
            </tr>
            <%
    busca.MoveNext
    I = I +1
    Wend
  	%>
  	<tr>

[Guest - modernel -]

Galera , consegui declara-lo sem ter o erro , agora não consigo recuperar o valor.

Agora não estou conseguindo recuperar o valor do vetor ;/

Se eu coloco

<%

qtd (1) = 20 %>

<input type="text" value="<% =qtd(1) %>

Assim eu consigo, porem se eu coloco:

<input type="text" value="<% =qtd(I) %>

não consigo

[dark0]

o seu I, deve ser algum contador de algum FOR.

você montou um FOR aí?