Erro Ao Gravar Ip

[rcnery]

Pessoal,

To fazendo um sistema de votação que a pessoa só pode votar uma vez por dia verificando o enderço ip e gravando o mesmo em um bd por 1 dia.

O problema é que estou recebendo a seguinte mensagem e não consegui resolver.

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

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

/galeria/ipvoto.asp, line 39

Código.

<!--#include virtual="../adm/openbanco.asp"-->

<%

Dim ipvoto

Dim votoid

Dim ipdata

Dim data

votoid = 0

ipvoto = Request.ServerVariables("REMOTE_ADDR")

data = date

Set RS = Server.CreateObject("ADODB.Recordset")

RS.ActiveConnection = Con

RS.Open "Select * FROM ipvoto WHERE ipidvoto = "& votoid & " "

WHILE not RS.EOF

ipdata = RS ("ipdata")

varDiferenca = datediff("d",ipdata,data)

IF varDiferenca < 1 THEN

sqlString = "delete * from ipvoto where ipdata = '"& data & "' "

Con.Execute sqlString

ELSE

sqlString = "Select * from ipvoto where ipvotou = "& ipvoto & " "

Con.Execute sqlString

IF sqlString <> "" THEN

Response.Write " Você já votou nessa foto hoje, por favor retorne amanhã."

END IF

RS.MoveNext

END IF

WEND

%>

<%=ipvoto%><br>

<%=data%><br>

<%=votoid%><br>

<%

' Add New IP

sqlString = "INSERT INTO ipvoto " &_

"(ipvotou, ipidvoto, ipdata ) VALUES (" &_

"'" & ipvoto &"', "&_

"'" & votoid &"', "&_

"'" & data &"')"

Con.Execute sqlString

%>

O BD esta assim

ipvotou - Texto já tentei com numero e tb deu erro.

ipidvoto - Numero já tentei com texto e nada

ipdata - Data/hora unico que não auterei.

Obrigado por me ajudarem.

[ursolouco]

Pessoal,

To fazendo um sistema de votação que a pessoa só pode votar uma vez por dia verificando o enderço ip e gravando o mesmo em um bd por 1 dia.

O problema é que estou recebendo a seguinte mensagem e não consegui resolver.

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

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

/galeria/ipvoto.asp, line 39

Código.

<!--#include virtual="../adm/openbanco.asp"-->

<%

Dim ipvoto

Dim votoid

Dim ipdata

Dim data

votoid = 0

ipvoto = Request.ServerVariables("REMOTE_ADDR")

data = date

Set RS = Server.CreateObject("ADODB.Recordset")

RS.ActiveConnection = Con

RS.Open "Select * FROM ipvoto WHERE ipidvoto = "& votoid & " "

WHILE not RS.EOF

ipdata = RS ("ipdata")

varDiferenca = datediff("d",ipdata,data)

IF varDiferenca < 1 THEN

sqlString = "delete * from ipvoto where ipdata = '"& data & "' "

Con.Execute sqlString

ELSE

sqlString = "Select * from ipvoto where ipvotou = "& ipvoto & " "

Con.Execute sqlString

IF sqlString <> "" THEN

Response.Write " Você já votou nessa foto hoje, por favor retorne amanhã."

END IF

RS.MoveNext

END IF

WEND

%>

<%=ipvoto%><br>

<%=data%><br>

<%=votoid%><br>

<%

' Add New IP

sqlString = "INSERT INTO ipvoto " &_

"(ipvotou, ipidvoto, ipdata ) VALUES (" &_

"'" & ipvoto &"', "&_

"'" & votoid &"', "&_

"'" & data &"')"

Con.Execute sqlString

%>

O BD esta assim

ipvotou - Texto já tentei com numero e tb deu erro.

ipidvoto - Numero já tentei com texto e nada

ipdata - Data/hora unico que não auterei.

Obrigado por me ajudarem.

Brother!!

Algo interessante, qual banco de dados esta usando e qual formato da data que esta tentando se inserir os dados ?

Experimente ultilizar no seu código 'Session.LCID = 1046' para transformar sua data no formato brasileiro (11/01/2004) e inserir-la no seu banco de dados.

Espero que lhe ajude...

Abraços!!!

[urso]

[rcnery]

Urso

Valeu pela dica, vou tentar e depois eu fala se funcionou.

Estou usando o acces.

Valeu

Abraço

Ricardo

[ursolouco]

Urso

Valeu pela dica, vou tentar e depois eu fala se funcionou.

Estou usando o acces.

Valeu

Abraço

Ricardo

beleza!!!

Qualquer coisa, POSTA ai novamente sua dúvida ou Erro!!!

Boa Sorte!!!

[urso]

[rcnery]

Urso

Resolvi o problema alterando o código para esse aqui.

Pode fechar o tópico.

Valeu pela ajuda.

Ricardo

<!--#include virtual="../adm/openbanco.asp"-->

<%Session.LCID=1046

votoid = cINT ("2")

ipvoto = Request.ServerVariables("REMOTE_ADDR")

mdata = date

Set RS = Server.CreateObject("ADODB.Recordset")

RS.ActiveConnection = Con

Sql = "delete * from ipvoto where (#"&mdata&"#-ipdata)<>0"

Con.Execute Sql

RS.Open "Select * FROM ipvoto WHERE ipvotou = '"& ipvoto & "' "

While not RS.EOF

ipidvoto = cInt (RS ("ipidvoto"))%>

<%=ipidvoto%> <br>

<%=votoid%><br>

<%

IF ipidvoto = votoid THEN

Response.Redirect("../webroom.asp?showpage=galeria")

END IF

RS.MOVENEXT

WEND%>

<%= ipvoto %> <br>

<%= votoid %> <br>

<%= mdata %> <br>

<%

' Add New IP

sqlString = "INSERT INTO ipvoto " &_

"( ipvotou, ipidvoto, ipdata ) VALUES (" &_

"'" & ipvoto &"', "&_

"'" & votoid &"', "&_

"'" & mdata &"')"

Con.Execute sqlString

%>