comando left

[daniel.pod 0]

Ai galera, to com um probleminha chato, eu tenho esse codigo aqui:

ASP

[*]<%

 

[*] ndb = Application("Conn")

 

[*] set db = server.CreateObject("ADODB.Connection")

 

[*] db.open ndb

 

[*]

 

[*] dim ntipo

 

[*] ntipo = request.QueryString("tipo")

 

[*]Sql="SELECT * FROM banner where estado=0 and tipo="&Cint(ntipo)

 

[*]Set RS = db.Execute(Sql)

 

[*] if rs.eof then

 

[*] if Cint(ntipo) = 1 then%>

 

[*] <img src="../adm/banner/padrao/anuncie_ivoces.jpg">

 

[*] <%response.End()

 

[*] elseif Cint(ntipo) = 2 then%>

 

[*] <img src="../adm/banner/padrao/banner_120x60.gif">

 

[*] <%response.End()

 

[*] end if

 

[*] end if

 

[*]Do Until RS.EOF or RS.BOF

 

[*]Valores = Valores & RS("cod") & ","

 

[*]RS.Movenext

 

[*]Loop

 

[*]ArraySplit = Split(Left(Valores,Len(Valores)-1),",")

 

[*]Randomize

 

[*]x = CInt(Rnd()*Ubound(ArraySplit))

 

[*]sID = ArraySplit(x)

 

[*]

 

[*]Sql="SELECT * FROM banner WHERE cod = "&sID&""

 

[*]Set rsMostra = db.Execute(Sql)

 

[*] if rsMostra("venvisu") = 0 then

 

[*] else

 

[*] if Cint(rsMostra("visualiza")) = Cint(rsMostra("venvisu")) then

 

[*] Sql2 = "UPDATE banner SET estado = 1 where cod = "&sID&""

 

[*] db.Execute(Sql2)

 

[*] end if

 

[*] end if%>

 

[*]<%if rsMostra("flash")="1" then %><a href="/adm/banner/count.asp?id=<%=rsMostra("cod")%>" target="_blank"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="468" height="60">

 

[*] <param name="movie" value="<%=rsMostra("../adm/banner/urlbanner")%>">

 

[*] <param name="quality" value="high">

 

[*] </object></a><%else%><a href="/adm/banner/count.asp?cod=<%=rsMostra("cod")%>" target="_blank"><font face="Verdana" size="1"><img alt="<%=rsMostra("url")%>" src="<%=rsMostra("../adm/banner/urlbanner")%>" border="0"></font></a><%end if%>

 

[*]<% Sql1 = "UPDATE banner SET visualiza = visualiza + 1 WHERE cod = "&rsMostra("cod")&" "

 

[*]db.Execute(Sql1) %>

 

esse codigo quando roda , da esse erro:

 

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A0005)

Chamada de procedimento ou argumento inválido: 'Left'

/ivoces/banner/banner.asp, line 23

 

Alguem pode me dizer o que acontece?

[explore 3]

tenta assim:

ASP

[*]ArraySplit = Split(Left(Valores,Len(Valores,-1)),",")

[Mário Monteiro 179]

antes desta linha do erroverifica se a variavelValorestem algopois se não tiver seria como se você fizesseLEFT("",-1)o que provoca o erro