Erro ADODB Parameter error 800a0d5d

[ANGELA.BRANCO 0]

Bom dia pessoal estou com um erro estranho aqui, ele da em apenas algumas máquinas, abaixo segue o erro:

 

 

ADODB.Parameter error '800a0d5d'

Aplication uses a value of the wrong type for the current operation.

 

/trancking.asp, line 65

 

 

 

Alguem ja viu esse erro?

[Mário Monteiro 179]

ta dando erro de tipos

 

poe aqui a linha de codigo

[ANGELA.BRANCO 0]

a linha 65 é essa

 

 

set objRs = Server.CreateObject("ADODB.Recordset")

 

 

só não entendo pq da o erro em apenas algumas maquinas

[ANGELA.BRANCO 0]

ninguem? http://forum.imasters.com.br/public/style_emoticons/default/natal_sad.gif

[Ted k' 126]

você poderia postar o código completamente?

[Mário Monteiro 179]

como está rodando em varias maquinas? ou está em um servidor e esta apenas tentando acessar de varias maquinas

[ANGELA.BRANCO 0]

o problema é no site

[ANGELA.BRANCO 0]

ai vai o código

<%

Dim Surl

Dim Sevento

Dim objRsAux

Dim strSQL

Dim myItem

Dim intIdioma

 

intIdioma = Request.QueryString("lang")

Session("strLogin") = Request.QueryString("log")

Session("strNomeCliente") = Request.QueryString("nome")

sEvento = Request.QueryString("ev")

intLinkID = Request.QueryString("id")

 

If intClienteID = "" Then

intClienteID = 0

End If

 

If Session("intBoletimID") = "" Then

intBoletimID = Request.QueryString("bol")

End If

 

Sbrowser = Request.ServerVariables("HTTP_USER_AGENT")

Sip = Request.ServerVariables("REMOTE_ADDR")

Sreferer = left(Request.ServerVariables("HTTP_REFERER"),100)

 

If intLinkID <> "" Then

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

objConnection.ConnectionTimeout = 90

objConnection.CommandTimeout = 90

objConnection.Open "Provider=SQLOLEDB.1;Password=tommymel1612;Persist Security Info=True;User ID=santistaworkwear;Initial Catalog=santistaworkwear;Data Source=200.234.197.4"

 

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

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

Set cmdTemp = Server.CreateObject("ADODB.Command")

 

strSql = ""

strSql = strSql & "SELECT * FROM tbCliente WHERE strEmailCliente = '" & Session("strLogin") & "'"

objRsAux.Open strSql, objConnection

If Not objRsAux.EOF Then

intClienteID = objRsAux.Fields("intClienteID").Value

strSenha = objRsAux.Fields("strSenhaCliente").Value

idioma = objRsAux.Fields("intIdioma").Value

End If

objRsAux.Close

 

Set objRsAux = Nothing

 

If (strSenha = "") Then

session("ps") = 1

Else

session("ps") = 0

End if

 

 

URL = "http://www.bureausantista.com.br/"

If intClienteID > 0 Then

Set cmdTemp.ActiveConnection = objConnection

Sql = ""

Sql = sql & " INSERT INTO tbTrackingEmail (intClienteID,intLinkID,strBrowser,strIP,strReferencia,datAcesso,intEvento,in

tBo

etim) "

Sql = Sql & " VALUES (?,?,?,?,?,?,?,?) "

cmdTemp.CommandText = Sql

cmdTemp.Parameters(0).Value = intClienteID

cmdTemp.Parameters(1).Value = intLinkID

cmdTemp.Parameters(2).Value = Sbrowser

cmdTemp.Parameters(3).Value = Sip

cmdTemp.Parameters(4).Value = Sreferer

cmdTemp.Parameters(5).Value = now()

cmdTemp.Parameters(6).Value = sEvento

cmdTemp.Parameters(7).Value = intBoletimID

cmdTemp.Execute

 

Session("loginID") = intClienteID

 

If sEvento = "" Then

URL = "http://www.bureausantista.com.br/"

link = URL

Else

If ps = 0 Then

link = URL & "materiashow.asp?hdnBoletim=" & intBoletimID & "&hdnMateria=" & sEvento & "&hdnIdioma="& intIdioma &"&loginID=" & session("loginID") & "&ps=" & session("ps") & "&nome=" & trim(session("strNomeCliente"))

Else

link = "http://www.bureausantista.com.br/"

End If

End If

End If

End If

Response.Redirect(link)

%>