[- use Apache; use Apache::Constants qw(REDIRECT); use Dice::RefAccess; use Dice::Session; sub alphasort {$b cmp $a;} %sess_parms = ( TMP_FIRST => undef, TMP_LAST => undef, TMP_COMPANY => undef, TMP_ADDRESS => undef, TMP_CITY => undef, TMP_STATE => undef, TMP_ZIP => undef, TMP_COUNTRY => undef, TMP_PHONE => undef, TMP_EMAIL => undef, TMP_FAX => undef, TMP_MESSAGE => undef, ); getSessionVals(\%sess_parms); ## Start with the good 'ol U. S. of A. $fdat{COUNTRY} = "us"; $err_msg = getSessionVal("ERR_MSG"); setSessionVal("ERR_MSG", ""); if (defined($sess_parms{TMP_FIRST})) { $fdat{FIRST_NAME} = $sess_parms{TMP_FIRST}; } if (defined($sess_parms{TMP_LAST})) { $fdat{LAST_NAME} = $sess_parms{TMP_LAST}; } if (defined($sess_parms{TMP_COMPANY})) { $fdat{COMPANY_NAME} = $sess_parms{TMP_COMPANY}; } if (defined($sess_parms{TMP_ADDRESS})) { $fdat{ADDRESS} = $sess_parms{TMP_ADDRESS}; } if (defined($sess_parms{TMP_CITY})) { $fdat{CITY} = $sess_parms{TMP_CITY}; } if (defined($sess_parms{TMP_STATE})) { $fdat{STATE} = $sess_parms{TMP_STATE}; } if (defined($sess_parms{TMP_ZIP})) { $fdat{POSTAL_CODE} = $sess_parms{TMP_ZIP}; } if (defined($sess_parms{TMP_COUNTRY})) { $fdat{COUNTRY} = $sess_parms{TMP_COUNTRY}; } if (defined($sess_parms{TMP_PHONE})) { $fdat{PHONE} = $sess_parms{TMP_PHONE}; } if (defined($sess_parms{TMP_FAX})) { $fdat{FAX} = $sess_parms{TMP_FAX}; } if (defined($sess_parms{TMP_EMAIL})) { $fdat{EMAIL} = $sess_parms{TMP_EMAIL}; } if (defined($sess_parms{TMP_MESSAGE})) { $fdat{MESSAGE} = $sess_parms{TMP_MESSAGE}; } $escmode = 0; -] Dice.com
[$ if($err_msg ne "") $]
[+ $err_msg +]
[$ endif $]

Contact Form

Please use the following form to contact Dice.   You can also call toll free, 888-321-3423 (DICE), if you prefer.
[- if (validateSession()) { $footer = getSessionVal(FOOTER_FILE); $footer = "/NOT_A_FILE.NOT" unless defined($footer); if (-f $footer) { Execute($footer, 0); } } -] [- $escmode = 1; -]