Ho creato un form dove 2 campi (valuta, data)sono di testo, invece altri 2 servono per l'upload delle immagini (dritto, rovescio).

Ecco la pagina "inseriremoneta.asp":
codice:
<form name="form1" method="post" enctype="multipart/form-data" action="inseriscidatimoneta.asp">
 <input name="valuta" type="text" id="valuta">
<input name="data" type="text" id="data" maxlength="4">
<input name="dritto" type="file" id="dritto" > 
 <input name="rovescio" type="file" id="rovescio" >
<input type="submit" name="Submit" value="Invia">
</form>
Per fare l'upload dei file ho creato la pagina "inseriscidatimoneta.asp", ecco cosa c'è:

codice:
<%
'variabili di configurazione
Dim folder
folder = "\public" 
Response.Expires=0
Response.Buffer = TRUE
Response.Clear

Sub BuildUploadRequest(RequestBin)
	PosBeg = 1
	PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
	boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
	boundaryPos = InstrB(1,RequestBin,boundary)
		Do until (boundaryPos=InstrB(RequestBin,boundary & getByteString("--")))
		Dim UploadControl
		Set UploadControl = CreateObject("Scripting.Dictionary")
		'Get an object name
		Pos = InstrB(BoundaryPos,RequestBin,getByteString("Content-Disposition"))
		Pos = InstrB(Pos,RequestBin,getByteString("name="))
		PosBeg = Pos+6
		PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
		Name = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
		PosFile = InstrB(BoundaryPos,RequestBin,getByteString("filename="))
		PosBound = InstrB(PosEnd,RequestBin,boundary)
			If  PosFile<>0 AND (PosFile<PosBound) Then
			PosBeg = PosFile + 10
			PosEnd =  InstrB(PosBeg,RequestBin,getByteString(chr(34)))
			FileName = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
			UploadControl.Add "FileName", FileName
			Pos = InstrB(PosEnd,RequestBin,getByteString("Content-Type:"))
			PosBeg = Pos+14
			PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
			ContentType = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
			UploadControl.Add "ContentType",ContentType
			PosBeg = PosEnd+4
			PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
			Value = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
			Else
			Pos = InstrB(Pos,RequestBin,getByteString(chr(13)))
			PosBeg = Pos+4
			PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
			Value = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
		End If
		UploadControl.Add "Value" , Value	
		UploadRequest.Add name, UploadControl	
		BoundaryPos=InstrB(BoundaryPos+LenB(boundary),RequestBin,boundary)
	Loop
End Sub
Function getByteString(StringStr)
 For i = 1 to Len(StringStr)
 	char = Mid(StringStr,i,1)
	getByteString = getByteString & chrB(AscB(char))
 Next
End Function
Function getString(StringBin)
 getString =""
 For intCount = 1 to LenB(StringBin)
	getString = getString & chr(AscB(MidB(StringBin,intCount,1))) 
 Next
End Function

byteCount = Request.TotalBytes

RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Dim UploadRequest1
Set UploadRequest = CreateObject("Scripting.Dictionary")
Set UploadRequest1 = CreateObject("Scripting.Dictionary")
BuildUploadRequest  RequestBin

contentType = UploadRequest.Item("dritto").Item("ContentType")
contentType = UploadRequest.Item("rovescio").Item("ContentType")
filepathname = UploadRequest.Item("dritto").Item("FileName")
filepathname1 = UploadRequest.Item("rovescio").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
filename1 = Right(filepathname1,Len(filepathname1)-InstrRev(filepathname1,"\"))
value = UploadRequest.Item("dritto").Item("Value")
value = UploadRequest.Item("rovescio").Item("Value")
'Create FileSytemObject Component
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

'Create and Write to a File
Set MyFile = ScriptObject.CreateTextFile(Server.mappath(folder)&"\"&filename)
Set MyFile1 = ScriptObject.CreateTextFile(Server.mappath(folder)&"\"&filename1)
For i = 1 to LenB(value)
	MyFile.Write chr(AscB(MidB(value,i,1)))
	MyFile1.Write chr(AscB(MidB(value,i,1)))
Next
%>



<%
 Dim conn3
 Dim rs3

valuta=request.form("valuta")  <-------------
data=request.form("data")
 'apro la connessione
Set conn3 = Server.CreateObject("ADODB.Connection")
conn3.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/dbmonete.mdb")
Set rs3=server.CreateObject("ADODB.Recordset")
rs3.Open "tabmonete",conn2,3,3
rs3.AddNew
rs3("valuta")=valuta
rs3("data")=data
rs3("dritto")= MyFile
rs3("rovescio")=MyFile1
MyFile1.Close
rs3.update
rs3.Close
conn3.Close
%>

<%
MyFile.Close
MyFile1.Close					
%>

Io vorrei oltre fare l'upload delle 2 immagini nella cartella "public" anche inserire nel database il collegamento delle 2 immagini di cui ho fatto l'upload prima in modo tale da richiamare l'immagine in un'latra pagina.
Tutto questo non funziona mi da questo errore:


Request object error 'ASP 0207 : 80004005'
Cannot use Request.Form

/collezioni/inseriscidatimoneta.asp, line 866 (dove c'è la freccia)

Cannot use Request.Form collection after calling BinaryRead