<?xml version="1.0" encoding="ISO-8859-1" ?><!DOCTYPE TAF SYSTEM "tango.dtd" ><TAF Version="0x02000002" Author="Steve Smith" Revision="2.00">	<Comments />	<!--Main program-->	<Program>		<ActionRef Ref="If_BranchToForm">			<ActionRef Ref="Jumplist" />		</ActionRef>		<ActionRef Ref="If_CheckWho">			<ActionRef Ref="Failed" />			<ActionRef Ref="Jumplist2" />		</ActionRef>		<ActionRef Ref="Else">			<ActionRef Ref="ListServ1" />			<ActionRef Ref="If_BadEmailAddress">				<ActionRef Ref="Failed1" />				<ActionRef Ref="Jumplist1" />			</ActionRef>			<ActionRef Ref="Else1">				<ActionRef Ref="No_Operation" />			</ActionRef>		</ActionRef>		<ActionRef Ref="Stop" />		<ActionRef Ref="OldUnusedJumplist" />	</Program>	<!--Program actions-->	<Actions>		<IfAction ID="If_BranchToForm" Sig="if  " Expanded="True">			<Expression><![CDATA[('<@SEARCHARG function>'!='subscribe')]]></Expression>			<ExpressionInfo>				<ExpLeft><![CDATA[<@SEARCHARG function>]]></ExpLeft>				<ExpRight>subscribe</ExpRight>				<Operator>isnt</Operator>			</ExpressionInfo>		</IfAction>		<DirectDBMSAction DSID="epicsony.world" DeploymentDSID="epicsony.world.1" ID="Jumplist" Sig="cust">			<Custom><![CDATA[select artistid, RTRIM(fname), RTRIM(lname), RTRIM(homedir), RTRIM(homedoc), RTRIM(homeparam) FROM artistWHERE artistid in (select artistid from artistlabel where labelid=4)ORDER BY LOWER(lname)]]></Custom>			<StartRow>1</StartRow>			<ResultsOutput Ref="Jumplist.Results" />		</DirectDBMSAction>		<ElseIfAction ID="If_CheckWho" Sig="elif" Expanded="True">			<Expression><![CDATA[(!LEN('<@ARG who>')) or (!LEN('<@ARG at>'))]]></Expression>			<ExpressionInfo>				<ExpLeft><![CDATA[<@ARG who>]]></ExpLeft>				<ExpRight />				<Operator>iemp</Operator>			</ExpressionInfo>			<ExpressionInfo>				<ExpLeft><![CDATA[<@ARG at>]]></ExpLeft>				<ExpRight />				<Conjunction>or  </Conjunction>				<Operator>iemp</Operator>			</ExpressionInfo>		</ElseIfAction>		<ResultAction ID="Failed" Sig="null">			<ResultsOutput Ref="Failed.Results" />		</ResultAction>		<DirectDBMSAction DSID="epicsony.world.2" DeploymentDSID="epicsony.world.3" ID="Jumplist2" Sig="cust">			<Custom><![CDATA[select artistid, RTRIM(fname), RTRIM(lname), RTRIM(homedir), RTRIM(homedoc), RTRIM(homeparam) FROM artistWHERE artistid in (select artistid from artistlabel where labelid=4)ORDER BY LOWER(lname)]]></Custom>			<ResultsOutput Ref="Jumplist2.Results" />		</DirectDBMSAction>		<ElseAction ID="Else" Sig="else" Expanded="True" />		<CommandLineAction ID="ListServ1" Sig="aevt">			<Command>/opt/ns-home/cgi-bin/sublist.pl</Command>			<VariableList>				<VariableItem>					<Name>EMAI</Name>					<Value><![CDATA[<@POSTARG who>@<@POSTARG at>]]></Value>				</VariableItem>				<VariableItem>					<Name>LIST</Name>					<Value>mjjnews</Value>				</VariableItem>			</VariableList>		</CommandLineAction>		<IfAction ID="If_BadEmailAddress" Sig="if  " Expanded="True">			<Expression><![CDATA[('<@ACTIONRESULT ListServ>'='invalid')]]></Expression>			<ExpressionInfo>				<ExpLeft><![CDATA[<@ACTIONRESULT ListServ>]]></ExpLeft>				<ExpRight>invalid</ExpRight>				<Operator>iseq</Operator>			</ExpressionInfo>		</IfAction>		<ResultAction ID="Failed1" Sig="null">			<ResultsOutput Ref="Failed1.Results" />		</ResultAction>		<DirectDBMSAction DSID="epicsony.world.4" DeploymentDSID="epicsony.world.5" ID="Jumplist1" Sig="cust">			<Custom><![CDATA[select artistid, RTRIM(fname), RTRIM(lname), RTRIM(homedir), RTRIM(homedoc), RTRIM(homeparam) FROM artistWHERE artistid in (select artistid from artistlabel where labelid=4)ORDER BY LOWER(lname)]]></Custom>			<ResultsOutput Ref="Jumplist1.Results" />		</DirectDBMSAction>		<ElseAction ID="Else1" Sig="else" Expanded="True" />		<ResultAction ID="No_Operation" Sig="null">			<ResultsOutput Ref="No_Operation.Results" />		</ResultAction>		<ReturnAction ID="Stop" Sig="stop" />		<DirectDBMSAction DSID="epicsony.world.6" DeploymentDSID="epicsony.world.7" ID="OldUnusedJumplist" Sig="cust">			<Custom><![CDATA[SELECT ARTIST.artistid, RTRIM(ARTIST.fname), RTRIM(ARTIST.lname), RTRIM(ARTIST.homedir), 'artistfan.taf', RTRIM(ARTIST.homeparam), ARTISTLABEL.LABELIDFROM EPIC.ARTIST, EPIC.ARTISTLABELWHERE ARTIST.ARTISTID=ARTISTLABEL.ARTISTID AND LABELID=4 AND PUBLISHED=1ORDER BY LOWER(lname)]]></Custom>		</DirectDBMSAction>	</Actions>	<!--Data sources-->	<DataSources>		<DataSource ID="epicsony.world">			<DSType>Oracle</DSType>			<DSN>epicsony.world</DSN>			<DBMS />			<Host>epic</Host>			<Database />			<UserInfo Encrypted="True">				<UserName>%9A%1B%E59%B0X%82u</UserName>				<Password>%F5%CA%C4%AB%93%DA%F9%F9</Password>			</UserInfo>		</DataSource>		<DataSource ID="epicsony.world.1">			<DSType>Oracle</DSType>			<DSN>epicsony.world</DSN>			<DBMS />			<Host>epicsony.world</Host>			<Database />			<UserInfo Encrypted="True">				<UserName>%9A%1B%E59%B0X%82u</UserName>				<Password>%F5%CA%C4%AB%93%DA%F9%F9</Password>			</UserInfo>		</DataSource>		<DataSource ID="epicsony.world.2">			<DSType>Oracle</DSType>			<DSN>epicsony.world</DSN>			<DBMS />			<Host>epic</Host>			<Database />			<UserInfo Encrypted="True">				<UserName>%9A%1B%E59%B0X%82u</UserName>				<Password>%F5%CA%C4%AB%93%DA%F9%F9</Password>			</UserInfo>		</DataSource>		<DataSource ID="epicsony.world.3">			<DSType>Oracle</DSType>			<DSN>epicsony.world</DSN>			<DBMS />			<Host>epicsony.world</Host>			<Database />			<UserInfo Encrypted="True">				<UserName>%9A%1B%E59%B0X%82u</UserName>				<Password>%F5%CA%C4%AB%93%DA%F9%F9</Password>			</UserInfo>		</DataSource>		<DataSource ID="epicsony.world.4">			<DSType>Oracle</DSType>			<DSN>epicsony.world</DSN>			<DBMS />			<Host>epic</Host>			<Database />			<UserInfo Encrypted="True">				<UserName>%9A%1B%E59%B0X%82u</UserName>				<Password>%F5%CA%C4%AB%93%DA%F9%F9</Password>			</UserInfo>		</DataSource>		<DataSource ID="epicsony.world.5">			<DSType>Oracle</DSType>			<DSN>epicsony.world</DSN>			<DBMS />			<Host>epicsony.world</Host>			<Database />			<UserInfo Encrypted="True">				<UserName>%9A%1B%E59%B0X%82u</UserName>				<Password>%F5%CA%C4%AB%93%DA%F9%F9</Password>			</UserInfo>		</DataSource>		<DataSource ID="epicsony.world.6">			<DSType>Oracle</DSType>			<DSN>epicsony.world</DSN>			<DBMS />			<Host>epic</Host>			<Database />			<UserInfo Encrypted="True">				<UserName>%9A%1B%E59%B0X%82u</UserName>				<Password>%F5%CA%C4%AB%93%DA%F9%F9</Password>			</UserInfo>		</DataSource>		<DataSource ID="epicsony.world.7">			<DSType>Oracle</DSType>			<DSN>epicsony.world</DSN>			<DBMS />			<Host>epicsony.world</Host>			<Database />			<UserInfo Encrypted="True">				<UserName>%9A%1B%E59%B0X%82u</UserName>				<Password>%F5%CA%C4%AB%93%DA%F9%F9</Password>			</UserInfo>		</DataSource>	</DataSources>	<!--Output blocks-->	<Outputs>		<Output ID="Jumplist.Results" Type="HTML"><![CDATA[<@INCLUDE <@APPFILEPATH>mail.html>]]></Output>		<Output ID="Failed.Results" Type="HTML"><![CDATA[]]></Output>		<Output ID="Jumplist2.Results" Type="HTML"><![CDATA[<@INCLUDE "<@APPFILEPATH>/header.html"><BR><BR><table border=0 cellspacing="0" width=750 ><TR><TD ALIGN="MIDDLE" COLSPAN=4><CENTER><BR><H2><FONT COLOR="#FF1313"><@IF "<@ACTIONRESULT ListServ 1>=invalid">Invalid email address<@ELSE>The email fields require values</@IF></FONT></H2></CENTER></TD></TR><tr><TD WIDTH=50></TD><td valign=top align=left width=400 ><font face="Arial,Helvetica" size="3"><FORM METHOD=POST ACTION="<@APPFILE>?artistid=-444&function=subscribe">Stay on the edge.<BR>Sign up to receive MJJ e-mail updates and info. <P><INPUT TYPE=TEXT SIZE=13 NAME="who" VALUE="<@POSTARG who>">@<INPUT TYPE=TEXT SIZE=15 NAME="at" VALUE="<@POSTARG at>"> &nbsp;&nbsp;<INPUT TYPE=SUBMIT VALUE="Sign Up"></FORM>  </td></TR><TR><TD WIDTH=50 NOWRAP></TD><TD NOWRAP><font face="Arial,Helvetica" size="3"><P><BR><BR><BR>To sign up for a specific artist mailing list,<BR> just follow the jump list below.<BR><BR><!--JUMPLIST --></SCRIPT><FORM METHOD="post" ACTION="http://www.epiccenter.com/cgi-bin/jump.pl"><SELECT NAME="LOCATION" SIZE=9>   <@ROWS>      <OPTION VALUE="<@COL 4><@COL 5><@COL 6>">      <@IFEMPTY <@COL 2>>         <@COL 3>      <@ELSE>         <@COL 3>, <@COL 2>      </@IF>   </@ROWS></SELECT><INPUT TYPE=SUBMIT VALUE="Jump!"></FORM><!--END JUMPLIST --></TD></TR></table></BODY></HTML>]]></Output>		<Output ID="Failed1.Results" Type="HTML"><![CDATA[]]></Output>		<Output ID="Jumplist1.Results" Type="HTML"><![CDATA[<@INCLUDE "<@APPFILEPATH>/header.html"><BR><BR><table border=0 cellspacing="0" width=750 ><TR><TD ALIGN="MIDDLE" COLSPAN=4><CENTER><BR><H2><FONT COLOR="#FF1313"><@IF "<@ACTIONRESULT ListServ 1>=invalid">Invalid email address<@ELSE>The email fields require values</@IF></FONT></H2></CENTER></TD></TR><tr><TD WIDTH=50></TD><td valign=top align=left width=400 ><font face="Arial,Helvetica" size="3"><FORM METHOD=POST ACTION="<@APPFILE>?artistid=-444&function=subscribe">Stay on the edge.<BR>Sign up to receive MJJ e-mail updates and info. <P><INPUT TYPE=TEXT SIZE=13 NAME="who" VALUE="<@POSTARG who>">@<INPUT TYPE=TEXT SIZE=15 NAME="at" VALUE="<@POSTARG at>"> &nbsp;&nbsp;<INPUT TYPE=SUBMIT VALUE="Sign Up"></FORM>  </td></TR><TR><TD WIDTH=50 NOWRAP></TD><TD NOWRAP><font face="Arial,Helvetica" size="3"><P><BR><BR><BR>To sign up for a specific artist mailing list,<BR> just follow the jump list below.<BR><BR><!--JUMPLIST --></SCRIPT><FORM METHOD="post" ACTION="http://www.epiccenter.com/cgi-bin/jump.pl"><SELECT NAME="LOCATION" SIZE=9>   <@ROWS>      <OPTION VALUE="<@COL 4><@COL 5><@COL 6>">      <@IFEMPTY <@COL 2>>         <@COL 3>      <@ELSE>         <@COL 3>, <@COL 2>      </@IF>   </@ROWS></SELECT><INPUT TYPE=SUBMIT VALUE="Jump!"></FORM><!--END JUMPLIST --></TD></TR></table></BODY></HTML>]]></Output>		<Output ID="No_Operation.Results" Type="HTML"><![CDATA[<CENTER><BR><H2><FONT COLOR="#FF1313"><@POSTARG who>@<@POSTARG at> has been subscribed to the list.<BR>In a few minutes, you will receive an email message giving you basic information about this list.</FONT></H2><BR><BR><BR><BR><A HREF="http://www.epiccenter.com/EpicCenter/mjj/index.taf">Back to MJJ Home</A></CENTER><!--End Main Table--></TD></TR></TABLE></BODY><!--End of body--></HTML>]]></Output>	</Outputs></TAF>