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