Scriptoptimering

Hej, kan du ikke lave en funktion, som kan erstatte nedenstående.

<%
strSQL = "select * from ARTIKLER"
set rs = Conn.execute(strSql)
i = 1
response.write "<script>"
while not rs.EOF or rs.BOF
  response.write "gruppe[1][" & i & "]=new artikel(""" & rs("titel") & """,""" & rs("forfatter") & """, """ & rs("beskrivelse") & """, """ & rs("filnavn") & """, """ & rs("emnenr") & """);"
  i = i + 1
  rs.MoveNext
wend

strSQL = "select * from SEKTIONER"
set rs = Conn.execute(strSql)
i = 1
while not rs.EOF or rs.BOF
  response.write "gruppe[2][" & i & "]=new sektion(""" & rs("sektionnr") & """,""" & rs("titel") & """);"
  i = i + 1
  rs.MoveNext
wend

strSQL = "select * from EMNER"
set rs = Conn.execute(strSql)
i = 1
while not rs.EOF or rs.BOF
  response.write "gruppe[3][" & i & "]=new emne(""" & rs("emnenr") & """,""" & rs("titel") & """, """ & rs("sektionnr") & """, """ & rs("farve") & """,""" & rs("placering") & """,""" & rs("niveau") & """);"
  i = i + 1
  rs.MoveNext
wend
%>