|
piedras preciosas y semipreciosas, joyas, joyeria, pulseras, collares, aretes, oro, plata, accesorios, diseño, mayoreo, cristal swarovski, circonias, murano, anillos, precious and semiprecious stones, jewellry, brasalets, necklass, earings, gold, silver, desing, wholesale, swarovski crystal, fine jewelry at cubic zirconia, murano beads
<% else Response.Redirect("index.htm") end if FUNCTION verificando(xxx) SET oRs = SERVER.CREATEOBJECT("ADODB.CONNECTION") oRs.OPEN "pande" aa = request.ServerVariables("Remote_Addr") ff = dateadd("s",1,now()) FechaIni = now() mm = Minute(FechaImi) FechaIni = right("0000"&year(FechaIni),4)&right("00"&month(FechaIni),2)&right("00"&day(FechaIni),2) & " 00:" &mm &":00:00" ff=left(cStr(time()),8) if right(now(),4)="p.m." then pho=cInt((left(ff,2))+12) pho2=cStr(pho) pho3=(pho2+right(ff,6)) end if ff2=left(cStr(date()),10) SQL = "SELECT login, ip, finsesion FROM registro WHERE((finsesion > now()) and (ip='"&aa&"'));" SET rs = oRs.EXECUTE(SQL) if not rs.EOF then if rs.fields("finsesion")>now() then aaa="ok" end if else aaa="Nel" end if END FUNCTION %>