<% IF Session("LanguageId")="" Then CurrentLanguage=1 CurrentLanguageName="English" Else CurrentLanguage=Session("LanguageId") CurrentLanguageName=Session("LanguageName") End IF Function RemoveHTML( strText ) Dim RegEx Set RegEx = New RegExp RegEx.Pattern = "<[^>]*>" RegEx.Global = True RemoveHTML = RegEx.Replace(strText, NoOfChar) End Function Function SummarySplit( strText,NoOfChar ) Str=Left(RemoveHTML(strText),NoOfChar) LastSpacePosition=InStrRev(Str," ") SummarySplit=Left(Str,LastSpacePosition) End Function Function related_tours(ID) sql="SELECT Top 4 Tours.LanguageId, Tours.name,Tours.PageName, ToursCategories.ToursCategoryId FROM ToursCategories INNER JOIN Tours ON ToursCategories.ToursCategoryId = Tours.ToursCategoryId Where Tours.LanguageId="&CurrentLanguage&" And ToursCategories.ToursCategoryId="&ID&" " 'response.Write sql rs.open sql,conn,3 IF Not rs.Eof Then x=1 Do While Not rs.Eof response.Write(""&x&"-"& rs("name")&"
") x=x+1 rs.MoveNext Loop Else 'Response.Write("

No Tours Categories

") End IF rs.Close End Function %>