Optimering af kode

Jeg har følgende kode, som jeg godt kunne tænke mig at få optimeret. Koden skriver linie ud til et javaScript. Håber i kan hjælpe:

Function menu(ind, t)
  set record=server.createobject(\"adodb.recordset\")
  record.open \"menu\", conn, 2, 2, 2
  record.find \"id=\'\" & ind &\"\'\"
  response.write udskriv(record(\"text\"), record(\"link\"), t) & vbcr
  If record(\"svar\") = 0 And record(\"nsvar\") = 0 Then
    n(t) = 0
  End If
  If record(\"svar\") <> 0 Then
    n(t+1) = 0
    Call menu(record(\"svar\"), t + 1)
  End If
  If record(\"nsvar\") <> 0 Then
    n(t) = n(t) + 1
    Call menu(record(\"nsvar\"), t)
  End If
End Function

Function udskriv(text, link, t)
  For c = 0 To t-1
    str = str & \"node[\"
  Next
  str = str & \"node[0]\"
  For c = 0 To t-1
    str = str & \".child[\" & n(c) & \"]]\"
  Next
  udskriv = \"addchild(\" & str & \".nodeid,\"\"\" & text & \"\"\", \"\"\" & link & \"\"\");\"
End Function