<%@ Language=VBScript %>
<%Dim db,sql,Action,errMsg,objFileUp,Quantity,Ink,Folding,File1,File2,File3,File4
Dim rsQty,rsFolding,rsList,Qty,Price,mfr,TempPrice,ItemName,ItemNo,Prefix,Weight
errMsg = ""
Set objFileUp = Server.CreateObject("SoftArtisans.FileUp")
Action = objFileUp.Form("Action")
if Action = "BUY NOW" then
Price = trim(objFileUp.Form("Price"))
Weight = trim(objFileUp.Form("Weight"))
if Weight = "" then
Weight = 50
end if
Qty = trim(objFileUp.Form("Qty"))
if (Qty="" or not isnumeric(Qty)) then
Qty = 1
elseif (Qty < 1) then
Qty = 1
end if
Quantity = trim(objFileUp.Form("Quantity"))
Ink = trim(objFileUp.Form("Ink"))
Folding = trim(objFileUp.Form("Folding"))
ItemName = "4 Color Flyer"
ItemNo = Quantity & " " & Ink & " " & Folding
Prefix = right("0" & month(date),2) & right("0" & Day(date),2) & "_"
File1 = objFileUp.Form("File1").UserFileName
If IsObject(objFileUp.Form("File1")) And Not objFileUp.Form("File1").IsEmpty Then
If File1 <> "" Then
File1 = GetFileName(File1)
ItemName = ItemName & " " & File1
File1 = Prefix & File1
objFileUp.Form("File1").SaveInVirtual "flyers\fourcolor\" & File1
End If
End If
File2 = objFileUp.Form("File2").UserFileName
If IsObject(objFileUp.Form("File2")) And Not objFileUp.Form("File2").IsEmpty Then
If File2 <> "" Then
File2 = GetFileName(File2)
ItemName = ItemName & " " & File2
File2 = Prefix & File2
objFileUp.Form("File2").SaveInVirtual "flyers\fourcolor\" & File2
End If
End If
File3 = objFileUp.Form("File3").UserFileName
If IsObject(objFileUp.Form("File3")) And Not objFileUp.Form("File3").IsEmpty Then
If File3 <> "" Then
File3 = GetFileName(File3)
ItemName = ItemName & " " & File3
File3 = Prefix & File3
objFileUp.Form("File3").SaveInVirtual "flyers\fourcolor\" & File3
End If
End If
File4 = objFileUp.Form("File4").UserFileName
If IsObject(objFileUp.Form("File4")) And Not objFileUp.Form("File4").IsEmpty Then
If File4 <> "" Then
File4 = GetFileName(File4)
ItemName = ItemName & " " & File4
File4 = Prefix & File4
objFileUp.Form("File4").SaveInVirtual "flyers\fourcolor\" & File4
End If
End If
end if
%>
Four Color Flyer Printing, 4 Color Flyers Printing - superfineprinting.com
