Lave denne kode om til Mysql
Er der nogen der kan lave dennne kode om til end mysql kode?<%
set conn = server.createobject("ADODB.connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("db/database.mdb")
SQL = "SELECT TOP 5 * FROM news ORDER BY Id DESC"
set RS = conn.execute( SQL )
if RS.eof then
response.write "Der er ikke nogen nyheder endnu!"
else
do while not Rs.eof NewNyhed = NewNyhed + 1
Response.Write "<b>" & NewNyhed & ".</b> <a href=""vis.asp?id=" & RS("ID") & """>"
If Len(RS("OVERSKRIFT1")) >= 20 Then
Response.Write Left(RS("OVERSKRIFT1"), 15) & ".."
Else
Response.Write RS("OVERSKRIFT1")
End If
Response.Write "</a><br>" & vbCrLf
RS.movenext
loop
end if
RS.Close
Set RS = Nothing
Conn.Close
Set conn = nothing
%>
