Article rating error ?? Help needed!!

I do need some help with the article rating code.

I do get this error:

Compilatiefout Microsoft VBScript (0x800A03F6)
'End' expected
/Rate/show.asp, line 130

End this is the code:

function ShowRating(ID_no)

const MIN_RATINGS_BEFORE_SHOW = 3

dim rs1
dim avgRating
dim avgWhole
dim decPart
dim decCalc
dim finalRating
dim altText

set rs1 = Server.CreateObject("ADODB.Recordset")

rs1.ActiveConnection = conn
rs1.Open "SELECT SUM(rating), COUNT(*) FROM ratings WHERE ID_no = " & ID_no

if rs1.Fields(1) < MIN_RATINGS_BEFORE_SHOW then
'No ratings for this CD just yet
Response.Write "[Dit product is nog niet beoordeeld ! ]"
else

'This CD has ratings, let's display the average
avgRating = rs1.Fields(0).Value / rs1.Fields(1).Value

if Instr(1, CStr(avgRating), ".") > 0 then

'The average rating is a decimal, we need to either
'round the value up/down

avgWhole = Left(CStr(avgRating), Instr(1, CStr(avgRating), ".")-1)
decPart = Mid(CStr(avgRating), Instr(1, CStr(avgRating), ".")+1, 2)

if decPart <> "" then
'Work out whether or not we have to round this
'rating up or down

if CInt(decPart) >= 5 then
decCalc = .5
else
decCalc = 0
end if

finalRating = CInt(avgWhole) + CCur(decCalc)

else
finalRating = avgRating
end if
else
finalRating = avgRating
end if

'Setup the alt text for the images
altText = "Gemiddeld cijfer van bezoekers is: " & finalRating & " van maximaal een 10"

for i = 1 to CInt(finalRating)
Response.Write "<img alt='" & altText & "' src='rating_on.gif'>"
next

if CInt(finalRating) <> finalRating then
'This article has a .5 rating, such as 5.5
Response.Write "<img alt='" & altText & "' src='rating_half.gif'>"

for i = CInt(finalRating)+2 to 10
Response.Write "<img alt='" & altText & "' src='rating_off.gif'>"
next
else
for i = CInt(finalRating)+1 to 10
Response.Write "<img alt='" & altText & "' src='rating_off.gif'>"
"Line 130:" next
End if
%>

Can someone please help me and tell me what is wrong??

Finish what you start You need to end the function.