Comparación de variables

Hola a todos, resulta que tengo el siguiente código, donde rescato P1 que
viene con el valor correcto y la variable Mes trae el mes y el año, pero
al momento de hacer las comparaciones Mes=TheFecha and (P1<>"" or P1>0) no
pasa, si saco los parentesis Mes=TheFecha and P1<>"" or P1>0 pasa pero la
comparación de la fecha no la hace corectamente. He probado varias maneras
pero no obtengo la comparación correcta, aqui el código. Gracias de
antemano.
if Request.QueryString("P1")<>"" then
P1 = CInt(Request.QueryString("P1"))
else
P1=0
end if
LaFech=Split(Mes,"-")
TheMes=LaFech(0)
TheAno=LaFech(1)
TheFecha = Month(date)&"-"&year(date)
'P1
Descripcion="Puntos Cantidad Entrevistas"
if Mes=TheFecha and Len(P1)>1 and (P1<>"" or P1>0) Then
strSQL = "Insert into abndesc(rut,fecha,abono,descuento,descripcion)
values('"&rut&"','"&TheFecha&"',"&P1&",0,'"&Descripcion&"')"
Set R = Conn.Execute(strSQL)
elseif TheMes<Month(date) and TheAno=<Year(date) and (P1<>"" or P1>0) then
strSQL = "update abndesc set abono="&P1&" where Rut='"&rut&"'
descripcion='"&Descripcion&"' and Month(fecha)="&TheMes&" and
year(fecha)="&TheAno&""
Set R = Conn.Execute(strSQL)
end if
Saludos

Ojo con los tipos, las que te vienen de split te llegan como strings, por
eso creo que te hace mal las comparaciones

por otro lado P1 viene de un cint con lo que nunca sera "" (en teoria, 0 o
un valor cint)

prueba
if (Mes & ""=TheFecha) and (P1>0) Then

"Lakrom" escribió en el mensaje
news:O$ZiEL$
Mostrar la cita

Hola a todos, resulta que tengo el siguiente código, donde rescato P1 que
viene con el valor correcto y la variable Mes trae el mes y el año, pero
al momento de hacer las comparaciones Mes=TheFecha and (P1<>"" or P1>0)
no pasa, si saco los parentesis Mes=TheFecha and P1<>"" or P1>0 pasa pero
la comparación de la fecha no la hace corectamente. He probado varias
maneras pero no obtengo la comparación correcta, aqui el código. Gracias
de antemano.
if Request.QueryString("P1")<>"" then
P1 = CInt(Request.QueryString("P1"))
else
P1=0
end if
LaFech=Split(Mes,"-")
TheMes=LaFech(0)
TheAno=LaFech(1)
TheFecha = Month(date)&"-"&year(date)
'P1
Descripcion="Puntos Cantidad Entrevistas"
if Mes=TheFecha and Len(P1)>1 and (P1<>"" or P1>0) Then
strSQL = "Insert into abndesc(rut,fecha,abono,descuento,descripcion)
values('"&rut&"','"&TheFecha&"',"&P1&",0,'"&Descripcion&"')"
Set R = Conn.Execute(strSQL)
elseif TheMes<Month(date) and TheAno=<Year(date) and (P1<>"" or P1>0)
then
strSQL = "update abndesc set abono="&P1&" where Rut='"&rut&"'
descripcion='"&Descripcion&"' and Month(fecha)="&TheMes&" and
year(fecha)="&TheAno&""
Set R = Conn.Execute(strSQL)
end if
Saludos