multipart/form-data - Form request
nogen der kan fortælle mig hvordan man requester en form når der bruges ENCTYPE="multipart/form-data" i formen.Eksempel...
<FORM METHOD="POST" ACTION="image.asp" ENCTYPE="multipart/form-data">
Billede<br>
<INPUT TYPE="FILE" NAME="FILE1" SIZE="50">
<br>
<INPUT TYPE="FILE" NAME="FILE2" SIZE="50">
<br>
<br>
Bredde <br>
<input name="bredde" type="text" id="bredde">
<BR>
<INPUT TYPE="SUBMIT" VALUE="Upload">
</FORM>
*********************************
Image.asp
*********************************
<%
Dim mySmartUpload
Dim intCount
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.Upload
intCount = mySmartUpload.Save("/log")
For each file In mySmartUpload.Files
If not file.IsMissing Then
Response.Write("Name = " & file.Name & "<BR>")
Response.Write("Size = " & file.Size & "<BR>")
Response.Write("FileName = " & file.FileName & "<BR>")
'<--##### aspImage Start #####-->
Dim objImage
Dim strBilledKilde
Dim strNytBillede
Dim intXSize
Dim intYSize
strBilledKilde = "/log/" & file.FileName
strNytBillede = "/log/" & file.FileName & "_tnail.jpg"
Set objImage = Server.CreateObject("AspImage.Image")
objImage.LoadImage(Server.MapPath(strBilledKilde))
intXSize = 300
intYSize = (intXSize / objImage.MaxX) * objImage.MaxY
objImage.ResizeR intXSize, intYSize
objImage.ImageFormat = 1
objImage.JPEGQuality = 80
objImage.FileName = Server.MapPath(strNytBillede)
If objImage.SaveImage Then
Response.Write "<img src=""" & strNytBillede & """><br><br><img src=""" & strBilledKilde & """>"
Else
Response.Write "Der opstod en fejl : " & objImage.Error
End If
Set objImage = Nothing
'<--##### aspImage Slut #####-->
End If
Next
%>
Det jeg ønsker er at sætte bredden fra formen til variablen intXSize
