finalmente sono riuscito a fare un upload che caricasse l'immagine sul server e memorizzasse i valori nel db...(ho usato lo script di freeasp.html.it)

ma e sorto un piccolo problema...
se i campi in arrivo dal modulo sono checkbox con lo stesso nome, lo script mi prende solo il primo valore della stringa (perche se non sbaglio 10 check con lo stesso nome restituiscono i valori separati da stringa)

come posso fare??

sono nei guai?

grazie a tutti.

vi posto lo script:

codice:
<%
'Questa variabile setta il percorso di dove effettuare l'upolad
'la cartella non puo non esistere lo script non la crea ! ! !
appartenenza=session("idAppartenenza")

percorso = "/desktopfaita/data/"

ByteRicevuti = Request.TotalBytes

if ByteRicevuti > 0 then
	DatiRicevuti = Request.BinaryRead(ByteRicevuti)
	For i = 1 To lenB(DatiRicevuti)
		FileBinario = FileBinario & chr(ascB(midB(DatiRicevuti,i,1)))
	Next
	FirmaFile = left(FileBinario,instr(FileBinario,"" & vbCrLf)-1)
	ArrPezzi = split(FileBinario,FirmaFile)

	for item = 1 to ubound(ArrPezzi)-1
		Inizio = instr(ArrPezzi(item),"" & vbCrLf & "" & vbCrLf)
		Intestazione = left(ArrPezzi(item),Inizio-1)
		Inizio = Inizio + len("" & vbCrLf) + len("" & vbCrLf)
	    	ContenutoFile = mid(ArrPezzi(item),Inizio,len(ArrPezzi(item))-Inizio-1)

		' Recupero i campi se sono compilati
		if instr(Intestazione,"Oggetto") > 0 then
			oggetto = ContenutoFile
		end if
		
		if instr(Intestazione,"Protocollo") > 0 then
			protocollo = ContenutoFile
		end if
		
		if instr(Intestazione,"descrizione") > 0 then
			descrizione = ContenutoFile
		end if

		if instr(Intestazione,"chiave") > 0 then
			chiave = ContenutoFile
		end if
		
		if instr(Intestazione,"gg") > 0 then
			gg = ContenutoFile
		end if
		
		if instr(Intestazione,"mm") > 0 then
			mm = ContenutoFile
		end if
		if instr(Intestazione,"aa") > 0 then
			aa= ContenutoFile
		end if
		response.write("
livello"&instr(Intestazione,"livello"))
		if instr(Intestazione,"livello") > 0 then
			livello = ContenutoFile
		end if
		response.write("
regioni"&instr(Intestazione,"regioni"))
		if instr(Intestazione,"regioni") > 0 then
			regioni = ContenutoFile
		end if
		response.write("
associati"&instr(Intestazione,"associati"))
		if NOT ISNULL (instr(Intestazione,"associati")) then
		if instr(Intestazione,"associati") > 0 then
			associati = ContenutoFile
		end if
		end if
		' Nel caso in cui fossero presenti piu campi basta duplicare
		' la condizione cambiando unicamente il nome del campo
		' es.
		'if instr(Intestazione,"testo2") > 0 then
		'	testo2 = ContenutoFile
		'end if
		
		'if instr(Intestazione,"testo3") > 0 then
		'	testo3 = ContenutoFile
		'end if		

		' Qui recupero il file da uploadare (se presente) e lo scrivo
		' sul server
		if instr(Intestazione,"file1") > 0 then
		    i = instr(Intestazione,"filename=")
			j = instr(i + 10,Intestazione,chr(34))
			NomeUpload = mid(Intestazione,i + 10,j-i-10)
			i = instrRev(NomeUpload,"\")
			if i<>0 then
    		    NomeFile = mid(NomeUpload,i + 1)
    		else
    			NomeFile = NomeUpload
    		end if
      		if i<>0 then
				Set FSO = CreateObject("Scripting.FileSystemObject")
				Upload1 = True
				DimensioneFile1 = len(ContenutoFile)
				EstensioneFile1 = right(ContenutoFile,3)
				NomeFile1 = NomeFile
    			Set textStream = FSO.CreateTextFile(server.mappath(percorso & NomeFile1), True, False)
    			textStream.Write ContenutoFile
    			textStream.Close
    			Set textStream = Nothing
	   			Set FSO = Nothing
    	   end if
		end if

next		
End if