<?php
// Функция печатает отформатированное сообщение об ошибке и
// отображает указатель на синтаксическую ошибку в SQL-операторе
function PrintReturncode ($exec_str) {
    $err = Sesam_Diagnostic();
    $colspan=4; // 4 cols for: sqlstate, errlin, errcol, rowcount
    if ($err["errlin"] == -1)
        --$colspan;
    if ($err["errcol"] == -1)
        --$colspan;
    if ($err["rowcount"] == 0)
        --$colspan;
    echo "<TABLE BORDER>
";
    echo "<TR><TH COLSPAN=".$colspan."><FONT COLOR=red>ERROR:</FONT> ".
	  	htmlspecialchars($err["errmsg"])."</TH></TR>
";
    if ($err["errcol"] >= 0) {
        echo "<TR><TD COLSPAN=".$colspan."><PRE>
";
        $errstmt = $exec_str."
";
        for ($lin=0; $errstmt != ""; ++$lin) {
            if ($lin != $err["errlin"]) { // $lin меньше или больше errlin
                if (!($i = strchr ($errstmt, "
")))
                    $i = "";
                $line = substr ($errstmt, 0, strlen($errstmt)-strlen($i)+1);
                $errstmt = substr($i, 1);
                if ($line != "
")
                    print htmlspecialchars ($line);
            } else {
                if (! ($i = strchr ($errstmt, "
")))
                    $i = "";
                $line = substr ($errstmt, 0, strlen ($errstmt)-strlen($i)+1);
                $errstmt = substr($i, 1);
                for ($col=0; $col < $err["errcol"]; ++$col)
                    echo (substr($line, $col, 1) == "	") ? "	" : ".";
                echo "<FONT COLOR=RED><BLINK>\</BLINK></FONT>
";
                print "<FONT COLOR="#880000">".htmlspecialchars($line)."</FONT>";
                for ($col=0; $col < $err["errcol"]; ++$col)
                    echo (substr ($line, $col, 1) == "	") ? "	" : ".";
                echo "<FONT COLOR=RED><BLINK>/</BLINK></FONT>
";
            }
        }
        echo "</PRE></TD></TR>
";
    }
    echo "<TR>
";
    echo " <TD>sqlstate=" . $err["sqlstate"] . "</TD>
";
    if ($err["errlin"] != -1)
        echo " <TD>errlin=" . $err["errlin"] . "</TD>
";
    if ($err["errcol"] != -1)
        echo " <TD>errcol=" . $err["errcol"] . "</TD>
";
    if ($err["rowcount"] != 0)
         echo " <TD>rowcount=" . $err["rowcount"] . "</TD>
";
    echo "</TR>
";
    echo "</TABLE>
";
}

if (!sesam_connect ("mycatalog", "phoneno", "otto"))
  die ("cannot connect");

$stmt = "SELECT * FROM phone
".
        " WHERE@ LASTNAME=’KRAEMER’
".
        " ORDER BY FIRSTNAME";
if (!($result = sesam_query ($stmt)))
    PrintReturncode ($stmt);
?>