Converting from ASP to PHP

[pisti]

I currently have working ASP code (located below), and have used an ASP to PHP converter (result below). However, I keep getting unexpected T_Variable errors in the php when run.

If there is any seasoned PHP developer out there that could help, it would be much helpful. Thank you in advance.

I replaced the email fields with "email_here", the first error comes at Set $objCDO = Server.CreateObject("CDONTS.NewMail");

ASP code:
<%
if Request.Form("FFSubmitted") = "yes" then
Dim BodyString
Dim objCDO
Dim RedirectURL
Dim FormFields
Dim arrFormFields
FormFields = "PriorExp~TwoYears~Name~ss1~ss2~ss3~Address~Address2~City~State~Zip~Phone~EveningPhone~CellPhone~Email~EmergencyName~EmergencyPhone~Particulars~Age18~Convicted~ReliableTransport~MinHours~MaxHours~StartSun~EndSun~StartMon~EndMon~StartTues~EndTues~StartWed~EndWed~StartThur~EndThur~StartFri~EndFri~StartSat~EndSat~HourlyRate~Day~Month~Year~EmployerName~Location~Supervisor~SupervisorContact~Position~Wage~ReasonLeft~StartDate~EndDate~EmployerName~Location~Supervisor~SupervisorContact~Position~Wage~ReasonLeft~StartDate~EndDate~CrimeExplanation~Commitments~PositionExplained~Teamwork~Wish~AdditionalComments~Position"
If FormFields <> "" Then
arrFormFields = split(FormFields,"~")
End If

		If Request.Form("PriorExp") = "Yes" then
		Set objCDO = Server.CreateObject("CDONTS.NewMail") 
		objCDO.From = "email_here"
		objCDO.To = "email_here"
		objCDO.Bcc = ""
		objCDO.Subject = "Online Application"	
		BodyString =  Replace("","~",chr(13) & chr(10) )& chr(13)
		Else
		Set objCDO = Server.CreateObject("CDONTS.NewMail") 
		objCDO.From = "[e-mail]"
		objCDO.To = "email_here"
		objCDO.Cc = ""
		objCDO.Bcc = ""
		objCDO.Subject = "Online Application"	
		BodyString =  Replace("","~",chr(13) & chr(10) )& chr(13)
		End If

		If FormFields <> "" Then
			For Each item In arrFormFields
				BodyString = BodyString & item & ": " & Request.Form(item) & chr(13)
			Next
		End If
		objCDO.Body = BodyString
		objCDO.BodyFormat = 1
		objCDO.MailFormat = 1
		objCDO.Send
		Set objCDO = Nothing
		RedirectURL = "thankyou.php" 
		If RedirectURL <> "" then 
			If Request.QueryString <> "" Then
				response.redirect(RedirectURL & "?" & Request.QueryString)
			else
				response.redirect(RedirectURL)
			end If
		end if
end if

%>
<% MM_EditAction = CStr(Request("URL"))
If (Request.QueryString <> "") Then
MM_EditAction = MM_EditAction & "?" & Request.QueryString
End If
%>

PHP Code:
<?
if ($HTTP_POST_VARS["FFSubmitted"] == "yes") {
//dim $BodyString;
//dim $objCDO;
//dim $RedirectURL;
//dim $FormFields;
//dim $arrFormFields;
$FormFields = "PriorExp~TwoYears~Name~ss1~ss2~ss3~Address~Address2~City~State~Zip~Phone~EveningPhone~CellP
hone~Email~EmergencyName~EmergencyPhone~Particulars~Age18~Convicted~ReliableTransport~MinHours~MaxHours~StartSun~EndSun~St
artMon~EndMon~StartTues~EndTues~StartWed~EndWed~StartThur~EndThur~StartFri~EndFri~StartSat~EndSat~HourlyRate~Day~Month~Yea
r~EmployerName~Location~Supervisor~SupervisorContact~Position~Wage~ReasonLeft~StartDate~EndDate~EmployerName~Location~Supe
rvisor~SupervisorContact~Position~Wage~ReasonLeft~StartDate~EndDate~CrimeExplanation~Commitments~PositionExplained~Teamwor
k~Wish~AdditionalComments~Position";
if ($FormFields != "") {
$arrFormFields = split($FormFields,"~");
}

                    if ($HTTP_POST_VARS["PriorExp"] == "Yes") {
                    Set $objCDO = Server.CreateObject("CDONTS.NewMail");
                    $objCDO.$From = "email_here";
                    $objCDO.To = "email_here";
                    $objCDO.$Bcc = "";
                    $objCDO.$Subject = "Online Application";
                    $BodyString =  Replace("","~",chr(13).chr(10) ).chr(13);
                    } else {
                    Set $objCDO = Server.CreateObject("CDONTS.NewMail");
                    $objCDO.$From = "[e-mail]";
                    $objCDO.To = "[e-mail]";
                    $objCDO.$Cc = "";
                    $objCDO.$Bcc = "";
                    $objCDO.$Subject = "Online Application";
                    $BodyString =  Replace("","~",chr(13).chr(10) ).chr(13);
                    }

                    if ($FormFields != "") {
                            For Each $item In $arrFormFields;
                                    $BodyString = $BodyString.$item.": ".@$_POST[$item].chr(13);
                            }
                    }
                    $objCDO.$Body = $BodyString;
                    $objCDO.$BodyFormat = 1;
                    $objCDO.$MailFormat = 1;
                    $objCDO.$Send;
                    Set $objCDO = Nothing;
                    $RedirectURL = "thankyou.php";
                    if ($RedirectURL != "") {
                            if (Request.QueryString != "") {
                                    response.redirect($RedirectURL."?".Request.QueryString);
                            } else {
                                    response.redirect($RedirectURL);
                            }
                    }
    }

?>
<? $MM_EditAction = CStr(Request("URL"));

if ((Request.QueryString != "")) {

$MM_EditAction = $MM_EditAction."?".Request.QueryString;

}

?>

[pisti]

The following is code that was generated with another ASP to PHP converter. Much different, but looks more like PHP to me, still get a lot of errors, and don't know where to start.

<?
if ($HTTP_POST_VARS[ "FFSubmitted" ] == "yes" )
{

$FormFields = "PriorExp~TwoYears~Name~ss1~ss2~ss3~Address~Address2~City~State~Zip~Phone~EveningPhone~CellPhone~Email~EmergencyName~EmergencyPhone~Particulars~Age18~Convicted~ReliableTransport~MinHours~MaxHours~StartSun~EndSun~StartMon~EndMon~StartTues~EndTues~StartWed~EndWed~StartThur~EndThur~StartFri~EndFri~StartSat~EndSat~HourlyRate~Day~Month~Year~EmployerName~Location~Supervisor~SupervisorContact~Position~Wage~ReasonLeft~StartDate~EndDate~EmployerName~Location~Supervisor~SupervisorContact~Position~Wage~ReasonLeft~StartDate~EndDate~CrimeExplanation~Commitments~PositionExplained~Teamwork~Wish~AdditionalComments~Position" ;
if ($FormFields != "" )
{

$arrFormFields = $split[ $FormFields  ][ "~" ] ;

}

if ($HTTP_POST_VARS[ "PriorExp" ] == "Yes" )
{

// $objCDO is of type "CDONTS.NewMail"

;
}
else
{

// $objCDO is of type "CDONTS.NewMail"

;
}
mail($BodyString =str_replace( "~" , char( 13 ) . char( 10 ) , "" ) .char( 13 ) , ,,"From: ".$Subject ="Online Application");
mail( $If $FormFields <>""$Then ,$For $Each $item $In $arrFormFields ,$BodyString =$BodyString .$item .": ".$HTTP_POST_VARS[ $item ] .char( 13 ) ,"From: ".$Bcc ="");
;
}
mail( $objCDO=null;
,$RedirectURL ="thankyou.php",$If $RedirectURL <>""$then ,"From: ".$Send );
;
}
else
{

header("Location: ". $RedirectURL  );

mail( $If $HTTP_GET_VARS <>""$Then ,$response .$redirect[ $RedirectURL . "?" . $HTTP_GET_VARS ] , $If ,"From: ".$MailFormat =1);
;
}
;
}
mail( , ,,"From: ".$BodyFormat =1);
mail( ,,,"From: ".$Body =$BodyString );
mail( $Next , , ,"From: ".$Cc ="");
mail( ,,,"From: ".="email_here");
mail( ,,,"From: ".$From ="email_here");
?>
<? $MM_EditAction = ${ "URL" } ;
if (( $HTTP_GET_VARS != "" ) )
{

  $MM_EditAction = $MM_EditAction . "?" . $HTTP_GET_VARS ;
} 

?>