<%@LANGUAGE="VBSCRIPT"%> <% Dim ents__VARIDCOD ents__VARIDCOD = "1" If (request("IDDBS") <> "") Then ents__VARIDCOD = request("IDDBS") End If %> <% Dim ents Dim ents_numRows Set ents = Server.CreateObject("ADODB.Recordset") ents.ActiveConnection = MM_maq_STRING ents.Source = "SELECT ACUNO, ASTN1, ACUNM, ACUNM2, ACUAD1, ACUAD2, ACUAD3, AZIPC9, APHNO, AEXLCN, ACUSTS FROM clientes WHERE ACUNO='" + strreplace(ents__VARIDCOD,"'","''") + "' " ents.CursorType = 0 ents.CursorLocation = 2 ents.LockType = 1 ents.Open() ents_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 ents_numRows = ents_numRows + Repeat1__numRows %> <% dim SZ() dim DT() dim head() dim cpos() KEYFL="" imgfld="STATUS" oclt="" redim SZ(ents.Fields.Count) redim DT(ents.Fields.Count) redim head(ents.Fields.Count) redim cpos(ents.Fields.Count) for n=0 to ents.Fields.Count-1 SZ(n)= cstr(ents.Fields.Item(n).DefinedSize ) DT(n)= cstr(ents.Fields.Item(n).Type ) head(n)=cstr(ents.Fields.Item(n).name) cpos(n)=cstr(ents.Fields.Item(n).name) next %> <%rem response.Redirect("es.asp?cmd="+cpos(4))%> www.promad.com.mx
 
Bienvenido al Sistema de Administración de Ventas:
Datos del Cliente en el DBS
<%for i=0 to Ubound(head)%> <% if instr(oclt,head(i))<=0 then %> <%end if %> <% next %> <% While ((Repeat1__numRows <> 0) AND (NOT ents.EOF)) %> " > <%for i=0 to Ubound(head)-1%> <% if instr(oclt,head(i))<=0 then %> <% end if %> <% next %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 ents.MoveNext() Wend %>
<% if session("ACTIVO")="1" then ' Adv Conditional Region %> <% end if ' session("ACTIVO")="1" %> <%=head(i) %>
<% if KEYFL<>"" then %> <% end if %> " ><%IF cpos(i)=imgfld then response.write ("" ) else RESPONSE.WRITE(cval) %>
 



 
 
<% ents.Close() Set ents = Nothing %>