<%@ Language=VBScript %> Asesoramiento en inversiones bursatiles,especialistas en inversiones chile <h3 align="center"> <h4><a href="http://www.strikeoption.com/src/Patagon/panorama.htm">Asesoramiento en inversiones bursatiles,especialistas en inversiones chile</a></h4> <h4><a href="http://www.visitingargentina.com/">Turismo Argentina</a></h4> <h4> <a href="http://www.visitingchile.com/">Chile Turismo</a></h4> <h4><a href="http://www.traducciones.ws/">Traduccion Ingles</a></h4> <h4><a href="http://www.altasenbuscadores.cl/">Alta en buscadores chile </a></h4> <h4><a href="http://www.chiledirectorio.com">Chile Directorio</a></h4> </h3> <% 'abrir el objeto de la tabla de forma directa sin ODBC Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=d:\webroot\strikeoption.com\databases\wdor3.xls;" Set objRS = Server.CreateObject("ADODB.Recordset") objRS.ActiveConnection = objConn objRS.CursorType = 3 'Static cursor. objRS.LockType = 2 'Pessimistic Lock. objRS.Source = "Select * from fechacierre" objRS.Open%>

 PANORAMA TÉCNICO BURSÁTIL AL CIERRE: <%response.write(objRS.Fields.Item(0).Value)%>

<% Set objRS = Server.CreateObject("ADODB.Recordset") objRS.ActiveConnection = objConn objRS.CursorType = 3 'Static cursor. objRS.LockType = 2 'Pessimistic Lock. objRS.Source = "Select * from panorama1" objRS.Open%> <% Set objRS = Server.CreateObject("ADODB.Recordset") objRS.ActiveConnection = objConn objRS.CursorType = 3 'Static cursor. objRS.LockType = 2 'Pessimistic Lock. objRS.Source = "Select * from panorama2" objRS.Open%>
<%objRS.MoveFirst cont=0 While Not objRS.EOF%> <%For X = 0 To objRS.Fields.Count - 1%> <% 'COLORES DE FONDO%> <% if x = 0 then %> <%if cont = 0 then%> <%Next%> <%objRS.MoveNext%> <% cont = cont + 1%> <%Wend%>
<%else%> <%if cont = 1 then%> <%else%> <%if cont = 4 or cont = 5 then%> <%else%> <%end if%> <%end if%> <%end if%> <% end if%> <%if x = 1 then %> <%if cont = 0 then%> <%IF (objRS.Fields.Item(X).Value) = 1 THEN %> <%end if%> <%IF (objRS.Fields.Item(X).Value) = 2 THEN %> <%end if%> <%end if%> <%if cont > 0 and cont < 4 then%> <%end if%> <%if cont >= 4 then%> <%end if%> <%end if%> <% 'TIPOS DE LETRA,TAMAÑO%> <%if x = 1 then%> <%if cont = 0 then%> <%end if%> <%if cont = 1 or cont = 2 then%> <%end if%> <%if cont >= 3 then%> <%if objRS.Fields.Item(X).Value > 0 then%> <%else%> <%end if%> <%end if%> <%end if%> <%if x = 0 then%> <%if cont = 0 then%> <%else%> <%if cont = 1 then%> <%else%> <%end if%> <%end if%> <%end if%> <%' ENVIA INFORMACION%> <%if x = 0 then%> <%Response.write(objRS.Fields.Item(X).Value) %> <%end if%> <%if x = 1 then%> <%if cont = 0 then%> <%IF (objRS.Fields.Item(X).Value) = 1 THEN %> AL ALZA <%END IF%> <%IF (objRS.Fields.Item(X).Value) = 2 THEN %> A LA BAJA <%END IF%> <%end if%> <%if cont = 1 or cont = 2 then%> <%Response.write(formatNumber(round(CSng(objRS.Fields.Item(X).Value)),0,0,0,-1)) %> <%end if%> <%if cont = 3 then%> <%Response.write(Round(FormatNumber(CSng(objRS.Fields.Item(X).Value)*100,,0,0,-1),1) & " %") %> <%end if%> <%if cont >= 4 and cont <= 5 then%> <%Response.write(Round(FormatNumber(CSng(objRS.Fields.Item(X).Value)*100,,0,0,-1),0) & " %") %> <%end if%> <%end if%>
       Nota: Ver comentario abajo
<%objRS.MoveFirst cont=0 While Not objRS.EOF%> <%For X = 0 To objRS.Fields.Count - 1%> <% 'COLORES DE FONDO%> <% if x = 0 then %> <%if cont = 0 then%> <%Next%> <%objRS.MoveNext%> <% cont = cont + 1%> <%Wend%>
<%else%> <%if cont=1 then%> <%else%> <%if cont = 4 or cont = 5 then%> <%else%> <%end if%> <%end if%> <%end if%> <% end if%> <%if x = 1 then %> <%if cont = 0 then%> <%IF (objRS.Fields.Item(X).Value) = 1 THEN %> <%end if%> <%IF (objRS.Fields.Item(X).Value) = 2 THEN %> <%end if%> <%end if%> <%if cont > 0 and cont < 4 then%> <%end if%> <%if cont >= 4 then%> <%end if%> <%end if%> <% 'TIPOS DE LETRA,TAMAÑO%> <%if x = 1 then%> <%if cont = 0 then%> <%end if%> <%if cont = 1 or cont = 2 then%> <%end if%> <%if cont >= 3 then%> <%if objRS.Fields.Item(X).Value > 0 then%> <%else%> <%end if%> <%end if%> <%end if%> <%if x = 0 then%> <%if cont = 0 then%> <%else%> <%if cont = 1 then%> <%else%> <%end if%> <%end if%> <%end if%> <%' ENVIA INFORMACION%> <%if x = 0 then%> <%Response.write(objRS.Fields.Item(X).Value) %> <%end if%> <%if x = 1 then%> <%if cont = 0 then%> <%IF (objRS.Fields.Item(X).Value) = 1 THEN %> AL ALZA <%END IF%> <%IF (objRS.Fields.Item(X).Value) = 2 THEN %> A LA BAJA <%END IF%> <%end if%> <%if cont = 1 or cont = 2 then%> <%Response.write(formatNumber(round(CSng(objRS.Fields.Item(X).Value)),0,0,0,-1)) %> <%end if%> <%if cont = 3 then%> <%Response.write(Round(FormatNumber(CSng(objRS.Fields.Item(X).Value)*100,,0,0,-1),1) & " %") %> <%end if%> <%if cont >= 4 and cont <= 5 then%> <%Response.write(Round(FormatNumber(CSng(objRS.Fields.Item(X).Value)*100,,0,0,-1),0) & " %") %> <%end if%> <%end if%>
                                   Fuente www.StrikeOption.com
<% Set objRS = Server.CreateObject("ADODB.Recordset") objRS.ActiveConnection = objConn objRS.CursorType = 3 'Static cursor. objRS.LockType = 2 'Pessimistic Lock. objRS.Source = "Select * from dowjones" objRS.Open%> <%objRS.MoveFirst%> <%While Not objRS.EOF%> <%objRS.MoveNext%> <%Wend%>
Dow Jones
<%Response.write(objRS.Fields.Item(0).Value)%>
<% Set objRS = Server.CreateObject("ADODB.Recordset") objRS.ActiveConnection = objConn objRS.CursorType = 3 'Static cursor. objRS.LockType = 2 'Pessimistic Lock. objRS.Source = "Select * from nasdaq" objRS.Open%> <%objRS.MoveFirst%> <%While Not objRS.EOF%> <%objRS.MoveNext%> <%Wend%> <% objRS.Close Set objRS = Nothing objConn.Close Set objConn = Nothing%>
Nasdaq
<%Response.write(objRS.Fields.Item(0).Value)%>

 

DEFINICIONES: El comentario  está basado en la interpretación de las cifras al cierre y de los gráficos mediante Análisis Técnico. Este informe pretende anunciar el próximo movimiento del mercado en el muy corto plazo. Cuando el mercado rompe los niveles de soporte o resistencia anunciados, se visualiza nuevamente cual es el próximo nivel hacia el cual probablemente se dirigiráRecordemos que los mercados pueden ser fácilmente seguidos, pero no predecidos.

 

STRIKE OPTION
Av. Luis Thayer Ojeda N° 0180 of. 1006
Santiago CHILE
Fono: 56-2 3787316
          56-2 2320502
          56-09-2130943
711 S.Carson Street  N°4

Fax:  775-882 6818
Carson City, Nevada, USA