<%@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("nombre") '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 P L. Forzada Picada Larga
Add See

 
Thread (wire) diameter
Length in centimetres
40
45
50
60
         
40
2,30 gr.
2,60 gr.
2,80 gr.
3,40 gr.
50
3,30 gr.
3,70 gr.
4,20 gr.
5 gr.
70
5,80 gr.
6,50 gr.
7,20 gr.
8,70 gr.
90
9,50 gr.
10,70 gr..
11,90 gr.
14,20 gr.
120
18 gr.
20,30 gr.
22,50 gr.
27 gr.