<%@language=VBScript%> Rulova <% FUNCTION ExistePalabra(palabra) dim PalabraB PalabraB = SacarPalabra() ' Response.write(PalabraB) While (PalabraB <> palabra) and (Len(cadena2) > 0) 'response.write(len(cadena2)) PalabraB = SacarPalabra() Wend If PalabraB = palabra Then ExistePalabra = 1 Else ExistePalabra = 0 End If END FUNCTION FUNCTION SacarPalabra() Dim caracter Dim elemento Dim texto caracter = "" elemento = "" ' texto = Session.Contents("rulova") 'Response.Write(cadena2) caracter = Left(cadena2, 1) If Len(cadena2) > 0 Then cadena2 = Right(cadena2, Len(cadena2) - 1) Else caracter = "#" End If While Not caracter = "#" and Len(cadena2) >= 0 elemento = elemento & caracter caracter = Left(cadena2, 1) If Len(cadena2) > 0 Then cadena2 = Right(cadena2, Len(cadena2) - 1) Else caracter = "#" End If Wend SacarPalabra = elemento END FUNCTION Dim cadena cadena = Session.Contents("rulova") cadena2 = Session.Contents("rulova") 'Response.write("rulova: " & Session.Contents("rulova") & "
") 'Response.write(Len(Session.Contents("rulova")) & "
") 'Response.write("Cadena: " & cadena & "
") 'Response.write(Len(cadena) & "
") If Request.QueryString("id") <> "0" Then If Len(Cadena) = 0 Then cadena = Request.QueryString("id") Session.Contents("rulova") = cadena Else If ExistePalabra(Request.QueryString("id")) = 0 Then cadena = cadena & "#" & Request.QueryString("id") Session.Contents("rulova") = cadena End If End If End If %>
REF: F D. Forzada Diamantada
Add See
 
Thread (wire) diameter
Length in centimetres
40
45
50
60
30
1,50 gr.
1,70 gr.
1,90 gr.
2,30 gr.
35
1,80 gr.
2,10 gr.
2,30 gr.
2,70 gr.
40
2,80 gr.
3,20 gr.
3,50 gr.
4, 20 gr.
45
3, 20 gr.
3,60 gr.
4 gr.
4, 80 gr.
50
4, 20 gr.
4,40 gr.
4,90 gr.
5, 90 gr.
55
4,70 gr.
5, 30 gr.
5, 90 gr.
7, 10 gr.
60
5, 30 gr.
6 gr.
6,60 gr.
8,40 gr.
65
5,90 gr.
6,70 gr.
7,40 gr.
9,30 gr.
70
7 gr.
8 gr.
8,80 gr.
11,10 gr.
80
8,40 gr.
9,40 gr.
10,50 gr.
13,80 gr.
90
11,30 gr.
12,70 gr.
14,10 gr.
17,80 gr.
100
13,60 gr.
15,30 gr.
17 gr.
20,40 gr.
110
17,60 gr.
19,80 gr.
22 gr.
26,50 gr.
120
19 gr.
21,30 gr.
23,70 gr.
28,50 gr.
140
24,40 gr.
27,40 gr.
30,40 gr.
36,50 gr.