omskriv fra asp til php

hvordan skal man skrive det her om ??

<%
session.LCID = 1030
if request.querystring("action") = "logud" then
session.abandon
Response.Cookies("Login1")("Username") = ""
Response.Cookies("Login1")("Password") = ""
Response.Cookies("Login1").Domain = ".popper.dk"
Response.Cookies("Login1").Expires = Now() - 1
Response.redirect("default.asp")
end if
if request.querystring("error") = 1 then
%>
<script language="JavaScript">
alert("Brugernavn er allerede taget");
</script>
<%
end if
%>
<%
if request.querystring("error") = 2 then
%>
<script language="JavaScript">
alert("Brugernavn og kodeord passer ikke sammen!");
</script>
<%
end if
%>
<%
if request.querystring("error") = 3 then
%>
<script language="JavaScript">
alert("Email findes allerede. Du kan bruge 'Glemt email' funktionen til at få tilsendt brugernavn og kodeord.");
</script>
<%
end if
%>
<!-- #include file='database.asp' -->
<%
brug = Request.Cookies("Login1")("Username")
kode = Request.Cookies("Login1")("Password")

if brug <> "" and kode <> "" then
sql = "select * from webmaster where bruger = '" & brug & "' AND kodeord = '" & kode & "'"
set tjeck = rs.execute(sql)
if not tjeck.eof then
session("login") = "oki"
session("webID") = tjeck("id")
end if
end if

Function tiden(Streng)
    if len(month(streng)) = 1 then
        if len(day(streng)) = 1 then
            tiden = "0" & day(Streng) & "-0" & month(streng) & "-" & year(Streng)
        else
            tiden = day(Streng) & "-0" & month(streng) & "-" & year(Streng)
        end if
    else
        if len(day(streng)) = 1 then
            tiden = "0" & day(Streng) & "-" & month(streng) & "-" & year(Streng)
        else
            tiden = day(Streng) & "-" & month(streng) & "-" & year(Streng)
        end if
    end if
End function

Function vidstedu
        sql = "select * from vidstedu order by id asc"
        sql2 = "select count(*) as numse_tal from vidstedu"
        set record2 = rs.execute(sql2)
        set record = rs.execute(sql)
        randomize
        pik = int(rnd * record2("numse_tal")) + 1
        if not record.eof then
        for i = 1 to pik - 1
            record.movenext
        next
        response.write record("dagens")
        end if
End Function

Function banner
        sql = "select * from banner order by id asc"
        sql2 = "select count(*) as numse_tal from banner"
        set record2 = rs.execute(sql2)
        set record = rs.execute(sql)
        randomize
        pik = int(rnd * record2("numse_tal")) + 1
        if not record.eof then
        for i = 1 to pik - 1
            record.movenext
        next
        response.write "<a href=""bannerhit.asp?id=" & record("id") & """>" & record("banner") & "</a>"
        end if
End Function

%>

en der vil hjælpe, ved det er en stor mundfuld