/ Published in: Visual Basic
Expand |
Embed | Plain Text
Copy this code and paste it in your HTML
Public Function AsignarG(Getgender As String) As String Dim piel As String piel = "<set id=""620"" gender=""F"" club=""0"" colorable=""1"" selectable=""1"">" piel = piel & "<set id=""626"" gender=""F"" club=""0"" colorable=""1"" selectable=""1"">" piel = piel & "<set id=""3096"" gender=""F"" club=""2"" colorable=""1"" selectable=""1"">" piel = piel & "<set id=""180"" gender=""M"" club=""0"" colorable=""1"" selectable=""1"">" piel = piel & "<set id=""207"" gender=""M"" club=""0"" colorable=""1"" selectable=""1"">" piel = piel & "<set id=""3091"" gender=""M"" club=""2"" colorable=""1"" selectable=""1"">" piel = piel & "<set id=""205"" gender=""M"" club=""0"" colorable=""1"" selectable=""1"">" piel = piel & "<set id=""190"" gender=""M"" club=""0"" colorable=""1"" selectable=""1"">" piel = piel & "<set id=""3092"" gender=""M"" club=""2"" colorable=""1"" selectable=""1"">" piel = piel & "<set id=""625"" gender=""F"" club=""0"" colorable=""1"" selectable=""1"">" piel = piel & "<set id=""185"" gender=""M"" club=""0"" colorable=""1"" selectable=""1"">" piel = piel & "<set id=""195"" gender=""M"" club=""0"" colorable=""1"" selectable=""1"">" piel = piel & "<set id=""3093"" gender=""M"" club=""2"" colorable=""1"" selectable=""1"">" piel = piel & "<set id=""610"" gender=""F"" club=""0"" colorable=""1"" selectable=""1"">" piel = piel & "<set id=""3097"" gender=""F"" club=""2"" colorable=""1"" selectable=""1"">" piel = piel & "<set id=""200"" gender=""M"" club=""0"" colorable=""1"" selectable=""1"">" piel = piel & "<set id=""600"" gender=""F"" club=""0"" colorable=""1"" selectable=""1"">" piel = piel & "<set id=""615"" gender=""F"" club=""0"" colorable=""1"" selectable=""1"">" piel = piel & "<set id=""3098"" gender=""F"" club=""2"" colorable=""1"" selectable=""1"">" piel = piel & "<set id=""206"" gender=""M"" club=""0"" colorable=""1"" selectable=""1"">" piel = piel & "<set id=""3094"" gender=""M"" club=""2"" colorable=""1"" selectable=""1"">" piel = piel & "<set id=""627"" gender=""F"" club=""0"" colorable=""1"" selectable=""1"">" piel = piel & "<set id=""605"" gender=""F"" club=""0"" colorable=""1"" selectable=""1"">" piel = piel & "<set id=""3099"" gender=""F"" club=""2"" colorable=""1"" selectable=""1"">" piel = piel & "<set id=""208"" gender=""M"" club=""0"" colorable=""1"" selectable=""1"">" piel = piel & "<set id=""209"" gender=""M"" club=""0"" colorable=""1"" selectable=""1"">" piel = piel & "<set id=""3095"" gender=""M"" club=""2"" colorable=""1"" selectable=""1"">" piel = piel & "<set id=""628"" gender=""F"" club=""0"" colorable=""1"" selectable=""1"">" piel = piel & "<set id=""629"" gender=""F"" club=""0"" colorable=""1"" selectable=""1"">" piel = piel & "<set id=""3100"" gender=""F"" club=""2"" colorable=""1"" selectable=""1"">" piel = piel & "<set id=""3101"" gender=""M"" club=""2"" colorable=""1"" selectable=""1"">" piel = piel & "<set id=""3102"" gender=""M"" club=""2"" colorable=""1"" selectable=""1"">" piel = piel & "<set id=""3103"" gender=""M"" club=""2"" colorable=""1"" selectable=""1"">" piel = piel & "<set id=""3104"" gender=""F"" club=""2"" colorable=""1"" selectable=""1"">" piel = piel & "<set id=""3105"" gender=""F"" club=""2"" colorable=""1"" selectable=""1"">" piel = piel & "<set id=""3106"" gender=""F"" club=""2"" colorable=""1"" selectable=""1"">" If InStr(piel, "<set id=""" & Getgender) Then Getgender = Split(piel, "<set id=""" & Getgender & """ gender=""")(1) Getgender = Split(Getgender, """")(0) AsignarG = Getgender End If End Function