Fra VB script til Javascript

Hej, er der nogen der kan hjælpe mig med at lave dette script om, så det er skrevet i <% @Language="JavaScript" %> i stedet for VB script.
Det er til et eksamens projekt, og et krav er at det skal lave i Javascript og jeg har ikke så meget styr på det, at jeg kan lave det om.

mvh. Christian


<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
  intPage = 1
End If
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT aar, beskrivelseid FROM aar order by aar"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("timeline.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
  rs.PageSize = 10
  rs.AbsolutePage = intPage
  intRecCount = rs.PageSize
  intPageCount = rs.PageCount


If Clng(intPage) > 1 Then
  Response.Write "<a href=default.asp?page=" & intPage - 1 & ">&lt;&lt;</a>"
Else
  Response.Write "&lt;&lt;"
End If
Response.Write "&nbsp;"

  Do While Not rs.EOF And intRecCount > 0
    Response.Write "<a href=default.asp?id="& rs("beskrivelseid")&">"& rs("aar") &"</A>&nbsp;&nbsp;|&nbsp;"
  intRecCount = intRecCount - 1
  rs.MoveNext
  Loop
End If
rs.Close
Set rs = Nothing
For intNum = 1 To intPageCount
Next
   

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
  Response.Write "<a href=default.asp?page=" & intPage + 1 & ">&gt;&gt;</a> "
Else
  Response.Write "&gt;&gt;"
End If
%>