problem: upload form inserting data from 1 table & form [Archive]

cwfontan

01-17-2008, 05:56 PM

error:

ASPSimpleUpload.Upload error 'ASP 0206 : 80004005'

Cannot call BinaryRead

/formsManagement/formPost2.asp, line 53

Cannot call BinaryRead after using Request.Form collection

/error

the upload was working I added the "rs_departments" & form element select list "department"..

I am trying to inert the select field data to the DB as well as the data that is already being inserted.

(sorry for long code)

<%@LANGUAGE="VBSCRIPT"%>

<%
Dim rs_departments__MMColParam
rs_departments__MMColParam = "1"
If (Request.Form("department") <> "") Then
rs_departments__MMColParam = Request.Form("department")
End If
%>
<%
Dim rs_departments
Dim rs_departments_numRows

Set rs_departments = Server.CreateObject("ADODB.Recordset")
rs_departments.ActiveConnection = MM_hrnews_conn_STRING
rs_departments.Source = "SELECT * FROM dbo.department_subs"
rs_departments.CursorType = 0
rs_departments.CursorLocation = 2
rs_departments.LockType = 1
rs_departments.Open()

rs_departments_numRows = 0
%>
<%

response.write "<html>" & vbcrlf
response.write "<head>" & vbcrlf

response.write "<meta http-equiv=""Content-Type"" content=""text/html;"" charset=""iso-8859-1"">" & vbcrlf
response.write "<style type=""text/css""></style>" & vbcrlf
response.write "<script src=""src/functions.js""></script>" & vbcrlf

response.write "<title>SELH - Forms Management</title>" & vbcrlf

response.write "</head>" & vbcrlf

response.write "<body onload=""P7_swapClass(0,'forms','showit','hideit','div')"">" & vbcrlf
%>

<%
response.write "<div id=""LayerMain"" style=""position:absolute; left:230px; top:80px; z-index:4"" class=""maindiv"">" & vbcrlf

''''''''''''''''''''''
' Start of body code '
''''''''''''''''''''''
if request("action") = "post" then

' Option Explicit
' Dim uploadObj, newFileName, fileExtension, formName, formNumber, allowFileType

Set uploadObj = Server.CreateObject("ASPSimpleUpload.Upload")

If Len(uploadObj.Form("fileInput")) > 0 Then

newFileName = "forms/" & uploadObj.ExtractFileName(uploadObj.Form("fileInput"))
fileExtension = uploadObj.ExtractFileExt(uploadObj.Form("fileInput"))

'allowFileType = ".PDF"
allowFileType = ".PDF, .DOC"
'if UCASE(fileExtension) <> allowFileType then
if instr(allowFileType, UCASE(fileExtension)) then
formName = uploadObj.ExtractFileName(uploadObj.Form("formName"))
formNumber = uploadObj.ExtractFileName(uploadObj.Form("formNumber"))
path = "forms/"
'newFileName = ucase(formNumber) & allowFileType
newFileName = ucase(formNumber) & UCASE(fileExtension)
uploadString = path & newFileName
response.write newFileName & " "
else
response.write "You can only Upload "& allowFileType &" format forms."
end if
If uploadObj.SaveToWeb("fileInput", uploadString) Then

Response.Write("File successfully written to disk.")

%>

<%
formName = replace(formName,"'","''")
sql = "insert into formList "
sql = sql & "(formName, formNumber, uploadDate, userid, formStatus, fileName, Department) "
sql = sql & "values('"& formName &"', '" & formNumber &"', '"& now &"', '"& session("loggedInUserid") &"', '1', '"& newFileName &"', '" & rs_departments__MMColParam &"') "

set recordset = Server.Createobject("ADODB.RecordSet")
recordset.open sql, conn, 3, 3

response.redirect("formView.asp")

Else
Response.Write("There was an error saving the file to disk.")
End If

End If

else

response.write "<b> Form Upload <b><br>"

response.write "<form method=""POST"" action=""formPost.asp?action=post"" enctype=""multipart/form-data"" onSubmit=""return validateUpload()"">"

response.write "<table>"
response.write "<tr><td> Select a Form to upload: </td><td> <input type=""file"" name=""fileInput"" size=""30""> </td></tr>"
response.write "<tr><td> Enter the Form Name: </td><td> <input type=""text"" name=""formName"" size=""30""> </td></tr>"
response.write "<tr><td> Enter the Form Number: </td><td> <input type=""text"" name=""formNumber"" size=""30""> </td></tr>"
response.write "<select name=""department"">"
response.write "<option value=""value"">Select Department</option>"

While (NOT rs_departments.EOF)
%>
<option value="<%=(rs_departments.Fields.Item("uid").Value)%>"><%=(rs_departments.Fields.Item("dept_sub").Value)%></option>
<%
rs_departments.MoveNext()
Wend
If (rs_departments.CursorType > 0) Then
rs_departments.MoveFirst
Else
rs_departments.Requery
End If

response.write "</select>"
response.write "<tr><td>   </td><td> <input type=""submit"" name=""submit"" value=""Upload Now""> </td></tr>"
response.write "</table>"

response.write "</form> "

end if

''''''''''''''''''''
' End of body code '
''''''''''''''''''''

response.write "<p class=""copyrights"">Copyright ©2002 Hospital, All Rights Reserved</p>" & vbcrlf

response.write "</div><br>" & vbcrlf
response.write "</body>" & vbcrlf
response.write "</html>" & vbcrlf

%>
<%
rs_departments.Close()
Set rs_departments = Nothing
%>