|
<%
if len(type3) = 0 then
type3 = "0"
char3 = "00"
if len(type2) = 0 then
type2 = "0"
char2 = "00"
end if
end if
select case charamt
case "1"
if mid(combined, 4, 1) = "R" or mid(combined, 4, 1) = "B" then
if type1 = "N" then
img1 = "graphics/characters/" & char1 & ".gif"
else
img1 = "graphics/characters/" & char1 & type1 & ".gif"
end if
img2 = "graphics/characters/" & right(combined,1) & mid(combined, 4, 1) & ".gif"
else
img1 = "graphics/characters/" & right(combined,1) & mid(combined, 4, 1) & ".gif"
if type1 = "N" then
img2 = "graphics/characters/" & char1 & ".gif"
else
img2 = "graphics/characters/" & char1 & type1 & ".gif"
end if
end if
case "2"
if right(barlocation, 1) = "R" then
if left(barlocation, 1) = "R" then
if type1 = "N" then
img1 = "graphics/characters/" & char1 & ".gif"
else
img1 = "graphics/characters/" & char1 & type1 & ".gif"
end if
if type2 = "N" then
img2 = "graphics/characters/" & char2 & ".gif"
else
img2 = "graphics/characters/" & char2 & type2 & ".gif"
end if
img3 = "graphics/characters/" & right(barlocation,1) & left(barlocation,1) & ".gif"
elseif left(barlocation, 1) = "M" then
if type1 = "N" then
img1 = "graphics/characters/" & char1 & ".gif"
else
img1 = "graphics/characters/" & char1 & type1 & ".gif"
end if
img2 = "graphics/characters/" & right(barlocation,1) & left(barlocation,1) & ".gif"
if type2 = "N" then
img3 = "graphics/characters/" & char2 & ".gif"
else
img3 = "graphics/characters/" & char2 & type2 & ".gif"
end if
else
img1 = "graphics/characters/" & right(barlocation,1) & left(barlocation,1) & ".gif"
if type1 = "N" then
img2 = "graphics/characters/" & char1 & ".gif"
else
img2 = "graphics/characters/" & char1 & type1 & ".gif"
end if
if type2 = "N" then
img3 = "graphics/characters/" & char2 & ".gif"
else
img3 = "graphics/characters/" & char2 & type2 & ".gif"
end if
end if
elseif left(barlocation, 1) = "B" then
if type1 = "N" then
img1 = "graphics/characters/" & char1 & ".gif"
else
img1 = "graphics/characters/" & char1 & type1 & ".gif"
end if
if type2 = "N" then
img2 = "graphics/characters/" & char2 & ".gif"
else
img2 = "graphics/characters/" & char2 & type2 & ".gif"
end if
img3 = "graphics/characters/" & right(barlocation,1) & left(barlocation,1) & ".gif"
elseif left(barlocation, 1) = "A" then
img1 = "graphics/characters/" & right(barlocation,1) & left(barlocation,1) & ".gif"
if type1 = "N" then
img2 = "graphics/characters/" & char1 & ".gif"
else
img2 = "graphics/characters/" & char1 & type1 & ".gif"
end if
if type2 = "N" then
img3 = "graphics/characters/" & char2 & ".gif"
else
img3 = "graphics/characters/" & char2 & type2 & ".gif"
end if
else
if type1 = "N" then
img1 = "graphics/characters/" & char1 & ".gif"
else
img1 = "graphics/characters/" & char1 & type1 & ".gif"
end if
if type2 = "N" then
img2 = "graphics/characters/" & char2 & ".gif"
else
img2 = "graphics/characters/" & char2 & type2 & ".gif"
end if
end if
case "3"
if type1 = "N" then
img1 = "graphics/characters/" & char1 & ".gif"
else
img1 = "graphics/characters/" & char1 & type1 & ".gif"
end if
if type2 = "N" then
img2 = "graphics/characters/" & char2 & ".gif"
else
img2 = "graphics/characters/" & char2 & type2 & ".gif"
end if
if type3 = "N" then
img3 = "graphics/characters/" & char3 & ".gif"
else
img3 = "graphics/characters/" & char3 & type3 & ".gif"
end if
end select
%> <%
sPrintAnimal = "Cattle"
if animal = "h" then sPrintAnimal = "Horse"
%> <%
sPrintLocal = sLocation%> 
Online Brand Builder v.2.0
|
What
to do:
|
The
Online Brand Builder v2.0 uses javascript extensively. Please
ensure that your browser has javascript enabled.
To
enable JavaScript:
Using
Internet Explorer 6
- On
the Tools menu, click Internet Options.
- Click
the Security tab.
- Click
Custom Level.
- Scroll
to Scripting. Under Active scripting, click Enable.
- Click
OK twice.
Using
Netscape 6
- On
the Edit menu, click Preferences.
- Click
Advanced.
- Select
the Enable JavaScript for Navigator check box.
- Click
OK.
Using
another browser
You must use a browser that supports JavaScript. For detailed
instructions about how to enable JavaScript, see Help in
your browser.
Follow
the instructions at the begining of each step. If you continue
to have problems please contact LIS.
|
|
|
|
Restart |
copyright © 2003
|
|