Baleric
05-27-2006, 11:13 AM
hey guys,
i got a problem with inserting data and uploading a file, i got a form with a premade upload script and im trying to insert the filename along with a couple of textfields into an access DB, heres the problem im getting
Request object, ASP 0207 (0x80004005)
Cannot use Request.Form collection after calling BinaryRead.
/Shopping/Pages/adminadd.asp, line 106
i did a google search and it says to change the "request.form" to "UploadFormRequest" i cant get this working at all,
here is my code anyways if you would like a look,
<%
' ****************************************************
' Change the value of the variable below to the pathname
' of a directory with write permissions, for example "C:\Inetpub\wwwroot"
Dim uploadsDirVar
uploadsDirVar = "d:/shopping/pages/productimages/"
' ****************************************************
' Note: this file uploadTester.asp is just an example to demonstrate
' the capabilities of the freeASPUpload.asp class. There are no plans
' to add any new features to uploadTester.asp itself. Feel free to add
' your own code. If you are building a content management system, you
' may also want to consider this script: http://www.webfilebrowser.com/
function OutputForm()
end function
%>
<%
function TestEnvironment()
Dim fso, fileName, testFile, streamTest
TestEnvironment = ""
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if not fso.FolderExists(uploadsDirVar) then
TestEnvironment = "<B>Folder " & uploadsDirVar & " does not exist.</B><br>The value of your uploadsDirVar is incorrect. Open upload.asp in an editor and change the value of uploadsDirVar to the pathname of a directory with write permissions."
exit function
end if
fileName = uploadsDirVar & "\test.txt"
on error resume next
Set testFile = fso.CreateTextFile(fileName, true)
If Err.Number<>0 then
TestEnvironment = "<B>Folder " & uploadsDirVar & " does not have write permissions.</B><br>The value of your uploadsDirVar is incorrect. Open upload.asp in an editor and change the value of uploadsDirVar to the pathname of a directory with write permissions."
exit function
end if
Err.Clear
testFile.Close
fso.DeleteFile(fileName)
If Err.Number<>0 then
TestEnvironment = "<B>Folder " & uploadsDirVar & " does not have delete permissions</B>, although it does have write permissions.<br>Change the permissions for IUSR_<I>computername</I> on this folder."
exit function
end if
Err.Clear
Set streamTest = Server.CreateObject("ADODB.Stream")
If Err.Number<>0 then
TestEnvironment = "<B>The ADODB object <I>Stream</I> is not available in your server.</B><br>Check the Requirements page for information about upgrading your ADODB libraries."
exit function
end if
Set streamTest = Nothing
end function
function SaveFiles
Dim Upload, fileName, fileSize, ks, i, fileKey
Set Upload = New FreeASPUpload
Upload.Save(uploadsDirVar)
' If something fails inside the script, but the exception is handled
If Err.Number<>0 then Exit function
SaveFiles = ""
ks = Upload.UploadedFiles.keys
if (UBound(ks) <> -1) then
SaveFiles = "<B>Files uploaded:</B> "
for each fileKey in Upload.UploadedFiles.keys
SaveFiles = SaveFiles & Upload.UploadedFiles(fileKey).FileName & " (" & Upload.UploadedFiles(fileKey).Length & "B) "
next
else
SaveFiles = "The file name specified in the upload form does not correspond to a valid file in the system."
end if
end function
%>
<%
'declare your variables
dim connection
dim sSQL, sConnString
dim attach11
dim itemid
dim itemname
dim Yourprice
dim rrp
dim shipau
dim shipww
dim textfield1
dim textarea1
attach11 = savefiles
itemid1 = request.form("itemid")
itemname = request.form("itemname")
Yourprice = request.form("Yourprice")
rrp = request.form("rrp")
shipau = request.form("shipau")
shipww = request.form("shipww")
textfield1 = request.form("textfield")
textarea1 = request.form("textarea")
sSQL="INSERT INTO items (attach11, itemid1, itemname, Yourprice, rrp, shipau, shipww, textfield1, textarea1) VALUES ('"& Thumbnail &"', '"& CategoryID &"', '"& Product &"', '"& YourPrice &"', '"& RRP &"', '"& ShippingCostAU &"', '"& ShippingCostWRLD &"', '"& ProductInfo &"', '"& ExtraInfo &"' )"
sConnString = MM_AIRcart_STRING
Set connection = Server.CreateObject("ADODB.Connection")
connection.Open(sConnString)
connection.execute(sSQL)
Connection.Close
Set Connection = Nothings
%>
please help if you can
thanks in advance
baleric
i got a problem with inserting data and uploading a file, i got a form with a premade upload script and im trying to insert the filename along with a couple of textfields into an access DB, heres the problem im getting
Request object, ASP 0207 (0x80004005)
Cannot use Request.Form collection after calling BinaryRead.
/Shopping/Pages/adminadd.asp, line 106
i did a google search and it says to change the "request.form" to "UploadFormRequest" i cant get this working at all,
here is my code anyways if you would like a look,
<%
' ****************************************************
' Change the value of the variable below to the pathname
' of a directory with write permissions, for example "C:\Inetpub\wwwroot"
Dim uploadsDirVar
uploadsDirVar = "d:/shopping/pages/productimages/"
' ****************************************************
' Note: this file uploadTester.asp is just an example to demonstrate
' the capabilities of the freeASPUpload.asp class. There are no plans
' to add any new features to uploadTester.asp itself. Feel free to add
' your own code. If you are building a content management system, you
' may also want to consider this script: http://www.webfilebrowser.com/
function OutputForm()
end function
%>
<%
function TestEnvironment()
Dim fso, fileName, testFile, streamTest
TestEnvironment = ""
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if not fso.FolderExists(uploadsDirVar) then
TestEnvironment = "<B>Folder " & uploadsDirVar & " does not exist.</B><br>The value of your uploadsDirVar is incorrect. Open upload.asp in an editor and change the value of uploadsDirVar to the pathname of a directory with write permissions."
exit function
end if
fileName = uploadsDirVar & "\test.txt"
on error resume next
Set testFile = fso.CreateTextFile(fileName, true)
If Err.Number<>0 then
TestEnvironment = "<B>Folder " & uploadsDirVar & " does not have write permissions.</B><br>The value of your uploadsDirVar is incorrect. Open upload.asp in an editor and change the value of uploadsDirVar to the pathname of a directory with write permissions."
exit function
end if
Err.Clear
testFile.Close
fso.DeleteFile(fileName)
If Err.Number<>0 then
TestEnvironment = "<B>Folder " & uploadsDirVar & " does not have delete permissions</B>, although it does have write permissions.<br>Change the permissions for IUSR_<I>computername</I> on this folder."
exit function
end if
Err.Clear
Set streamTest = Server.CreateObject("ADODB.Stream")
If Err.Number<>0 then
TestEnvironment = "<B>The ADODB object <I>Stream</I> is not available in your server.</B><br>Check the Requirements page for information about upgrading your ADODB libraries."
exit function
end if
Set streamTest = Nothing
end function
function SaveFiles
Dim Upload, fileName, fileSize, ks, i, fileKey
Set Upload = New FreeASPUpload
Upload.Save(uploadsDirVar)
' If something fails inside the script, but the exception is handled
If Err.Number<>0 then Exit function
SaveFiles = ""
ks = Upload.UploadedFiles.keys
if (UBound(ks) <> -1) then
SaveFiles = "<B>Files uploaded:</B> "
for each fileKey in Upload.UploadedFiles.keys
SaveFiles = SaveFiles & Upload.UploadedFiles(fileKey).FileName & " (" & Upload.UploadedFiles(fileKey).Length & "B) "
next
else
SaveFiles = "The file name specified in the upload form does not correspond to a valid file in the system."
end if
end function
%>
<%
'declare your variables
dim connection
dim sSQL, sConnString
dim attach11
dim itemid
dim itemname
dim Yourprice
dim rrp
dim shipau
dim shipww
dim textfield1
dim textarea1
attach11 = savefiles
itemid1 = request.form("itemid")
itemname = request.form("itemname")
Yourprice = request.form("Yourprice")
rrp = request.form("rrp")
shipau = request.form("shipau")
shipww = request.form("shipww")
textfield1 = request.form("textfield")
textarea1 = request.form("textarea")
sSQL="INSERT INTO items (attach11, itemid1, itemname, Yourprice, rrp, shipau, shipww, textfield1, textarea1) VALUES ('"& Thumbnail &"', '"& CategoryID &"', '"& Product &"', '"& YourPrice &"', '"& RRP &"', '"& ShippingCostAU &"', '"& ShippingCostWRLD &"', '"& ProductInfo &"', '"& ExtraInfo &"' )"
sConnString = MM_AIRcart_STRING
Set connection = Server.CreateObject("ADODB.Connection")
connection.Open(sConnString)
connection.execute(sSQL)
Connection.Close
Set Connection = Nothings
%>
please help if you can
thanks in advance
baleric