Solved

Change my ASP Function

Posted on 2014-12-15
19
122 Views
Last Modified: 2014-12-15
Public Function Logic

IF WarehouseID = 1 Then Len(ProductID) < 8 Then ProductID = Right(String(8, "0") & ProductID, 8)
    FormatTEDProductID = "ARP" & ProductID
elseif

   WarehouseID = 2 Then Len(ProductID) < 8 Then ProductID = Right(String(8, "0") & ProductID, 8)
    FormatTEDProductID = "ELI" & ProductID

My current fuction is just

Public Function FormatTEDProductID (ProductID)
    If Len(ProductID) < 8 Then ProductID = Right(String(8, "0") & ProductID, 8)
    FormatTEDProductID = "ARP" & ProductID
End Function

Open in new window


The table has both ProductID and WarehouseID


How would I go about doing this?
0
Comment
Question by:FreerTool
  • 8
  • 6
  • 5
19 Comments
 
LVL 32

Accepted Solution

by:
Big Monty earned 500 total points
ID: 40500799
try:

Public Function FormatTEDProductID (ProductID, WarehouseID)
    If WarehouseID = 1 and Len(ProductID) < 8  Then 
           ProductID = Right(String(8, "0") & ProductID, 8)
           FormatTEDProductID = "ARP" & ProductID
    elseif WarehouseID = 2 and Len(ProductID) < 8 Then 
           ProductID = Right(String(8, "0") & ProductID, 8)
           FormatTEDProductID = "ELI" & ProductID
   end if    
End Function

Open in new window


note the 2nd parameter of WarehouseID in your function
0
 
LVL 32

Expert Comment

by:Big Monty
ID: 40500810
this assumes both of your values are of valid INT types. You may want to check that before the if statement:

Public Function FormatTEDProductID (ProductID, WarehouseID)
    if not isNumeric( ProductID ) then
         ProductID = 0
    else
         ProductID = CInt( ProductID )
    end if
    if not isNumeric( WarehouseID ) then
         WarehouseID = 0
    else
         WarehouseID = CInt( WarehouseID )
    end if


    If WarehouseID = 1 and Len(ProductID) < 8  Then
           ProductID = Right(String(8, "0") & ProductID, 8)
           FormatTEDProductID = "ARP" & ProductID
    elseif WarehouseID = 2 and Len(ProductID) < 8 Then
           ProductID = Right(String(8, "0") & ProductID, 8)
           FormatTEDProductID = "ELI" & ProductID
   end if    
End Function
0
 

Author Comment

by:FreerTool
ID: 40500844
Getting error  An error occurred on the server when processing the URL. Please contact the system administrator

with both and yes they are both  integers.
0
 
LVL 32

Expert Comment

by:Big Monty
ID: 40500848
post your updated code
0
 
LVL 32

Expert Comment

by:Big Monty
ID: 40500882
I just stuck the code below in a blank asp page and got the appropriate results. If you're getting  an error, it has to do with the values you're passing into the function

<%
Public Function FormatTEDProductID (ProductID, WarehouseID)
    if not isNumeric( ProductID ) then 
         ProductID = 0
    else
         ProductID = CInt( ProductID )
    end if
    if not isNumeric( WarehouseID ) then 
         WarehouseID = 0
    else
         WarehouseID = CInt( WarehouseID )
    end if

    If WarehouseID = 1 and Len(ProductID) < 8  Then 
           ProductID = Right(String(8, "0") & ProductID, 8)
           FormatTEDProductID = "ARP" & ProductID
    elseif WarehouseID = 2 and Len(ProductID) < 8 Then 
           ProductID = Right(String(8, "0") & ProductID, 8)
           FormatTEDProductID = "ELI" & ProductID
   end if    
End Function

    Response.Write FormatTEDProductID( 4, 1 ) & "<br/></br>"
    Response.Write FormatTEDProductID( 4, 2 )

    
%>

Open in new window

0
 
LVL 51

Expert Comment

by:HainKurt
ID: 40500941
here it is:

Public Function FormatTEDProductID (WarehouseID , ProductID)
    If Len(ProductID) < 8 Then ProductID = Right(String(8, "0") & ProductID, 8)
    FormatTEDProductID = iif(WarehouseID = 1, "ARP", "ELI") & ProductID
End Function

Open in new window


pass WarehouseID , ProductID to the function...
0
 

Author Comment

by:FreerTool
ID: 40500974
I think thats my problem is that i am not passing the warehouseID properly to the function.


<p class="listProductPartNumber"><b>Product Number:</b> <%=FormatTEDProductID(RsProduct("ProductID").Value)%>

Is where I am Formatting my ProductID   I am just trying to figure how i pass it to the function here.
0
 
LVL 51

Expert Comment

by:HainKurt
ID: 40500982
use function i posted above with this:

<p class="listProductPartNumber"><b>Product Number:</b> <%=FormatTEDProductID(RsProduct("WarehouseID").Value, RsProduct("ProductID").Value)%>
0
 
LVL 51

Expert Comment

by:HainKurt
ID: 40500988
remember, the function I posted above assumes, you have only 1 or 2 as WarehouseID

Logic is this: Add "ARP" if warehouse=1 or add "ELI" otherwise...
0
Find Ransomware Secrets With All-Source Analysis

Ransomware has become a major concern for organizations; its prevalence has grown due to past successes achieved by threat actors. While each ransomware variant is different, we’ve seen some common tactics and trends used among the authors of the malware.

 
LVL 32

Assisted Solution

by:Big Monty
Big Monty earned 500 total points
ID: 40501025
assuming WarehouseID is from your recordset, you would do:

<p class="listProductPartNumber"><b>Product Number:</b> <%=FormatTEDProductID(RsProduct("ProductID").Value, RsProduct("WarehouseID").Value)%> 

Open in new window


Using the function I gave does an error check for you, if your ProductIDs and WarehouseID's are empty, or not int values, it makes sure no error is produced.

also, sometimes values from a recordset are treated as strings, even if they are numbers, so it's a good idea to convert them (using CInt()) to make sure the if statement works properly
0
 

Author Comment

by:FreerTool
ID: 40501205
Yeah i have troubleshoot some more but neither of your guys code is working for me.  I must not be passing the WarehouseID properly. I get a blank white page when i update.
0
 
LVL 32

Expert Comment

by:Big Monty
ID: 40501210
where is WarehouseID coming from, the recordset? can you confirm there is ALWAYS a WarehouseID in the data set coming back from the database?

if you hard code values in the function, does it work then?
0
 
LVL 51

Expert Comment

by:HainKurt
ID: 40501223
this should work fine

<p class="listProductPartNumber"><b>Product Number:</b> <%=FormatTEDProductID(RsProduct("WarehouseID").Value, RsProduct("ProductID").Value)%>

with this code

Public Function FormatTEDProductID (WarehouseID , ProductID)
    If Len(ProductID) < 8 Then ProductID = Right(String(8, "0") & ProductID, 8)
    FormatTEDProductID = iif(WarehouseID = 1, "ARP", "ELI") & ProductID
End Function

Open in new window


what do you get here?

Product Number: ??????

if you do not get any error, warehouseid is not coming from db correctly, o/w you get error!

try passing 1 as hardcoded value and try

<p class="listProductPartNumber"><b>Product Number:</b> <%=FormatTEDProductID(1, RsProduct("ProductID").Value)%>
0
 

Author Comment

by:FreerTool
ID: 40501251
so I am checking all my pages that have the warehouseID  that i need to pass.  for example.

http://www.automationrecovery.com/categories/Automation-Surplus/
0
 
LVL 32

Assisted Solution

by:Big Monty
Big Monty earned 500 total points
ID: 40501268
and did you try hard coding the IDs like I suggested? are there ALWAYS productIDs as well?
0
 
LVL 32

Expert Comment

by:Big Monty
ID: 40501284
it looks like product number is displaying properly as I see it shown in your page.

it looks like your link is not correct, can you post the code for it and what you expect to happen on the next page along with its code?
0
 

Author Comment

by:FreerTool
ID: 40501319
sorry take a look at it now.
0
 

Author Comment

by:FreerTool
ID: 40501363
Its working fine now, thanks for your assistance Big Monty
0
 
LVL 51

Expert Comment

by:HainKurt
ID: 40501386
and what is the solution & why I did not get any share?
0

Featured Post

How to run any project with ease

Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails

Join & Write a Comment

I was asked about the differences between classic ASP and ASP.NET, so let me put them down here, for reference: Let's make the introductions... Classic ASP was launched by Microsoft in 1998 and dynamically generate web pages upon user interact…
This script will sweep a range of IP addresses (class c only, 255.255.255.0) and report to a log the version of office installed. What it does: 1.)      Creates log file in the directory the script is run from (if it doesn't already exist) 2.)      Sweep…
Sending a Secure fax is easy with eFax Corporate (http://www.enterprise.efax.com). First, Just open a new email message.  In the To field, type your recipient's fax number @efaxsend.com. You can even send a secure international fax — just include t…
This video gives you a great overview about bandwidth monitoring with SNMP and WMI with our network monitoring solution PRTG Network Monitor (https://www.paessler.com/prtg). If you're looking for how to monitor bandwidth using netflow or packet s…

744 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

12 Experts available now in Live!

Get 1:1 Help Now