INSERT não insere

[rubensxxx3 0]

Sou iniciante em ASP e gostaria de uma ajuda.

 

Tenho um form para inserir algumas informações num bd em Access. Só que está dando um erro:

 

"Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

 

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

 

/adm_r/pousadas/inserir_colonias.asp, line 40"

 

 

O Form é este:

 

CODE

<%

db = Server.MapPath("banco.mdb")

connstring = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & db

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open connstring%>

 

 

 

<FORM METHOD="POST" ACTION="inserir_colonias.asp">

Cidade<br>

<%

SQL="Select nm_cidade From cidades Order By nm_cidade"

set RS = Conn.Execute(SQL)

%>

<select name="id_cidade">

<!-- Geramos o menu desdobravel -->

<%

Do While not RS.eof%>

<option><%=RS("nm_cidade")%>

<%RS.movenext

Loop

%>

</select>

<br>

<br>

Pousada

<br>

<INPUT TYPE="TEXT" NAME="nome">

<br>

<br>

Endereço

<br>

<textarea name="endereco" wrap="VIRTUAL"></textarea>

<br>

<br>

Telefone

<br>

<INPUT NAME="tel" TYPE="TEXT" maxlength="50">

<br>

<br>

E-mail

<br>

<INPUT TYPE="TEXT" NAME="mail">

<br>

<br>

Site

<br>

<INPUT NAME="site" TYPE="TEXT" value="http://">

<br>

<br>

Oferece

<br>

<textarea name="oferece"></textarea>

<br>

<br>

Tarifas

<br>

<textarea name="tarifas"></textarea>

<br>

<br>

Site Tarifas

<br>

<INPUT NAME="tarifassite" TYPE="TEXT" value="http://">

<br>

<br>

Observações

<br>

<textarea name="obs" id="obs"></textarea>

<br>

<br>

Foto01

<br>

<input name="foto01" type="file" id="foto01" size="14">

<br>

<br>

Foto02

<br>

<input name="foto02" type="file" id="foto02" size="14">

<br>

<br>

Foto03

<br>

<input name="foto03" type="file" id="foto03" size="14">

<br>

<br>

Mapa

<br>

<input name="mapa" type="file" id="mapa" size="14">

<br>

<br>

Como Chegar

<br>

<textarea name="comochegar" id="comochegar"></textarea>

<br>

<br>

 

 

<INPUT name="submit" TYPE="SUBMIT" id="submit" value="submit">

</FORM>

 

</div>

 

</BODY>

</HTML>

 

 

 

E a página que insere esta:

 

CODE

<%

id_cidade=Request.Form("id_cidade")

nome=Request.Form("nome")

endereco=Request.Form("endereco")

tel=Request.Form("tel")

mail=Request.Form("mail")

site=Request.Form("site")

oferece=Request.Form("oferece")

tarifas=Request.Form("tarifas")

tarifassite=Request.Form("tarifassite")

obs=Request.Form("obs")

foto01=Request.Form("foto01")

foto02=Request.Form("foto02")

foto03=Request.Form("foto03")

mapa=Request.Form("mapa")

comochegar=Request.Form("comochegar")

%>

 

<%

db = Server.MapPath("banco.mdb")

connstring = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & db

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open connstring%>

 

 

 

<%

SQL="Insert Into colonias (id_cidade,nome,endereco,tel,mail,site,oferece,tarifas,tarifassite,obs,foto01,fo

to02,foto03,mapa,comochegar) values ('" & id_cidade & "','" & nome & "','" & endereco & "','" & tel & "','" & mail & "','" & site & "','" & oferece & "','" & tarifas & "','" & tarifassite & "','" & obs & "','" & foto01 & "','" & foto02 & "','" & foto03 & "','" & mapa & "','" & comochegar & "')"

 

set RS = Conn.Execute(SQL)

 

'Retornar para a principal e dar uma mensagem de alterações realizadas

response.write("<script>location = 'cidades.asp';alert('As configurações foram alteradas corretamente.')</script>")

%>

 

<h1><div align="center">Registro Atualizado</div></h1>

<div align="center"><a href="listar.asp">Visualizar o conteudo da base</a></div>

 

 

 

<!-- RS.close

set RS = nothing -->

 

 

</BODY>

</HTML>

O que faço? :blink:

[Ted k' 126]

Por favor não faça floods pois serei obrigado a fechar se tópico, as pessoas iram ver seu tópico e te ajudar, não precisa isso, favor evite contrangimentos!!

 

retire essa linha set RS = Conn.Execute(SQL)

 

troque por essa:

Conn.Execute(SQL)

não precisa dar ENTER no seu sql

 

verifique se os campos estão compativeis com o SQL, exemplo, se tiver data, verifique se está indo no mesmo formato que o banco exige!!