Erro Tipo De Dados Imcompatível

[Guest - Ricardo -]

Estou recebendo a seguinte mensagem de erro no código abaixo.

Microsoft OLE DB Provider for ODBC Drivers erro '80040e07'

[Microsoft][Driver ODBC para Microsoft Access] Tipo de dados imcompatível na expressão de critério.

/elmafra/forummanagereply.asp, line 66

Onde a linha 66 esta o comando: Con.Execute sqlString

O que eu faço para resolver isso?

Mais uma vez obrigado a todos

Ricardo

==================================================

<table width="560" border="0" align="center" cellpadding="0" cellspacing="0">

<tr>

<%

SUB errorForm(theError)

%>

<%=theError %>

<td align="center" valign="top"><form method="post" action="formreply.asp">

<% FOR EACH item IN Request.Form %>

<input name="<%=item%>" type="hidden" value="<%=Server.HTMLEncode( Request.Form( item))%>">

<% NEXT %>

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

</form>

<%

Response.End

END SUB

%> </td>

</tr>

<tr>

<td align="center" valign="top"> <%

FUNCTION fixQuotes( theString )

fixQuotes = REPLACE( theString, "'", "''" )

END FUNCTION

' Get the Form Variables

addre = TRIM( Request( "addre" ) )

codigoperg = TRIM( Request.Form( "codigoperg" ) )

reNome = TRIM( Request.Form( "reNome" ) )

reEmail = TRIM( Request.Form( "reEmail" ) )

reTitulo = TRIM( Request.Form( "reTitulo" ) )

reDate = TRIM( Request.Form( "reDate" ) )

reResposta = TRIM( Request.Form( "reResposta" ) )

smile1 = TRIM( Request.Form( "smile1" ) )

' Assign Default Values

IF reNome = "" THEN

errorForm " Você esqueceu de colocar seu nome! "

END IF

IF reEmail = "" THEN

errorForm " Você esqueceu de colocar seu e-mail! "

END IF

IF reTitulo = "" THEN

errorForm = "Você esqueceu de colocar um titulo na sua mensagem!"

END IF

IF reResposta = "" THEN

errorForm " Você esqueceu de colocar sua mensagem! "

END IF

' Open the Database Connection

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

Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("forumre.mdb") & ";"

' Add New Mensagem

IF addre <> "" THEN

sqlString = "INSERT INTO resposta " &_

"( codigoperg, nome1, email1, titulo1, data1, resposta, smile1 ) VALUES ( " &_

" '" & codigoperg & "', " &_

" '" & reNome & "', " &_

" '" & reEmail & "', " &_

" '" & reTitulo & "', " &_

" '" & reDate & "', " &_

" '" & reResposta & "', " &_

" '" & smile1 & " ')"

Con.Execute sqlString

%> <center>

<table width="100%" align="center" cellpadding="0"

cellspacing="0" bgcolor="#FFFFFF">

<tr>

<td> <div align="center"><%=reNome%> <strong><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">obrigado,

sua mensagem foi postada com sucesso!</font></strong></div></td>

</tr>

</table>

<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">

<tr>

<td><div align="center"><font color="#000000" size="2" face="Verdana, Arial, Helvetica, sans-serif">

<%

End IF

%>

</font></div></td>

</tr>

<tr>

<td>&nbsp; </td>

</tr>

</table>

</center>

<center>

<center>

</center>

</center></td>

</tr>

</table>

[bolomaster]

confira se o tipo de dado esta configurado como string.

ok

abraços

Rafael

[webdeveloper]

Onde for número no BD, você deve retirar as aspas simples.