This is the code I have and it does have(input file) but no submit after collecting file.
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="content-type" content="text/html;charset=iso-8859-1">
<meta name="generator" content="pg">
<title>Welcome to pg</title>
</head>
<body bgcolor="#ffffff">
<table width="735" border="0" cellspacing="0" cellpadding="0" cool gridx="16" gridy="16" height="503" showgridx showgridy usegridx usegridy>
<tr height="502">
<td width="734" height="502"></td>
<td width="1" height="502"><spacer type="block" width="1" height="502"></td>
</tr>
<tr height="1" cntrlrow>
<td width="734" height="1"><spacer type="block" width="734" height="1"></td>
<td width="1" height="1"></td>
</tr>
</table>
<p></p>
</body>
</html>
<form action="upload.asp" method="post" enctype="multipart/form-data">
<input type="file" name="myFileToUpload" accept="image/*">
<body style="font: 8pt tahoma">
<%
Dim iPos
Dim vData, vSeparator
vData = Request.BinaryRead(Request.TotalBytes)
Call fnParsePostContents(vSeparator, vData)
'Get Each INPUT Contents
Do While LenB(vData) > 0
iPos = InStrB(1, vData, ChrB(13) & ChrB(10) & vSeparator & ChrB(13) & ChrB(10))
Call fnParseInputContents(MidB(vData, 1, iPos - 1))
vData = MidB(vData, iPos + 2 + LenB(vSeparator) + 2)
Loop
'---------------------------------------------------------------------------------------------------------------
'---------------------------------------------------------------------------------------------------------------
'---------------------------------------------------------------------------------------------------------------
Sub fnParsePostContents(ByRef p_vSeparator, ByRef p_vData)
Dim iPos
iPos = InStrB(1, p_vData, ChrB(13) & ChrB(10))
p_vSeparator = MidB(vData, 1, iPos - 1)
p_vData = MidB(vData, iPos + 2, LenB(p_vData) - LenB(p_vSeparator) - 2 - 4) & ChrB(13) & ChrB(10)
End Sub
'---------------------------------------------------------------------------------------------------------------
'---------------------------------------------------------------------------------------------------------------
'---------------------------------------------------------------------------------------------------------------
Sub fnParseInputContents(ByRef p_vInput)
Dim bFileUploaded
Dim sContentDisposition
Dim sContentType
Dim vContent
Dim iPosS, iPosF
iPosS = 1
iPosF = InStrB(1, p_vInput, ChrB(13) & ChrB(10))
sContentDisposition = fnConvertArrayToString(MidB(p_vInput, iPosS, iPosF - iPosS))
iPosS = iPosF + 2
If Chr(AscB(MidB(p_vInput, iPosS, 1))) = "C" Then
iPosF = InStrB(iPosS, p_vInput, ChrB(13) & ChrB(10) & ChrB(13) & ChrB(10))
sContentType = fnConvertArrayToString(MidB(p_vInput, iPosS, iPosF - iPosS))
vContent = MidB(p_vInput, iPosF + 4)
bFileUploaded = True
Else
sContentType = ""
vContent = fnConvertArrayToString(MidB(p_vInput, iPosF + 4))
bFileUploaded = False
End If
REM -------------------------------------
REM -- DEBUG -- DEBUG -- DEBUG -- DEBUG -
REM -------------------------------------
Response.Write "<b>Content Disposition</b><br>"
Response.Write sContentDisposition
Response.Write "<br>"
Response.Write "<b>Content Type</b><br>"
Response.Write sContentType
Response.Write "<br>"
Response.Write "<b>Content</b><br>"
Response.BinaryWrite vContent
Response.Write "<br>"
Response.Write "<br>"
End Sub
Function fnConvertArrayToString(vArray)
Dim sString
Dim iPos
iPos = 1
sString = ""
Do While iPos <= LenB(vArray)
sString = sString & Chr(AscB(MidB(vArray, iPos, 1)))
iPos = iPos + 1
Loop
fnConvertArrayToString = sString
End Function
%>
</body>
9
