The Weird and The Wonderful

<%@ Page Language="vb" %>
<script runat="server">
    Protected Sub Test()
        Dim s As String = "</script>"
    End Sub
</script>

<br />
FUNCTION f_init<br />
      RETURN VARCHAR2<br />
   IS<br />
      vssqlerrm      VARCHAR2 (255);<br />
      vsvalidation   VARCHAR2 (255);<br />
   BEGIN<br />
      vssqlerrm := '';<br />
      vsvalidation := '';<br />
      RETURN vsvalidation;<br />
   EXCEPTION<br />
      WHEN OTHERS<br />
      THEN<br />
         BEGIN<br />
            vssqlerrm := SQLERRM;<br />
            vsvalidation := vssqlerrm;<br />
         END;<br />
   END;<br />

private string ip_addr = "xx.xx.xx.xx";
private int _port = 2000;
public int countQuotesReceived = 0, countQuotesCreated = 0;
public bool _connected = false;
public bool _initialized = false;
public bool BroadCast = false, ResetHighsLows = false;
public bool reconnecting = false;