DaniWeb IT Discussion Community - Uploading images on a server

This is one of my page that i used for Image uploading to server..if u want more details u contact me on the Mail : radha_992@yahoo.co.in

<%
'Stores files to the clients specified destination folder
'Client can choose folder from a dropdown
'Remember that ther is NO good idea to let clients store files in ANY folder!
Dim DestinationsToChoose, cDest
'DestinationsToChoose = Array("c:\upload", "d:\inetpub\data1", "f:\store")
DestinationsToChoose = Server.MapPath("Images/")
'Create upload form
'Using Huge-ASP file upload
'Dim Form: Set Form = Server.CreateObject("ScriptUtils.ASPForm")
'Using Pure-ASP file upload
Dim Form: Set Form = New ASPForm %><%
'Server.ScriptTimeout = 2000

Server.ScriptTimeout = 3000
Form.SizeLimit = &HA00000
If Form.State = 0 Then 'Completted
Dim DestinationPath, fDestination
dim videoname,VName,v
videoname=Form("video")
VName=Form("T1")
v="Images/" & VName
'response.write(vname)
dim D1
D1=Form("txtFrom")
dim rsCheck
set rsCheck=mycon.execute("select * from CategoryDetails where Id="& videoname &"")
if not rsCheck.eof then
dim video
video="Images/" & rsCheck(2) & ".MP4.2"
mycon.execute("update CategoryDetails Set Video1='"& v &"',D1='"& D1 &"' where Id="& videoname &"")
else
response.redirect("notAssigned1.asp")
end if
rsCheck.close

'read destination index
'''''fDestination = Form("fDestination")
'''''if len(fDestination)>0 then
'Destination is specified. check its validity.
''''' fDestination = clng(fDestination)
''''' if fDestination>=0 and fDestination<=ubound(DestinationsToChoose) then

'''''DestinationPath = DestinationsToChoose(fDestination)
DestinationPath = DestinationsToChoose

''''' end if
''''' end if'if len(fDestination)>0 then
if len(DestinationPath) > 0 then
Form.Files.Save DestinationPath
response.redirect("Videouploaded1.asp")
response.write "<br><Font Color=green>Files (" & Form.TotalBytes \1024 & "kB) was saved to " & DestinationPath & " folder.</Font>"
else
response.write "<br><Font Color=red>Bad destination path.</Font>"
end if
ElseIf Form.State > 10 then
Const fsSizeLimit = &HD
Select case Form.State
case fsSizeLimit: response.write "<br><Font Color=red>Source form size (" & Form.TotalBytes & "B) exceeds form limit (" & Form.SizeLimit & "B)</Font><br>"
case else response.write "<br><Font Color=red>Some form error.</Font><br>"
end Select
End If'Form.State = 0 then
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//<HTML><HEAD>
<TITLE>ASP huge file upload - upload to a specified destination.</TITLE>
<STYLE TYPE="text/css"></STYLE>
<meta name="robots" content="noindex,nofollow">
</HEAD>
<BODY BGColor=white>

<Div style=width:600>
<TABLE align=center cellSpacing=0 cellPadding=0 width="40%" border=0>

<TR>

<TD> </TD></TR></TABLE>
<TABLE align=center cellSpacing=2 cellPadding=1 width="40%" border=0>

<TR>
<TD colSpan=2>
<P>      

<br>Upload timeout is <%=Server.ScriptTimeout%>s
<br>Form size limit is <%=Form.SizeLimit \ 1024 %>kB
</P>
</TD></TR></TABLE>
<TABLE align=center cellSpacing=1 cellPadding=8 bordercolor=silver bgcolor=GAINSBORO width="70%" border=1>
<form method="POST" ENCTYPE="multipart/form-data" name=f onSubmit="return upload()">
<tr><td>

</td><td>

<%
'Dim lDestinationsToChoose
'For lDestinationsToChoose=0 to ubound(DestinationsToChoose)
' response.write "<OPTION VALUE=" & lDestinationsToChoose & ">" & DestinationsToChoose(lDestinationsToChoose)
'next
%>

</td></tr>
<tr><td>
Select VideoName
<select name=video><option value=(Select)>(Select)
<%
dim rsFeed
set rsFeed=mycon.execute("select * from CategoryDetails")
while not rsfeed.eof
response.write("<option value="& rsFeed(0) &">"& rsFeed(2) &"")
rsFeed.movenext
wend
%>
</select>
</td></tr>
<tr><td ColSpan=2>
<Div ID=files>
File 1 : <input type="file" name="File1" style="font-size: xx-small; height:20; width:250; border-width:1px"><input Name=SubmitButton Value="Upload Video >>" Type=submit style="font-size: xx-small; height:20; width:100; border-width:1px"><br>
<input type=hidden name=T1>
<br><br>
Video Description : <br><br>
<textarea rows=15 cols=45 name=txtFrom></textarea>
<br>
<br>

</Div>

</td></tr>

<tr><td >

</td></tr>
</form></Table>
</form>
<Script>
//Expand form with a new File fields if needed.
var nfiles = 3;
function Expand(){
nfiles++
var adh = '<BR> File '+nfiles+' : <input type="file" name="File'+nfiles+'">';
files.insertAdjacentHTML('BeforeEnd',adh);
return false;
}
</Script>
</td>
</tr>
</table>
</td>
</tr>
</table>