Sistema de Notícia

[hunger 0]

ola comunidade.

 

na página de cadastro de um sistema de noticia q estou fazendo, está ocorrendo o seguinte erro:

 

Tipo de erro:

Microsoft JET Database Engine (0x80040E14)

Erro de sintaxe na instrução INSERT INTO.

/funcionarios/cadastro.asp, line 115

 

comparei com uma outra pagina CADASTRO que fiz para outro sistema, as páginas estão identicas...com a diferença de que uma está funcionando perfeitamente. então nao sei qual o erro.

 

segue a página (A linha 115 está seguida por um traço):

 

Agradeço desde já!

 

<%@LANGUAGE="VBSCRIPT"%><!--#include file="Connections/Conexao.asp" --><%' *** Edit Operations: declare variablesDim MM_editActionDim MM_abortEditDim MM_editQueryDim MM_editCmdDim MM_editConnectionDim MM_editTableDim MM_editRedirectUrlDim MM_editColumnDim MM_recordIdDim MM_fieldsStrDim MM_columnsStrDim MM_fieldsDim MM_columnsDim MM_typeArrayDim MM_formValDim MM_delimDim MM_altValDim MM_emptyValDim MM_iMM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Request.QueryStringEnd If' boolean to abort record editMM_abortEdit = false' query string to executeMM_editQuery = ""%><%' *** Insert Record: set variablesIf (CStr(Request("MM_insert")) = "form2") Then MM_editConnection = MM_Conexao_STRING MM_editTable = "funcionarios" MM_editRedirectUrl = "lista.asp" MM_fieldsStr  = & #34;REGISTRO|value|NOME|value|DATA_NASC|value|LOCAL|value|FUNCAO|value|SETOR|value|EQUIPE|value|ADMISSAO|value|RELACIONAMENTO|value|CASA|value|HISTORIA|value|VIDA|value|PING_PONG|value|arquivo|value|STATUS|value" MM_columnsStr = "REGISTRO|',none,''|NOME|',none,''|DATA_NASC|',none,''|LOCAL|',none,''|FUNCAO|',none,''|SETOR|',none,''|EQUIPE|',none,''|ADMISSAO|',none,''|RELACIONAMENTO|',none,''|CASA|',none,''|HISTORIA|',none,''|VIDA|',none,''|PING_PONG|',none,''|FOTO|',none,''|STATUS|',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 IfEnd If%><%' *** Insert Record: construct a sql insert statement and execute itDim MM_tableValuesDim MM_dbValuesIf (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 --------------------------------------------------->linha 115   MM_editCmd.ActiveConnection.Close   If (MM_editRedirectUrl <> "") Then     Response.Redirect(MM_editRedirectUrl)   End If End IfEnd If%><form name="form2" method="POST" action="<%=MM_editAction%>"> <table width="57%" border="0" id="form"> <tr>    <td colspan="2"><div align="center"><strong><font color="#006666" face="Verdana">Cadastro        de funcionários</font></strong></div></td> </tr> <tr>    <td> </td>   <td> </td> </tr> <tr>    <td width="30%"> <div align="right"><font size="2" face="Verdana">Registro        nº</font></div></td>   <td width="70%"> <div align="left">        <input name="REGISTRO" type="text" id="REGISTRO2" size="50">     </div></td> </tr> <tr>    <td> <div align="right"><font size="2" face="Verdana">Nome:</font></div></td>   <td> <div align="left">        <input name="NOME" type="text" id="NOME" size="50">     </div></td> </tr> <tr>    <td> <div align="right"><font size="2" face="Verdana">Data Nasc.:</font></div></td>   <td> <div align="left">        <input name="DATA_NASC" type="text" id="DATA_NASC" value="dd/mm/aaaa" size="50">     </div></td> </tr> <tr>    <td> <div align="right"><font size="2" face="Verdana">Local:</font></div></td>   <td> <div align="left">        <input name="LOCAL" type="text" id="LOCAL" size="50">     </div></td> </tr> <tr>    <td> <div align="right"><font size="2" face="Verdana">Função:</font></div></td>   <td> <div align="left">        <input name="FUNCAO" type="text" id="FUNCAO" size="50">     </div></td> </tr> <tr>    <td> <div align="right"><font size="2" face="Verdana">Setor:</font></div></td>   <td> <div align="left">        <input name="SETOR" type="text" id="SETOR" size="50">     </div></td> </tr> <tr>    <td> <div align="right"><font size="2" face="Verdana">Equipe:</font></div></td>   <td> <div align="left">        <input name="EQUIPE" type="text" id="EQUIPE" size="50">     </div></td> </tr> <tr>    <td> <div align="right"><font size="2" face="Verdana">Admissão:</font></div></td>   <td> <div align="left">        <input name="ADMISSAO" type="text" id="ADMISSAO" value="dd/mm/aaaa" size="50">     </div></td> </tr> <tr>    <td> <div align="right"><font size="2" face="Verdana">Tempo de Relacionamento:</font></div></td>   <td> <div align="left">        <input name="RELACIONAMENTO" type="text" id="RELACIONAMENTO" size="50">     </div></td> </tr> <tr>    <td> <div align="right"><font size="2" face="Verdana">Tempo de Casa:</font></div></td>   <td> <div align="left">        <input name="CASA" type="text" id="CASA" size="50">     </div></td> </tr> <tr>    <td> <div align="right"><font size="2" face="Verdana">Escolaridade:</font></div></td>   <td> <div align="left"> </div></td> </tr> <tr>    <td> <div align="right"><font size="2" face="Verdana">História de Vida<font color="#FF0000">*</font>:</font></div></td>   <td> <div align="left">        <textarea name="HISTORIA" cols="38" rows="5" id="HISTORIA"></textarea>     </div></td> </tr> <tr>    <td> <div align="right"><font size="2" face="Verdana">Vida Profissional<font color="#FF0000">*</font>:</font></div></td>   <td> <div align="left">        <textarea name="VIDA" cols="38" rows="5" id="VIDA"></textarea>     </div></td> </tr> <tr>    <td> <div align="right"><font size="2" face="Verdana">Ping-Pong<font color="#FF0000">*</font>:</font></div></td>   <td> <div align="left">        <textarea name="PING_PONG" cols="38" rows="5" id="PING_PONG"></textarea>     </div></td> </tr> <tr>    <td> <div align="right"><font size="2" face="Verdana">Foto<font color="#FF0000">**</font>:</font></div></td>   <td><div align="left"><font size="2" face="Verdana">        <input type="file" name="arquivo">       </font></div></td> </tr> <tr>    <td> <div align="right"><font size="2" face="Verdana">Status:</font></div></td>   <td> <div align="left">        <input type="radio" name="STATUS" value="ativa">       <font size="2" face="Verdana">Ativa        <input type="radio" name="STATUS" value="inativa">       Inativa </font></div></td> </tr> <tr>    <td height="24"> <div align="right"></div></td>   <td> <div align="left"></div></td> </tr> <tr>    <td colspan="2"> <div align="right"></div>     <div align="center">        <input type="submit" name="Submit" value="Gravar">     </div></td> </tr> <tr>    <td colspan="2"> </td> </tr> <tr>    <td colspan="2"><p><font color="#FF0000" size="1" face="Verdana">*</font><font size="1" face="Verdana">        Para começar um novo parágrafo, coloque esta tag no começo        do texto: <strong><p><br>       </strong> A tag deverá ser inserida no início de cada parágrago.</font></p>     <p><font color="#FF0000" size="1" face="Verdana">**</font><font size="1" face="Verdana">        Digite o nome do arquivo completo (ex: foto1.jpg). É importante        evitar utilizar espaços e acentos no nome do arquivo.. </font></p></td> </tr> <tr>    <td colspan="2"> </td> </tr></table><input type="hidden" name="MM_insert" value="form2"></form>

[silas_i 0]

Cara pelo que eu vi no seu código você esta ultilizando o Dreamweaver pra fazer este insert.. cara.. eu tb comecei assim.só que da muito erro sem explicação.. por isso aprendi a fazer td na mão cara.. é o que eu te indico a fazer, ok !?Ultilizando o Dreamweaver pode ser um monte de coisa e ae fica complicado...um abraçoSilas

[hunger 0]

fala silas...é, sou iniciante em asp, e nesse caso o DW acaba quebrando um galhão. O pior é que isso que estou fazendo é serviço mesmo, pra cliente e tals, não dá tempo de ficar experimentando tudo na unha... e o estranho é q já deu certo antes...rs... e agora, igualzinho, nao funciona!bom, por enquanto preciso continuar tentando assim, então se alguém tiver alguma sugestão, por favor posta aqui!obgdo pela ajuda!abço,marcos hunger.