Erro de insert

[NewUser 0]

Não consigo inserir dados por que está dando este erro:

 

Tipo de erro:

Microsoft JET Database Engine (0x80040E07)

Tipo de dados imcompatível na expressão de critério.

/aesul/boletins/insert/insert.asp, line 22

 

Este é meu código:

 

Set objRecordSet = objConexao.Execute(stringSQL)

%> linenums:0'><%Dim strtitulo, strprevia, strmateria,strdata, strimg, strurlDim stringConexao, stringSQL, objConexao, objRecordSetstrtitulo = Server.HTMLEncode(Request.Form("titulo"))strprevia = Request.Form("previa")strmateria = Request.Form("materia")strdata = Request.Form("data")strimg = Request.Form("img")strurl = Trim (Request.Form("rul")) stringConexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("../../data/dados.mdb")&";Persist Security Info=False" Set objConexao = Server.CreateObject("ADODB.Connection") objConexao.Open stringConexao stringSQL = "INSERT INTO boletins (titulo, previa, materias, url, data, img)" stringSQL = stringSQL & "VALUES ('"& strtitulo &"', '"& strprevia &"', '"& strmateria &"', '"&strurls&"', '"& strdata &"', '"& strimg &"')" Set objRecordSet = objConexao.Execute(stringSQL) %>

Please me help:

VLW GALERA!!!

[Faru 0]

Deve ser o erro de digitação na hora de setar a várivel strurl

strurl = Trim (Request.Form("rul"))

Por isso ela pode estar indo vazia.

 

E fora isso eu te aconselho a usar o RecordSet para inserções, além de ser mais rápido você tem alguns outros beneficios com o objeto AdoDb.RecordSet ;)

 

<%strTitulo = Server.HTMLEncode(Request("titulo"))strPrevia = Request("previa")strMateria = Request("materia")strData = Request("data")strImg = Request("img")strUrl = Trim(Request("url"))Set Conn = Server.CreateObject("AdoDb.Connection")Conn.Provider = "Microsoft.Jet.OleDB.4.0"Conn.ConnectionString = Server.MapPath("../../data/dados.mdb")Conn.OpenSql = "Select Top 1 * From boletins"Set RS = Server.CreateObject("AdoDb.RecordSet")RS.Open Sql,Conn,1,2RS.Addnew	RS("titulo") = strTitulo	RS("previa") = strPrevia	RS("materias") = strMateria	RS("url") = strUrl	RS("data") = strData	RS("img") = strImgRS.UpdateRS.CloseSet RS = Nothing%>

Caso se interesse por esse método procure por AdoDb na internet.

Espero ter ajudado! ;)

[NewUser 0]

VAleu cara erro bobo vou procurar sim obrigado mesmo!!! porem agora deu este erro:

 

Tipo de erro:

Provider (0x80020005)

Tipo não correspondente.

/aesul/boletins/insert/insert.asp, line 28

 

 

Código:

<%

Dim strTitulo, strPrevia, strMateria,strData, strImg, strUrl

Dim stringConexao, stringSQL, objConexao, objRecordSet, RS

 

strTitulo = Server.HTMLEncode(Request("titulo"))

strPrevia = Request("previa")

strMateria = Request("materia")

strData = Request("data")

strImg = Request("img")

strUrl = Trim(Request("url"))

 

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

Conn.Provider = "Microsoft.Jet.OleDB.4.0"

Conn.ConnectionString = Server.MapPath("../../data/dados.mdb")

Conn.Open

 

Sql = "Select Top 1 * From boletins"

Set RS = Server.CreateObject("AdoDb.RecordSet")

RS.Open Sql,Conn,1,2

 

RS.Addnew

RS("titulo") = strTitulo

RS("previa") = strPrevia

RS("materias") = strMateria

RS("url") = strUrl

RS("data") = strData

RS("img") = strImg

RS.Update

RS.Close

Set RS = Nothing

%>