Function EnumerateTags(ThisTags) Dim tags Dim i Dim buf Dim CleanTags CleanTags = Trim(ThisTags & "") If Right(CleanTags,1) = "," Then CleanTags = Left(CleanTags, Len(CleanTags)-1) End If If Len(CleanTags) = 0 Then EnumerateTags = "" Exit Function End If tags = Split(CleanTags, ",") buf = "" For i = 0 To UBound(tags) If Len(Trim(tags(i))) > 0 Then buf = buf & _ "" & _ Server.HTMLEncode(Trim(tags(i))) & _ "" End If Next buf = buf & "" EnumerateTags = buf End Function function AttackCheck(sText) dim sDeccoded dim oRegExpr dim oMatchCollection dim oMatch sDecoded = sText Set oRegExpr = Server.CreateObject("VBScript.RegExp") oRegExpr.Pattern = "%[0-9,A-F]{2}" oRegExpr.Global = True Set oMatchCollection = oRegExpr.Execute(sText) For Each oMatch In oMatchCollection sDecoded = Replace(sDecoded,oMatch.value,Chr(CInt("&H" & Right(oMatch.Value,2)))) Next if Instr(sDecoded," 0 or Instr(sDecoded,"SELECT ") > 0 or len(sDecoded) >100 Then AttackCheck = False AttackCheck = true End function %> Explore Kamat's Potpourri: Tag - vasco da gama
Kamat's Potpourri Explore Kamat's Potpourri  
Kamat's PotpourriNew Contents
About the Kamats
Feedback
History of India
Women of India
Faces of India
Indian Mythologies
geographica indicaArts of India
Indian Music
Indian Culture
Indian Paintings
Dig Deep Browse by Tags
Site Map
Historical Timeline
Master Index
Research House of Pictures
Stamps of India
Picture Archive
Natives of India
Temples of India
Kamat Network
Blog Portal

Tags Matching: vasco da gama

Bust of Vasco da Gama Bust of Vasco da Gama
Content Type: Picture
Date: January 1, 1997
Pictures of Vasco da Gama
Content Type: Pictures
Date: November 2, 2006
Pictures of Vasco da Gama
Content Type: Pictures
Date: November 2, 2006
Remembering the Discovery of India Remembering the Discovery of India
Content Type: Picture
Date: January 1, 1997

Kamat's Potpourri Explore by Tags

© 1995-2020 Kamat's Potpourri All Rights Reserved. Do not reproduce without prior permission. Some disclaimers apply.

Merchandise and Link Suggestions

Top of Page