computer1000
asked on
Request.BinaryRead failed
I create a simple upload form with one file item. It works fine on the server!
But, I created a member page like this.
religion
occupation
interests/hobbies
...
...
...
photo (upload)
<form method="POST" ENCTYPE="multipart/form-da ta" action="mdb.asp">
<p><input type="text" name="Religion" size="20"><b><font face="Arial" size="2">Religion</font></ b></p>
<p><input type="text" name="Occupation" size="20"><b><font face="Arial" size="2">Occupation</font> </b></p>
<p><b><font face="Arial" size="2">Please describe your interest and/or hobbies below. Please use at
least 100 characters and less than 250.</font></b></p>
<p><textarea rows="6" name="Interest" cols="41"></textarea></p>
<p><input type="file" name="UploadForm" size="30"><b><font face="Arial" size="2">Select a photo to upload</font></b></p>
<p><input type="submit" value="Submit" name="B1"><input type="reset" value="Reset" name="B2"></p>
mdb.asp
---------
strmreligion = Request.Form("Religion")
strmoccuptation = Request.Form("Occupation")
strminterest = Request.Form("Interest")
Dim oRsMember, Upload
Set oRsMember = Server.CreateObject("Adodb .Recordset ")
Set Upload = Server.CreateObject("Persi ts.Upload. 1")
Upload.Save "\photo\"
Set File = Upload.Files("UploadForm")
strCriteriaMember = "Select * FROM Contacts ORDER BY MemberID DESC"
oRsMember.Open strCriteriaMember, oConn, adOpenDynamic, adLockOptimistic, adCmdText
If not (oRsMember.BOF And oRsMember.EOF) then
oRsMember.AddNew
oRsMember("Religion") = strmreligion
oRsMember("Occupation") = strmoccupation
oRsMember("Interest") = strminterest
oRsMember("Timestamp") = now
oRsMember("MemberPhoto") = File.ExtractFileName
oRsMember.Update
End If
oRsMember.Close
Set oRsMember = Nothing
I got an error saying "Request.BinaryRead failed."
How can I fix it?
But, I created a member page like this.
religion
occupation
interests/hobbies
...
...
...
photo (upload)
<form method="POST" ENCTYPE="multipart/form-da
<p><input type="text" name="Religion" size="20"><b><font face="Arial" size="2">Religion</font></
<p><input type="text" name="Occupation" size="20"><b><font face="Arial" size="2">Occupation</font>
<p><b><font face="Arial" size="2">Please describe your interest and/or hobbies below. Please use at
least 100 characters and less than 250.</font></b></p>
<p><textarea rows="6" name="Interest" cols="41"></textarea></p>
<p><input type="file" name="UploadForm" size="30"><b><font face="Arial" size="2">Select a photo to upload</font></b></p>
<p><input type="submit" value="Submit" name="B1"><input type="reset" value="Reset" name="B2"></p>
mdb.asp
---------
strmreligion = Request.Form("Religion")
strmoccuptation = Request.Form("Occupation")
strminterest = Request.Form("Interest")
Dim oRsMember, Upload
Set oRsMember = Server.CreateObject("Adodb
Set Upload = Server.CreateObject("Persi
Upload.Save "\photo\"
Set File = Upload.Files("UploadForm")
strCriteriaMember = "Select * FROM Contacts ORDER BY MemberID DESC"
oRsMember.Open strCriteriaMember, oConn, adOpenDynamic, adLockOptimistic, adCmdText
If not (oRsMember.BOF And oRsMember.EOF) then
oRsMember.AddNew
oRsMember("Religion") = strmreligion
oRsMember("Occupation") = strmoccupation
oRsMember("Interest") = strminterest
oRsMember("Timestamp") = now
oRsMember("MemberPhoto") = File.ExtractFileName
oRsMember.Update
End If
oRsMember.Close
Set oRsMember = Nothing
I got an error saying "Request.BinaryRead failed."
How can I fix it?
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
What you will have to do is break-up the <form> pages, one for the image upload, another for the text fields, like this;
<FORM METHOD="Post" ENCTYPE="multipart/form-da ta" ACTION="aFile.asp" name="form1">
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td valign="top"><p><input type="file" name="UploadForm" size="30"><b><font face="Arial" size="2">Select a photo to upload</font></b></p>
<p><input type="submit" value="Submit" name="B1"><input type="reset" value="Reset" name="B2"></p></td>
</tr>
<tr>
</table>
</form>
Now run the text field form; (where <%=filename%> is the passed in image)
<FORM METHOD="Post" action="mdb.asp" name="form1">
<input type="hidden" name="filename" value="<%=filename%>">
<p><input type="text" name="Religion" size="20"><b><font face="Arial" size="2">Religion</font></ b></p>
<p><input type="text" name="Occupation" size="20"><b><font face="Arial" size="2">Occupation</font> </b></p>
<p><b><font face="Arial" size="2">Please describe your interest and/or hobbies below. Please use at least 100 characters and less than 250.</font></b></p>
<p><textarea rows="6" name="Interest" cols="41"></textarea></p>
...
<FORM METHOD="Post" ENCTYPE="multipart/form-da
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td valign="top"><p><input type="file" name="UploadForm" size="30"><b><font face="Arial" size="2">Select a photo to upload</font></b></p>
<p><input type="submit" value="Submit" name="B1"><input type="reset" value="Reset" name="B2"></p></td>
</tr>
<tr>
</table>
</form>
Now run the text field form; (where <%=filename%> is the passed in image)
<FORM METHOD="Post" action="mdb.asp" name="form1">
<input type="hidden" name="filename" value="<%=filename%>">
<p><input type="text" name="Religion" size="20"><b><font face="Arial" size="2">Religion</font></
<p><input type="text" name="Occupation" size="20"><b><font face="Arial" size="2">Occupation</font>
<p><b><font face="Arial" size="2">Please describe your interest and/or hobbies below. Please use at least 100 characters and less than 250.</font></b></p>
<p><textarea rows="6" name="Interest" cols="41"></textarea></p>
...
computer1000,
What you will have to do is break-up the <form> pages, one for the image upload, another for the text
fields, like this;
>Why need 2 form?? A Stupid Way?
mdb.asp
---------
Dim oRsMember, Upload
Set oRsMember = Server.CreateObject("Adodb .Recordset ")
Set Upload = Server.CreateObject("Persi ts.Upload. 1")
strmreligion = Upload.Form("Religion")
strmoccuptation = Upload.Form("Occupation")
strminterest = Upload.Form("Interest")
Upload.Save "\photo\"
Set File = Upload.Files("UploadForm")
strCriteriaMember = "Select * FROM Contacts ORDER BY MemberID DESC"
oRsMember.Open strCriteriaMember, oConn, adOpenDynamic, adLockOptimistic, adCmdText
If not (oRsMember.BOF And oRsMember.EOF) then
oRsMember.AddNew
oRsMember("Religion") = strmreligion
oRsMember("Occupation") = strmoccupation
oRsMember("Interest") = strminterest
oRsMember("Timestamp") = now
oRsMember("MemberPhoto") = File.ExtractFileName
oRsMember.Update
End If
oRsMember.Close
Set oRsMember = Nothing
Regards,
Wee SIong
What you will have to do is break-up the <form> pages, one for the image upload, another for the text
fields, like this;
>Why need 2 form?? A Stupid Way?
mdb.asp
---------
Dim oRsMember, Upload
Set oRsMember = Server.CreateObject("Adodb
Set Upload = Server.CreateObject("Persi
strmreligion = Upload.Form("Religion")
strmoccuptation = Upload.Form("Occupation")
strminterest = Upload.Form("Interest")
Upload.Save "\photo\"
Set File = Upload.Files("UploadForm")
strCriteriaMember = "Select * FROM Contacts ORDER BY MemberID DESC"
oRsMember.Open strCriteriaMember, oConn, adOpenDynamic, adLockOptimistic, adCmdText
If not (oRsMember.BOF And oRsMember.EOF) then
oRsMember.AddNew
oRsMember("Religion") = strmreligion
oRsMember("Occupation") = strmoccupation
oRsMember("Interest") = strminterest
oRsMember("Timestamp") = now
oRsMember("MemberPhoto") = File.ExtractFileName
oRsMember.Update
End If
oRsMember.Close
Set oRsMember = Nothing
Regards,
Wee SIong
Wee, the problem is the ENCTYPE in the form, ENCTYPE does not process text data.
ASKER
Mgfranz: thanks a lot.
Your welcome.
ASKER