Online Paper TemplatesPrint On Demand
Home
About Us
FAQ's
Contact Us

Upload Confirmation


Please verify the picture below


<% On Error Resume Next ' Variables ' ********* Dim Upload Dim File1 Dim rsCommon Dim rsInsert Dim rsUpdate Dim strRID ' Tracking Number, transferred from form ' Object creation ' *************** Set Upload = Server.CreateObject("Persits.Upload.1") ' Upload files Upload.OverwriteFiles = False ' Generate unique names Upload.SetMaxSize 1048576, True ' Truncate files above 1MB Upload.SaveVirtual "\custom\custom_temp" ' Set Uploaded Objects Set File1 = Upload.Files("FILE1") strRID = trim(Upload.Form("intRID")) If Not File1 Is Nothing Then If File1.ImageType <> "JPG" Then Response.Write("ERROR: JPEG Format or JPG Extensions Only, click back and try again.
") File1.Delete Else ' Verify Tracking Number Doesn't Exist Set rsCommon = objCon.Execute("SELECT intTracking FROM tblTracking WHERE intTracking = " & strRID & "") If rsCommon.EOF Then ' Insert Database Entry, Create Tracking Identity (TID) Set rsInsert = objCon.Execute("INSERT INTO tblTracking (intTracking, txtOriginal, intSessionID) VALUES (" & strRID & ", '" & File1.OriginalFileName & "', "& Session.SessionID & ")") Set rsInsert = Nothing ElseIf Not rsCommon.EOF Then Response.Write("ERROR: Duplicate Tracking Number Detected, [ Upload Again ]

") End If Set rsCommon = Nothing ' Retrieve Tracking Identity Set rsCommon = objCon.Execute("SELECT intTracking FROM tblTracking WHERE intSessionID = " & Session.SessionID & " ORDER BY intDate DESC") Session("Tracking_ID") = rsCommon.Fields("intTracking") Set rsCommon = Nothing File1.CopyVirtual "\custom\custom_images\" & Session("Tracking_ID") & ".jpg" File1.Delete Set rsUpdate = objCon.Execute("UPDATE tblTracking SET txtNewFile = '" & Session("Tracking_ID") & ".jpg' WHERE intTracking = " & Session("Tracking_ID") & "") Set rsUpdate = Nothing Response.Write("

") Response.Write("Tracking Number: " & Session("Tracking_ID") & "
(Please note down your tracking number)

") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("
[ Delete, Try Again ]
") End If Else File1.Delete End If ' Trap errors ' *********** If Err Then Response.Write("ERROR: " & Err.description & ", click back and try again.
") End If Set Upload = Nothing %>

 

You may now proceed to our online store (shopping cart).  

  1. Have your tracking number ready (for your uploaded image above).
  2. Or return at another time...[bookmark this page]  
  3. To go to the next page, click below:

CUSTOM MADE PROMOTIONAL BUTTONS