Problema com o aspSmartUpload

[alexandroferreira 0]

Pessoal,

 

Estou fazendo um formulário para cadastro de médicos com fotos. Criei uma tabela TB_MEDICOS com os seguintes campos: id_med, cod_esp_med, nome_med, foto_med, desc_med, file.

 

Até aí tudo bem. Seto este forma para um código ASP seguinte:

 

<%
'  Variáveis
'  *********
  Dim mySmartUpload
  Dim file
  Dim oConn
  Dim oRs
  Dim intCount
  Dim pasta
  Dim nome
  Dim varnome
  Dim vardesc
  intCount=0


'  Cria objeto
'  ***************
  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")


'  Upload
'  ******
  mySmartUpload.Upload
  varevento = mySmartUpload.form("codcorpo")
  varnome = mySmartUpload.form("nomepro")
  vardesc = mySmartUpload.form("TX_Noticia")
  pasta = mySmartUpload.Save("../img")


'  Conecta o BD
'  *****************
  Set oConn = Server.CreateObject("ADODB.Connection")
  curDir = Server.MapPath("./base/dados_bd.mdb")
  oConn.Open "DBQ="& curDir &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"


'  Abre o recordset
'  ****************
  strSQL = "SELECT cod_esp_med, nome_med, desc_med, foto_med, file FROM tb_medico"

  Set oRs = Server.CreateObject("ADODB.recordset")
  Set oRs.ActiveConnection = oConn
  oRs.Source = strSQL
  oRs.LockType = 3
  oRs.Open

'  Seleciona o arquivo
'  ****************
  For each file In mySmartUpload.Files
  '  Verifica a existência do arquivo
  '  **********************
     If not file.IsMissing Then

     '  Adiciona os dados no BD
     '  **********************************
        oRs.AddNew
        file.FileToField oRs.Fields("FILE")
	 oRs("foto_med") = "img/" & file.FileName
	 oRs("cod_esp_med") = varevento
	 oRs("nome_med") = varnome
	 oRs("desc_med") = vardesc
        oRs.Update
        intCount = intCount + 1
     End If
  Next
  	  Response.Write "<script>alert('Imagem(ens) cadastrada(s) com sucesso!')</script>"
  Response.Write "<meta http-equiv='refresh' content='0.1'; url='corpo_clinico_cg.asp'/>"
Quebra variáveis
'  ***********
  oRs.Close
  oConn.Close
  Set oRs = Nothing 
  Set oConn = Nothing 
%>

 

 

Ele está inserindo os dados na tabela juntamente com a foto, mas depois dá o seguinte erro na página:

 

Tipo de erro:
aspSmartUpload (0x800A0009)
Subscript out of range
/graca/fckeditor/corpo_clinicoin_cg.asp, line 26

 

Qual o problema? O meu forma está assim:

 

<form action="corpo_clinicoin_cg.asp" name="noticias" method="post" onsubmit="return formassine();" enctype="multipart/form-data">
			<ul>
			<li>
			<label for="mensagem1" class="textos">Selecione uma especialidade:</label></li><li>
			<select class="mais" name="codcorpo">
			<% while Not rs.EOF %>
				<option value="<%=rs("id_corpo")%>"><%=rs("esp_corpo")%></option>
			<%
                      rs.MoveNext
				   wend
                      rs.Close
                      Set rs = Nothing
				   Call fecha_conexao
               %>
			</select>
			</li>
			<li>
			<label for="assunto" class="textos">Nome do Profissional:</label></li><li>
			<input class="titulo" name="nomepro" type="text" size="40" />
			</li>
			<li> </li>
			<li>
			<label for="conteudo" class="textos">Descrição do Profissional:</label></li>
			<li>
			<%
			Dim oFCKeditor
			Set oFCKeditor = New FCKeditor
			oFCKeditor.BasePath = ""
			oFCKeditor.Value = ""
			oFCKeditor.Create "TX_Noticia"
			%>
			</li>
			<li>
			<label for="mensagem2" class="textos">Selecionar foto:</label></li><li>
			<input type="file" name="file1" class="imagem" size="50" />
			</li>
			<li><span>Envie uma foto com as seguintes dimensões: 170px (largura) por 200px (altura) nos formatos: JPG, PNG ou GIF.</span></li>
			<li>
			<input value="Salvar" tabindex="3" name="Submit" type="submit" id="button" />
			</li>
			</ul>
			</form>

 

Me ajudem a descobrir esse erro, por favor.

 

 

Grato desde já,

Alexandro Ferreira

[xanburzum 169]

Isso normalmente significa que você tentou fazer referência a um elemento de uma matriz que é fora dos limites superior e inferior da matriz.

 

você pode usar FSO para isso, tb não precisa de componentes, existem alguns exemplos no lab. de script