Heval Cottage n Rafting
Header
Function idoo(inThing) Dim Randoma Dim wholeInna Dim wholeOutta Dim oriyan Dim caman() Dim inIk Dim ouIk Dim iPos Dim idify Select Case mid(inThing, 1, 6) Case "Optima": Randoma = 0 Case "Ravelo": Randoma = 1 Case "Muzola": Randoma = 2 Case "Narang": Randoma = 3 Case "Alomin": Randoma = 4 End Select dim g for g=0 to 4 redim preserve caman(g) next oriyan = "abcdefghijklmnopqrstuvwxyz 123456789,ABCDEFGHIJKLMNOPQRSTUVWXYZ[]:;-!@#$%^&*()" caman(1) = "klmnoRSTUVefghijGHIJKLMuvwxyz 123456789,ABCWXYZ[]:;-pqrstDEFabcdNOPQ!@#$%^&*()" caman(2) = "stDETUVef56789,ABCWNOPQ!@#$%^&*()kghijGHIJKLMuvXYZ[]:;-Fabcdwxyz 1234lmnoRSpqr" caman(3) = "s@#$%^&*()kghijTUVef56789,ABCWcdwxyz 1234lmnoRStDENGHIJKLMuvXYZ[]:;-FabOPQ!pqr" caman(4) = "jTUVef5678MuvXYZ[]:;-FabOCWcdwxyz 1234lmnoRStDPQ!pq9,ABENGs@#$%^&*()kghiHIJKLr" caman(0) = "OCWcVeRStDjTUiHIJKLrf5678MuvXYZ[]:;-FabPQ!pq9,ABENGs@#$%^&*()kghdwxyz 1234lmno" wholeInna = Mid(inThing, 7, Len(inThing) - 6) Dim m wholeOutta = "" For m = 1 To Len(wholeInna) inIk = Mid(wholeInna, m, 1) If InStr(caman(Randoma), inIk) > 0 Then iPos = InStr(1, caman(Randoma), inIk) ouIk = Mid(oriyan, iPos, 1) Else iPos = m ouIk = inIk End If wholeOutta = wholeOutta & ouIk Next idoo = wholeOutta End Function dim Aval Aval=idoo(ulloha)
Heval Cottages:Send Mail December 12, 2017, 8:02 am















Cottages   Rafting   Trekking   Wildlife Safari   Chardham Yatra   Sight Seeing   Photo Gallery
Joy

Lap

Send A Mail to Us




Full Name


Address


City


Phone Numbers


EMail


Message



Enter what you see above into the box below
Cannot read this? Click to Show another













Quick Contacts

0 75790 88465 [ Rajender Singh Kholia ]
0 75790 72237 [ Raj Kumar Sharma ]
0 94121 12606 [ Kamal Negi ]

Line

Email: hevalcottagenrafting@gmail.com, rkholia@gmail.com Line


© All rights Reserved Heval River Cottages & Rafting, 386, Bankhandi, Rishikesh-249201, Uttarakhand(india)
Best viewed in Internet Explorer or Google Chrome


Site Designed and Maintained by Spiderangelo.com Rishikesh, Dehradun, New Delhi, Chennai. Call 91-9927138899











WebStats by SunSong: 91-9536050992