File Upload

temmyabudu · June 20th, 2005, 07:50 AM

I need help uploading files from a web form to a location on the server using asp.This is the code i used

Set Upload = Server.CreateObject("Persits.Upload.1")
Count = Upload.SaveVirtual("/contactus/hr/upload/")

can someone help me on this.

Imar · June 20th, 2005, 12:13 PM

It would be very useful if you'd describe *what* kind of help you need.....

Imar
---------------------------------------
Imar Spaanjaars
Everyone is unique, except for me.

shahhussain · December 15th, 2005, 02:40 PM

<html><basefont face=verdana color=red><body>
<%
ON ERROR RESUME NEXT
Set Upload = Server.CreateObject("Persits.Upload")
Upload.Save(server.MapPath("Upload"))
dim tempno
tempno = 0
For Each file in Upload.Files
tempno = tempno + 1
if(File.ImageType = "JPG" OR File.ImageType = "GIF") then
response.write "Your Image has uploaded successfully<br>"

else
File.delete
response.write"Sorry your file extention was not jpg or gif"
End if
next

dim fso,tso
set fso = server.createobject("Scripting.FileSystemObject")
set tso = fso.GetFolder(server.MapPath("Upload"))

dim counter
counter = 0
response.write"<table border=1 width='50%'>"

response.write"<tr><td>File name is :</td><td>File Type</td></tr>"
for each fi in tso.Files
counter = counter + 1
response.write "<tr><td>" & fi.Name &" </td>"
response.write"<td> <a href="&Server.MapPath("Upload\"&fi.Name)&">"&fi.ty pe&"</a></td></tr>"
next
%>
</table>

Total files in our folder are <%=counter%>.
<a href="index.asp">Back</a>
</body></html>

Shahhussain