O erro é este:
ADODB.Command error '800a0d5d'
Application uses a value of the wrong type for the current operation.
/sishardware/8917123imp/8917123cadimp/89171234cadimp.asp, line 29 O código:
CÓDIGO
If (CStr(Request("MM_insert")) = "form1") Then
If (Not MM_abortEdit) Then
' execute the insert
Dim MM_editCmd
Set MM_editCmd = Server.CreateObject ("ADODB.Command")
MM_editCmd.ActiveConnection = MM_conexao_sishardware_STRING
MM_editCmd.CommandText = "INSERT INTO equipamento.tb_impressora (secao_impressora, fabricante_impressora, modelo_impressora, nr_serie_imp, tipo_impressora, cod_sti, cod_secao) VALUES (?, ?, ?, ?, ?, ?, ?)"
MM_editCmd.Prepared = true
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 201, 1, 50, Request.Form("txt_secao")) ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 201, 1, 50, Request.Form("txt_fabricante")) ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 201, 1, 50, Request.Form("txt_modelo")) ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 201, 1, 15, Request.Form("txt_nr_serie")) ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 201, 1, 50, Request.Form("txt_tipo")) ' adLongVarChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 201, 1, 7, Request.Form("txt_codsti")) ' adLongVarChar
O dado que está gerando o erro vai em Request.Form("txt_codsti")
Grato.