Error - Microsoft JET Database

[gilt 0]

Administro um site imobiliário e quanto tento incluir

um imóvel no site pelo admin está dando o seguinte ERRO:

 

 

Microsoft JET Database Engine error '80040e14'

Syntax error in INSERT INTO statement.

/admin/shared/inc/imovel.asp, line 42

 

A linha 42 é:

oConn.Execute(strSQL)

 

Preciso resolver isso urgente, alguém poderia m ajudar,

 

grato.

 

SEGUE A PAGINA imovel.php

<link href="../../../shared/css/estilo.css" rel="stylesheet" type="text/css">
<br><br><br>
<table>
 <%
Dim strIdBairro, strIdTipo, strDormitorio, strGaragem, strArea, strValor, strReferencia, strObservacao
Dim bolDestaque, bolOportunidade, bolMobilia, bolAluga, bolVende

Set oConn = Server.CreateObject("ADODB.Connection")
Set rsConsulta = Server.CreateObject("ADODB.RecordSet")
Set Upload = Server.CreateObject("Dundas.Upload")
oConn.Open(CONNECTION_STRING)

strId = Request("id")

'SALVAR
If Request.QueryString("salvar") = "1" Then

	Upload.UseVirtualDir = True
	Upload.MaxFileSize = 1048576
	'Upload.Save(CAMINHO_FISICO & "\wwwroot\shared\upload")
	Upload.SaveToMemory

	strIdBairro = int(Upload.Form("idBairro"))
	strIdTipo = int(Upload.Form("idTipo"))
	strDormitorio = Upload.Form("Dormitorio")
	strDestinado = int(Upload.Form("Destinado"))
	strGaragem = Upload.Form("Garagem")
	strArea = Upload.Form("Area")
	strAreaConstruida = Upload.Form("AreaConstruida")
	strValor = Upload.Form("Valor")
	strReferencia = Upload.Form("Referencia")
	strObservacao = Upload.Form("Observacao")
	bolDestaque = Upload.Form("Destaque")
	bolOportunidade = Upload.Form("Oportunidade")
	bolMobilia = Upload.Form("Mobilia")
	bolAluga = Upload.Form("Aluga")
	bolVende = Upload.Form("Vende")

	If strId = "" Then
		strSQL = "INSERT INTO tb_Imovel(idBairro,idTipo,Dormitorio,Garagem,Area,AreaConstruida,Valor,Destinado,Referencia,Observacao,Destaque,Oportunidade,Mobilia,Aluga,Vende,Publicado) "
		strSQL = strSQL & "VALUES(" & strIdBairro & "," & strIdTipo & "," & strDormitorio & "," & strGaragem & "," & strArea & "," & strAreaConstruida & "," & strValor & "," & strDestinado & ",'" & strReferencia & "','" & strObservacao & "'," & bolDestaque & "," & bolOportunidade & "," & bolMobilia & "," & bolAluga & "," & bolVende & ",0)"
		oConn.Execute(strSQL)

		strSQL = "SELECT idImovel FROM tb_Imovel ORDER BY idImovel DESC"
		rsConsulta.Open strSQL,oConn
		If rsConsulta.EOF = False Then
			strId = rsConsulta("idImovel")
		End If
		rsConsulta.Close()

		strMessage = "Imóvel incluído!"
	Else
		strSQL = "UPDATE tb_Imovel SET idBairro = " & strIdBairro & ",idTipo = " & strIdTipo & ",Dormitorio = " & strDormitorio & ",Garagem = " & strGaragem & ",Area = " & strArea & ",AreaConstruida = " & strAreaConstruida & ",Valor = " & strValor & ",Destinado = " & strDestinado & ",Referencia = '" & strReferencia & "',Observacao = '" & strObservacao & "',Destaque = " & bolDestaque & ",Oportunidade = " & bolOportunidade & ",Mobilia = " & bolMobilia & ",Aluga = " & bolAluga & ",Vende = " & bolVende & " WHERE idImovel = " & strId
		oConn.Execute(strSQL)

		strMessage = "Imóvel atualizado!"
	End If

	If strId <> "" Then
		Count = 1
		For Each File in Upload.Files
			Arquivo = "\shared\upload\Imovel_" & strId & "_" & Count & "." & Upload.GetFileExt(File.OriginalPath)
			File.SaveAs(Arquivo)
			strSQL = "INSERT INTO tb_Foto(idImovel,Url) VALUES(" & strId & ",'" & Arquivo & "')"
			oConn.Execute(strSQL)
			Count = Count + 1
		Next
	End If

End If

'EDITAR
bolEditar = Request.QueryString("editar")
If bolEditar = "1" Then
	bolEditar = True
Else
	bolEditar = False
End If

'EXCLUIR
If Request.QueryString("excluir") = "1" Then
	strSQL = "DELETE FROM tb_Imovel WHERE idImovel = " & strId
	oConn.Execute(strSQL)
	strMessage = "Imóvel excluído!"
End If

'PUBLICAR
If Request.QueryString("publicar") = "1" Then
	strSQL = "UPDATE tb_Imovel SET Publicado = Not Publicado WHERE idImovel = " & strId
	oConn.Execute(strSQL)
End If

'DESTAQUE
If Request.QueryString("destaque") = "1" Then
	strSQL = "UPDATE tb_Imovel SET Destaque = Not Destaque WHERE idImovel = " & strId
	oConn.Execute(strSQL)
End If

'OPORTUNIDADE
If Request.QueryString("oportunidade") = "1" Then
	strSQL = "UPDATE tb_Imovel SET Oportunidade = Not Oportunidade WHERE idImovel = " & strId
	oConn.Execute(strSQL)
End If
%>
 <tr>
   <td colspan="4"><%=strMessage%></td>
 </tr>
 <%If bolEditar Then%>
 <%
	If strId <> "" Then
		strSQL = "SELECT * FROM tb_Imovel WHERE idImovel = " & strId
		rsConsulta.Open strSQL,oConn
		If rsConsulta.EOF = False Then
			cstrIdBairro = rsConsulta("idBairro")
			cstrIdTipo = rsConsulta("idTipo")
			strDormitorio = rsConsulta("Dormitorio")
			strGaragem = rsConsulta("Garagem")
			strArea = rsConsulta("Area")
			strAreaConstruida = rsConsulta("AreaConstruida")
			strValor = rsConsulta("Valor")
			strDestinado = rsConsulta("Destinado")
			strReferencia = rsConsulta("Referencia")
			strObservacao = rsConsulta("Observacao")
			bolDestaque = rsConsulta("Destaque")
			bolOportunidade = rsConsulta("Oportunidade")
			bolMobilia = rsConsulta("Mobilia")
			bolAluga = rsConsulta("Aluga")
			bolVende = rsConsulta("Vende")
		End If
		rsConsulta.Close()

		If Request.QueryString("remover") <> "" Then
			strSQL = "DELETE FROM tb_Foto WHERE idFoto = " & int(Request.QueryString("remover"))
			oConn.Execute(strSQL)
		End If
	End If
	%>
 <form name="cadastro" action="default.asp?acao=imovel&salvar=1&id=<%=strId%>" method="post" enctype="Multipart/Form-Data">
   <tr>
     <td width="50" height="25"> Bairro: </td>
     <td height="25">
       <select name="idBairro" class="form">
         <%
			strSQL = "SELECT * FROM tb_Bairro WHERE Publicado = True"
			rsConsulta.Open strSQL,oConn
			While rsConsulta.EOF = False
				strIdBairro = int(rsConsulta("idBairro"))
				strBairro = rsConsulta("Bairro")
				%>
         <option value="<%=strIdBairro%>" <%If strIdBairro = cstrIdBairro Then%>selected<%End If%>><%=strBairro%></option>
         <%
				rsConsulta.MoveNext()
			Wend
			rsConsulta.Close()
			%>
     </select>      </td>
   </tr>
   <tr>
     <td height="25"> Tipo de Imóvel: </td>
     <td height="25">
       <select name="idTipo" class="form" id="Select1">
         <%
			strSQL = "SELECT * FROM tb_Tipo WHERE Publicado = True"
			rsConsulta.Open strSQL,oConn
			While rsConsulta.EOF = False
				strIdTipo = int(rsConsulta("idTipo"))
				strTipo = rsConsulta("Tipo")
				%>
         <option value="<%=strIdTipo%>" <%If strIdTipo = cstrIdTipo Then%>selected<%End If%>><%=strTipo%></option>
         <%
				rsConsulta.MoveNext()
			Wend
			rsConsulta.Close()
			%>
     </select>      </td>
   </tr>
   <tr>
     <td height="25"> Destinado à: </td>
     <td height="25">
       <select name="Destinado" class="form" id="Select2">
         <option value="1" <%If strDestinado = 1 Then%>selected<%End If%>>Residência</option>
         <option value="2" <%If strDestinado = 2 Then%>selected<%End If%>>Comércio</option>
         <option value="3" <%If strDestinado = 3 Then%>selected<%End If%>>Indústria</option>
     </select>      </td>
   </tr>
   <tr>
     <td height="25"> Nº Dormitórios: </td>
     <td height="25">
     <input type="text" name="Dormitorio" value="<%=strDormitorio%>" class="form" size="5" maxlength="2">      </td>
   </tr>
   <tr>
     <td height="25"> Vagas na Garagem: </td>
     <td height="25">
       <input type="text" name="Garagem" value="<%=strGaragem%>" class="form" size="5" maxlength="2">
     carro(s) </td>
   </tr>
   <tr>
     <td height="25"> Área Total: </td>
     <td height="25">
       <input type="text" name="Area" value="<%=strArea%>" class="form" size="10" maxlength="5" id="Text1">
     m² </td>
   </tr>
   <tr>
     <td height="25"> Área Construída: </td>
     <td height="25">
       <input type="text" name="AreaConstruida" value="<%=strAreaConstruida%>" class="form" size="10" maxlength="5" id="Text2">
     m² </td>
   </tr>
   <tr>
     <td height="25"> Valor: </td>
     <td height="25"> R$
         <input type="text" name="Valor" value="<%=strValor%>" class="form" size="10" maxlength="7">      </td>
   </tr>
   <tr>
     <td height="25"> Cód. Referência: </td>
     <td height="25">
     <input type="text" name="Referencia" value="<%=strReferencia%>" class="form" size="10" maxlength="10">      </td>
   </tr>
   <tr>
     <td height="25"> Descrição: </td>
     <td height="25">
     <input type="text" name="Observacao" value="<%=strObservacao%>" class="form" size="30" maxlength="255">      </td>
   </tr>
   <tr>
     <td height="25"> Destaque: </td>
     <td height="25">
       <input type="radio" name="Destaque" class="form" value="1" <%If bolDestaque Then%>checked<%End If%>>
       Sim
       <input type="radio" name="Destaque" class="form" value="0" <%If Not bolDestaque Then%>checked<%End If%>>
     Não </td>
   </tr>
   <tr>
     <td height="25"> Oportunidade: </td>
     <td height="25">
       <input type="radio" name="Oportunidade" class="form" value="1" <%If bolOportunidade Then%>checked<%End If%>>
       Sim
       <input type="radio" name="Oportunidade" class="form" value="0" <%If Not bolOportunidade Then%>checked<%End If%>>
     Não </td>
   </tr>
   <tr>
     <td height="25"> Mobília: </td>
     <td height="25">
       <input type="radio" name="Mobilia" class="form" value="1" <%If bolMobilia Then%>checked<%End If%>>
       Sim
       <input type="radio" name="Mobilia" class="form" value="0" <%If Not bolMobilia Then%>checked<%End If%>>
     Não </td>
   </tr>
   <tr>
     <td height="25"> Aluga: </td>
     <td height="25">
       <input type="radio" name="Aluga" class="form" value="1" <%If bolAluga Then%>checked<%End If%>>
       Sim
       <input type="radio" name="Aluga" class="form" value="0" <%If Not bolAluga Then%>checked<%End If%>>
     Não </td>
   </tr>
   <tr>
     <td height="25"> Vende: </td>
     <td height="25">
       <input type="radio" name="Vende" class="form" value="1" <%If bolVende Then%>checked<%End If%>>
       Sim
       <input type="radio" name="Vende" class="form" value="0" <%If Not bolVende Then%>checked<%End If%>>
     Não </td>
   </tr>
   <%
		TotalFotos = 0
		If strId <> "" Then
			strSQL = "SELECT * FROM tb_Foto WHERE idImovel = " & strId
			rsConsulta.Open strSQL,oConn
			If rsConsulta.EOF = False Then
			%>
   <tr>
     <td colspan="2">
       <table cellpadding="0" cellspacing="1" border="0" bgcolor="#000000" id="Table1">
         <tr>
           <%
							While rsConsulta.EOF = False
								strIdFoto = int(rsConsulta("idFoto"))
								strUrl = rsConsulta("Url")
								%>
           <td align="center" bgcolor="#FFFFFF"> <img src="<%=SERVIDOR%><%=strUrl%>" width="170" height="145" border="0"><br>
               <a href="default.asp?acao=imovel&editar=1&id=<%=strId%>&remover=<%=strIdFoto%>" class="result">REMOVER</a> </td>
           <%
								TotalFotos = TotalFotos + 1
								rsConsulta.MoveNext()
							Wend
							rsConsulta.Close()
							%>
         </tr>
     </table></td>
   </tr>
   <%
			End If							
		End If

		For i = 1 To (3-TotalFotos)
		%>
   <tr>
     <td> Foto <%=i%>: </td>
     <td>
       <input type="file" name="Foto<%=i%>" class="form">
     </td>
   </tr>
   <%
		Next
		%>
   <tr>
     <td align="center" colspan="2" height="30"><input name="submit" type="submit" class="form" value=":: Enviar ::">
   
       <input name="reset" type="reset" class="form" value=":: Limpa ::"></td>
   </tr>
 </form>
 <%Else%>
 <%
	'MOSTRA TODOS OS REGISTROS
	strSQL = "SELECT I.idImovel,I.Referencia,B.Bairro,T.Tipo,I.Publicado,I.Destaque,I.Oportunidade,I.Valor FROM tb_Imovel I,tb_Bairro B,tb_Tipo T WHERE I.idBairro = B.idBairro AND I.idTipo = T.idTipo"
	rsConsulta.Open strSQL,oConn
	%>
 <tr>
   <td colspan="4"><a href="default.asp?acao=imovel&editar=1" class="result">NOVO IMÓVEL</a></td>
 </tr>
 <%If rsConsulta.EOF Then%>
 <tr>
   <td>Ainda não há imóveis cadastrados.</td>
 </tr>
 <%Else%>
 <tr bgcolor="E4E4E4">
   <td colspan="5"></td>
   <td><b>Cód. Ref.</b></td>
   <td><b>Bairro</b></td>
   <td><b>Tipo</b></td>
   <td><b>Valor R$</b></td>
 </tr>
 <%
		While rsConsulta.EOF = False
			strId = rsConsulta("idImovel")
			strReferencia = rsConsulta("Referencia")
			strBairro = rsConsulta("Bairro")
			strTipo = rsConsulta("Tipo")
			bolPublicado = rsConsulta("Publicado")
			bolDestaque = rsConsulta("Destaque")
			bolOportunidade = rsConsulta("Oportunidade")
			strValor = rsConsulta("Valor")
		%>
 <tr>
   <td width="20"><a href="default.asp?acao=imovel&editar=1&id=<%=strId%>"><img src="<%=SERVIDOR%>admin/shared/img/editar.gif" border="0" alt="editar"></a></td>
   <td width="20"><a href="default.asp?acao=imovel&excluir=1&id=<%=strId%>"><img src="<%=SERVIDOR%>admin/shared/img/excluir.gif" border="0" alt="excluir""></a></td>
   <td width="20"><a href="default.asp?acao=imovel&publicar=1&id=<%=strId%>"><img src="<%=SERVIDOR%>admin/shared/img/publicar<%=bolPublicado%>.gif" border="0" <%if bolpublicado then%>alt="despublicar"<%else%>alt="publicar"<%End If%>></a></td>
   <td width="20"><a href="default.asp?acao=imovel&destaque=1&id=<%=strId%>"><img src="<%=SERVIDOR%>admin/shared/img/destaque<%=bolDestaque%>.gif" border="0" alt="destaque na home"></a></td>
   <td width="20"><a href="default.asp?acao=imovel&oportunidade=1&id=<%=strId%>"><img src="<%=SERVIDOR%>admin/shared/img/oportunidade<%=bolOportunidade%>.gif" border="0" alt="oportunidade na home"></a></td>
   <td><%=strReferencia%></td>
   <td><%=strBairro%></td>
   <td><%=strTipo%></td>
   <td><%=strValor%></td>
 </tr>
 <%
			rsConsulta.MoveNext()
		Wend
		rsConsulta.Close()
		%>
 <%End If%>
 <%End If%>
 <%
oConn.Close()
Set rsConsulta = Nothing
Set oConn = Nothing
%>
</table>

[xanburzum 169]

Verifique a ortografia. pode ser um nome de coluna Invalido 'sua_coluna'. A coluna a qual você se refere na Base de Dados não foi encontrada. e também veja se os tipos de dados estão corretos

[retrolink 0]

Poste o conteúdo da variável strSQL para melhor analisar o seu problema.

 

De um response.write no strSQL e veja como esta sendo passado, verifique se tudo esta correto.