AVANSYS - Software a Su medida

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim filtro_p Dim cadena Dim sql filtro_p = request("filtro") if(filtro_p <> "") then sql = "SELECT * FROM cliente WHERE tipo = '" & filtro_p & "'" cadena = "Clientes Software " & filtro_p else sql = "SELECT * FROM cliente" cadena = "Clientes Todos los Software" end if Dim rsClientes Dim rsClientes_numRows Set rsClientes = Server.CreateObject("ADODB.Recordset") rsClientes.ActiveConnection = MM_conn_STRING rsClientes.Source = sql rsClientes.CursorType = 0 rsClientes.CursorLocation = 2 rsClientes.LockType = 1 rsClientes.Open() rsClientes_numRows = 0 Dim Repeat1__numRows Dim Repeat1__index Dim temp Repeat1__numRows = -1 Repeat1__index = 0 rsClientes_numRows = rsClientes_numRows + Repeat1__numRows %> AVANSYS - Software a Su medida

Odontology	Manager Pluss	Manager Gas	PC Manager	Manager School	Manager Jurídico	Manager TVSoft	Web

{ Ver Listado Completo }

<%=cadena %>

") if(temp = 4) then response.Write("") end if Repeat1__index=Repeat1__index + 1 Repeat1__numRows=Repeat1__numRows - 1 rsClientes.MoveNext() Wend %>

<% While ((Repeat1__numRows <> 0) AND (NOT rsClientes.EOF)) temp = Repeat1__index mod 5 if(temp = 0) then response.Write("

") else response.Write("

") end if %>



		" width="100" height="100" border="0" />

	<%=(rsClientes.Fields.Item("nombre").Value)%> <%=(rsClientes.Fields.Item("tipo").Value)%>

<% response.write("

<% if(Repeat1__index = 0) then response.Write("

Hasta el momento no hay clientes!

") end if rsClientes.Close() Set rsClientes = Nothing %>

Volver Arriba



	Todos los Derechos Reservados © 2006 - AVANSYS - Software a su medida Cra 27 # 36-14 Centro Empresarial Suramericana - Oficina 322 Teléfonos: 6802797-6802798-6802799 Bucaramanga, COLOMBIA