Comparar dos valores

Cuezaltzin · #1 (**permalink**) 14/09/2004, 14:17

Hola a TODOS.

Tengo el siguiente codigo el cual imprime en una fila del numero 1 hasta el numero 100
y en la siguiente fila imprimo los numero de mi base de datos por ejemplo:

1 2 3 4 5 6 7 8 9 10 20 40 60 80 90 100
1 2 4 6 8 10 20 60 90 100

Como puedo hacer que para que cuando coincidan los numero por ejemplo el 1 con el 1 o el
90 con el 90 pueda habilitar el a href les pongo mi codigo:

<table border="1" width="27%">
<tr>
<td align="center">VALOR</td>
<% for i=1 to 100%>
<td align="center"><% response.write " "&i %></td><%next%>
</tr>
<tr>
<td align="center">LINK</td>
<%do while not lobjRst2.EOF%>
<td align="center">
<%
number = lobjrst2.fields("USA")
response.Write " "&number
lobjRst2.MoveNext
loop
%>
</td>
</tr>
</table>

Por su Atenciòn y ayuda GRACIAS

Myakire · #2 (**permalink**) 14/09/2004, 14:24

Bueno, como son números consecutivos, lo más simple es lo más evidente:

<%
cnt=1
do while not lobjRst2.EOF%>
<td align="center">
<%
if lobjrst2.fields("USA") = cnt Then
response.Write " <a href=""path"">" & number & "</a>"
else
response.Write " " & number
End if
cnt = cnt + 1
lobjRst2.MoveNext
loop
%>

Cuezaltzin · #3 (**permalink**) 14/09/2004, 14:46

Gracias por tu ayuda Myakire pero sigo sin poder resolver mi error podrias decirme donde esta mi error:

<table border="1" width="27%">
<tr>
<td align="center">VALOR</td>
<% for i=1 to 105%>
<td align="center"><% response.write " "&i %></td><%next%>
</tr>
<tr>
<td align="center">LINK</td>
<%
cnt=1
do while not lobjRst2.EOF%>
<td align="center">
<%

number = lobjrst2.fields("USA")

if number < 10 then
number = right(number,1)

elseif number >9 and number < 100 then
number = right(number,2)

end if
' 'response.Write " "&number

if number = cnt Then
response.Write "<a href='detalle.asp'> "&number &"</a>"
else
response.Write " " & number
End if
'response.write cnt
'response.write number
cnt = cnt + 1

lobjRst2.MoveNext
loop
%>
</td>
</tr>
</table>

Myakire · #4 (**permalink**) 15/09/2004, 07:42

Pero, ¿cuales son los posibles valores de lobjrst2.fields("USA")?, ¿qué hace o que no hace el código?

A ver....., haces una fila con 106 columnas (caben sin problemas en tu página)?
<tr>
<td align="center">VALOR</td>
<% for i=1 to 105%>
<td align="center"><% response.write " "&i %></td><%next%>
</tr>

Luego, barres una tabla, donde por cada registro generas una columna (¿Tienes 105 registros solamente?)

Luego obtienes los números de la tabla, pero al ser cadenas, deberias preguntar haciendo conversión de campos, es decir: "if CInt(number) = cnt Then".

Saludos

Cuezaltzin · #5 (**permalink**) 15/09/2004, 12:50

Ya hice esto pero ahora solo me pone el link en el ultimo numero en el 10. sigo sin entender este relajo.Asi lo tengo

1 2 3 4 5 6 7 8 9 10-------> solo aqui me pone el link
2 4 6 8 10

lstrQuery = "select * from Prueba order by usa asc"
set lobjRst2=lobjConnection.Execute(lstrQuery)
%>
<body>
<%
for i=1 to 10
do while not lobjRst2.EOF
number = lobjrst2.fields("USA")
response.Write " "&number
%>
<br>

<%
lobjRst2.MoveNext
loop
'response.write"<br>"
if i = CInt(number) Then
response.write "<a href='detalle.asp'> "&i
else
response.write " "&i
end if
next
%>

</body>

Myakire · #6 (**permalink**) 15/09/2004, 13:38

A ver, en el código que pones esta un poco extraño, ahora, tal vez no te he entendido.
Pretendes que pase algo así:

01--02--03--04--05--06--07 etcetera (valores del ciclo for)
23--02--45--02--05--09--10 (valores de la tabla)

Donde, solo 02 y 05 son ligas por que coincide el valor por su posición, ¿es correcto esto?

Código:

<tr><%
for i=1 to 10
%><td><%=i%></td><%
next
%><tr><%
cnt=1
do while not lobjRst2.EOF
   number = lobjrst2.fields("USA")
   if cnt = CInt(number) Then
     response.write "<td><a href='detalle.asp'> "& number & "</a></td>"
   else
     response.write " <td>"& number & "</td>"
   end if
   cnt = cnt + 1
   lobjRst2.MoveNext
loop
%>

Cuezaltzin · #7 (**permalink**) 15/09/2004, 14:06

Asi es lo que quiero es que cuando coincidan los datos del ciclo for con los de la tabla se habilite el link en los numeros que imprime el ciclo for .

Myakire · #8 (**permalink**) 15/09/2004, 14:23

El ejemplo que te puse lo hace, ¿o no?

Cuezaltzin · #9 (**permalink**) 15/09/2004, 14:34

Lo ejecute tal cual como lo pusiste y solo imprime los valores:
<a href="detalle.asp">1</a>2345678910 2 4 6 8 10

pero sobre el link nada

Myakire · #10 (**permalink**) 17/09/2004, 13:12

Solo era cosa de darle formato a la tabla HTML:

Código:

<table>
<tr>
<%
cadena="23--02--45--02--05--09--10--54--08--10"
vector = split(cadena,"--")
for i=1 to 10
%><td><%if i<10 Then response.write "0"&i Else response.write i End If%></td><%
next
%><tr><%
cnt=1
for i=0 to UBound(Vector)
   if cnt = CInt(vector(i)) Then
     response.write "<td><a href='detalle.asp'> "& vector(i) & "</a></td>"
   else
     response.write " <td>"& vector(i) & "</td>"
   end if
   cnt = cnt + 1
Next%>
</table>

Myakire · #11 (**permalink**) 20/09/2004, 09:47

mmmmmm, el problema que tienes sigue siendo del formato en HTML, a ver, espero esta vez ya te funcione:

Código:

<%
  Dim oConn1,oRs1
  Set oConn1 = Server.CreateObject("ADODB.Connection")
  Set oRS1 = Server.createobject("ADODB.Recordset")
  oConn1.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("prueba.mdb"))
  oRS1.Open "select * from columnas",oConn1,3,3
%>
<table border=1>
<tr>
<%
for i=1 to oRs1.RecordCount
%><td><%if i<10 Then response.write "0"&i Else response.write i End If%></td><%
next
%><tr><%
cnt=1
while not oRs1.EOF
   if cnt = CInt(oRs1("USA")) Then
     response.write "<td><a href='detalle.asp'> "& oRs1("USA") & "</a></td>"
   else
     response.write " <td>"& oRs1("USA") & "</td>"
   end if
	 cnt=cnt+1
   oRs1.Movenext
Wend%>
</table>