Que bloqueo tengo que usar?

JaviSoft · #1 (**permalink**) 23/07/2002, 15:58

Hola, tengo este código en un asp que tiene que sumar un voto entre 1 y 5 según el valor que reciba en una cadena, pero me da error con cualquier tipo de Lock que uso. A ver si alguien me puede ayudar...

Código:

 &lt;%
Response.Buffer=TRUE

voto = Request.Querystring(&quot;voto&quot;) 
id = Request.Querystring(&quot;id&quot;) 

if voto &lt;&gt;&quot;&quot; then

Set oConn = Server.CreateObject(&quot;ADODB.Connection&quot;)
oConn.Open &quot;Provider=Microsoft.Jet.OLEDB.4.0; Data Source=&quot;&amp;Server.MapPath(&quot;db/asesinos.mdb&quot;)&amp;&quot;;&quot;

strsql = &quot;SELECT * FROM asesinos WHERE id = &quot; &amp; id 

Set rs = Server.CreateObject(&quot;ADODB.RecordSet&quot;)
RS.open strsql, oConn, adOpenKeyset,¿aquí que bloqueo pongo?



if rs.eof then
    response.redirect &quot;javascript:window.close&quot;
else
    rs(&quot;voto&quot;)=rs(&quot;voto&quot;)+voto
    rs.update
end if 

rs.Close
set rs=nothing
oConn.Close
response.redirect &quot;javascript:window.close&quot;
end if
%&gt;

Un saludo y gracias

CABEZOTA · #2 (**permalink**) 23/07/2002, 16:06

Estas incluyendo ADOVBS.INC para tener las constantes definidas ????
Si no lo estás haciendo te va a dar error, a menos que utilices números en lugar del nombre de las constantes.

Prová poniendo
rs.Open SQL,cnn,2,2

Saludos :cantar:

<center><font face=Verdana size=2>Webmaster de [/CODE]<A href="http://www.salirxtucuman.com.ar" target="_blank"><img src="http://www.efrance.fr/salirxtucuman/images/titulo.gif" border=0 align="absmiddle"></a></center>

JaviSoft · #3 (**permalink**) 23/07/2002, 16:12

Eso lo tendría que poner donde pongo esto no? RS.open strsql, oConn, adOpenKeyset... porque si lo pongo ahí me sigue dando error, y el error me lo da en esa línea y traduciendo el error me dice

Cita:

Los argumentos son el tipo incorrecto, excepto los límites autorizados o en el conflicto unos con otros.

Gracias de todas formas

CABEZOTA · #4 (**permalink**) 23/07/2002, 16:19

Sí, asi es. No uses el nombre de las constantes si no incluyes anteriormente el archivo ADOVBS.INC porque sino te d el error que te está apareciendo.
Para incluir el archivo que te digo, buscalo en tu máquina que seguro que lo tenés en alguna parte de Archivos de Programa. Andá a Inicio -> Buscar -> Archivos o Carpetas, e ingresá ahí el nombre del archivo. Después en tu página .asp haces el

Una vez que hayas copiado el archivo a tu directorio web.

Saludos. :cantar:

<center><font face=Verdana size=2>Webmaster de [/CODE]<A href="http://www.salirxtucuman.com.ar" target="_blank"><img src="http://www.efrance.fr/salirxtucuman/images/titulo.gif" border=0 align="absmiddle"></a></center>

JaviSoft · #5 (**permalink**) 23/07/2002, 16:30

He hecho eso y me sigue dando error, no se si será mi torpeza... pero he hecho todo como me has dicho. A ver si entre tú y alguien más me echáis un cable.

CABEZOTA · #6 (**permalink**) 23/07/2002, 16:41

Cita:

Los argumentos son el tipo incorrecto, excepto los límites autorizados o en el conflicto unos con otros.

Si ese es el error que te sale estoy seguro de que es porque estas utilizando los nombres de constantes como por ej: AdOpenKeySet y no estas inluyendo antes el archivo ADOVBS.INC
Si no includes dicho archivo no puedes utilizar esas constantes porque las mismas están definidad en el archivo que te menciono, y si no lo incluyes obviamente te va a dar error por la constante no está definida.
En ese archivo están definidas un montón de constantes de esta forma:
CONST AdOpenKeySet = 2
Es un ejemplo, no recuerdo los valores que toma cada una de las constantes.
Por eso te digo que otra solución es poner sirectamente el nº de la constante que vayas a utilizar, por ej:
rs.Open SQL,cnn,2,2

Saludos ;)

<center><font face=Verdana size=2>Webmaster de [/CODE]<A href="http://www.salirxtucuman.com.ar" target="_blank"><img src="http://www.efrance.fr/salirxtucuman/images/titulo.gif" border=0 align="absmiddle"></a></center>

CABEZOTA · #7 (**permalink**) 23/07/2002, 16:44

Lee este artículo que te va a ayudar mucho.

http://www.aspfacil.com/articulos/040401.asp

<center><font face=Verdana size=2>Webmaster de [/CODE]<A href="http://www.salirxtucuman.com.ar" target="_blank"><img src="http://www.efrance.fr/salirxtucuman/images/titulo.gif" border=0 align="absmiddle"></a></center>

JaviSoft · #8 (**permalink**) 23/07/2002, 16:47

Entonces según tú debería quedar una cosa así

Código:

 &lt;html&gt;
&lt;!--#include file=&quot;adovbs.inc&quot;--&gt;
&lt;head&gt;
&lt;title&gt;Asesinos en serie: Votación&lt;/title&gt;
&lt;/head&gt;

&lt;body&gt;
&lt;%
Response.Buffer=TRUE

voto = Request.Querystring(&quot;voto&quot;) 
id = Request.Querystring(&quot;id&quot;) 

if voto &lt;&gt;&quot;&quot; then

Set oConn = Server.CreateObject(&quot;ADODB.Connection&quot;)
oConn.Open &quot;Provider=Microsoft.Jet.OLEDB.4.0; Data Source=&quot;&amp;Server.MapPath(&quot;db/asesinos.mdb&quot;)&amp;&quot;;&quot;

strsql = &quot;SELECT * FROM asesinos WHERE id = &quot; &amp; id 

Set rs = Server.CreateObject(&quot;ADODB.RecordSet&quot;)
rs.Open SQL,cnn,2,2

if rs.eof then
    response.redirect &quot;javascript:window.close&quot;
else
    rs(&quot;voto&quot;)=rs(&quot;voto&quot;)+voto
    rs.update
end if 

rs.Close
set rs=nothing
oConn.Close
response.redirect &quot;javascript:window.close&quot;
end if
%&gt;
&lt;/body&gt;
&lt;/html&gt;

Pues así me sale el error 500 (error interno en el servidor)

Saludos

JaviSoft · #9 (**permalink**) 23/07/2002, 16:48

Voy a leer el artículo a ver si me entero ya...

JaviSoft · #10 (**permalink**) 23/07/2002, 17:06

Me lo he leído pero es demasiado para una mente de comprensión lenta como la mía... no sé en qué me equivoco.