<%@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("nombre: " & 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: BBT Bilbao amb travesany
Add See


 
Thread (wire) diameter
Length in centimeters
40
45
50
60
50
3,50 gr.
4 gr.
4,50 gr.
5 gr.
60
4,80 gr.
5,50 gr.
6 gr.
7,20 gr.
70
6,20 gr.
7 gr.
7,70 gr.
9 gr.