Optimering

Jag skulle behöva hjälp med optimering av denna kod... Det är speciellt de boldifierade områdena som jag tror kan dras ihop mycket mer än vad jag skrivit...

<%
if request.querystring("readfull")="yes" then

SQL = "Select * From news Where n_id = "&request.querystring("nID")&""
rs.Open SQL, Conn
[B]
n_date = rs("n_date")
n_date = weekdayname(weekday(n_date))&"en den&nbsp;"&day(n_date)&"/"&month(n_date)&"&nbsp;"&year(n_date)
n_date = UCase(left(n_date,1)) & LCase(mid(n_date,2))
n_view = rs("n_view")
if n_view > 1 then
n_plur = "er"
else
n_plur = ""
end if
[/B]
response.write "<tr><td>Denna nyhet skrevs <b>"&n_date&"</b> av <b>"&rs("n_author")&"</b></td><td align=right>Läst av <b>"&n_view&"</b> person"&n_plur&"</td></tr>"
response.write "<tr><td colspan=2><br><b>"&parse(rs("n_topic"))&"</b><br>"&parse(rs("n_body"))&"</td></tr>"

else

mypage = Request("whichpage")
If mypage = "" then
   mypage = 1
End If
mypagesize = 5

SQL = "Select * From news Order by n_date Desc"

rs.cursorlocation = 3
rs.cachesize = 5

rs.open SQL,Conn
If rs.EOF then
   Response.write "" & sok
Else
   rs.movefirst
   rs.pagesize = mypagesize
   maxcount = Cint(rs.pagecount)
   rs.absolutepage = mypage
   howmanyrecs = 0
   howmanyfields = rs.fields.count -1
   Do While Not rs.EOF AND howmanyrecs < rs.pagesize
   counter = counter + 1
   If counter mod 2 = 0 then
      color = "#FFFFFF"
   Else
      color = "#FFFFFF"
   End If
[B]
   n_date = rs("n_date")
   n_date = weekdayname(weekday(n_date))&"en den&nbsp;"&day(n_date)&"/"&month(n_date)&"&nbsp;"&year(n_date)
   n_date = UCase(left(n_date,1)) & LCase(mid(n_date,2))
   n_topic = left(rs("n_topic"),70)
   n_topic = UCase(left(n_topic,1)) & LCase(mid(n_topic,2))
   n_topic = server.HTMLencode(n_topic)
   Response.write "<tr bgcolor='" & color & "'><td><b>"&n_date&"</b> » <a href=p_news.asp?readfull=yes&nID="&rs("n_ID")&" class=blue>Läs mer</a><br> "&n_topic&"...<br><br></td></tr>"
[/B]
   rs.movenext
   howmanyrecs = howmanyrecs + 1
   Loop
   rs.close

   response.write ""

   If maxcount <> 0 then
   response.write "<tr><td><br><br><B>Du &auml;r p&aring; sida " & mypage & " av " & maxcount & " </B>" & sidor:
   pad = "0"
   scriptname = request.Servervariables("script_name")
   for counter = 1 to maxcount
   If counter >= 10 then
      pad = ""
   End If
   ref = "<a href='" & scriptname & "?whichpage=" & counter & "&pagesize=" & mypagesize & "' class=blue>" & pad & counter & "</a>"
   response.write ref & " "
   if counter mod 10 = 0 then
   End If
   Next
   End If
End If
End if
%>

Möjligtvis om du skulle göra en funktion som fixar till datumvisningen eftersom den förekommer på två ställen. Fast det är ju inte mycket optimering...

Jag gillar följande if sats:

If counter mod 2 = 0 then
      color = "#FFFFFF"
Else
      color = "#FFFFFF"
End If

/T

Ja en funktion skulle förstås vara en möjlighet fast kanske det vore bättre om man kunde trycka in alla ändringar i n_date / n_topic på en rad när man gör om dom på olika sätt??

Funktion känns lite överdrivet då det bara finns på två ställen...