Fra asp til php

Er der nogen der kan skrive denne kodestump om til php.

<%
Session.LCID = 1030

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Data Source=d:\home\website\db\db.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"
SQLstmt = "SELECT * FROM menu ;"
Conn.Execute (SQLstmt)

Set rs = conn.Execute(SQLstmt)

  DO WHILE NOT rs.EOF
  id = rs("Menuid")

    kategoriNavn = rs("kategoriNavn")

    %>
</div>
<tr height="20"><a href="menu.asp?kat=<%=id%>"><%=kategoriNavn%></a>
  <td> <BR>
    <%
kat =Request("kat")
%>
    <%
if Clng(kat) = Clng(id) then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Data Source=h:\Inetpub\wwwroot\website\db\db.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"

SQL = "SELECT * FROM submenu WHERE KategoriID = " & Request("kat")
Conn.Execute (SQL)

Set rs2 = conn.Execute(SQL)
 
  DO WHILE NOT rs2.EOF
navn= rs2("SubNavn")
Subid = rs2("Subid")

Response.Write "&nbsp;&nbsp;"
%>
    <a href="side2.asp?smenunavn=<%=Subid%>" target="mainFrame"'><%=Navn%></a> <BR>
    <%
smenunavn =Request("smenunavn")
%>
    <%
rs2.MoveNext
LOOP
end if

kat = ""
    rs.MoveNext
  LOOP
  RS.Close
  Response.Write "</TABLE>"
  %>
    <BR>
    <%
conn.Close
Set conn = nothing
Set SQLstmt = nothing

    %>