Type mismatch: string:

Du har angive str_dirg til at være en streng, så IF Str_DirG = "1" then
burde klare det

Arrg

Hvordan får jeg lige lavet en tal variabel så ??

uhhhh er ikke helt sikker, men hedder funktionen ikke CInt(str_dirG)

int_dirG = IF Str_DirG = 1 then

Det gik lidt stærkt således mente jeg:
int_dirG = CInt(Str_DirG)

Ok nu har jeg :

Set Int_DirG = Upload.form("DirG")

IF Str_DirG = 1 then
    Set DirX = "Dir1"
ElseIF DirG = 2 then
    Set DirX = "Dir2"
ElseIF DirG = 3 then
    Set DirX = "Dir3"
ElseIF DirG = 4 then
    Set DirX = "Dir4"
End If

Upload.Save "E:\projekter\projekter\test\Upload-II\Files\"&DirX

men af en eller anden grund er variablen DirX = ingenting ??

Du konverterer da stadig ikke til tal - har du ikke bare kaldt variablen noget andet?

rettelse

IF DirG = 1 then
    DirX = "Dir1"
ElseIF DirG = 2 then
    DirX = "Dir2"
ElseIF DirG = 3 then
    DirX = "Dir3"
ElseIF DirG = 4 then
    DirX = "Dir4"
End If

arrrg 2 sekunder

Set Int_DirG = Upload.form("DirG")

IF CInt(Str_DirG) = 1 then
    Set DirX = "Dir1"
ElseIF CInt(Str_DirG) = 2 then
    Set DirX = "Dir2"
ElseIF CInt(Str_DirG) = 3 then
    Set DirX = "Dir3"
ElseIF CInt(Str_DirG) = 4 then
    Set DirX = "Dir4"
End If

F.eks sådan hvis du vil skrive det mange gange :-)

Set Int_DirG = Upload.form("DirG")

IF Int_DirG = 1 then
    DirX = "Dir1"
ElseIF Int_DirG = 2 then
    DirX = "Dir2"
ElseIF Int_DirG = 3 then
    DirX = "Dir3"
ElseIF Int_DirG = 4 then
    DirX = "Dir4"
End If


Skulle dette ikke virker ??
Jeg får stadig fejlen Type mismatch: '[string: ""]'

Set str_DirG = Upload.form("DirG")

set Int_DirG = CInt(str_DirG )

IF Int_DirG = 1 then
    DirX = "Dir1"
ElseIF Int_DirG = 2 then
    DirX = "Dir2"
ElseIF Int_DirG = 3 then
    DirX = "Dir3"
ElseIF Int_DirG = 4 then
    DirX = "Dir4"
End If

Jeg har tilføjet EN linje

og ændre det første variabelnavn

Set str_DirG = Upload.form("DirG")

set Int_DirG = CInt(str_DirG )

IF Int_DirG = 1 then
    DirX = "Dir1"
ElseIF Int_DirG = 2 then
    DirX = "Dir2"
ElseIF Int_DirG = 3 then
    DirX = "Dir3"
ElseIF Int_DirG = 4 then
    DirX = "Dir4"
End If

Laver Type mismatch: '[string: ""]' i linien
set Int_DirG = CInt(str_DirG )

Prøver lige selv - 2 sek

Tror det er Persits.Upload der laver et eller andet om

IMPORTANT: Neither the Files nor Form collections are populated until the Save method is called. It is therefore incorrect to refer to either of these collections before calling Upload.Save.

er det det mon ??

Sådan her får jeg den til at virker. Der er så ingen fejltjek på, at du rent faktisk skriver et tal i formfeltet (ellers får du fejlen type mismatch)
Hvis det stadig ikke virker, så prøve at udskriv str_dirG sæt evt stjerner for rundt om, så du kan se, at den er ikke er = *  1* eller *1  * eller en eller anden afvigelse heraf (indbyg evt. et tjek af, om deen er numerisk (mener funktionenen hedder IsNumeric)
dim str_DirG
dim Int_DirG
str_DirG = Upload.form("DirG")

Int_DirG = CInt(str_DirG )


IF Int_DirG = 1 then
    DirX = "Dir1"
ElseIF Int_DirG = 2 then
    DirX = "Dir2"
ElseIF Int_DirG = 3 then
    DirX = "Dir3"
ElseIF Int_DirG = 4 then
    DirX = "Dir4"
End If

oki men jeg har altså stadig samme fejl

Type mismatch: '[string: ""]' i linien

Int_DirG = CInt(str_DirG )

hmmmm - hvis du er interesseret i at emaile mig siden (sourcen) skal jeg gerne prøve at kigge mail@jon-b.dk

der kommer ingen variabel med over ?????????

Så er det nok ikke så underligt at den ikke kan konvertere en tom streng til et tal :-)

har lige sendt en mail til dig

hehe nops - men hvorfor kommer der ikke noget med over ???

Jeg kan godt nok ikke påstå jeg har fået noget endnu...
Kommer de andre variabler godt nok med over?

stykke tid siden ???

er kommet nu - kigger

Det var straks værre - har fundet fejlen (kan godt huske jeg engang bøvlede længe med det også) Jeg kan desværre ikke umiddelbart løse det...
Dit tal over lever ikke turen i din form metode. Det er "ENCTYPE="multipart/form-data"" der gør det - hvis du fjerner det, får du tallet med over, men så kommer din fil pludselig ikke med over

Man kunne måske forestille sig noget onclick så når man submittede hed den værdien med op i urlen ?tal=MyForm.sender eller noget i den stil - det er mit bedste bud

hed = hev

Har fået det til at virke


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

Upload.SetMaxSize 100000, True

Upload.ProgressID = Request.QueryString("PID")

Set File1 = Upload.Files("thumbnail")
Set File2 = Upload.Files("filen")
Set Str_FilNavn = Upload.form("FilNavn")
Set Str_Beskrivelse = Upload.form("Beskrivelse")
Set DirG = Upload.form("DirG")

On Error Resume Next

Upload.Save "E:\projekter\projekter\test\Upload-II\Files\temp"

' 8 is the number of "File too large" exception
If Err.Number = 8 Then
  Response.Write "Din fil er for stor prøv igen"
  ErrorPing = 1
Else
  If Err <> 0 Then
      Response.Write "Der opstod en fejl: " & Err.Description
  Else
      'Success
  End If
End If

IF DirG = 1 then
    DirX = "Dir1"
ElseIF DirG = 2 then
    DirX = "Dir2"
ElseIF DirG = 3 then
    DirX = "Dir3"
ElseIF DirG = 4 then
    DirX = "Dir4"
End If

'Den skal så gemme i forskellig dir ud fra valget på den første side


    If Not File1 Is Nothing Then
       
        If File1.ImageType <> "UNKNOWN" then
       
        ' Copy file 1
        File1.Copy "E:\projekter\projekter\test\Upload-II\Files\" & Dirx &"\"& File1.Filename
        ' Delete from temp folder
        File1.Delete
       
        else

        File1.Delete

        end if
   
    End if
       
    If File2.Ext = "exe" OR File2.Ext = "rar" OR File2.Ext = "cab" OR File2.Ext = "zip" then       
       
                If ErrorPing = 1 then
                File2.Delete
                End if
   
        ' Copy file 2
        File2.Copy "E:\projekter\projekter\test\Upload-II\Files\" & Dirx &"\"& File2.Filename
        ' Delete from temp folder
        File2.Delete
   
    else
   
        File2.Delete
       
        'Sletter File1
        Set fso = CreateObject("Scripting.FileSystemObject")
        filen = "E:\projekter\projekter\test\Upload-II\Files\"&DirX&"\" & File1.Filename
        Set fileObject = fso.GetFile (filen)
   
        fileObject.Delete
   
        Set fileObject = Nothing
        Set fso = Nothing
   
    end if

%>

jonbdk >> Smid lige et svar

fik du til at virker?
Ellers skal du i hvert fald ikke give fuld point!

jonbdk >> Jo du skal have de point for du hjalp mig igang Basta :ø)

Problemet var at man ikke kan kalde på for elementer før man har savet filen.