Hjälp mig snälla!

<!-- #include file="databaskopplingar.asp" --><%
	Response.buffer = true
	Dim intRows, rs, arrRs
	Set rs = Connect.execute("Select RUBRIK, TEXT, DATUM, ID, skrivetav, visabild, bild1, pris From annons Order by DATUM Desc limit 20")
	
	if rs.eof then
		Response.Write "<i>Det finns inga båtannonser.</i>"
	else
	
	arrRs = rs.GetRows()
	rs.Close
	Set rs = nothing
	
	intRows = uBound(arrRs,2)
	
	Response.Write "<table width='100%'>"
	
	For rows = 0 to intRows
	Response.Write "<tr><td>"
		if arrRs(5,rows) = 1 then
			Response.Write "<a href='bilder/nyhetsbilder/" & arrRs(6,rows) & "') border=0><img border=0 src='bilder/nyhetsbilder/" & arrRs(6,rows) & "' width=80 height=80 align=left></a>"
		end if
		Response.write "<b>" & arrRs(0,rows) & "</b><i> " &_
		"</i><br>" 
		Response.write Replace(arrRs(1,rows),vbCrLf,"<br>") & "<br><br>"
		Response.write "<b>" & arrRs(8,rows) & "</b><i> " &_
		"</i><br>"
		Response.Write "<b>Pris:</b>"
		Response.Write "</td></tr><tr><td>"
		Response.Write "<hr></td></tr>"
	Next
  Response.Write "</table>"
  	end if
  	
	Connect.CLOSE
	Set Connect = nothing
%>

Hur fan gör jag för att skriva ut "pris" ?

Error Type:
Sun ONE ASP VBScript runtime (0x800A0009)
Subscript out of range
/boats.asp, line 274

TACKSAM FÖR HJÄLP!!