Potreste aiutarmi a tradurre questo script Vb in javascript?
codice:
Dim Conn
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};pwd=pippo;dbq="& server.MapPath("..\..\db\db.mdb")

Dim cod
cod=Request.Querystring("cod")
Dim SQL,Rec
SQL="SELECT * FROM CartaIntestata WHERE id="&cod                                                     
Set Rec = Server.CreateObject("ADODB.Recordset")
Set Rec=Conn.Execute(SQL)

Spett=rec("Spett")

corpoTaggato = ""
iChars = 85     'a quanti caratteri devo andare a capo?
LNTag = vbCrLf
For i=1 to Len(corpo) / CInt(iChars)
   corpoTaggato = corpoTaggato & Mid(corpo, (i-1) * CInt(iChars) + 1, iChars) & LNTag
Next
corpoTaggato = corpoTaggato & Mid(corpo, (i-1) * CInt(iChars) + 1, iChars)