Ayuda para pasar codigo de ASP a PHP

[Mckeight]

Bueno en realidad el problema lo tengo en esta parte del codigo...

Código:

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)