Crash1hd
11-04-2003, 10:10 PM
I was wondering if anyone could help me with the following code would get way to long if I kept going this route I am sure there is a mathimatical way of making this work!
What I am trying to do is when someone enters a number there will be a value that goes with that number the value works on the following chart
-----------------------------------------
Pictures = 3.99
3Pictures = 9.99
10Pictures = 19.99
-----------------------------------------
here is the code below
Dim PicTotal
IF Request.Form("Muploadlimit") = "1" Then PicTotal = RSE.Fields("Pictures")
IF Request.Form("Muploadlimit") = "2" Then PicTotal = (RSE.Fields("Pictures")*2)
IF Request.Form("Muploadlimit") = "3" Then PicTotal = RSE.Fields("3Pictures")
IF Request.Form("Muploadlimit") = "4" Then PicTotal = RSE.Fields("3Pictures") + RSE.Fields("Pictures")
IF Request.Form("Muploadlimit") = "5" Then PicTotal = RSE.Fields("3Pictures") + (RSE.Fields("Pictures")*2)
IF Request.Form("Muploadlimit") = "6" Then PicTotal = (RSE.Fields("3Pictures")*2)
IF Request.Form("Muploadlimit") = "7" Then PicTotal = (RSE.Fields("3Pictures")*2) + RSE.Fields("Pictures")
IF Request.Form("Muploadlimit") = "8" Then PicTotal = (RSE.Fields("3Pictures")*2) + (RSE.Fields("Pictures")*2)
IF Request.Form("Muploadlimit") = "9" Then PicTotal = (RSE.Fields("3Pictures")*3)
IF Request.Form("Muploadlimit") = "10" Then PicTotal = RSE.Fields("10Pictures")
IF Request.Form("Muploadlimit") = "11" Then PicTotal = RSE.Fields("10Pictures") + RSE.Fields("Pictures")
IF Request.Form("Muploadlimit") = "12" Then PicTotal = RSE.Fields("10Pictures") + (RSE.Fields("Pictures")*2)
IF Request.Form("Muploadlimit") = "13" Then PicTotal = RSE.Fields("10Pictures") + RSE.Fields("3Pictures")
IF Request.Form("Muploadlimit") = "14" Then PicTotal = RSE.Fields("10Pictures") + RSE.Fields("3Pictures") + RSE.Fields("Pictures")
IF Request.Form("Muploadlimit") = "15" Then PicTotal = RSE.Fields("10Pictures") + RSE.Fields("3Pictures") + (RSE.Fields("Pictures")*2)
IF Request.Form("Muploadlimit") = "16" Then PicTotal = RSE.Fields("10Pictures") + (RSE.Fields("3Pictures")*2)
IF Request.Form("Muploadlimit") = "17" Then PicTotal = RSE.Fields("10Pictures") + (RSE.Fields("3Pictures")*2) + RSE.Fields("Pictures")
IF Request.Form("Muploadlimit") = "18" Then PicTotal = RSE.Fields("10Pictures") + (RSE.Fields("3Pictures")*2) + (RSE.Fields("Pictures")*2)
IF Request.Form("Muploadlimit") = "19" Then PicTotal = RSE.Fields("10Pictures") + (RSE.Fields("3Pictures")*3)
IF Request.Form("Muploadlimit") = "20" Then PicTotal = (RSE.Fields("10Pictures")*2)
IF Request.Form("Muploadlimit") = "21" Then PicTotal = (RSE.Fields("10Pictures")*2) + RSE.Fields("Pictures")
Response.Write " @ $"&PicTotal
SubTotal = SubTotal + PicTotal
What I am trying to do is when someone enters a number there will be a value that goes with that number the value works on the following chart
-----------------------------------------
Pictures = 3.99
3Pictures = 9.99
10Pictures = 19.99
-----------------------------------------
here is the code below
Dim PicTotal
IF Request.Form("Muploadlimit") = "1" Then PicTotal = RSE.Fields("Pictures")
IF Request.Form("Muploadlimit") = "2" Then PicTotal = (RSE.Fields("Pictures")*2)
IF Request.Form("Muploadlimit") = "3" Then PicTotal = RSE.Fields("3Pictures")
IF Request.Form("Muploadlimit") = "4" Then PicTotal = RSE.Fields("3Pictures") + RSE.Fields("Pictures")
IF Request.Form("Muploadlimit") = "5" Then PicTotal = RSE.Fields("3Pictures") + (RSE.Fields("Pictures")*2)
IF Request.Form("Muploadlimit") = "6" Then PicTotal = (RSE.Fields("3Pictures")*2)
IF Request.Form("Muploadlimit") = "7" Then PicTotal = (RSE.Fields("3Pictures")*2) + RSE.Fields("Pictures")
IF Request.Form("Muploadlimit") = "8" Then PicTotal = (RSE.Fields("3Pictures")*2) + (RSE.Fields("Pictures")*2)
IF Request.Form("Muploadlimit") = "9" Then PicTotal = (RSE.Fields("3Pictures")*3)
IF Request.Form("Muploadlimit") = "10" Then PicTotal = RSE.Fields("10Pictures")
IF Request.Form("Muploadlimit") = "11" Then PicTotal = RSE.Fields("10Pictures") + RSE.Fields("Pictures")
IF Request.Form("Muploadlimit") = "12" Then PicTotal = RSE.Fields("10Pictures") + (RSE.Fields("Pictures")*2)
IF Request.Form("Muploadlimit") = "13" Then PicTotal = RSE.Fields("10Pictures") + RSE.Fields("3Pictures")
IF Request.Form("Muploadlimit") = "14" Then PicTotal = RSE.Fields("10Pictures") + RSE.Fields("3Pictures") + RSE.Fields("Pictures")
IF Request.Form("Muploadlimit") = "15" Then PicTotal = RSE.Fields("10Pictures") + RSE.Fields("3Pictures") + (RSE.Fields("Pictures")*2)
IF Request.Form("Muploadlimit") = "16" Then PicTotal = RSE.Fields("10Pictures") + (RSE.Fields("3Pictures")*2)
IF Request.Form("Muploadlimit") = "17" Then PicTotal = RSE.Fields("10Pictures") + (RSE.Fields("3Pictures")*2) + RSE.Fields("Pictures")
IF Request.Form("Muploadlimit") = "18" Then PicTotal = RSE.Fields("10Pictures") + (RSE.Fields("3Pictures")*2) + (RSE.Fields("Pictures")*2)
IF Request.Form("Muploadlimit") = "19" Then PicTotal = RSE.Fields("10Pictures") + (RSE.Fields("3Pictures")*3)
IF Request.Form("Muploadlimit") = "20" Then PicTotal = (RSE.Fields("10Pictures")*2)
IF Request.Form("Muploadlimit") = "21" Then PicTotal = (RSE.Fields("10Pictures")*2) + RSE.Fields("Pictures")
Response.Write " @ $"&PicTotal
SubTotal = SubTotal + PicTotal