Getting FieldName in a form

tdaustin · July 26th, 2004, 01:51 AM

Hi all,

Im doing a multiple upload with aspSmartUpload. I loop through the file elements. One of the form elements i want to put in one folder and the others in another folder.

To do this in need to get the fieldname of the current file upload, so i can do a condition when saving the file.

Code:

 For each file In mySmartUpload.Files
   '  Only if the file exist
   '  **********************
      If not file.IsMissing Then

      'Generate Random file name
      dim max,min
      max=99999999
      min=00000001
      RanFileName = (Int((max-min+1)*Rnd+min))
      ' Add extension
      FileExt = "." & file.FileExt
      ' Merge Random File Name and extention
      FileName = RanFileName & FileExt
      If *FieldName here...* = "OppImage" Then
         file.SaveAs("/gameslink/uploads/" & FileName)
      Else
           file.SaveAs("/gameslink/files/" & FileName)
      End If
         Response.Write "File Uploaded: " & FileName & "<BR>"
End If
Next

Thanks for your help

Tim

TDA

happygv · July 26th, 2004, 06:25 PM

How many other fieldnames you have? Is that so, you have many fieldnames all filled with filenames and do get uploaded using aspsmartupload?

Can you explain more on that?

_________________________
- Vijay G
Strive for Perfection

tdaustin · July 26th, 2004, 06:55 PM

I have 5 file fields in the form previously

OppImage
OppFile1
OppFile2
OppFile3
OppFile4

I need to put the OppImage into a directory called 'uploads' and the other 4 files into a directory called 'files'

I would like to do this by checking the fieldname of the current file being uploaded.(using aspSmartUpload) then asigning it to the right directory.

I have found a solution by using a counter in my For Loop because i know the first file in the form is the OppImage. But this solution i have done would not be applicable for dynamic forms and cause a problem if somehow the field count failed.

Heres the solution i have working currently.

thanks Tim

<%
' Variables
' *********
   Dim mySmartUpload
   Dim file
   Dim intCount
   intCount=0

' Object creation
' ***************
   Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

' Upload Opp Image
    mySmartUpload.Upload
' Select each file
' ****************
   FieldCount = 1
   For each file In mySmartUpload.Files
   ' Only if the file exist
   ' **********************
      If not file.IsMissing Then

      'Generate Random file name
      dim max,min
      max=99999999
      min=00000001
      RanFileName = (Int((max-min+1)*Rnd+min))
      ' Add extension
      FileExt = "." & file.FileExt
      ' Merge Random File Name and extention
      FileName = RanFileName & FileExt
      If FieldCount = 1 Then
         file.SaveAs("/uploads/" & FileName)
      Else
           file.SaveAs("/files/" & FileName)
      End If
         Response.Write "File Uploaded: " & FileName & "<BR>"
End If
FieldCount = FieldCount + 1
Next

%>

TDA