Asp til Php oversættelse

Hejsa,

Jeg er total newbie til det her og det går ikke så godt. Er der en super venlig sjæl der har mulighed for at at oversætte det her fra asp til php?? Takker så mange gange.

________________________________________

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={MySQL ODBC 3.51 Driver}; server=localhost; database=musik-klubben; uid=musik-klubben; pwd=********;"
strSQL = "SELECT id, sti, overskrift, tekst, minimum FROM varer"
Set rs = conn.execute(strSQL)

response.write("<table>")
do while not (rs.Bof or rs.EOF)
    response.write("<tr><td>"& vbcrlf)
    response.write("<img src="""& rs("sti") &""">"& vbcrlf)
    response.write("</td><td>"& vbcrlf)
    response.write("<b>"& rs("overskrift") &"</b><br>"& vbcrlf)
    response.write( rs("tekst") &"<br>Min. bud: "& rs("minimum") & vbcrlf)
    response.write("</td></tr>"& vbcrlf)
    response.write("<tr><td colspan=""2"">"& vbcrlf)
    response.write("<form action=""gembud.asp"" method=""post"">"& vbcrlf)
    response.write("<input type=""hidden"" name=""id"" value="""& rs("id")&""">"& vbcrlf)
    response.write("Email: <input type=""text"" name=""email"">"& vbcrlf)
    response.write("Bud: <input type=""text"" name=""bud"">"& vbcrlf)
    response.write("<input type=""Submit"" value=""Byd!"">"& vbcrlf)
    response.write("<br>"& vbcrlf)
    SQL = "SELECT MAX(bud) as maxbud FROM bud WHERE vare="&rs("id")
    Set rs_bud = conn.execute(SQL)
    if (rs_bud("maxbud")=NULL) then
        response.write("Højeste bud pt: <b> Indet bud </b>"& vbcrlf)
    else
        response.write("Højeste bud pt: <b> kr. "& rs_bud("maxbud") &"</b>"& vbcrlf)
    end if
   
    response.write("</form>"& vbcrlf)
    response.write("</td></tr>"& vbcrlf)
    rs.movenext
loop
response.write("</table>")

conn.close
%>
<div align="center"><small>&copy; 21/11/2003 by Shorty</small></div>

___________________________________

id = request.form("id")
email = request.form("email")
bud = request.form("bud")

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={MySQL ODBC 3.51 Driver}; server=localhost; database=musik-klubben; uid=musik-klubben; pwd=********;"
strSQL = "SELECT overskrift, minimum FROM varer WHERE id = "& id
Set rs = conn.execute(strSQL)

fejl = false
response.write("<div align=""center"">")
if (email = "") then
    response.write("Du skal skrive en email<br>")
    fejl = true
end if

if (bud < rs("minimum")) then
    response.write("Dit bud er mindere end minimums budet.<br>")
    fejl =  true
end if

if not (fejl) then
    SQL = "SELECT MAX(bud) as maxbud FROM bud WHERE vare = "& id
    Set rs_bud = conn.execute(SQL)
    if ((rs_bud("maxbud")>Clng(bud)) or (rs_bud("maxbud")=Clng(bud))) then
        fejl = true
        response.write("Dit bud er mindere eller lig det højeste bud.<br>")
    end if
end if

if not (fejl) then
    SQL = "INSERT INTO bud (vare,bud,email) VALUES ("&id&","&bud&",'"&email&"')"
    conn.execute(SQL)
    response.write("Du har nu afgivet et bud på: <b>"& bud &"</b> for varen <b>"&rs("overskrift")&"</b>.<br>")   
end if

conn.close
response.write("<a href=""java script:history.go(-1)"">Tilbage</a><br><br><small>&copy; 21/11/2003 by Shorty</small></div>")
%>