[RESOLVED] ASP to PHP code conversion

[endurox]

Was just wondering if anyone can help to convert the below code from ASP to PHP.

<% do while not lrsB.eof %>
<!-- handle first and last verse --> 
<% intPos = lrsB(7) %>
<%
  if intPos = 1 then
    strFirstRow = " "
  else	
	lsSqlA = "SELECT AhText.AhTextNumVerse FROM AhText WHERE AhText.AhTextPos = " &  cint(intPos)-1 & ";"
	lrsA.open lsSqlA, strDSN
	strFirstRow = mid(lrsA(0),7)
	lrsA.close   

  end if
  if intPos = 1564 then
    strThirdRow = " "
  else
	lsSqlC = "SELECT AhText.AhTextNumVerse FROM AhText WHERE AhText.AhTextPos = " &  cint(intPos)+1 & ";"
	lrsC.open lsSqlC, strDSN
	strThirdRow = mid(lrsC(0),7)
	lrsC.close 
  end if
%>

<!-- mark wordform in verse -->

<% strWord = replace(lrsB(1),"-","") %>
<% strWordDisplay = "<font color=red>" & strWord & "</font>" %>
<% strSecondRow = replace(mid(lrsB(6),7),strWord,strWordDisplay) %>
<% strGrammar = "<font color=yellow>" & lrsB(3) & "</font>" %>

<!-- display data -->

<% strData = lrsB(0) & "  " & strFirstRow & " / " & strSecondRow & " / " & strThirdRow & "  [" & strGrammar & ", " & lrsB(4) & ", " & lrsB(5) & "]" %>
<b>
<% = strData %> <br />
</b>

<% lrsB.MoveNext %>
<% loop %>
<% lrsB.close %>
<% end if %>

Currently trying to look up what intPos exactly does to figure out if I even need it in my php code. Thanks for any assistance!

[endurox]

Well after posting above I figured out that intPos was just being assigned (duh on my part).

This is what I got so far... though it doesn't work. I'm just gonna keep coding along and finish converting all that I know.

if ($rs->EOF) {
	echo "Sorry, no lemma available for: <strong>$rdo</strong><br />\n".
	"Please <a href='javascript:history.go(-1)'>try again</a>.<br /><br />\n";
	} else { echo "<font size=\"4\"><strong>".$rs[2]."</strong></div>";
		while (!$rs->EOF) {
			$intPos = $rs[7];
			echo $intPos;
			if ($intPos = 1) {
				$FirstRow = " ";
			} else { $rsA = $conn->Execute("SELECT AhText.AhTextNumVerse FROM AhText WHERE AhText.AhTextPos='".intval($intPos)."'");
			$FirstRow = $rsA[0];
			echo $FirstRow;
			}//end else
		$rs->MoveNext;
		}//end while
	}//end else

echo "</div>";

$rs->Close(); 

[endurox]

Update on what I got:

As you can see I've now converted ALL code, now to fix the errors 1 by 1. 🙂 any help in resolving these issues is much appreciated!

// Display all the values in the records set
if ($rs->EOF) {
	echo "Sorry, no lemma available for: <strong>$rdo</strong><br />\n".
	"Please <a href='javascript:history.go(-1)'>try again</a>.<br /><br />\n";
	} else { echo "<font size=\"4\"><strong>".$rs[2]."</strong></div>";
		while (!$rs->EOF) {
			$intPos = $rs[7];
			//echo $intPos;
			if ($intPos = 1) {
				$FirstRow = " ";
			} else { $rsA = $conn->Execute("SELECT AhText.AhTextNumVerse FROM AhText WHERE AhText.AhTextPos='".intval($intPos-1)."'");
				$FirstRow = $rsA[0];
				$rsA->Close();
			}//end else
			if ($intPos = 1564) {
				$ThridRow = " ";
			} else { $rsC = $conn->Execute("SELECT AhText.AhTextNumVerse FROM AhText WHERE AhText.AhTextPos='".intval($intPos+1)."'");
				$ThridRow = $rsC[0];
				$rsC->Close();
			}//end else
			// MARK WORDFORM IN VERSE -->
			$Word = replace($rs[1],"-","");
			$WordDisplay = "<font color=\"red\">".$Word."</font>";
			$SecondRow = replace(mid($rs[6],7),$Word,$WordDisplay);
			$Grammar = "<font color=\"yellow\">".$rs[3]."</font>";
			// DISPLAY DATA -->
			$Data = $rs[0]." ".$FirstRow." / ".$SecondRow." / ".$ThirdRow." [".$Grammar.", ".$rs[4].", ".$rs[5]."]";
			echo "<strong>$Data</strong>";
		$rs->MoveNext;
		}//end while
	}//end else

[endurox]

Ohh man I'm so close ... 😃

But I'm getting an error around this line:

$SecondRow = str_replace((array_slice($rs,6,7)),$Word,$WordDisplay);

If time allows it, Can anyone assist me with this error please?
Specific Error Message:
Warning: array_slice() [function.array-slice]: The first argument should be an array

// Display all the values in the records set
if ($rs->EOF) {
	echo "Sorry, no lemma available for: <strong>$rdo</strong><br />\n".
	"Please <a href='javascript:history.go(-1)'>try again</a>.<br /><br />\n";
	} else { echo "<font size=\"4\"><strong>".$rs[2]."</strong></font></div>";
		while (!$rs->EOF) {
			$intPos = $rs[7];
			//echo $intPos;
			if ($intPos = 1) {
				$FirstRow = " ";
			} else { $rsA = $conn->Execute("SELECT AhText.AhTextNumVerse FROM AhText WHERE AhText.AhTextPos='".intval($intPos-1)."'");
				$FirstRow = array_slice($rsA,0,7);
				$rsA->Close();
			}//end else
			if ($intPos = 1564) {
				$ThridRow = " ";
			} else { $rsC = $conn->Execute("SELECT AhText.AhTextNumVerse FROM AhText WHERE AhText.AhTextPos='".intval($intPos+1)."'");
				$ThridRow = array_slice($rsC,0,7);
				$rsC->Close();
			}//end else
			// MARK WORDFORM IN VERSE -->
			$Word = str_replace($rs[1],"-","");
			$WordDisplay = "<font color=\"red\">".$Word."</font>";
			//$SecondRow = str_replace((array_slice($rs,6,7)),$Word,$WordDisplay);
			$Grammar = "<strong>".$rs[3]."</strong>";
			// DISPLAY DATA -->
			$Data = $rs[0]." ".$FirstRow." / ".$SecondRow." / ".$ThirdRow." [".$Grammar.", ".$rs[4].", ".$rs[5]."]";
			echo $Data."<br />";
		$rs->MoveNext;
		}//end while
	}//end else

Thanx!
Endurox

[endurox]

Found the answer by myself. 😃