Indrykning

jeg vil tro det er et stykke kode som dette der skal rettes i.

<%
order = request.querystring(\"sort\")
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"Driver={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"db.mdb\")


if order = \"\" then
strSQL = \"select top 5 * from nyheder order by id desc\"
elseif order = \"all\" then
strSQL = \"select * from nyheder\"

else
strSQL = \"select top 5 * from nyheder order by id \"& order &\"\"
end if


set RS = conn.execute( strSQL )
Do While Not rs.EOF and not rs.BOF
Response.Write \" <A HREF=\"\"nyhed.asp?id=\"& rs(\"id\") & \"\"\"><font face=\"\" \"&fontface&\" \"\" font size=\"\" \"&fontsize&\" \"\" color=\"\"#000000\"\">\"& left(rs(\"nyheden\"), 18) & \"<br></A>\"
rs.MoveNext
Loop

Do While Not rs.EOF and not rs.BOF
Response.Write \"&nbsp;&nbsp;&nbsp; <A HREF=\"\"nyhed.asp?id=\"& rs(\"id\") & \"\"\"><font face=\"\" \"&fontface&\" \"\" font size=\"\" \"&fontsize&\" \"\" color=\"\"#000000\"\">\"& left(rs(\"nyheden\"), 18) & \"<br></A>\"
rs.MoveNext
Loop

svar