Passing variables to a sub routine...

[CDNJungler]

If I create a sub routine such as:
Sub MyColor()
If Field1 < 0 then
Response.Write (&quot;<font color='Red'>Field1</font>&quot
End Sub

Now I want to pass a variable to this sub so that I can substitute any value for field1, and just use the
call MyColor() instead of writing out the code over and over for different fields. Any help is welcomed and apprieciated. Thanks

 

[FesterSXS]

Sub MyColor(myField)
 If myField < 0 then
   Response.Write &quot;<font color='Red'>&quot; & myField & &quot;</font>&quot;
End Sub

then just put your field name in the call to MyColor()

eg) Call MyColor(&quot;Field1&quot Tony

http://www.phoenix-paints.co.uk/portfolio