Län och städer göras om från ASP till PHP

Någon som kan ändra detta till PHP?

<%Set objRS = Conn.Execute("SELECT hl.lan, sl.id, sl.lanId, sl.Stad FROM fynd_lan hl, fynd_stad sl WHERE hl.id = sl.LanId ORDER BY hl.lan ASC, sl.stad ASC")
   If Not objRS.EOF Then
      '## -- get all links --
      arrLinks = objRS.GetRows()
   End If
objRS.Close:Set objRS = Nothing%>
<SCRIPT language="JavaScript">

function boxData(sText, vValue){
	this.text = sText;
	this.value = vValue;
}
<%
'## -- make arrlinks array to create javascript arrays to populate the second listbox --
If IsArray(arrLinks) Then
	i = 0
	For N = 0 TO UBound(arrLinks,2)
		strLan    = arrLinks(0,N)
		intStadId = arrLinks(1,N)
		intLanId  = arrLinks(2,N)
		strStad   = arrLinks(3,N)
		
		'## -- print out javascript code to create a new javascript array --
		If intLanId <> intLastLinkID Then
			Response.Write vbcrlf & "var lan" & intLanId & " = new Array();" & vbcrlf
			i = 0
		End If
		
		'## -- print out javascript code to add new values to the javascript array --
		'## -- boxData(listboxtext, listboxvalue.
		'## -- change the asp-variables to suit your needs in text and values --
		Response.Write "lan" & intLanId & "[" & i & "] = new boxData(""" & strStad & """," & intStadId & ");" & vbcrlf
		
		intLastLinkID = intLanId
		i = i + 1
	Next
End If
%>
function City(obj, icase, arr){
	// alert(icase);
	var vgr = eval (arr);
	if (vgr.length > 0){
		obj.length = (vgr.length + 1);
		obj.options[0].value = '';
		obj.options[0].text = '----- Välj stad -----';
		for(n=0;n<vgr.length;n++){
			obj.options[n+1].value = vgr[n].value;
			obj.options[n+1].text = vgr[n].text;
		}
	}else{
		obj.length = 1;
		for(n=0;n<obj.length;n++){
			obj.options[n].value = 0;
			obj.options[n].text = '----- Välj stad -----';
		}
	}
}

</SCRIPT>

      <%If IsArray(arrLinks) Then
        intLastLinkID = ""%>
        <SELECT name="county" onChange="City(document.reg.city,this.options.length,value);" style="width:250px">
          <OPTION value="0">---- Välj Län ----</OPTION>
          <%For N = 0 TO UBound(arrLinks,2)
            strLan   = arrLinks(0,N)
            intLanId = arrLinks(2,N)
            If intLanId <> intLastLinkID Then%>
              <OPTION value="lan<%=intLanId%>"><%=strLan%></OPTION>
            <%End If
            intLastLinkID = intLanId
          Next%>
        </SELECT>
      <%End If%>
<br />
      <b> Stad/Ort:</b><br>
      <%If IsArray(arrLinks) Then%>
        <select name="city" style="width:250px">
          <option value="">----- Välj stad -----</option>
        </select>
      <%End If%>