upload multiplo

[fwd]

ciao a tutti, il mio problema è che non riesco a uplodare 3 immagini contemporaneamente da web a access, questo è il codice che uso:

<%
password = request.cookies("pass")
Dim oUpload, nome, category, descrizione
Set oUpload = new cUpload
oUpload.SetPath picspath
oUpload.AutoRename=False
oUpload.OverWrite=False
oUpload.load()
if passworddb=password then
oUpload.Save()
Select Case lCase(oUpload.Files("InputName"))
Case "name"
name= oUpload.GetFileName()
Case "image2"
image2= oUpload.GetFileName()
Case "image3"
image3= oUpload.GetFileName()
end select
category = oUpload.Form("category")
commenti = oUpload.Form("descrizione")
descrizione = replace(commenti,"'","''")
titolo = oUpload.Form("titolo")
desc_prod = oUpload.Form("desc_prod")
objRs.Close
Set objRs = Nothing
objConn.Close
Set objConn = Nothing
%>
<!--#include file="inc_db_ins.asp"-->
<%
strsql = "INSERT INTO fotoinfo ( name, image2, image3, category, titolo, desc_prod, descrizione) Values ( '" & name & "', '" & image2 & "', '" & image3 & "','" & category & "', '" & titolo & "','" & desc_prod & "','" & descrizione & "');"
objConn.Execute strsql
objConn.Close
Set objConn = Nothing
Set oUpload=Nothing
else
%>
questo codice così mi carica solo 1 immagine e gli altri 2 campi non vengono letti da access...

spero in un vostro aiuto

 

[PoLe]

...
Select Case lCase(oUpload.Files("InputName"))
Case "name"
name= oUpload.GetFileName()
Case "image2"
image2= oUpload.GetFileName()
Case "image3"
image3= oUpload.GetFileName()
end select
....
questo codice così mi carica solo 1 immagine e gli altri 2 campi non vengono letti da access...
...

Questo perchè utilizzi un Case, che è un'istruzione che scatena uno solo degli eventi previsti, non tutti e tre

Non conosco questo script, ma devi assegnare i contenuti alle variabili in un altro modo, facendo magari un qualcosa del tipo:

name= oUpload.Files("name").GetFileName()
image2= oUpload.Files("image2").GetFileName()
image3= oUpload.Files("image3").GetFileName()

Ti dico, non so se il codice è giusto, però la logica che devi utlizzare deve essere simile a questa

:byebye:

 

[fwd]

Ecco l'errore che viene visualizzato adesso non capisco..!!!:incazz2:

Errore di run-time di Microsoft VBScript (0x800A01B6)
Proprietà o metodo non supportati dall'oggetto: 'GetFileName'

 

[PoLe]

Ecco l'errore che viene visualizzato adesso non capisco..!!!:incazz2:

Errore di run-time di Microsoft VBScript (0x800A01B6)
Proprietà o metodo non supportati dall'oggetto: 'GetFileName'

Come ti dicevo, non conosco i metodi da te utilizzati, io ti ho indicato solo la linea logica che devi seguire

Prova così:

name= oUpload.GetFileName("name")
image2= oUpload.GetFileName("image2")
image3= oUpload.GetFileName("image3")

Ma sto proprio andando a tentativi.

Vedi casomai se su mrw o google trovi le regole e le sintassi inerenti i metodi e gli attributi dello script che stai utilizzando