Fel med kod?

Kan någon berätta vad som är fel med denna kod. Hur skall man skriva istället för denna koden? Verkar som om den inte vill stänga sin koppling till databasen enligt en kontakt på nätet?!?!

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver=MySQL ODBC 3.51 Driver; server=SERVER; uid=USERNAME; pwd=PASSWORD; database=DATABAS; option=16384"

SQL = "SELECT falt FROM tabell"
arrRecSet = GetDbRows(SQL)

If Not IsArray(arrRecSet) Then%>	
	TOMT
<%Else
	intPostsPerPage = 20

	If Len(trim(Request.Querystring("n"))) > 0 Then intPage = cInt(trim(Request.Querystring("n"))) Else intPage = 1
	intFirstPost = (intPage - 1) * intPostsPerPage
	intTotalPosts = UBound(arrRecSet, 2)
	intPages = ((intTotalPosts)\intPostsPerPage)+1

	If intFirstPost + (intPostsPerPage - 1) >= UBound(arrRecSet,2) Then
		intLastPost = UBound(arrRecSet, 2) 
	Else
		intLastPost = intFirstPost + (intPostsPerPage - 1)
		strNext = True
	End If
	For i = intFirstPost To intLastPost%>
		<%=arrRecSet(0,i)%><br>
	<%Next
End If

Call textNavigate(intPage, intTotalPosts, intPostsPerPage, intPages, "FILEN.asp","")

Conn.Close:Set Conn=Nothing

Function GetDbRows(query)
	If Len("" & query) = 0 Then Exit Function
	Dim rstTemp
	Set rstTemp = CONN.Execute(query)
		If Not rstTemp.EOF Then GetDbRows = rstTemp.GetRows()
		rstTemp.Close
	Set rstTemp = Nothing
End Function

Public Sub textNavigate(intPage, intTotalPosts, intPostsPerPage, intPages, strURL, strURL2)
	Response.write "<table cellspacing=""0"" cellpadding=""2"" border=""0"" width=""100%""><tr>"
	'// Navigering - Första/Bakåt
	If intPage > 1 Then
		Response.Write "<td width=""18%"" align=""center""><a href="""& strURL &"?n=&" & strURL2 &""" >Första</a> | <a href="""& strURL &"?n="& intPage - 1 &"&"& strURL2 &""">Bakåt</a></td>"
	Else 
		Response.Write "<td width=""18%"">&nbsp;</td>"
	End If

	Response.Write "<td width=""64%"" align=""center"">"
	'// Navigering - Siffror
	If intTotalPosts > intPostsPerPage Then 
		If intPage < 4 Then
			intNavStart = 1 : intNavEnd = 5
		ElseIf intPage > intPages-3 Then
			intNavStart = intPages-4 : intNavEnd = intPage+2
		Else
			intNavStart = intPage-2 : intNavEnd = intPage+2
		End If

		For n = intNavStart To intNavEnd
			If intPage = n Then 
				Response.Write " <b>"& n &"</b> "
			Else 
				Response.Write " <a href="""& strURL &"?n="& n &"&"& strURL2 &""">"& n &"</a> "
			End If
			If n = intPages Then Exit For
		Next 
	End If
	Response.Write "</td>"

	'// Navigering - Nästa/Sista
	If strNext = True Then 
		Response.Write "<td width=""18%"" align=""center""><a href="""& strURL &"?n="& intPage + 1 &"&"& strURL2 &""">Framåt</a> | <a href="""& strURL &"?n="& intPages &"&"& strURL2 &""">Sista</a></td>"
	Else 
		Response.Write "<td width=""18%"">&nbsp;</td>"
	End If
	Response.write "</tr></table>"
END SUB
%>