Upload uden komponent + sti i DB???

Dette kan lave pathen om:
picturePath = \"C:/adf/adfa/adsf/picture.jpg\"
filestartPos = InstrRev(picturePath,\"/\")
if filestartPos > 0 then
  picturePath = Right(picturePath,len(picturePath)-filestartPos)
  picturePath = \"/upload/\" & picturePath
end if
Response.write picturePath

Jeg bruger nu en anden upload uden komp. Den afkorter selv filnavnet... jeg tror det er dette her:

\'Separetes file name from the full path of file
Function GetFileName(FullPath)
  Dim Pos, PosF
  PosF = 0
  For Pos = Len(FullPath) To 1 Step -1
    Select Case Mid(FullPath, Pos, 1)
      Case \"/\", \"\\\": PosF = Pos + 1: Pos = 0
    End Select
  Next
  If PosF = 0 Then PosF = 1
  GetFileName = Mid(FullPath, PosF)
End Function

Kan du indbygge dit i denne?

Jeg regner med at funktionen gør hvad den skal bare uden at sætte /upload/ ind foran filnavnet så det har jeg lagt ind. Så må den komme til at se sådan ud:

\'Separetes file name from the full path of file
Function GetFileName(FullPath)
  Dim Pos, PosF
  PosF = 0
  For Pos = Len(FullPath) To 1 Step -1
    Select Case Mid(FullPath, Pos, 1)
      Case \"/\", \"\\\": PosF = Pos + 1: Pos = 0
    End Select
  Next
  If PosF = 0 Then PosF = 1
  GetFileName = \"/upload/\" & Mid(FullPath, PosF)
End Function

nu får jeg en fejl! VBscript error!

Ok hvad med det her:

\'Separetes file name from the full path of file
Function GetFileName(FullPath)
Dim Pos, PosF, imagePath
PosF = 0
For Pos = Len(FullPath) To 1 Step -1
Select Case Mid(FullPath, Pos, 1)
Case \"/\", \"\\\": PosF = Pos + 1: Pos = 0
End Select
Next
If PosF = 0 Then PosF = 1
imagePath = \"/upload/\" & Mid(FullPath, PosF)
GetFileName = imagePath
End Function