1 reply to this topic

[Touche]

Tenho um sistema de fotos feito por mim que quando a pessoa clica na foto ela eh mandada pra um arquivo hits.asp que conta 1 clique e redireciona a pessoa pra pagina de visualização da foto...

O sistema funcionava normal até que...

Microsoft VBScript runtime error '800a005e' 

Invalid use of Null: 'cInt' 

/hits.asp, line 10

esse xxxxxx erro aconteceu... por favor me ajudem nao sei o q pode estar acontecendo...

eis o arquivo hits.asp



<%
url = Request.QueryString("cod_foto")
Conn_String = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("bd/fotos.mdb")

set conn = Server.CreateObject("ADODB.Connection")
conn.open Conn_String
Set RS = conn.Execute("select * from fotos where cod_foto =" & url)
redireciona = "ver_foto.asp?cod_foto=" & RS("cod_foto").value
'Insere mais um clique no banco de dados
cliques=cInt(rs("cliques"))+1
Set RS2 = conn.Execute("UPDATE fotos SET cliques = " & cliques & " where cod_foto =" & url)

RS.Close
conn.Close
set conn = nothing
'Redireciona para a url
Response.Redirect redireciona

%>

[felipecm]

Tenho um sistema de fotos feito por mim que quando a pessoa clica na foto ela eh mandada pra um arquivo hits.asp que conta 1 clique e redireciona a pessoa pra pagina de visualização da foto...

O sistema funcionava normal até que...

Microsoft VBScript runtime error '800a005e' 

Invalid use of Null: 'cInt' 

/hits.asp, line 10

esse xxxxxx erro aconteceu... por favor me ajudem nao sei o q pode estar acontecendo...

eis o arquivo hits.asp



<%
url = Request.QueryString("cod_foto")
Conn_String = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("bd/fotos.mdb")

set conn = Server.CreateObject("ADODB.Connection")
conn.open Conn_String
Set RS = conn.Execute("select * from fotos where cod_foto =" & url)
redireciona = "ver_foto.asp?cod_foto=" & RS("cod_foto").value
'Insere mais um clique no banco de dados
cliques=cInt(rs("cliques"))+1
Set RS2 = conn.Execute("UPDATE fotos SET cliques = " & cliques & " where cod_foto =" & url)

RS.Close
conn.Close
set conn = nothing
'Redireciona para a url
Response.Redirect redireciona

%>

Provavelmente vc está tentando incrementar 1 em um valor nulo (um campo hits não usado ainda)

A solução está em fazer assim:

If Not IsNull(Rs("cliques")) Then 
  cliques = CInt(Rs("cliques"))+1
Else
  cliques = 1
End If