vbscript runtime error 800a000d

Hola a todos,

tengo un problema estoy llenando en una subrutina,

Sub llenadocombos()
Dim i
Set RSEstado = Server.CreateObject
("ADODB.Recordset")
RSEstado.ActiveConnection = MM_Conn_STRING
RSEstado.Source= "select * from entidad_fed"
RSEstado.Open()

Set RSMunicipio = Server.CreateObject
("ADODB.Recordset")
RSMunicipio.ActiveConnection = MM_Conn_STRING
RSMunicipio.Source= "select * from municipios"
RSMunicipio.Open()

DO WHILE NOT RSEstado.EOF
i = i + 1
response.Write("Edo[" & i & "] > new Array();" &_
" Edo[" & i & "] [1] = ' "
& RSEstado("cve_ef") & " ' ;" &_
" Edo[" & i & "] [2] = ' "
& RSEstado("nombre") & " ' ;" & char(10) & char(13))
RSEstado.MoveNext
LOOP

DO WHILE NOT RSMunicipio.EOF
i = i + 1
response.Write("Edo[" & i & "] > new Array();" &_
" Edo[" & i & "] [1] = ' "
& RSMunicipio("cve_mun") & "' ;" &_
" Edo[" & i & "] [2] = ' "
& RSMunicipio("cve_ef") & " ' ;" &_
" Edo[" & i & "] [3] = ' "
& RSMunicipio("nombre") & " ' ;" & char(10) & char(13))
RSMunicipio.MoveNext
LOOP
end sub

pero al momento de llamarla a un javascript sale el error
800a000d Type mismatch: 'char', ya cheque los tipos de
datos en la base de datos y son iguales

<script language="JavaScript">
<!--
var Edo = new Array();
<%llenadocombos%>