Fejl i upload af billede
Hej Eksperter!Jeg har fået fingre i et dejligt uploading-script til billeder. Det fungerer fint, men når jeg vil indsætte en ny form - eks. tekstfelt, melder den denne fejl:
------------------------------------------------
Billedet : Johnny.jpg (16708) blev uploaded.
Request object error 'ASP 0207 : 80004005'
Cannot use Request.Form
/vandscooter/billeder.asp, line 136
Cannot use Request.Form collection after calling BinaryRead.
-------------------------------------
Nedenstående er formularen og uploaddelen...
Formularen:
------------------->
<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="billeder.asp?PictureAction=Uploaded">
Vælg et billede:<BR>
<INPUT TYPE=FILE NAME="FILE1" size="20" id="input">
<br>
Navn:<br>
<INPUT TYPE=text name="DESCR1" id="input" size="20"><br>
Tekst:<br>
<textarea rows="4" name="Tekst" cols="20"></textarea><br>
Billedserie:<br>
<select size="1" name="billedserie">
<option value="0">Vælg her:</option>
</select><BR>
<br>
<INPUT TYPE=submit VALUE="Upload!" id="input">
</FORM>
Uploads scriptet:
------------------->
<%
dim StrFileName, strDrec
dim intHeight, intWidth
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.SaveVirtual "img/"
%>
<h1>Billede uploaded..!!</h1>
<%
For Each File in Upload.Files
StrFileName = File.ExtractFileName
intHeight = File.ImageHeight
intWidth = File.ImageWidth
Response.Write "Billedet : " & File.ExtractFileName & " (" & File.Size & ") blev uploaded.<BR>"
Next
For Each Item in Upload.Form
strDrec = Item.Value
Next
objRS.AddNew
objRS("Height") = intHeight
objRS("Width") = intWidth
objRS("filnavn") = StrFileName
objRS("navn") = strDrec
objRS("tekst") = request.form("tekst")
objRS("billedserie") = request.form("billedserie")
Response.Write "<IMG SRC=""img/" & StrFilename & """><BR>"
objRS.Update
For Each Item in Upload.Form
Response.Write Item.Value & "<BR>"
Next
Response.Write "<BR><A HREF=billeder.asp?PictureAction=Se> Klik her for at se alle billeder</A><BR>"
Response.Write "<A HREF=billeder.asp?PictureAction=Upload> Klik her for at uploade et billede</A><BR>"
end if
%>
----------------------------------------------
Håber I kan hjælpe...
/Bruhn
