baol ...upload

[-AA-]

Sarà ...ma non riesco a vedere cosa e perchè ...

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>


<%
Dim oUpload
Set oUpload= new cUpload
With oUpload

immagine = oUpload.Form("foto")
cartella = request.QueryString("ctr")

.EnabledAspUpload = False
.EnabledImageSize = TRUE
.EnabledLog = False
.AutoRename = False
.Overwrite = True

.SetPath "\public\"&session("cartella")&"\"&cartella&"\"


.Load
.UploadOnly "Images"
While Not .Eof
.Save
.MoveNext
Wend
End With

Set oUpload = Nothing
%>

errore:

Microsoft VBScript runtime  error '800a0411'
Name redefined: 'adLongVarChar'
/upload.asp, line 20

di sicuro l'errore non è nel file UPLOAD <---

[Santino83_02]

non è che includi qualcosa che ci va in conflitto? magari ti sbagli e includi due volte "upload.asp"

[-AA-]

è l'ho pensato anche io .... ma quello postato è proprio il codice della pagina ...non c'è nulla di +

[Santino83_02]

controlla che ci sia solo una "dim adLongVarChar"...

[-AA-]

no no nulla di dupplicato

vaben ...provo a "rifare la pagina" ....è che ----> in locale funziona

questo è l'unico codice che c'è nella pagina

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>



<%
Dim oUpload
Set oUpload= new cUpload
With oUpload

immagine = oUpload.Form("foto")
cartella = request.QueryString("ctr")

.EnabledAspUpload = False
.EnabledImageSize = TRUE
.EnabledLog = False
.AutoRename = False
.Overwrite = True

.SetPath "\public\"&session("cartella")&"\"&cartella&"\"


.Load
.UploadOnly "Images"
While Not .Eof
.Save
.MoveNext
Wend
End With

Set oUpload = Nothing
%>


<%response.Redirect( "pannello_utente_inserisci2.asp?act=ft&idv="&request.QueryString("idv")&"&folder="&request.QueryString("ctr") )%>