Fejl ved upload uden fil

if isNull(test) then
    Response.write "ingen fil"
else
    Response.write "fil er med: " & test
end if

Jeg får stadig "fil er med:" udskrevet når jeg ikke sender noget med over

jeg har lige fået at vide at, hvis man bruger enctype="multipart/form-data" kan man ikke læse indholdet af formen.. så du skal have fat i Upload.X, hvor X indholder stien/noget fra formen. f.eks. kunne X være value eller filename, eller filetype..

se om du kan få noget ud af det her:
http://support.persits.com/default.asp?Words=All&query=upload.files&Search=Search

ellers er der en søgefunktion på side..
urls: www.aspupload.com www.persits.com

jeg tror at du skal bruge noget der ligner det her:

For Each File in Upload.Files
  if len(File.Path) > 0 then
    ' længden af indholdet af File.Path er større end 0
    ' dvs: der står noget i File.Path
  else
    ' længden af indholdet af File.Path er MINDRE end 0   
    ' dvs: der står IKKE noget i File.Path
  end if
next

Jeg kan ikke lige få det til at virke, så jeg smider lige hele koden ind:

<%
      Set UploadProgress = Server.CreateObject("Persits.UploadProgress")

      Set Upload = Server.CreateObject("Persits.Upload")
      Upload.ProgressID = Request.QueryString("PID")
     
      On Error Resume Next
     
      Upload.SaveVirtual "../gallery/temp"

  If Err <> 0 Then
      Response.Write "Der forekom en fejl : " & Err.Description
  Else
      Set Conn = Server.CreateObject("ADODB.Connection")
      Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../database/xsmodb.mdb")

      For Each File in Upload.Files
     
    if len(File.Path) > 0 then
    ' længden af indholdet af File.Path er større end 0
    ' dvs: der står noget i File.Path

      strFornavn = Upload.form("fornavn")
      strEfternavn = Upload.form("efternavn")
      strStilling = Upload.form("stilling")
      strBeskrivelse = Upload.form("beskrivelse")
      strBillede = File.ExtractFileName
           
      strSQL = "INSERT INTO Personale(fornavn, efternavn, stilling, beskrivelse, billede) VALUES('"& strFornavn &"','"& strEfternavn &"', '"&strStilling &"', '"& strBeskrivelse &"', '"& strBillede &"' )"
      Conn.Execute(strSQL)

      Conn.Close
      Set Conn = Nothing   

      Const MINPIXELS = 100

      '*** creat thumbnail image
    Set Image = Server.CreateObject("AspImage.Image")
    Image.LoadImage(Server.MapPath("../gallery/temp/"&File.ExtractFileName))
         
    ImageHeight = Image.MaxY
    ImageWidth = Image.MaxX

      '*** calculate aspect ratio based on MINPIXELS
    If ImageHeight > ImageWidth Then
        NewHeight = Cint(ImageHeight*MINPIXELS/ImageWidth)
        NewWidth = MINPIXELS
      Else
        NewWidth = Cint(ImageWidth*MINPIXELS/ImageHeight)
        NewHeight = MINPIXELS
      End If
    Set objImageSize = Nothing

    Image.FileName = Server.MapPath("../gallery/personale/"&File.ExtractFileName)
    Image.ImageFormat = 1
    Image.JPEGQuality = 100
    Image.Resize NewWidth,NewHeight
    Image.FloodFill NewWidth, NewHeight, vbBlack, 1
    Image.SaveImage
    Set Image = Nothing

    Set fso = Server.CreateObject("Scripting.FileSystemObject")
    If  fso.FileExists(Server.Mappath("../gallery/temp/"&File.ExtractFileName)) Then
        fso.DeleteFile (Server.Mappath("../gallery/temp/"&File.ExtractFileName))
   
    End if
       
    else
    ' længden af indholdet af File.Path er MINDRE end 0   
    ' dvs: der står IKKE noget i File.Path
   
      strFornavn = Upload.form("fornavn")
      strEfternavn = Upload.form("efternavn")
      strStilling = Upload.form("stilling")
      strBeskrivelse = Upload.form("beskrivelse")
           
      strSQL = "INSERT INTO Personale(fornavn, efternavn, stilling, beskrivelse) VALUES('"& strFornavn &"','"& strEfternavn &"', '"&strStilling &"', '"& strBeskrivelse &"')"
      Conn.Execute(strSQL)   

      Conn.Close
      Set Conn = Nothing
 
  end if
 
  Next

End if
 
  'Response.Redirect("Personale.asp")

%>

Dette spørgsmål mangler input.
Det kan f.eks. være at spørgeren mangler at acceptere/afvise svar/komme med feedback, eller af en svarer mangler at lægge et svar/komme med feedback.