Ayuda para pasar codigo de ASP a PHP

[Mckeight]

Hola amigos... busco ayuda en uds debido a que tengo una funcion en ASP que necesito pasar a PHP, pero llevo mas de una semana tratando y no he podido, yo se que es muy facil que otro te haga el trabajo pero es que de verdad ya no se que hacer

Este es el codigo:

Código:

<%
	if request.queryString("msg") = "2" then session("codMsg") = "0003"
	if request.queryString("msg") = "3" then session("codMsg") = request.queryString("codMsg")
	
	if (request.queryString("msg") <> "") and (session("codMsg") <> "") then
		dim sysrsMsg
		sql = "select tipo, mensaje from mensaje where codMsg = '" & session("codMsg") & "'"
		set sysrsMsg = consultar(sql, false)
		if not ( sysrsMsg.eof and sysrsMsg.bof) then
			sysrsMsg.moveFirst
%> 
<link href="../estilos/estilo01.css" rel="stylesheet" type="text/css">
<div align="center">
  <table width="70%" border="0" cellspacing="0" cellpadding="0" class="msgsist" bordercolor="#<%
  	select case sysrsMsg("tipo")
	case 1 : Response.write "0033FF"
	case 2 : Response.write "FF3300"
	end select
  %>">
    <!-- Info = 0033FF; Error FF3300 -->
    <tr> 
      <td height="18"> <div align="center" class="title01"> <font color="#FF3300"> 
          <% 
			if request.queryString("msg") <> 4 then
				Response.write sysrsMsg("mensaje")
				if request.queryString("paramMsg").count > 0 then
					for each p in request.queryString("paramMsg")
						Response.write "<BR> <B>" & p & "</B>"
					next 
				end if
			else
				dim p(), v()
				redim p(0), v(0)
				p(0) = "<!---->"
				v(0) = ""
				i = 1
				for each param in request.queryString("paramMsg")
					redim preserve p(ubound(p) + 1)
					redim preserve v(ubound(v) + 1)
					p(ubound(p)) = "<!--#" & i & "-->"
					v(ubound(v)) = param
					i = i + 1
				next
				Response.write sustParams(sysrsMsg("Mensaje"), p, v)
			end if
		%>
          </font></div>
      </td>
    </tr>
  </table>
</div>
<%
		end if
		Session("codMsg") = ""
		sysrsMsg.close
		set sysrsMsg = Nothing
	end if
%>