Expected 'End' problem

I'm getting the Expected 'End' error and I know it's becuase I'm missing an end if statement but I don't see where. Can someone take a look at my code and see if they can help me. thanks.

<%
function ShowRating(rid)
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 rest_ratings where rid=" & rid

if rs1.fields(1) < MIN_RATINGS_BEFORE_SHOW then
Response.Write"[Restaurant not rated yet]"
else
avgRating = rs1.Fields(0).Value/rs1.Fields(1).Value
end if
if Instr(1,CStr(avgRating),".") > 0 then
avgWhole = Left(CStr(avgRating),Instr(1,CStr(avgRating),".")-1)
decPart = Mid(CStr(avgRating),Instr(1,CStr(avgRating),".")+1,2)

if decPart <> "" then

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

altText = "Average visitor rating of" & finalRating & " out of 5"

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

if CInt(finalRating) <> finalRating then
Response.Write"<img alt='" & altText & "' src = '/images/rating_half.gif'>"

for i = CInt(finalRating)+2 to 5
Response.Write"<img alt='" & altText & "' src = '/images/rating_off.gif'>"
next
else
for i = CInt(finalRating)+1 to 5
Response.Write"<img alt='" & altText & "' src = '/images/rating_off.gif'>"
next
end if

%>