How to Register ASP Smartupload component

Bruce · Dec 16, 2004

We do not support 3rd pty component installation.

You may want to consider using the pre-installed components, eg. ASPUpload.

Bruce

DiscountASP.NET
www.DiscountASP.NET

babymathew100 · Dec 16, 2004

I have used asp smart upload component to upload images in my asp pages.How do I Register the smart upload component.Right now those pages are not working.Please suggest a solution for this issue.

Thanks in advance
Baby Mathew

babymathew100 · Dec 22, 2004

I have changed my page and used Persits ASPUpload component and the page is working fine in my PC. But in the site it is not working, neither is there any error message.Kindly suggest a solution for this issue.

Thanks in Advance
Baby Mathew

Post Edited (Baby Mathew) : 12/22/2004 8:08:09 AM GMT

Bruce · Dec 22, 2004

post code pls

Bruce

DiscountASP.NET
www.DiscountASP.NET

babymathew100 · Dec 23, 2004

The following is the code for the save page:

<%@ Language=VBScript %>

<%
Dim Cnt
Dim upPict
Dim mySmartUpload
Dim picName
Dim pictureName
Dim maxVal
Dim editID,editVal

Set mySmartUpload = Server.CreateObject("Persits.Upload")

'mySmartUpload.Upload

Set myFileObject = Server.CreateObject("Scripting.FileSystemObject")

If Not myFileObject.FolderExists(Server.MapPath("Upload")) then

myFileObject.CreateFolder (Server.MapPath("Upload"))

End If

If Not myFileObject.FolderExists(Server.MapPath("./Upload/Garments")) Then

myFileObject.CreateFolder (Server.MapPath("./Upload/Garments"))

End If

mySmartUpload.Save(Server.MapPath("./Upload/Garments"))

Cnt = mySmartUpload.Files.Count

if Cnt > 0 then
picName = mySmartUpload.Files(1).FileName
end if

for i=1 to cnt
Response.Write(mysmartupload.Files(i).Name) & ""
Response.write(mySmartUpload.Files(i).FileName) & "a"
'Response.Write i

next

%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE>RERP - REACH Enterprises Resource Planner</TITLE>
<script language="javascript1.2" src=".\Scripts\Script.js"></script>
</HEAD>

<FORM method=post id="frmSaveOffer" name="frmSaveOffer">
<%

set rs=server.CreateObject("adodb.recordset")
set rs=objCon.Execute ("select max(dblOffMstIdx) from OfferMaster")
if rs(0) <> "" then
maxid=rs(0) + 1
else
maxid=1
end if
rs.close

saveflag=1

'Response.write(mySmartUpload.form("hdnname"))
'Response.write(mySmartUpload.form("Hdnfileselect"))

'Response.Write(filename)
'Response.end
if trim(mySmartUpload.form("hdnPageStatus")) = "Edit" and trim(mySmartUpload.form("PKey")) <> "" then

userdetails=mySmartUpload.form("txt_offcode_str") & "#" & Session("UId") & "#" & Session("CompCd")
detailsarray=split(mySmartUpload.form("txt_offcode_str"),"-")

sql="UPDATE OfferMaster SET OfferMaster.dblOffMstCD = " & detailsarray(3) & ", OfferMaster.dblOffMstSupp = '" & mySmartUpload.form("cmb_Supname_Str") & "', OfferMaster.dblOffMstBuy = '" & mySmartUpload.form("cmb_Buyername_Str") & "', OfferMaster.dblOffMstSea = '" & mySmartUpload.form("cmb_Season_Str") & "', OfferMaster.dblOffMstEnqCD= '" & mySmartUpload.form("cmb_Enqcode_Str") & "', OfferMaster.txtOffMstSize = '" & mySmartUpload.form("txt_Sizerange_Str") & "', OfferMaster.txtOffMstFab = '" & mySmartUpload.form("txt_Fabric_Str") & "', OfferMaster.txtOffMstDesc = '" & mySmartUpload.form("txa_Description_Str") & "', OfferMaster.txtOffMstComp = '" & mySmartUpload.form("txt_Composition_Str") & "', OfferMaster.txtOffMstCat = '" & mySmartUpload.form("txt_Category_Str") & "', OfferMaster.dblOffMstIncoTm = '" & mySmartUpload.form("cmb_Incoterm_Str") & "', OfferMaster.txtOffMstTargPz = '" & mySmartUpload.form("txt_Targetprice_Str") & "', OfferMaster.dblOffMstTargPzUnits = '" & mySmartUpload.form("cmb_Tgtpriceunits_Str") & "', OfferMaster.txtOffMstPzQuot = '" & mySmartUpload.form("txt_Pricequotation_Str") & "', OfferMaster.dblOffMstPzQuotUnits = '" & mySmartUpload.form("cmb_Pricequotunits_Str") & "', OfferMaster.txtOffMstCatlg = '" & mySmartUpload.form("txt_Catalogue_Str") & "', OfferMaster.dblOffMstMinOrd = '" & mySmartUpload.form("txt_Minorder_Str") & "', OfferMaster.dblOffMstMinOrdUnts='" & mySmartUpload.form("cmb_Minorderunits_Str") & "', OfferMaster.dblOffMstMinQty='" & mySmartUpload.form("txt_Minqtycolor_Str") & "', OfferMaster.dblOffMstMinQtyUnts='" & mySmartUpload.form("cmb_Minqtyunits_Str") & "', OfferMaster.dblOffMstSampLdTime='" & mySmartUpload.form("txt_Sampleadtime_Str") & "', OfferMaster.dblOffMstOrdLdTime='" & mySmartUpload.form("txt_Ordleadtime_Str") & "', OfferMaster.dblOffMstInch='" & mySmartUpload.form("cmb_Inchargeoffer_Str") & "', OfferMaster.dblOffMstSndby='" & mySmartUpload.form("cmb_Sentby_Str") & "', OfferMaster.intOffMstStatus=" & 0 & ", OfferMaster.txtOffMstFlNm='" & filename & "', OfferMaster.txtOffMstUserDet='" & userdetails & "' WHERE OfferMaster.dblOffMstIdx='" & mySmartUpload.form("PKey") & "'"
'Response.Write sql
'Response.End
objCon.execute(sql)
sql1="Delete from OfferDet WHERE (OfferDet.dblOffDetMstIdx=" & mySmartUpload.form("PKey") & ")"
objCon.execute(sql1)
j=1

if mySmartUpload.Form("txt_FabricPic") > 0 then
for i=1 to mySmartUpload.Form("txt_FabricPic")
set rs=objCon.Execute ("select max(dblOffDetIdx) from OfferDet")
if rs(0) <> "" then
maxid1=rs(0) + 1
else
maxid1=1
end if
rs.close
k=i-1
fabricname=mySmartUpload.form("hdnfabname" & k)
sql2="insert into OfferDet values (" & maxid1 & "," & mySmartUpload.form("PKey") & ",'" & fabricname & "',0)"
objCon.execute(sql2)
'Response.Write sql1 & ""
j=j+1
next
end if

if mySmartUpload.Form("txt_GarmentPic") > 0 then
for i=1 to mySmartUpload.Form("txt_GarmentPic")
set rs=objCon.Execute ("select max(dblOffDetIdx) from OfferDet")
if rs(0) <> "" then
maxid1=rs(0) + 1
else
maxid1=1
end if
rs.close
k=i-1
fabricname1=mySmartUpload.form("hdngarname" & k)
sql3="insert into OfferDet values (" & maxid1 & "," & mySmartUpload.form("PKey") & ",'" & fabricname1 & "',1)"
objCon.execute(sql3)
j=j+1
next
end if

else

set rs=objCon.Execute ("select max(dblOffMstCD) from OfferMaster where txtOffMstUserDet like '" & Session("CompCd") & "%'")
if rs(0) <> "" then
currentcode=rs(0) + 1
else
currentcode=1
end if
rs.close

detailsarray=split(mySmartUpload.form("txt_offcode_str"),"-")

if cint(detailsarray(3)) = cint(currentcode) then
saveflag=1
code=detailsarray(3)
userdetails=mySmartUpload.form("txt_offcode_str") & "#" & Session("UId") & "#" & Session("CompCd")
else
saveflag=0
code=cint(detailsarray(3))+1
userdetails=Session("CompCd") & "-Offr-" & code & "#" & Session("UId") & "#" & Session("CompCd")
end if

if saveflag = 0 then
maxid=maxid+1
else
maxid=maxid
end if

sql="insert into OfferMaster values (" & maxid & ",'" & code & "','" & mySmartUpload.form("cmb_Supname_Str") & "','" & mySmartUpload.form("cmb_Buyername_Str") & "','" & mySmartUpload.form("cmb_Season_Str") & "','" & mySmartUpload.form("cmb_Enqcode_Str") & "','" & mySmartUpload.form("txt_Sizerange_Str") & "','" & mySmartUpload.form("txt_Fabric_Str") & "','" & mySmartUpload.form("txa_Description_Str") & "','" & mySmartUpload.form("txt_Composition_Str") & "','" & mySmartUpload.form("txt_Category_Str") & "','" & mySmartUpload.form("cmb_Incoterm_Str") & "','" & mySmartUpload.form("txt_Targetprice_Str") & "','" & mySmartUpload.form("cmb_Tgtpriceunits_Str") & "','" & mySmartUpload.form("txt_Pricequotation_Str") & "','" & mySmartUpload.form("cmb_Pricequotunits_Str") & "','" & mySmartUpload.form("txt_Catalogue_Str") & "','" & mySmartUpload.form("txt_Minorder_Str") & "','" & mySmartUpload.form("cmb_Minorderunits_Str") & "','" & mySmartUpload.form("txt_Minqtycolor_Str") & "','" & mySmartUpload.form("cmb_Minqtyunits_Str") & "','" & mySmartUpload.form("txt_Sampleadtime_Str") & "','" & mySmartUpload.form("txt_Ordleadtime_Str") & "','" & mySmartUpload.form("cmb_Inchargeoffer_Str") & "','" & mySmartUpload.form("cmb_Sentby_Str") & "'," & 0 & ",'" & filename & "','" & userdetails & "')"
objCon.execute(sql)

'Response.write mySmartUpload.Files(4).FileName
'Response.End
j=2
if mySmartUpload.Form("txt_FabricPic") > 0 then
for i=1 to mySmartUpload.Form("txt_FabricPic")
set rs=objCon.Execute ("select max(dblOffDetIdx) from OfferDet")
'if not (mySmartUpload.Files(j).FileName="") then
if rs(0) <> "" then
maxid1=rs(0) + 1
else
maxid1=1
end if
rs.close
k=i-1
fabricname=mySmartUpload.form("hdnfabname" & k)
sql1="insert into OfferDet values (" & maxid1 & "," & maxid & ",'" & fabricname & "',0)"
objCon.execute(sql1)
Response.Write sql1 & ""
j=j+1
'end if
next
end if

if mySmartUpload.Form("txt_GarmentPic") > 0 then
for i=1 to mySmartUpload.Form("txt_GarmentPic")
set rs=objCon.Execute ("select max(dblOffDetIdx) from OfferDet")

if rs(0) <> "" then
maxid1=rs(0) + 1
else
maxid1=1
end if
rs.close
k=i-1
fabricname1=mySmartUpload.form("hdngarname" & k)
sql2="insert into OfferDet values (" & maxid1 & "," & maxid & ",'" & fabricname1 & "',1)"
objCon.execute(sql2)
Response.Write sql2 & ""
j=j+1

next
end if
end if

if objcon.state=1 then objcon.close

if saveflag = 0 then
Response.Write ""
Response.Write "<strong><Font color=Blue>The Offer Sheet No.</font> &nbsp;&nbsp;" & mySmartUpload.form("txt_offcode_str") & "&nbsp;&nbsp;<Font color=Blue> already exists Hence this Offer Sheet No. is saved as </font>&nbsp;&nbsp;" & Session("CompCd") & "-Offr-" & code & "</strong>"
Response.End

else
Response.Redirect "frmOfferMaster.asp"
end if
%>
</FORM>
</BODY>
</HTML>

Aristotle · Dec 29, 2004

You should use savevirtual instead of just save, as in ...
mySmartUpload.savevirtual('/Upload/Garments')

babymathew100 · Dec 31, 2004

I dont think that using savevirtual will solve the problem because the input values(I mean textbox,combobox etc)itself are not gettingin the save page.

PGScannell · Feb 1, 2007

When using aspupload, I was able to retrieve the file names from the form. But how would we retrieve regular text fields, radio buttons, etc?

I tried: strName = Request.Form ( "Name" ) and got a null. The only values I seem to be able to get are the file names!

Are we limited to "file" input form types when we use multipart/form-data?
Thanks,
Paul

wisemx · Feb 1, 2007

Looks like you're on the right track with ENCTYPE="multipart/form-data but maybe you haven't referenced the Form collection.
i.e. Upload.Form("radio1")
http://www.aspupload.com/manual.html

PGScannell · Feb 1, 2007

Actually I am plodding along and am making remarkable progress. I can send an eMail with one attachment and everything is good there.

I am hitting a brick wall sending multiple attachments. This code:

arrAttachments = Split ( strAttachmentPath, "," )
response.write "Attachments:"
for x = lBound ( arrAttachments ) to uBound ( arrAttachments )
response.write "x " & x & " " & arrAttachments (x) & ""

MyMail.AddAttachment arrAttachments (x) ' This is line 63

next

Here is my output. Note that on thesecond AddAttachment I get this error:

Attachments:
x 0 E:\web\kofcriorg00\htdocs\Uploaded Files\cities.txt
x 1 E:\web\kofcriorg00\htdocs\Uploaded Files\Directions.pdf

CDO.Message.1 error '800401e4'

Invalid syntax

/cdosys.inc, line 63

As a test, I only did one AddAttachment (the cities.txt) and allowed the eMail to go out and it worked fine. What the heck is wrong with adding the 2nd attachment?

Thanks,
Paul

Bruce · Feb 1, 2007

your code looks fine to me!

Does it bomb out if you do something like this

MyMail.AddAttachment "E:\web\kofcriorg00\htdocs\Uploaded Files\cities.txt"
MyMail.AddAttachment "E:\web\kofcriorg00\htdocs\Uploaded Files\Directions.pdf"

without the loop.

Based on the error, I suspect it didn't like something in the array.

Bruce

DiscountASP.NET
www.DiscountASP.NET

PGScannell · Feb 1, 2007

Bruce,

That would have worked because there are no leading or trailing spaces. I produced a comma-delimited string of file names from the data entry form. I put in the blank between each file name.

Example: "Cities.txt, Direction.pdf"

When I split on the ',', I end up with two strings: "Cities.txt" and " Direction.pdf". It only worked in the eMail routing bytaking the trim() of the file name at the time of doing the AddAttachment.

The leading space did not cause a problem with CDONTS. It just caused a problem with CDOSYS!

Why? I don't know. I am just chalking it up to yet another nuance related to changing technological platforms.

Paul

wisemx · Feb 1, 2007

Just a note, I'd be careful about spaces in folder names, have even seen underscores cause some problems in classic ASP.

Bruce · Feb 1, 2007

That was what I was suspecting earlier but I dismissed this because E:\web\kofcriorg00\htdocs\Uploaded Files\cities.txt

Whitespace generally cause a lot of problem with programming; its always a good practice to "clean" the string.

Bruce

DiscountASP.NET
www.DiscountASP.NET

Bruce · May 21, 2007

ASPSmartUpload is not a supported component.

Use ASPUpload instead.

Bruce

DiscountASP.NET
www.DiscountASP.NET

nouva · May 21, 2007

i really need to know how to upload image using asp smart upload.Ive already use n configure the asp smart upload in my comp.
the upload process is goin well but i dunno how to upload image for a specific item.
what i mean is, when i click for example, an item called "A" so i only can upload image for "A".

but my problem is when i want to upload image to another item called "B", it doest work.
it only replace the old picture of "A". So, there's only one picture in my image folder.and only item "A" display the picture.

Really2 need ur help.

raymondp · May 23, 2007

Please make sure that anonymous iusr has been given the appropriate amount of disk space to do its job. Log into your discountasp control panel and under User Manager increase the quota size for anonymous iusr.

GarageBill · May 23, 2007

Is there no component on DiscountASP for ASP.NET that does uploads? I know ASP.NET (I use 1.1) has an uploader but it only uploads files up to 4MB in size and there is no progress bar for the user.

I've been trying to get ASPUpload to work. I'm trying to modify the sample files they give but its been a while since I've used ASP 3.0. I am able to upload a very small file of 378 bytes. But if I try to upload a larger file, the progress bar comes up and the formatted text says "Unknown file" and then disappears. After what seems to be an appropriate amount of time for the file to upload, progress_upload comes up with an error that there is not enough room on the disk! The file as about 1MB in size and I can upload up to 4MB files in my regular ASP.NET 1.1 page.

This is Progress.asp:

<HTML>
<HEAD>
<TITLE>FLV File Upload</TITLE>
<%
Set UploadProgress = Server.CreateObject("Persits.UploadProgress")
PID = "PID=" & UploadProgress.CreateProgressID()
barref = "FRAMEBAR.ASP?to=10&" & PID
%>
<SCRIPT LANGUAGE="JavaScript">
function ShowProgress()
{
strAppVersion = navigator.appVersion;
if (document.MyForm.FILE1.value != "")
{
if (strAppVersion.indexOf('MSIE') != -1 && strAppVersion.substr(strAppVersion.indexOf('MSIE')+5,1) > 4)
{
if( strAppVersion.indexOf("Macintosh") != -1 && strAppVersion.charAt(0) >= 3 )
{
window.open('<% = barref %>&b=NN','','width=370,height=115', true);
}
else
{
winstyle = "dialogWidth=385px; dialogHeight:140px; center:yes";
window.showModelessDialog('<% = barref %>&b=IE',null,winstyle);
}
}
else
{
window.open('<% = barref %>&b=NN','','width=370,height=115', true);
}
}
return true;
}
</SCRIPT>
</HEAD>

<h3>Click Browse to find the FLV file on your computer to Upload, then click Upload.</h3>
<FORM NAME="MyForm" METHOD="POST" ENCTYPE="multipart/form-data"
ACTION="progress_upload.asp?<% = PID %>"
OnSubmit="return ShowProgress();">
<TABLE CELLSPACING=0 CELLPADDING=3 BORDER=1>
<TD BGCOLOR="#FFFFCC">
<INPUT TYPE=FILE SIZE=120 NAME="FILE1">
<INPUT TYPE=SUBMIT VALUE="Upload">

</TD>
</TABLE>
</FORM>
</BASEFONT>
</BODY>
</HTML>

This is progress_upload.asp:

<HTML>

<FONT FACE="Arial" SIZE="2">
<CENTER>
<%
Set Upload = Server.CreateObject("Persits.Upload")
Upload.CodePage = 65001
Upload.OverwriteFiles = True
Upload.ProgressID = Request.QueryString("PID")
Upload.SetMaxSize 6000000, True

On Error Goto 0
On Error Resume Next
n = Upload.Save(Server.MapPath("./FLV"))
ErrorNum = Err.Number
Descr = Err.Description
On Error Goto 0

If ErrorNum <> 0 Then
Response.Write "The following error occurred: <FONT COLOR=""#FF0000"">" & Descr & "</FONT></B>"
Else
Response.Write "" & n & " file(s) have been uploaded. " & Upload.TotalBytes & " bytes were transferred in " & Upload.TotalSeconds & " sec.</B>"
End If
%>
<P>
<A HREF="progress.asp">Upload more files</A>
</CENTER>
</FONT>
</BODY>
</HTML>

Any ideas on what could be wrong?

Log in or Sign up

How to Register ASP Smartupload component

Bruce DiscountASP.NET Staff

babymathew100

babymathew100

Bruce DiscountASP.NET Staff

babymathew100

Aristotle

babymathew100

PGScannell

wisemx

PGScannell

Bruce DiscountASP.NET Staff

PGScannell

wisemx

Bruce DiscountASP.NET Staff

Bruce DiscountASP.NET Staff

nouva

raymondp

GarageBill

Share This Page

How to Register ASP Smartupload component

Bruce DiscountASP.NET Staff

Bruce DiscountASP.NET Staff

Bruce DiscountASP.NET Staff

Bruce DiscountASP.NET Staff

Bruce DiscountASP.NET Staff

Share This Page

Useful Searches