+print '</table><BR>'.
+ qq!<FORM METHOD="POST" ACTION="${p}edit/process/domain_record.cgi">!.
+ qq!<INPUT TYPE="hidden" NAME="svcnum" VALUE="$svcnum">!.
+ '<INPUT TYPE="text" NAME="reczone"> '.
+ '<INPUT TYPE="hidden" NAME="recaf" VALUE="IN">IN '.
+ '<SELECT NAME="rectype">'.
+ join('', map qq!<OPTION VALUE="$_">$_</OPTION>!, qw(A NS CNAME MX) ).
+ '</SELECT>'.
+ ' <INPUT TYPE="text" NAME="recdata"> <INPUT TYPE="submit" VALUE="Add">'.
+ '<BR><BR>'. joblisting({'svcnum'=>$svcnum}, 1).