Type mismatch ?

Her er hele koden

<%@ Language=VBScript %>
<%option explicit%>

<%

Dim mySmartUpload
Dim image
Dim subheader
Dim text
Dim vignet
Dim alias
Dim menuTitle
Dim Parent
Dim strfil
Dim intCount
Dim adCmdText

Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.Upload

image         =     mySmartUpload.Form("image")
subheader     =     mySmartUpload.Form("subheader")
text         =     replace(mySmartUpload.Form("text"), vbCrLf,"<br />")
vignet         =     mySmartUpload.Form("vignet")
alias         =    mySmartUpload.Form("alias")
menuTitle     =     mySmartUpload.Form("menuTitle")
Parent         =     mySmartUpload.Form("menuTitle")
   
intCount     =     mySmartUpload.Save("/img/common/topimages")
%>
<!--#include file="../../include/asp/db.asp"-->
<%
ReDim Preserve strFil(mySmartUpload.Files.Count)
    For i = 1 To mySmartUpload.Files.Count
        If mySmartUpload.Files.Item(i).FileName = "" Then
        Else
        strFil(i) = mySmartUpload.Files.Item(i).FileName
        End If
    Next
   
   
dbinit
SQL = "INSERT INTO tbl_text (text)"
SQL = SQL & "VALUES('" & text & "')"
oCn.Execute strSQL, adCmdText


dbdone
%>

Problemet er sikkert "Preserve" i denne linie:

ReDim Preserve strFil(mySmartUpload.Files.Count)

Prøv at fjerne ordet "Preserve"

ReDim strFil(mySmartUpload.Files.Count)

Det er for i øvrigt en underlig konstruktion du har der:
Brug:
    If mySmartUpload.Files.Item(i).FileName <> "" Then strFil(i) = mySmartUpload.Files.Item(i).FileName

coltau>> Hvis han fjerner Preserve forsvinder alle data fra strFil() ved reDim. Jeg kan ikke lige overskue om det er OK!  Hvis du f.eks. gør et array større: ReDim er et udmærket værktøj. Preserve gør at de data du havde i forvejen i arrayet bibeholdes. Hvis du fjerner Preserve: ja så sættes alle data i arrayet til <null>.

måske kunne du fortæller hvilken fejl du får?

Jeg kan ikke se at det er nødvendigt med Preserve i ovennævnte kode - med mindre at strFil bliver brugt i db.asp - men det tror jeg næppe.

--> tjacob: Jeg kender godt betydningen af Preserve - men har aldrig fået den til at virke i ASP. ?

Du skal erklære strFil som et array, for at du kan anvende ReDim på den.

Ret:    Dim strFil til Dim strFil()

/tjacob

Hvis ikke det virker, så prøv at give den et argument f.eks. Dim strFil(1)

Det var som tjacob sagde:

Ret:    Dim strFil til Dim strFil()

Så virker koden fint!

thx