uploading 3 images
|

|
I am building a cms that has the opportunity to upload 3 images in the addproduct page as below:
Code:
Picture of Full Length Clock:
Picture of Hood of Clock:
Picture of Face of Clock:
is fine, browsing and selecting, until I click submit to go to the next page that deals with that information. It only seems to register the last picture in all 3 picture areas.
The code im using is below, and as you can see ive tried doing something but it isnt working, can anybody help
Code:
Set Upload = Server.CreateObject("Persits.Upload")
theCount = upload.save(server.mappath("..")&"\images\uploaded")
For Each File in Upload.Files
filename = File.FileName
filename2 = File.FileName
filename3 = File.FileName
Next
'Count = Upload.SaveVirtual("../upload")
' Get the form variables
addProduct = TRIM (Upload.Form("addProduct"))
updateProduct = TRIM (Upload.Form("updateProduct"))
deleteProduct = TRIM (Upload.Form("deleteProduct"))
'response.write("delete=" & deleteProduct)
delID = TRIM (Upload.Form("delID"))
catID = TRIM (Upload.Form("catID"))
artTitle = TRIM (Upload.Form("artTitle"))
artCategory = TRIM (Upload.Form("artCategory"))
artBriefDesc = TRIM (Upload.Form("artBriefDesc"))
artPrice = TRIM (Upload.Form("artPrice"))
artPicFull = TRIM (filename)
artHood = TRIM (filename2)
artFace = TRIM (filename3)
|
|
Posted On: Friday 26th of October 2012 07:36:28 AM |
Total Views:
3243 |
View Complete with Replies
|
|
RELATED TOPICS OF ASP PROGRAMMING LANGUAGE
|
|

|
|

|
|

|
Right, this should be quick and easy in theory: I'm using a pure upload to upload documents and update a database at the same time. If the user chooses not to upload a file (ie leaves the file field blank), I want to either keep the database the same, or insert some other text if the field for that record is currently blank. It appears that you can't just request the file field ("PictureLocationField", see code below) using "Uploader.Form" when you're uploading from it, as it always returns as blank. Is there a way that I can vary my output depending on whether the user inserts text in this field or notIf type_of_submit = "Amend" Then\t\t\t\t\t\t\tobjRS("ID Number") = IDNumber \t\t\t\t\t\t\tobjRS("Part Name") = PartName \t\t\t\t\tobjRS("Custodian") = Custodian\t\t\t\t\tobjRS("Date Last Modified") = UpdateModified\t\t\t\t\tobjRS("Date Added") = UpdateAdded\t\t\t\t\tobjRS("Country") = Country\t\t\t\t\tobjRS("Part Application") = PartApplication\t\tIf PictureLocationField = "" then\t\t\t\t\t\t\t\t\tIf PictureServerPath = "" then\t\t\t\t\t\t\t\t\t\t\t\tobjRS("Picture Server Path") = "Images/noimage.jpg"\t\t\t\t\t\t\t\t\t\t\t\tobjRS("Picture File") = "noimage.jpg"\t\t\t\t\t\t\t\t\telse\t\t\t\t\t\t\t\t\t\t\t\tobjRS("Picture Server Path") = PictureServerPath\t\t\t\t\t\t\t\t\t\t\t\tobjRS("Picture File") = PictureFile\t\t\t\t\t\t\t\t\tend If\t\telse\t\t\t\tobjRS("Picture Server Path") = UpdatePictureServerPath\t\t\t\tobjRS("Picture File") = UpdatePictureFile\t\tend If\t\tend If objRS.Update |

|
VIEWS ON THIS POST
433
|

|
Posted on:
Tuesday 16th October 2012
|
View Replies!
|
|

|
|

|
How to handle file attachments using scripting.filesystemobject I want to build an interface like the file attachments in email services except that i am not using it in a mailing environment or for mails |

|
VIEWS ON THIS POST
527
|

|
Posted on:
Wednesday 17th October 2012
|
View Replies!
|
|

|
|

|
Hi I am using Persits' ASPUpload component.\tWhile it works fine, I am wondering what to do if two or more files being uploaded\tshare the same file name. When I saw their documentation, it reads something like this...Forcing Unique File Names By default, AspUpload will overwrite existing files in the upload directory. If this is undeable, the component can be configured to generate unique names for the files being uploaded to prevent overwriting existing files in the upload directory. This is done by setting UploadManager's OverwriteFiles property to False before calling Save: Upload.OverwriteFiles = False This property is True by default. To prevent name collisions, AspUpload will append the original file name with an integer number in parentheses. For example, if the file MyFile.txt already exists in the upload directory, and another file with the same name is being uploaded, AspUpload will save the new file under the name MyFile(1).txt. If we upload more copies of MyFile.txt, they will be saved under the names MyFile(2).txt, MyFile(3).txt, etc.But when I store the fileNames in the database, I am storing something like "C:\Upload\MyFile.Jpg".This thanks to the component's Path property.But when saving, if the component changes the filename, i.e, adds a number in paranthesis, how'd I update the database to reflect the value I hope you got my doubt..Can you help me out of this\t Thank you...RR |

|
VIEWS ON THIS POST
427
|

|
Posted on:
Wednesday 17th October 2012
|
View Replies!
|
|

|
|

|
,
Some general question, can encoding affect the way the website uploads stuff because i've changed my encoding from windows 1255 to utf 8 (and alot of other CSS changes + added doctype, but i dont belive that what can cause it)
and my uploading page just stopped working, after pressing upload nothing happens, altho on the old files it still works, there's no change at all in the ASP code itself.
old page: (ignore the messed up style if u get it, its because i changed the css file and was too lazy to put it back :P )
http://sospets.brinkster.net/upload.asp
new page:
http://sospets.brinkster.net/newsite/upload.asp
thanks for the help
, just that line:
Code:
well ill just make the upload proccess go into a different page (yeah, funny after all the hard work i did to reduce the amount of pages, now im gonna need to put them back ) |

|
VIEWS ON THIS POST
488
|

|
Posted on:
Saturday 20th October 2012
|
View Replies!
|
|

|
|

|
Hi all,
I have been working away all day at a method to upload files to a server. The files will typically be in the range 100-200MB.
The method which I have found is good is using ADODB.stream, and splitting the incoming data into chunks, with the incoming data coming from a "multipart/formdata" form.
Code:
totalsize) then
chunksize = totalsize
end if
bytesleft = totalsize
set objADO = server.createobject("adodb.stream")
objADO.type = 1
objADO.open
counter = 0
do while bytesleft > 0
if (bytesleft < chunksize) then
chunksize = bytesleft
end if
objADO.Write Request.BinaryRead(ChunkSize)
objADO.Position = objADO.Size
objADO.savetofile "C:\Inetpub\wwwroot\test2\content\response" & counter & ".txt"
bytesleft = bytesleft - chunksize
counter = counter + 1
loop
objADO.close
set objFSO = nothing
%>
Now this works. It splits the incoming data into 128KB chunks, and writes each chunk to a separate file. This keeps down memory usage on the server. Every free upload script I have tried seems to keep the whole file in memory, and the box crashes!
But I need, obviously, to be able to save all the data in one file.
And ADODB.stream does not support an append feature.
Is there anyone out there that can help me
Cheers for any replies,
Bob.
p.s. components such as ASPupload aren't an option -- tight budget. |

|
VIEWS ON THIS POST
509
|

|
Posted on:
Saturday 20th October 2012
|
View Replies!
|
|

|
|

|
! We want to allow the visitor in our web site sending picture file. Where can i find the applet that offer this service |

|
VIEWS ON THIS POST
503
|

|
Posted on:
Tuesday 23rd October 2012
|
View Replies!
|
|

|
|

|
My Boss has asked me to find a way to take access tables and upload them to SQL Server via a web interface created by me. Is that possible Does anyone have any leads
Thank You! |

|
VIEWS ON THIS POST
479
|

|
Posted on:
Friday 26th October 2012
|
View Replies!
|
|

|
|

|
just like in my website poyh.com
user: test
Pass: test
I have a duplicate website here : lovemods
use the same login, edit profile, change picture try and upoad and it shows an error
same with ADD PICTURE in small menu top right of site!
why is this and how can i fix it\t
J |

|
VIEWS ON THIS POST
509
|

|
Posted on:
Friday 26th October 2012
|
View Replies!
|
|

|
|

|
Hi
I've been trying to create a test site - The site uses ASP with VBscript and talks to SQL Server 2000. I was able to complete and test it on my locally on my computer using Microsofts IIS 5.1. The website communicated fine with the database on the webserver/network server
However, when I tried to save the site from my local computer to the wwwroot folder in the servers IIS hoping to make the internal site available to here the resulting error comes up when we try to open a page with a recordset connected to the database: -
Our Error: -
Microsoft OLE DB Provider for ODBC Drivers (0x80040E4D)
[Microsoft][ODBC SQL Server Driver][SQL Server]Login failed for user 'AUMBSDDSS\IUSR_AUMBCOMP'.
/mysite/htm/test2.asp, line 8
The page calls on an include file
Code:
From my understanding this was a login error so what I tried to do was change the connection:-
Code: |

|
VIEWS ON THIS POST
441
|

|
Posted on:
Friday 26th October 2012
|
View Replies!
|
|

|
|

|
I got a problem when I uploaded a file with the input tag of type file " |

|
VIEWS ON THIS POST
587
|

|
Posted on:
Friday 26th October 2012
|
View Replies!
|
|

|
|

|
(regarding this thread: http://forums.aspfree.com/code-bank-...res-94647.html)
Originally Posted by Shadow Wizard
this will not save non-image files. as for extension, I fear I didn't understand what you
mean - you try to save the file with different extension\t
I disagree. I was able to upload an Excel Spreadsheet with no trouble at all. |

|
VIEWS ON THIS POST
500
|

|
Posted on:
Friday 26th October 2012
|
View Replies!
|
|

|
|

|
hi,
i have a some pbm, i developed website, in that i have one two asp pages one page to collect the data's and other is the confirmation page
In the local host it runs very well but i uploaded the webpage the datas i collect could not be stored in the access database
error:
http 405 resource not allowed
my project consist
1 index page
pages folder (all the static pages, asp pages and access database)
images folder
i specified path as
path1= Server.MapPath ("db1.mdb")
can anybody help me out in this |

|
VIEWS ON THIS POST
524
|

|
Posted on:
Friday 26th October 2012
|
View Replies!
|
|

|
|

|
hi,
need some help in this issue i have used this code earlier and it works fine its giving an error for the first time
here is what i do i get some data and images from html page and then upload the images in sql server the format in table is image so i store the image directly in the table and the corresponding data so what i used to do earlier is have a loader.asp file included into my asp page here is the code for the confirm.asp page
Code:
and here is the code for the loader.asp page which i have included in the confirm.asp page
Code:
0 Then
Dim binData
binData = Request.BinaryRead(Request.TotalBytes)
getData binData
End If
End Sub
Public Function getFileData(name)
If dict.Exists(name) Then
getFileData = dict(name).Item("Value")
Else
getFileData = ""
End If
End Function
Public Function getValue(name)
Dim gv
If dict.Exists(name) Then
gv = CStr(dict(name).Item("Value"))
gv = Left(gv,Len(gv)-2)
getValue = gv
Else
getValue = ""
End If
End Function
Public Function saveToFile(name, path)
If dict.Exists(name) Then
Dim temp
temp = dict(name).Item("Value")
Dim fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Dim file
Set file = fso.CreateTextFile(path)
For tPoint = 1 to LenB(temp)
file.Write Chr(AscB(MidB(temp,tPoint,1)))
Next
file.Close
saveToFile = True
Else
saveToFile = False
End If
End Function
Public Function getFileName(name)
If dict.Exists(name) Then
Dim temp, tempPos
temp = dict(name).Item("FileName")
tempPos = 1 + InStrRev(temp, "\")
getFileName = Mid(temp, tempPos)
Else
getFileName = ""
End If
End Function
Public Function getFilePath(name)
If dict.Exists(name) Then
Dim temp, tempPos
temp = dict(name).Item("FileName")
tempPos = InStrRev(temp, "\")
getFilePath = Mid(temp, 1, tempPos)
Else
getFilePath = ""
End If
End Function
Public Function getFilePathComplete(name)
If dict.Exists(name) Then
getFilePathComplete = dict(name).Item("FileName")
Else
getFilePathComplete = ""
End If
End Function
Public Function getFileSize(name)
If dict.Exists(name) Then
getFileSize = LenB(dict(name).Item("Value"))
Else
getFileSize = 0
End If
End Function
Public Function getFileSizeTranslated(name)
If dict.Exists(name) Then
temp = LenB(dict(name).Item("Value"))
If temp 0
inStrByte = InStrB(currentPos, rawData, separator)
mValue = inStrByte - currentPos
If mValue > 1 Then
value = MidB(rawData, currentPos, mValue)
Dim begPos, endPos, midValue, nValue
Dim intDict
Set intDict = Server.CreateObject("Scripting.Dictionary")
begPos = 1 + InStrB(1, value, ChrB(34))
endPos = InStrB(begPos + 1, value, ChrB(34))
nValue = endPos
Dim nameN
nameN = MidB(value, begPos, endPos - begPos)
Dim nameValue, isValid
isValid = True
If InStrB(1, value, stringToByte("Content-Type")) > 1 Then
begPos = 1 + InStrB(endPos + 1, value, ChrB(34))
endPos = InStrB(begPos + 1, value, ChrB(34))
If endPos = 0 Then
endPos = begPos + 1
isValid = False
End If
midValue = MidB(value, begPos, endPos - begPos)
intDict.Add "FileName", trim(byteToString(midValue))
begPos = 14 + InStrB(endPos + 1, value, stringToByte("Content-Type:"))
endPos = InStrB(begPos, value, ChrB(13))
midValue = MidB(value, begPos, endPos - begPos)
intDict.Add "ContentType", trim(byteToString(midValue))
begPos = endPos + 4
endPos = LenB(value)
nameValue = MidB(value, begPos, ((endPos - begPos) - 1))
Else
nameValue = trim(byteToString(MidB(value, nValue + 5)))
End If
If isValid = True Then
intDict.Add "Value", nameValue
intDict.Add "Name", nameN
dict.Add byteToString(nameN), intDict
End If
End If
currentPos = lenSeparator + inStrByte
Wend
End Sub
End Class
Private Function stringToByte(toConv)
Dim tempChar
For i = 1 to Len(toConv)
tempChar = Mid(toConv, i, 1)
stringToByte = stringToByte & chrB(AscB(tempChar))
Next
End Function
Private Function byteToString(toConv)
For i = 1 to LenB(toConv)
byteToString = byteToString & Chr(AscB(MidB(toConv,i,1)))
Next
End Function
%>
its throwing an error in loader.asp page like this
Microsoft VBScript runtime error '800a0005'
Invalid procedure call or argument: 'MidB'
/store/mainwebsite/Loader.asp, line 134
and line 134 is this one
separator = MidB(rawData, 1, InstrB(1, rawData, ChrB(13)) - 1)
can someone tell me whats it related with
i am uploading 3 images at one time
|

|
VIEWS ON THIS POST
464
|

|
Posted on:
Friday 26th October 2012
|
View Replies!
|
|

|
|

|
I have created a website where users can place advertisements and upload complementing photos. I have elected to place the advertiser's contact details and advertisement in 1 table in an Access database and the corresponding photo and Account ID in a second linked table. Once the photo is inserted as a BLOB, the advertiser is forwarded to the payments page. The upload page has a form with a file field and a hidden field with the Account ID which as been passed on the previous page by a session variable. The website is hosted on a remote server by my web host.
My problem is that the image and the Account ID are not inserted into the database even though the processing page successfully redirects to the payments page. I am new to web programming so I am unsure where my problem lies.
The code of the processing page is as follows: |

|
VIEWS ON THIS POST
602
|

|
Posted on:
Friday 26th October 2012
|
View Replies!
|
|

|
|

|
I am new to ASP and I have been told to write a script that will automatically upload an access database stored in server in our building to the webserver located in another building. This script should run automatically once every week.
Please help me out by suggesting how can i do it.
|

|
VIEWS ON THIS POST
505
|

|
Posted on:
Friday 26th October 2012
|
View Replies!
|
|

|
|

|
hi,
i have a problem with my site , when i am working it offline all
operations (insert,update,delete) performing properly.
but on uploading it on server it the query of insert update not
working only select qry is working error is database or object is read
only.
on uploading database is connected properly
code of registration page is- freg.asp
registration main page (reg.asp page is on www.rajputvivahmanch.com)
Code:
na=request.form("name")'r
etc....
'inserting space in optional field
if t="" then
t=" "
endif
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.open "reg",con,[color=#ff00f0]2,[color=#ff00f0]3
rs1.addnew
rs1("photo")="no"
rs1("paid")="no"
rs1("title")= t
rs1("name")= na
rs1("age")= ag
rs1("gender")=gn
rs1("complexion")=com
rs1("m_status")=mst
rs1("feet")=f
rs1("inch")=inc
rs1("weight")=wt
rs1("caste")=ca
rs1("vansh")=vn
rs1("gautra")=ga
rs1("m_vansh")=m_vn
rs1("m_gautra")=m_ga
rs1("education")=ed
rs1("fam_pro")=bk
rs1("occupation")=j
rs1("income")=i
rs1("hobbies")=ho
rs1("phy_status")=phy
rs1("pro_desc")=des
rs1("country")=cou
rs1("state")=st
rs1("city")=ct
rs1("e_mail")=eml
rs1("phone1")=p1
rs1("phone2")=p2
rs1("phone3")=p3
rs1("mobile")=mo
rs1("address")=ad
rs1("login_id")=id
rs1("pass")=ps
rs1.update
rs1.open "reg",con,2,3
any one pl. help me |

|
VIEWS ON THIS POST
529
|

|
Posted on:
Friday 26th October 2012
|
View Replies!
|
|

|
|

|
Hi... I have an upload feature on my site... it works fine... but I want to validate the uploading file extension for .doc or .html before being uploaded to the server(client-side). I have the validation to check text fields are not blank.... The first validation is for checking the text field... the second "blob" is the file upload field.... This is my code in Vbscript.... can any one help please
Code:
|

|
VIEWS ON THIS POST
436
|

|
Posted on:
Friday 26th October 2012
|
View Replies!
|
|

|
|

|
Hi all,
I have been working away all day at a method to upload files to a server. The files will typically be in the range 100-200MB.
The method which I have found is good is using ADODB.stream, and splitting the incoming data into chunks, with the incoming data coming from a "multipart/formdata" form.
Code:
totalsize) then
chunksize = totalsize
end if
bytesleft = totalsize
set objADO = server.createobject("adodb.stream")
objADO.type = 1
objADO.open
counter = 0
do while bytesleft > 0
if (bytesleft < chunksize) then
chunksize = bytesleft
end if
objADO.Write Request.BinaryRead(ChunkSize)
objADO.Position = objADO.Size
objADO.savetofile "C:\Inetpub\wwwroot\test2\content\response" & counter & ".txt"
bytesleft = bytesleft - chunksize
counter = counter + 1
loop
objADO.close
set objFSO = nothing
%>
Now this works. It splits the incoming data into 128KB chunks, and writes each chunk to a separate file. This keeps down memory usage on the server. Every free upload script I have tried seems to keep the whole file in memory, and the box crashes!
But I need, obviously, to be able to save all the data in one file.
And ADODB.stream does not support an append feature.
Is there anyone out there that can help me
Cheers for any replies,
Bob.
p.s. components such as ASPupload aren't an option -- tight budget. |

|
VIEWS ON THIS POST
578
|

|
Posted on:
Friday 26th October 2012
|
View Replies!
|
|

|
|

|
i am new to asp help me please
i am using msxml.xmlhttp.4.0 for uploading a file to the server
when i upload the file the error message is displayed
what might be the problem |

|
VIEWS ON THIS POST
466
|

|
Posted on:
Friday 26th October 2012
|
View Replies!
|
|

|
|

|
Hi. I am trying to create a computer management form/web application.
I am not a good programmer. I use sharepoint at work to do most of the tasks which are fairly automated.
Now the computer management form is designed this way:
Name Type(DropDown) Used(Checkbos) AssignButton
--------------- Switch _ ----------------
Computer name Server | _| BUTTON
---------------- Desktop -----------------
Router
That is basically what the form will look like
When user clicks the checkbox, it should pop up with a messagebox telling to user do you want to assign this computername.
If the user click OK then it should DIMMM the Asign button and dimm the checkbox.
So users know this computer name is assigned and cannot be used.
Now the form should be able to remember these settings when the user checks this form the next time.
So what should i use a database or a text file
what language should i use as i have to upload it on sharepoint and it supports i think asp ... or page created in frontpage\t\t
not good with programming languages so forgive me if i act a bit dumb
any help will be appreciated |

|
VIEWS ON THIS POST
426
|

|
Posted on:
Friday 26th October 2012
|
View Replies!
|
|

|