MagicBuzz | Je te nettoie pas le code, t'avais qu'à te casser la tête
Code :
- <p class="titreOri"><br/>Aux nouvelles<br/><br/></p>
- <%
- sql = "SELECT TOP 5 ID, DATE_NEWS, TITRE, ENTETE, CORPS, U_LOGIN FROM NEWS ORDER BY DATE_NEWS DESC"
- dim rsNewsH
- set rsNewsH = server.CreateObject("ADODB.RecordSet" )
- rsNewsH.ActiveConnection = cnx
- rsNewsH.Open sql
- i = 1
- do while not rsNewsH.EOF
- %>
- <p class="textefixe"><b><%=doDate(rsNewsH("DATE_NEWS" ))%></b> - <a href="default.asp?page=News&id=<%=rsNewsH("ID" )%>"><%=rsNewsH("TITRE" )%></a></p>
- <%
- cleanString = removeDangerousTags(rsNewsH("ENTETE" ))
- if cleanString <> "" then
- textNews = cleanString & " <a href=""default.asp?page=News&id=" & rsNewsH("ID" ) & """>[...]</a>"
- else
- cleanString = removeDangerousTags(rsNewsH("CORPS" ))
- if len(cleanString) > 255 then
- posPOINT = max(max(max(instrRev(left(cleanString, 255), "." ), instrRev(left(cleanString, 255), "!" )), instrRev(left(cleanString, 255), "?" )), instrRev(left(cleanString, 255), ":" ) - 2)
- summary = closeOpenedTags(left(cleanString, posPOINT))
- if lcase(right(summary, 4)) = "</p>" then
- textNews = left(summary, len(summary) - 4) & " <a href=""default.asp?page=News&id=" & rsNewsH("ID" ) & """>[...]</a>" & right(summary, 4)
- else
- textNews = summary & " <a href=""default.asp?page=News&id=" & rsNewsH("ID" ) & """>[...]</a>"
- end if
- else
- textNews = cleanString
- end if
- end if
- displayTextArea "CORPS", i, textNews, "textAreaDescription", "summary", false
- i = i + 1
- %>
- <p class="texte"><a href="default.asp?page=VoirProfil&user=<%=rsNewsH("U_LOGIN" )%>" class="texte"><b><%=rsNewsH("U_LOGIN" )%></b></a><br/><br/></p>
- <%
- rsNewsH.movenext
- loop
- rsNewsH.close
- set rsNewsH = nothing
|
|