Sobre registros asp (Tigres ayudenme)

[allhen]

<%
Dim rsActors
Dim rsActors_numRows
Sub sActors(vMovieID)
Set rsActors = Server.CreateObject("ADODB.Recordset")
rsActors.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("TableDeMierda.mdb"))
With rsActors
.ActiveConnection = MM_TestAreaSTRING
.Source = "SELECT * from tblMovieCast WHERE MovieID=" &_ vMovieID & ORDER By Actor"
.CursorType = 0
.CursorLocation = 2
.LockType = 1
.Open()
Do While Not .Eof
Response.Write " - " & rsActors("Actor") & "<br />"
.MoveNext ()
Loop
End With
rsActors.Close()
Set rsActors = Nothing
End Sub
rsActors_numRows = 0
%>