[resolvido] Inclusão De Dados Com Erro...

[junior.bportal]

Amigos...

Fiz uma página simples através do Dreamweaver para inserir informações em um banco de dados. Já fiz páginas assim várias vezes e sempre tive sucesso!!! Só que desta vez...

A página contém 1 formulário dentro de um form e a função de insert record. Até aí tudo bem... só que, quando simulo, preencho tudo corretamente e acontece o seguinte erro:

HTTP 500.100 - Servidor interno Erro - erro do ASP

Internet Information Services

--------------------------------------------------------------------------------

Informações técnicas (para a equipe de suporte)

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)

[Microsoft][Driver ODBC para Microsoft Access] Não foi possível usar '(desconhecido)'. O arquivo já está em uso.

/sis_pleuger/TMP5nopvk921r.asp, line 113

Tipo de navegador:

Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)

Página:

POST 373 bytes to /sis_pleuger/TMP5nopvk921r.asp

POST Data:

nm_empresa=Pleuger+Ind%FAstria+e+Com%E9rcio+de+Bombas+Hidr%E1ulicas+Ltda.&cnpj=05.187.955%2F0001-13&ins_estadual=123.123.123.123&endereco=Rua+Ac%E1cio+Ferreira%2C+971+-+Jd.+Tr%EAs+Marias&cep=06790000& . . .

Hora:

terça-feira, 26 de junho de 2007, 12:38:54

Mais informações:

Suporte da Microsoft

BOM... O BANCO DE DADOS ESTÁ OK!!! NÃO TEM NADA que POSSA IMPEDIR A ENTRADA DOS DADOS...

O que PODE ESTAR ACONTECENDO??? ALGUÉM PODE ME AJUDAR???

ABÇOS!!!

[ADL]

Coloca o código fica mais facil de visualizar o erro. Mas parece que você está usando alguma coisa que já está em uso.

[junior.bportal]

AÍ VAI O CÓDIGO COMPLETO...

<%@LANGUAGE="VBSCRIPT"%>

<!--#include file="Connections/pleuger.asp" -->

<%

' *** Edit Operations: declare variables

Dim MM_editAction

Dim MM_abortEdit

Dim MM_editQuery

Dim MM_editCmd

Dim MM_editConnection

Dim MM_editTable

Dim MM_editRedirectUrl

Dim MM_editColumn

Dim MM_recordId

Dim MM_fieldsStr

Dim MM_columnsStr

Dim MM_fields

Dim MM_columns

Dim MM_typeArray

Dim MM_formVal

Dim MM_delim

Dim MM_altVal

Dim MM_emptyVal

Dim MM_i

MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))

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")) = "form1") Then

MM_editConnection = MM_pleuger_STRING

MM_editTable = "empresa"

MM_editRedirectUrl = "modelo.asp"

MM_fieldsStr = "nm_empresa|value|cnpj|value|ins_estadual|value|endereco|value|cep|value|cidade|value|estado|value|ddd_fone|value|fone|value|ddd_fax|value|fax|value|email|value|site|value"

MM_columnsStr = "nome_emp|',none,''|cnpj|',none,''|inscestadual|',none,''|endereco|',none,''|cep|',none,''|cidade|',none,''|estado|',none,''|ddd_fone|',none,''|fone|',none,''|ddd_fax|',none,''|fax|',none,''|email|',none,''|site|',none,''"

' create the MM_fields and MM_columns arrays

MM_fields = Split(MM_fieldsStr, "|")

MM_columns = Split(MM_columnsStr, "|")

' set the form values

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

MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_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

Dim MM_tableValues

Dim MM_dbValues

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

' create the sql insert statement

MM_tableValues = ""

MM_dbValues = ""

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

MM_formVal = MM_fields(MM_i+1)

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

MM_delim = MM_typeArray(0)

If (MM_delim = "none") Then MM_delim = ""

MM_altVal = MM_typeArray(1)

If (MM_altVal = "none") Then MM_altVal = ""

MM_emptyVal = MM_typeArray(2)

If (MM_emptyVal = "none") Then MM_emptyVal = ""

If (MM_formVal = "") Then

MM_formVal = MM_emptyVal

Else

If (MM_altVal <> "") Then

MM_formVal = MM_altVal

ElseIf (MM_delim = "'") Then ' escape quotes

MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"

Else

MM_formVal = MM_delim + MM_formVal + MM_delim

End If

End If

If (MM_i <> LBound(MM_fields)) Then

MM_tableValues = MM_tableValues & ","

MM_dbValues = MM_dbValues & ","

End If

MM_tableValues = MM_tableValues & MM_columns(MM_i)

MM_dbValues = MM_dbValues & MM_formVal

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

If (MM_editRedirectUrl <> "") Then

Response.Redirect(MM_editRedirectUrl)

End If

End If

End If

%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>

<head>

<title>:: Sistema PLEUGER ::</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

</head>

<body background="imagens/fundo.gif" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

<table width="100%" border="0">

<tr>

<td width="5%" align="center" valign="middle" bgcolor="#1e8fcd"><img src="imagens/logo_peq.jpg" width="57" height="50"></td>

<td width="955" bgcolor="#1e8fcd"><table width="100%" border="0">

<tr>

<td width="88%"><img src="imagens/barra_cademp.gif" width="500" height="40"></td>

<td width="12%" align="center" valign="middle"><img src="imagens/siscgp.gif" width="80" height="40"></td>

</tr>

</table></td>

</tr>

</table>

<table width="100%" border="0">

<tr>

<td>&nbsp;</td>

<td>&nbsp;</td>

<td>&nbsp;</td>

<td>&nbsp;</td>

<td>&nbsp;</td>

<td>&nbsp;</td>

</tr>

</table>

<form name="form1" method="POST" action="<%=MM_editAction%>">

<table width="100%" border="0">

<tr>

<td width="14%" align="right" valign="middle" bgcolor="#EFEFEF"><font color="#842B00" size="2" face="Verdana, Arial, Helvetica, sans-serif">Raz&atilde;o

Social:</font></td>

<td width="86%"> <input name="nm_empresa" type="text" id="rz_social2" size="50"></td>

</tr>

<tr>

<td height="24" align="right" valign="middle" bgcolor="#EFEFEF"><font color="#842B00" size="2" face="Verdana, Arial, Helvetica, sans-serif">CNPJ:</font></td>

<td> <input name="cnpj" type="text" id="cnpj" size="25"></td>

</tr>

<tr>

<td align="right" valign="middle" bgcolor="#EFEFEF"><font color="#842B00" size="2" face="Verdana, Arial, Helvetica, sans-serif">Insc.

Estadual:</font></td>

<td> <input name="ins_estadual" type="text" id="ins_estadual" size="25"></td>

</tr>

<tr>

<td align="right" valign="middle" bgcolor="#EFEFEF"><font color="#842B00" size="2" face="Verdana, Arial, Helvetica, sans-serif">Endere&ccedil;o:</font></td>

<td> <input name="endereco" type="text" id="endereco" size="70"></td>

</tr>

<tr>

<td align="right" valign="middle" bgcolor="#EFEFEF"><font color="#842B00" size="2" face="Verdana, Arial, Helvetica, sans-serif">CEP:</font></td>

<td> <input name="cep" type="text" id="cep" size="8"></td>

</tr>

<tr>

<td align="right" valign="middle" bgcolor="#EFEFEF"><font color="#842B00" size="2" face="Verdana, Arial, Helvetica, sans-serif">Cidade:</font></td>

<td> <input name="cidade" type="text" id="cidade" size="25"></td>

</tr>

<tr>

<td align="right" valign="middle" bgcolor="#EFEFEF"><font color="#842B00" size="2" face="Verdana, Arial, Helvetica, sans-serif">Estado:</font></td>

<td> <input name="estado" type="text" id="estado" size="2"></td>

</tr>

<tr>

<td align="right" valign="middle" bgcolor="#EFEFEF"><font color="#842B00" size="2" face="Verdana, Arial, Helvetica, sans-serif">Fone:</font></td>

<td> <input name="ddd_fone" type="text" id="ddd_fone" size="2" maxlength="3">

<input name="fone" type="text" id="fone" size="10" maxlength="8"></td>

</tr>

<tr>

<td align="right" valign="middle" bgcolor="#EFEFEF"><font color="#842B00" size="2" face="Verdana, Arial, Helvetica, sans-serif">FAX:</font></td>

<td> <input name="ddd_fax" type="text" id="ddd_fax" size="2" maxlength="3">

<input name="fax" type="text" id="fax" size="10" maxlength="8"></td>

</tr>

<tr>

<td align="right" valign="middle" bgcolor="#EFEFEF"><font color="#842B00" size="2" face="Verdana, Arial, Helvetica, sans-serif">E-mail:</font></td>

<td> <input name="email" type="text" id="email" size="35"></td>

</tr>

<tr>

<td align="right" valign="middle" bgcolor="#EFEFEF"><font color="#842B00" size="2" face="Verdana, Arial, Helvetica, sans-serif">Web

Site:</font></td>

<td> <input name="site" type="text" id="site" size="35"></td>

</tr>

</table>

<br>

<br>

<table width="60%" border="0" align="center">

<tr>

<td> <div align="center">

<input type="submit" name="Submit" value="Submit">

</div></td>

<td> <div align="center">

<input type="submit" name="Submit2" value="Submit">

</div></td>

</tr>

</table>

<input type="hidden" name="MM_insert" value="form1">

</form>

<p>&nbsp;</p>

</body>

</html>

ENTÃO... NÃO TEM NADA ABERTO... também JÁ VERIFIQUEI ISSO...

VLW

[Marcos-rj]

O que deve estar acontecendo é que você esta com o access aberto, por isso da esta mensagem quando o sistema tenta usar o banco de dados.

[junior.bportal]

Então... mas o ACCESS está fechado... e agora veja o erro que dá:

HTTP 500.100 - Servidor interno Erro - erro do ASP

Internet Information Services

--------------------------------------------------------------------------------

Informações técnicas (para a equipe de suporte)

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)

[Microsoft][Driver ODBC para Microsoft Access] A operação deve usar uma consulta atualizável.

/pleuger/TMPppp3kalba.asp, line 115

Tipo de navegador:

Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)

Página:

POST 268 bytes to /pleuger/TMPppp3kalba.asp

POST Data:

Submit=Submit&rz_social=Pleuger&cnpj=05.187.955%2F0001-13&ins_estadual=123123123&endereco=xxxxxxxxx&cep=12345600&cidade=tabo%E3o+da+serra&estado=sp&ddd_fone=011&fone=55114946&ddd_fax=011&fax=42456785& . . .

Hora:

quarta-feira, 27 de junho de 2007, 08:31:42

Mais informações:

Suporte da Microsoft

MEU... que BIROSK ISSO.... NADA DE FUNCIONAR...

VALEU!!

[webdeveloper]

Verifique se você tem privilégio de gravação na pasta onde está o banco de dados.

[.Andreia.]

http://scriptbrasil.com.br/forum/index.php?showtopic=28873

[junior.bportal]

Ok...

Liberei no ISS as permissões para gravação e também fiz o que o link que nossa colega Andréia enviou... e deu certo!!

Mais uma vez... valeu pela força!!!

Abços