I need Help

[Rizwan]

I am writing this code for file upload in asp 3.0 on my webpage........
It is working on local system but when i want to upload an image on my
website from client machine it is not working .......

can somebody help me

<%@ Language=VBScri pt %>
<%Option Explicit%>
<!-- #include file="upload.as p" -->
<%

'NOTE - YOU MUST HAVE VBSCRIPT v5.0 INSTALLED ON YOUR WEB SERVER
' FOR THIS LIBRARY TO FUNCTION CORRECTLY. YOU CAN OBTAIN IT
' FREE FROM MICROSOFT WHEN YOU INSTALL INTERNET EXPLORER 5.0
' OR LATER.
' Create the FileUploader
Dim Uploader, File, Rs
Set Uploader = New FileUploader

' This starts the upload process
Uploader.Upload ()

'************** *************** *************
' Use [FileUploader object].Form to access
' additional form variables submitted with
' the file upload(s). (used below)
'************** *************** *************
Response.Write "<b>Thank you for your upload " &
Uploader.Form(" fullname") & "</b><br>"

' Check if any files were uploaded
If Uploader.Files. Count = 0 Then
Response.Write "File(s) not uploaded."
Else
' Loop through the uploaded files
For Each File In Uploader.Files. Items

' Check where the user wants to save the file
If Uploader.Form(" saveto") = "disk" Then

' Save the file
File.SaveToDisk "E:\upload"
ElseIf Uploader.Form(" saveto") = "database" Then

dim connection
dim sSQL, sConnString

sSQL = "INSERT INTO MyUploadTable (filename, filesize,
contenttype)VAL UES('"&File.Fil eName&"','"&Fil e.FileSize&"',' "&File.ContentT ype&"')"
sConnString="PR OVIDER=Microsof t.Jet.OLEDB.4.0 ;" & _
"Data Source=" & Server.MapPath( "emails.mdb ")
Set connection = Server.CreateOb ject("ADODB.Con nection")

connection.Open (sConnString)
connection.exec ute(sSQL)

response.write "The data was inserted successfully."
Connection.Clos e
Set Connection = Nothing
End If

' Output the file details to the browser
Response.Write "File Uploaded: " & File.FileName & "<br>"
Response.Write "Size: " & File.FileSize & " bytes<br>"
Response.Write "Type: " & File.ContentTyp e & "<br><br>"
Next
End If

%>

[Evertjan.]

Rizwan wrote on 11 jun 2006 in microsoft.publi c.inetserver.as p.general:

I am writing this code for file upload in asp 3.0 on my
webpage........ It is working on local system but when i want to
upload an image on my website from client machine it is not working
.......
Please define "not working", give error texts and erro row numbers, etc
<%@ Language=VBScri pt %>
<%Option Explicit%>
<!-- #include file="upload.as p" -->
How should we know what this "upload.asp " is?
Is it in the present directory?
<%
'NOTE - YOU MUST HAVE VBSCRIPT v5.0 INSTALLED ON YOUR WEB SERVER
[> I am writing this code]

Did you really write that to yourself??????? ???
Or are you just copying and pasting code you do not understand?
' FOR THIS LIBRARY TO FUNCTION CORRECTLY. YOU CAN OBTAIN IT
' FREE FROM MICROSOFT WHEN YOU INSTALL INTERNET EXPLORER 5.0
' OR LATER.
What library and in what directory?
' Create the FileUploader
Dim Uploader, File, Rs
Set Uploader = New FileUploader

' This starts the upload process
Uploader.Upload ()

'************** *************** *************
' Use [FileUploader object].Form to access
' additional form variables submitted with
' the file upload(s). (used below)
'************** *************** *************
Response.Write "<b>Thank you for your upload " &
Uploader.Form(" fullname") & "</b><br>"

' Check if any files were uploaded
If Uploader.Files. Count = 0 Then
Response.Write "File(s) not uploaded."
Else
' Loop through the uploaded files
For Each File In Uploader.Files. Items

' Check where the user wants to save the file
If Uploader.Form(" saveto") = "disk" Then
Which of the "If"-choices is "not working"?

' Save the file
File.SaveToDisk "E:\upload"
Has your website an ASP accessable E:\ ??
What is this File.SaveToDisk function ???

ElseIf Uploader.Form(" saveto") = "database" Then

dim connection
dim sSQL, sConnString

sSQL = "INSERT INTO MyUploadTable (filename, filesize,
contenttype)VAL UES('"&File.Fil eName&"','"&Fil e.FileSize&"',' "&File.Cont
entType&"')" sConnString="PR OVIDER=Microsof t.Jet.OLEDB.4.0 ;" & _
"Data Source=" & Server.MapPath( "emails.mdb ")
Has your current directory writing rights?
Set connection = Server.CreateOb ject("ADODB.Con nection")

connection.Open (sConnString)
connection.exec ute(sSQL)

response.write "The data was inserted successfully."
Connection.Clos e
Set Connection = Nothing
End If

' Output the file details to the browser
Response.Write "File Uploaded: " & File.FileName & "<br>"
Response.Write "Size: " & File.FileSize & " bytes<br>"
Response.Write "Type: " & File.ContentTyp e & "<br><br>"
Next
End If

%>

Programming is writing snd testing little titbits of code at a time
in your operating environment.

Wile you may be lucky to have a functioning code on your local
testmachine working imediately on the web real web server, as a rule you
will need to do this process of testing [again] on that real live machine
where the settings are often far different from the first.
--
Evertjan.
The Netherlands.
(Please change the x'es to dots in my emailaddress)