%@ Language=VBScript %>
<%Server.ScriptTimeout =12000%>
File Uploader
<%
'Response.end
'--- Declarations
dim oUploadedFile
dim catid, title, SQL, rsFind, subup, subcat
dim image1
catid=request.querystring("catid")
set getcat=objConn.execute("select * from cats where catid=" & catid)
if request.querystring("pic")>"" then
picid=request.querystring("pic")
set getphoto=objConn.execute("select * from photos where photoid=" & picid)
if not getphoto.eof then
photoname=getphoto("photoImage")
end if
end if
Dim oFileUp
'--- Instantiate the FileUp object
Set oFileUp = Server.CreateObject("SoftArtisans.FileUp")
'--- Set the Path property to the location you wish to
'--- Save the first file
'--- Check to be sure there was a file selected in the form
'--- If so, continue processing
' if oFileUp.Form("myFile1")>"" then
' If Not oFileUp.Form("myFile1").IsEmpty Then
' desc=oFileUp.Form("photoDesc")
' oFileUp.Path = Server.MapPath("/gallery/" & getcat("category") & "/")
' Set oUploadedFile = oFileUp.Form("myFile1")
' oFileUp.Form("myFile1").Save
' '--- The file is saved, display a confirmation message
' Response.Write("File saved successfully on the server as: ")
' '--- The ServerName() property is the full path of the file
' '--- where it was saved on the server
' Response.Write(oFileUp.Form("myFile1").ServerName & "
")
' image1=oUploadedFile.ShortFileName
' objConn.execute("insert into photos (photoImage, photoDesc, catid) values ('" & image1 & "','" & desc & "'," & catid & ")")
' Else
' Response.Write("Error: There was no file submitted for upload in the first field.
")
' End If
' end if
If Not oFileUp.Form("myFile2").IsEmpty Then
oFileUp.Path = Server.MapPath("/" & getcat("catdir") & "/")
Set oUploadedFile = oFileUp.Form("myFile2")
'oFileUp.Form("myFile2").Save
oFileUp.form("myFile2").SaveAs (photoname)
'--- The file is saved, display a confirmation message
Response.Write("File saved successfully on the server as: ")
'--- The ServerName() property is the full path of the file
'--- where it was saved on the server
Response.Write(oFileUp.Form("myFile2").ServerName & "
")
Else
Response.Write("Error: There was no file submitted for upload in the first field.
")
End If
'--- Destroy objects
Set oFileUp = Nothing
set objConn=nothing
%>