Upload baol

[ITANIUM]

Salve ragazzi, ho un problema con l'upload di baol questo e il codice:

<%
	If Request.QueryString("Save")="1" then
		Dim oUpload
		Set oUpload = new cUpload
		oUpload.AutoRename = True
		oUpload.Overwrite = False
		oUpload.SetPath "/public/docum_ute" 
		oUpload.Load
		While Not oUpload.EOF
			oUpload.Save()
			Select Case lCase(oUpload.Files("InputName"))
				Case "ALLEGATO1"
					FileName_img = oUpload.GetFileName()
				Case "ALLEGATO2"
					FileName_img1 = oUpload.GetFileName()
				Case "ALLEGATO3"
					FileName_img2 = oUpload.GetFileName()
				
			End Select
			oUpload.MoveNext
		Wend			
		Set Conn = Server.CreateObject("ADODB.Connection")
		Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/utenti_conf.mdb")
		Set Rs=server.CreateObject("ADODB.Recordset")
		Rs.Open "MESSAGGI",Conn,3,3
		Rs.AddNew
		Rs("TITOLO")		= oUpload.Form("TITOLO")
		Rs("DATA")		    = oUpload.Form("DATA")
		Rs("AUTORE")		= oUpload.Form("AUTORE")
		Rs("MESSAGGIO")		= oUpload.Form("MESSAGGIO")
		Rs("USER")		    = oUpload.Form("USER")
		Rs("NOMECOGNOME")	= oUpload.Form("NOMECOGNOME")
		Rs("ALLEGATO1")		= FileName_img
		Rs("ALLEGATO2")		= FileName_img1
		Rs("ALLEGATO3")		= FileName_img2
		Rs.update
		Rs.Close
		Set Rs = Nothing
	End if
%>

mi copia i file nella cartella stabilita, mi riempie il database tranne i campi allegato1 - alegato2 - allegato3, li lascia bianchi, cosa può essere...

[Roby_72]

Fatti stampare quelle variabili e verifica se contegano qualcosa.

Roby

[cavicchiandrea]

Per logica mi verrebbe da dire oUpload.Files("InputName") si il campo file del form o mi sbaglio? Se è cosi non conterrà mai le parole ALLEGATO1, ALLEGATO2, ALLEGATO3 pertanto il case della Select non verrà mai soddisfatto.

[ITANIUM]

ciao a tutti, grzie per la risposta.


come faccio a stampare le variabili interessate.

[ITANIUM]

Ho risolto l'arcano problema, non si tratta di alcun tipo di errore ne di script ne di permessi, mi è bastato mettere tutti i testi del db e del modulo in minuscolo, in rosso le modifiche sotto:

<%
	If Request.QueryString("Save")="1" then
		Dim oUpload
		Set oUpload = new cUpload
		oUpload.AutoRename = True
		oUpload.Overwrite = False
		oUpload.SetPath "/public/docum_ute" 
		oUpload.Load
		While Not oUpload.EOF
			oUpload.Save()
			Select Case lCase(oUpload.Files("InputName"))
				Case "allegato "
					FileName_img = oUpload.GetFileName()
				Case "allegato1 "
					FileName_img1 = oUpload.GetFileName()
				Case "allegato2 "
					FileName_img2 = oUpload.GetFileName()
				
			End Select
			oUpload.MoveNext
		Wend			
		Set Conn = Server.CreateObject("ADODB.Connection")
		Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/utenti_conf.mdb")
		Set Rs=server.CreateObject("ADODB.Recordset")
		Rs.Open "messaggi",Conn,3,3
		Rs.AddNew
		Rs("titolo ")		= oUpload.Form("titolo ")
		Rs("data ")		= oUpload.Form("data ")
		Rs("autore ")		= oUpload.Form("autore ")
		Rs("messaggio ")	         = oUpload.Form("messaggio ")
		Rs("user ")	         = oUpload.Form("user ")
		Rs("nomecognome")	         = oUpload.Form("nomecognome")
		Rs("allegato ")		= FileName_img
		Rs("allegato1 ")		= FileName_img1
		Rs("allegato2 ")		= FileName_img2
		Rs.update
		Rs.Close
		Set Rs = Nothing
	End if
%>

[vic53]

Originariamente inviato da ITANIUM
Salve ragazzi, ho un problema con l'upload di baol questo e il codice:

<%
	If Request.QueryString("Save")="1" then
		Dim oUpload
		Set oUpload = new cUpload
		oUpload.AutoRename = True
		oUpload.Overwrite = False
		oUpload.SetPath "/public/docum_ute" 
		oUpload.Load
		While Not oUpload.EOF
			oUpload.Save()
			Select Case lCase(oUpload.Files("InputName"))
				Case "ALLEGATO1"
					FileName_img = oUpload.GetFileName()
				Case "ALLEGATO2"
					FileName_img1 = oUpload.GetFileName()
				Case "ALLEGATO3"
					FileName_img2 = oUpload.GetFileName()
				
			End Select
			oUpload.MoveNext
		Wend			
		Set Conn = Server.CreateObject("ADODB.Connection")
		Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/utenti_conf.mdb")
		Set Rs=server.CreateObject("ADODB.Recordset")
		Rs.Open "MESSAGGI",Conn,3,3
		Rs.AddNew
		Rs("TITOLO")		= oUpload.Form("TITOLO")
		Rs("DATA")		    = oUpload.Form("DATA")
		Rs("AUTORE")		= oUpload.Form("AUTORE")
		Rs("MESSAGGIO")		= oUpload.Form("MESSAGGIO")
		Rs("USER")		    = oUpload.Form("USER")
		Rs("NOMECOGNOME")	= oUpload.Form("NOMECOGNOME")
		Rs("ALLEGATO1")		= FileName_img
		Rs("ALLEGATO2")		= FileName_img1
		Rs("ALLEGATO3")		= FileName_img2
		Rs.update
		Rs.Close
		Set Rs = Nothing
	End if
%>

mi copia i file nella cartella stabilita, mi riempie il database tranne i campi allegato1 - alegato2 - allegato3, li lascia bianchi, cosa può essere...

Metti delle trappole come response,write "
filename=" & FileName_img
in mezzo al codice cosi lo puoi vedere anche se non trasferisce perche dara errpre ma i campi li puoi sedere se passa dentro alla While....poi le togli con un apice in modo da farle diventare commenti....
ciao
Vic53