Oversættelse fra ASP til PHP
Jeg skal have lavet nedenstående ASP om til PHP. Kan<%
Dim strConnect, Rs
' ---------------- skaber forbindelse til database med Rs
Set Rs = Server.CreateObject("ADODB.Connection")
Rs.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("../x/db/medlem.mdb")
' ---------------- SQL sætning der henter brugernavn, kode, fornavn, efternavn fra Bruger
sql = "SELECT brugernavn, kode, fornavn, efternavn, * FROM bruger order by brugernavn"
' ---------------- Opretter et recordset = objRec
Set objRec = Server.CreateObject("ADODB.Recordset")
' ----------------- recordset åbner databse ved hjælp af Rs og "kører" SQL sætning
objRec.open sql, Rs
%>
<tr>
<td>
<%
' ----------------- Mens recordsettet ikke ved slutningen...
i = 1
While NOT objRec.EOF
If i mod 2 = 0 Then
' ----------------- Udskriv Brugernavn, Fornavn, Efternavn, Point
Response.Write "<tr class='tekst2'>" & "<td height='15'><a title='Slet bruger' onFocus='this.blur()' href=sletbruger.asp?id=" & objRec("id") & ">" & " " & objRec("brugernavn") & "</a></td><td height='15'>" & objRec("fornavn") & "</td><td height='15'>" & objRec("efternavn") &"</td><td height='15'><Input type='text' class='form4' value="& objRec("point") & ">" & "<td height='15'>" & "<a onFocus='this.blur()' href=opdater.asp?id=" & objRec("id") & ">" & " <img src=""Billeder/ok.gif"" border=""0"" width=""10"" height=""10"" Alt=""Tildel " & objRec("fornavn") & " point"">" & " </a></td>" & "<td height='15'>" & "<a onFocus='this.blur()' href=opdater2.asp?id=" & objRec("id") & ">" & "<img src=""Billeder/slet2.gif"" border=""0"" width=""10"" height=""10"" Alt=""Fratag " & objRec("fornavn") & " point"">" & "</a></td></tr>"
' ----------------- recordsettet går videre til næste record
Else
' ----------------- Udskriv Brugernavn, Fornavn, Efternavn, Point
Response.Write "<tr class='tekst'>" & "<td height='15'><a title='Slet bruger' onFocus='this.blur()' href=sletbruger.asp?id=" & objRec("id") & ">" & " " & objRec("brugernavn") & "</a></td><td height='15'>" & objRec("fornavn") & "</td><td height='15'>" & objRec("efternavn") &"</td><td height='15'><Input type='text' class='form4' value="& objRec("point") & ">" & "<td height='15'>" & "<a onFocus='this.blur()' href=opdater.asp?id=" & objRec("id") & ">" & " <img src=""Billeder/ok.gif"" border=""0"" width=""10"" height=""10"" Alt=""Tildel " & objRec("fornavn") & " point"">" & " </a></td>" & "<td height='15'>" & "<a onFocus='this.blur()' href=opdater2.asp?id=" & objRec("id") & ">" & "<img src=""Billeder/slet2.gif"" border=""0"" width=""10"" height=""10"" Alt=""Fratag " & objRec("fornavn") & " point"">" & "</a></td></tr>"
' ----------------- recordsettet går videre til næste record
End if
objRec.MoveNext
i = i + 1
' ----------------- løkke starter forfra
Wend
objRec.close
Rs.Close
SEt Rs = Nothing
%>
