Fra asp til php
HejJeg er medlem af en forening hvor vi har en gammel hjemmeside lavet med asp koder vi er ved at lave en ny side lavet i wordpress og vi vil gerne have vores aktivitetsliste med over til den nye side.
Håber der er nogle der kan hjælpe med at lave koden om til php.
den gamle asp kode er
<!--#INCLUDE FILE="include/database.asp"-->
<!--#INCLUDE FILE="skh.css"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Nyt dokument</title>
<meta name="generator" content="Microsoft FrontPage 4.0">
</head>
<body bgcolor="ffffcc">
<div align="center" class="toptext1"><u>Aktiviteter</u></div>
<table align="center">
<%
Function DanskDatoTid(dato)
arrDag = ",Mandag,Tirsdag,Onsdag,Torsdag,Fredag,Lørdag,Søndag"
arrDag = Split(arrDag,",")
arrMaaned = ",januar,februar,marts,april,maj,juni,juli,august,"
arrMaaned = arrMaaned & "september,oktober,november,december"
arrMaaned = Split(arrMaaned,",")
DanskDatoTid = arrDag(Weekday(dato,VbMonday)) & " d. " & Day(dato) & ". "
DanskDatoTid = DanskDatoTid & arrMaaned(Month(dato))
End Function
MDato = Year(now)
if len(month(now))= 1 then
MDato = MDato & "0" & month(now)
else
MDato = MDato & month(now)
end if
if len(day(now))= 1 then
MDato = MDato & "0" & day(now)
else
MDato = MDato & day(now)
end if
strSQL = "Select * from aktiviteter where ADato>='" & MDato & "' order by aar, maaned, dag, tid"
Set rs = Conn.Execute(strSQL)
do
BTid = rs("maaned") & "/" & rs("dag") & "/200" & rs("aar")
%>
<tr>
<td valign="top" width="500" align="center" bgcolor="FDE5AB" class="toptext2"><b><%=DanskDatoTid(BTid)%> kl.<%=rs("tid")%><br><%=rs("overskrift")%></b></td>
</tr>
<tr>
<td valign="top" width="500" align="left" class="toptext2"><%=rs("beskriv")%></td>
</tr>
<tr>
<td valign="top" width="500" class="toptext2"><b><%
if rs("sidste") <> "" then
response.write "Sidste tilmelding: " & rs("sidste") & " "
end if
if rs("pris") <> "" then
response.write " Pris: " & rs("pris")
end if
%></b></td>
<%
rs.movenext
loop until rs.eof
Conn.Close
Set Conn = Nothing
%>
</table>
</body>
</html>