Erro de tempo de execução do Microsoft VBScript erro '800a0009&#39

[Clemente Online 0]

Alguem poderia me ajudar a encontrar esse erro

 

Erro de tempo de execução do Microsoft VBScript erro '800a0009'

 

Subscrito fora do intervalo: '[number: 1]'

 

/vcemjk/cadastro/Inserir.asp, line 70

 

 

 

' *** Edit Operations: declare variables

 

MM_editAction = CStr(Request("URL"))

If (Request.QueryString <> "") Then

MM_editAction = MM_editAction & "?" & Request.QueryString

End If

 

' boolean to abort record edit

MM_abortEdit = false

 

' query string to execute

MM_editQuery = ""

%>

<%

' *** Insert Record: set variables

 

If (CStr(Request("MM_insert")) <> "") Then

 

MM_editConnection = MM_cadastro_STRING

MM_editTable = "cadastro_cliente"

MM_editRedirectUrl = "confirmacao_cadastro.asp"

MM_fieldsStr = "empresa|value|cnpj|value|tel1|value|cel|value|nome|value|depto|value|email|

value|orcamento|value|marca|value|modelo|value|descricao|value|serie|value|torqu

e|value|posto|value|nf1|value|dia|value|nf2|value|dia1|value|nf3|value|dia2|valu

e|resumo|value|entrega|value|nfsaida|value|data1|value"

MM_columnsStr = "empresa|',none,''|cnpj|',none,''|tel1|',none,''|cel|',none,''|nome|',none,''|depto|',none,''|email|',none,''|orcamento|',none,''|marca|',none,''|modelo|',none,''|descricao|',none,''|serie|',none,''|torque|',none,''|posto|',none,''|nf1|',none,''|dia|',none,''|nf2|',none,''|dia1|',none,''|nf3|',none,''|dia2',none,''|resumo|',none,''|entrega|',none,''|nfsaida|',none,''|data1|',none,''"

 

' create the MM_fields and MM_columns arrays

MM_fields = Split(MM_fieldsStr, "|")

MM_columns = Split(MM_columnsStr, "|")

 

' set the form values

For i = LBound(MM_fields) To UBound(MM_fields) Step 2

MM_fields(i+1) = CStr(Request.Form(MM_fields(i)))

Next

 

' append the query string to the redirect URL

If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then

If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then

MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString

Else

MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString

End If

End If

 

End If

%>

<%

' *** Insert Record: construct a sql insert statement and execute it

 

If (CStr(Request("MM_insert")) <> "") Then

 

' create the sql insert statement

MM_tableValues = ""

MM_dbValues = ""

For i = LBound(MM_fields) To UBound(MM_fields) Step 2

FormVal = MM_fields(i+1)

MM_typeArray = Split(MM_columns(i+1),",")

Delim = MM_typeArray(0)

If (Delim = "none") Then Delim = ""

AltVal = MM_typeArray(1)

If (AltVal = "none") Then AltVal = ""

EmptyVal = MM_typeArray(2)

If (EmptyVal = "none") Then EmptyVal = ""

If (FormVal = "") Then

FormVal = EmptyVal

[Clemente Online 0]

pessoal consegui achar esse erro, mas agora esta dando um erro de execução. alguem sabe o que pode ser?

 

Microsoft OLE DB Provider for ODBC Drivers erro '80040e07'

 

[Microsoft][Driver ODBC para Microsoft Access] Tipo de dados imcompatível na expressão de critério.

 

/vcemjk/cadastro/Inserir.asp, line 99

 

 

Next

MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

 

If (Not MM_abortEdit) Then

' execute the insert

Set MM_editCmd = Server.CreateObject("ADODB.Command")

MM_editCmd.ActiveConnection = MM_editConnection

MM_editCmd.CommandText = MM_editQuery

MM_editCmd.Execute

MM_editCmd.ActiveConnection.Close