Problema com o aspSmartUpload

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