VB og javascript

jeg _mener_ ikke man kan - men umiddelbart burde det vel ikke være nødvendigt?

ok, men det er fordi jeg koder det i javascript til et skole projekt, men menuen jeg bruger er en jeg har fundet, og den er i vb script. ved ikke om du kan hjælpe mig med at lave den om til javascript. Hvis du gider, for du 200p oven i.
-----------------------------------
scriptet ser sådan ud.

<%
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
%>

kan ikke js - bruger kun vb :o/

som sagt er jeg ikke 100% sikker, men ellers så lav en include-fil der includerer den vb-side i dit js.

har prøvet, men det siger den fejl til

kender du til hvordan man løser det her problem http://www.eksperten.dk/spm/557027
det må godt være vb script, så kan det være at jeg selv kan lave det om

Slut