Devo passare una variabile: Socio da una paggina all'altra, la seconda paggina è quella x l'upload dei file di aruba, i listati sono questi:
PAG 1:
<%
Socio =request.querystring("Socio")
%>
<center>
<table width="380px" bgcolor="black" cellpadding="2" cellspacing="3" colspan=3>
<tr>
<td bgcolor=red><h1><font color=white>[b]INVIA LA TUA FOTO A LA CHARANGA:</td>
</tr>
<td bgcolor=white>
[b]<h1>Per completare la registrazione devi inviarci la tua foto. La foto deve essere in formato jpg e la dimensione 180 x 180
<center>
<FORM METHOD="Post" ENCTYPE="multipart/form-data" ACTION="public/outputFile1.asp">
<font face="Verdana" size="2">
File : <INPUT TYPE="file" NAME="blob">
<input type="hidden" utente="<%=Socio%>">
<INPUT TYPE="submit" NAME="Enter">
</font>
</FORM>
</td>
__________________________________________________ __________________
PAG 2: OutputFile1.asp
<% Utente=request.form("Socio") %>
<%Response.Expires=0
Response.Buffer = TRUE
Response.Clear
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin
contentType = UploadRequest.Item("blob").Item("ContentType")
filepathname = UploadRequest.Item("blob").Item("FileName")
filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
value = UploadRequest.Item("blob").Item("Value")
'Create FileSytemObject Component
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
'Create and Write to a File
pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_I NFO")))-14
Set MyFile = ScriptObject.CreateTextFile(Left(Server.mappath(Re quest.ServerVariables("PATH_INFO")),pathEnd) & filename)
For i = 1 to LenB(value)
MyFile.Write chr(AscB(MidB(value,i,1)))
Next
MyFile.Close
%>
__________________________________________________ ___________________
E questo è l'errore:
Request object error 'ASP 0206 : 80004005'
Cannot call BinaryRead
/public/outputFile1.asp, line 10
Cannot call BinaryRead after using Request.Form collection.