Necesito interpretacion de codigo de asp a php

[maurioli8]

hola soy mauricio y necesitaria que me den una mano en una interpretacion de codigo asp a php, resulta q soy programador de asp y en donde trabajo el servidor es de linux por eso lo q hice no me anda. Desde ya les agradezco por tomarse el tiempo en darme una mano. Aqui les dejo mi codigo.

Código asp:

<% option explicit %>
 
<!--#include file="../Include/Conexion.inc" -->
 
<%
 
dim rs, sql, MObjArch, MFolder, MArchivos, MArchivo,a,i
 
 
set rs=Server.CreateObject("ADODB.Recordset")
' Cambiar fpdb por el directorio donde ubiqueis la base de datos
' Recordar darle permisos de escritura que vamos a escribir en ella
sql = "SELECT     Ordenanzas.IdOrdenanzas, Ordenanzas.ordenanza, Anos.ano, Ordenanzas.IdAno FROM Ordenanzas INNER JOIN Anos ON Ordenanzas.IdAno = Anos.IdAno"
rs.Open sql, cn, adopenkeyset, adlockoptimistic,adcmdtext
a=0
i=1982
do until i= year(now())+1
i=i+1
Set MObjArch = Server.CreateObject("Scripting.FileSystemObject")
Set MFolder = MObjArch.getFolder(server.mappath("\hcdcanuelas\documentos\ordenanzas\" & i & "\")) 
Set MArchivos = MFolder.Files
 
For Each MArchivo In MArchivos
 
a=a+1
'esto los muestra por pantalla, para que veamos que valores 
'se van a añadir a la base de datos.
 
'Esto los ubica en la base de datos
rs.addnew
rs("idordenanzas")=a
rs("ordenanza")=MArchivo.Name
rs("IdAno")=i-1982
' Aqui podriamos capturar tambien otros valores como el tamaño
' Fecha y hora, etc
rs.update
rs.movenext
Next
 
loop
 
rs.close
set rs=nothing
 
response.Redirect("MenuAdm.asp")
%>