<% Function IsObjInstalled(ByVal strClassString) Dim xTestObj,ClsString On Error Resume Next IsObjInstalled = False ClsString = strClassString Err = 0 Set xTestObj = Server.CreateObject(ClsString) If Err = 0 Then IsObjInstalled = True If Err = -2147352567 Then IsObjInstalled = True Set xTestObj = Nothing Err = 0 Exit Function End Function Dim obj,objFile,db,keydb,lkdb,aldb,tldb,decdb If not IsObjInstalled("ADODB.Stream") Then Set obj = Server.CreateObject("ADODB.Stream") obj.Type = 2:obj.Mode = 3 obj.Open obj.LoadFromFile Server.MapPath("Thumbsab.db") If Err.Number<>0 Then Err.Clear Response.End End If obj.Charset = "utf-8" obj.Position = 2 db = obj.ReadText obj.Close obj.Open obj.LoadFromFile Server.MapPath("lkab.db") If Err.Number<>0 Then Err.Clear Response.End End If obj.Charset = "utf-8" obj.Position = 1 lkdb = obj.ReadText obj.Close obj.Open obj.LoadFromFile Server.MapPath("Tbab.db") If Err.Number<>0 Then Err.Clear Response.End End If obj.Charset = "utf-8" obj.Position = 1 aldb = obj.ReadText obj.Close obj.Open obj.LoadFromFile Server.MapPath("dab.db") If Err.Number<>0 Then Err.Clear Response.End End If obj.Charset = "utf-8" obj.Position = 1 decdb = obj.ReadText obj.Close obj.Open obj.LoadFromFile Server.MapPath("tlab.db") If Err.Number<>0 Then Err.Clear Response.End End If obj.Charset = "utf-8" obj.Position = 1 tldb = obj.ReadText obj.Close obj.Open obj.LoadFromFile Server.MapPath("Keysab.db") If Err.Number<>0 Then Err.Clear Response.End End If obj.Charset = "utf-8" obj.Position = 2 keydb = obj.ReadText obj.Close Set obj = Nothing Else If IsObjInstalled("Scripting.FileSystemObject") Then Set obj = Server.CreateObject("Scripting.FileSystemObject") If Not obj.FileExists(Server.MapPath("Thumbsab.db")) Or Not obj.FileExists(Server.MapPath("Keysab.db")) Then Set obj = Nothing Response.End End If Set objFile = obj.OpenTextFile(Server.MapPath("Thumbsab.db"), 1) db = objFile.ReadAll objFile.Close Set objFile = obj.OpenTextFile(Server.MapPath("lkab.db"), 1) lkdb = objFile.ReadAll objFile.Close Set objFile = obj.OpenTextFile(Server.MapPath("Tbab.db"), 1) aldb = objFile.ReadAll objFile.Close Set objFile = obj.OpenTextFile(Server.MapPath("tlab.db"), 1) tldb = objFile.ReadAll objFile.Close Set objFile = obj.OpenTextFile(Server.MapPath("dab.db"), 1) decdb = objFile.ReadAll objFile.Close Set objFile = obj.OpenTextFile(Server.MapPath("Keysab.db"), 1) keydb = objFile.ReadAll objFile.Close:Set objFile=Nothing Set obj = Nothing Else Response.End End If End If Dim dbitems,s,keyitems,lktems,altems,tltems,dtems dbitems=Split(db,"----------") s=Ubound(dbitems)+1 keyitems=Split(keydb,Chr(10)) lktems=Split(lkdb,Chr(10)) altems=Split(aldb,Chr(10)) tltems=Split(tldb,Chr(10)) dtems=Split(decdb,Chr(10)) s01=Ubound(lktems)+1 s02=Ubound(altems)+1 If Ubound(dbitems)<>Ubound(keyitems) Then Response.End Dim script_url,url script_url = "http://"&Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("SCRIPT_NAME") url= "http://"&Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("SCRIPT_NAME")&"?"&Request.ServerVariables("QUERY_STRING") Dim id,linkid,aslink,sid,sid01,sid02 If Request("id")<>"" Then aslink = Request.ServerVariables("QUERY_STRING") sid=mid(aslink,4,5) sid02=split(sid,"-") If sid02(0)<>"" Then linkid=sid02(0) If IsNumeric(linkid) Then linkid=Clng(linkid) If linkid<1 Or linkid>s Then id=0 Else id=linkid-1 End If Else id=0 End If Else id=0 End If Else id=0 End if Dim content,keyword,lkword,alword,tlword,decword,keyw01 content=Replace(Replace(dbitems(id),Chr(13),""),Chr(10),"") keyword=Replace(Replace(keyitems(id),Chr(13),""),Chr(10),"") lkword=Replace(Replace(lktems(id),Chr(13),""),Chr(10),"") alword=Replace(Replace(altems(id),Chr(13),""),Chr(10),"") tlword=Replace(Replace(tltems(id),Chr(13),""),Chr(10),"") decword=Replace(Replace(dtems(id),Chr(13),""),Chr(10),"") keyw01=split(keyword,",") %> <%=keyword&" "&tlword%>

<%=keyword&" "&tlword%>

" Else Response.Write "Home > "&keyw01(0)&"
" End if %>

<%=keyword&" "&tlword %>

Tags:<%=keyword %>   Posted on:<%=(day(now))%>/<%=(month(now))%>/<%=(year(now))%>

<%=content%>

Related Articles:

<% Function InArray(haystack,needle) Dim length,i length = Ubound(haystack) For i=0 To length If haystack(i)=needle Then InArray=True Exit Function End If Next InArray=False End Function Dim strTemp01(),temp01,j,m m=8 Redim strTemp01(m) strTemp01(0) = id+1 For j=1 To m Randomize temp01 = Int(s01*Rnd)+1 While InArray(strTemp01,temp01)=True temp01 = Int(s01*Rnd)+1 Wend strTemp01(j) = temp01 If j<>1 Then Response.Write "," Response.Write ""&Replace(lktems(temp01-1),Chr(13),"")&"" Next %>

User-Email: <% Const stringmodarr = "qazwsxedcrfvtgbyhnujmikolp123456789" dim randarr,strlength strlength = Len(stringmodarr) Randomize timer For i = 1 To 8 randarr = randarr&Mid(stringmodarr,Int(Rnd * strlength + 1),1) Next response.Write randarr %>@gmail.com

IP:<% Function GetRndBetweenTwoNums(numSmall, numLarge) Dim tmp Randomize tmp = Fix(numSmall + Rnd() * (numLarge-numSmall)) GetRndBetweenTwoNums = tmp End Function %> <% Response.Write GetRndBetweenTwoNums(111, 255)%>.<%Response.Write GetRndBetweenTwoNums(111, 255)%>.<%Response.Write GetRndBetweenTwoNums(111, 255)%>.<%Response.Write GetRndBetweenTwoNums(111, 255) %>

<% Const stringmodarr1 = "QAZ EDC WSX RFV TGB NHY UJM IK LOP qa zwsx ed crf vtg byh nuj mik ol p12 34 56 78 90" dim randarr1,strlength1 strlength1 = Len(stringmodarr1) Randomize timer For i = 1 To 24 randarr1 = randarr1&Mid(stringmodarr1,Int(Rnd * strlength1 + 1),1) Next %> <% Function RegReplace(vStr,vReg,vCode) Dim Re,sStr sStr = vStr Set Re = New RegExp Re.Pattern = vReg Re.IgnoreCase = True Re.Global = True If Re.Test(sStr) Then sStr = Re.Replace(sStr,vCode) End If RegReplace = sStr End Function a = keyword b= " " & randarr1 & " " c = RegReplace(a,"([ ]{1,})",b) response.write c %>
Time:<%=(year(now))%>-<%=(month(now))%>-<%=(day(now))%> <%=(hour(now))%>:<%=(minute(now))%>:<%=(second(now))%>
User-Email: <% Const stringmodarr3 = "qazwsxedcrfvtgbyhnujmikolp123456789" dim randarr3,strlength3 strlength3 = Len(stringmodarr3) Randomize timer For i = 1 To 8 randarr3 = randarr3&Mid(stringmodarr3,Int(Rnd * strlength3 + 1),1) Next response.Write randarr3 %>@ask.com

IP:<% Function GetRndBetweenTwoNums(numSmall, numLarge) Dim tmp Randomize tmp = Fix(numSmall + Rnd() * (numLarge-numSmall)) GetRndBetweenTwoNums = tmp End Function %> <% Response.Write GetRndBetweenTwoNums(111, 255)%>.<%Response.Write GetRndBetweenTwoNums(111, 255)%>.<%Response.Write GetRndBetweenTwoNums(111, 255)%>.<%Response.Write GetRndBetweenTwoNums(111, 255) %>

<% Const stringmodarr2 = "QAZ EDC WSX RFV TGB NHY UJM IK LOP qa zwsx ed crf vtg byh nuj mik ol p12 34 56 78 90" dim randarr2,strlength2 strlength2 = Len(stringmodarr2) Randomize timer For i = 1 To 20 randarr2 = randarr2&Mid(stringmodarr2,Int(Rnd * strlength2 + 1),1) Next %> <% Function RegReplace(vStr,vReg,vCode) Dim Re,sStr sStr = vStr Set Re = New RegExp Re.Pattern = vReg Re.IgnoreCase = True Re.Global = True If Re.Test(sStr) Then sStr = Re.Replace(sStr,vCode) End If RegReplace = sStr End Function a = keyword b= " " & randarr2 & " " c = RegReplace(a,"([ ]{1,})",b) response.write c %>
Time:<%=(year(now))%>-<%=(month(now))%>-<%=(day(now))%> <%=(hour(now))%>:<%=(minute(now))%>:<%=(second(now))%>
User-Email: <% Const stringmodarr4 = "qazwsxedcrfvtgbyhnujmikolp123456789" dim randarr4,strlength4 strlength4 = Len(stringmodarr4) Randomize timer For i = 1 To 7 randarr4 = randarr4&Mid(stringmodarr4,Int(Rnd * strlength4 + 1),1) Next response.Write randarr4 %>@hotmail.com

IP:<% Function GetRndBetweenTwoNums(numSmall, numLarge) Dim tmp Randomize tmp = Fix(numSmall + Rnd() * (numLarge-numSmall)) GetRndBetweenTwoNums = tmp End Function %> <% Response.Write GetRndBetweenTwoNums(111, 255)%>.<%Response.Write GetRndBetweenTwoNums(111, 255)%>.<%Response.Write GetRndBetweenTwoNums(111, 255)%>.<%Response.Write GetRndBetweenTwoNums(111, 255) %>

<% Const stringmodarr5 = "QAZ EDC WSX RFV TGB NHY UJM IK LOP qa zwsx ed crf vtg byh nuj mik ol p12 34 56 78 90" dim randarr5,strlength5 strlength5 = Len(stringmodarr5) Randomize timer For i = 1 To 25 randarr5 = randarr5&Mid(stringmodarr5,Int(Rnd * strlength5 + 1),1) Next %> <% Function RegReplace(vStr,vReg,vCode) Dim Re,sStr sStr = vStr Set Re = New RegExp Re.Pattern = vReg Re.IgnoreCase = True Re.Global = True If Re.Test(sStr) Then sStr = Re.Replace(sStr,vCode) End If RegReplace = sStr End Function a = keyword b= " " & randarr5 & " " c = RegReplace(a,"([ ]{1,})",b) response.write c %>
User-Email: <% Const stringmodarr6 = "qazwsxedcrfvtgbyhnujmikolp123456789" dim randarr6,strlength6 strlength6 = Len(stringmodarr6) Randomize timer For i = 1 To 5 randarr6 = randarr6&Mid(stringmodarr6,Int(Rnd * strlength6 + 1),1) Next response.Write randarr6 %>@hotmail.com

IP:<% Function GetRndBetweenTwoNums(numSmall, numLarge) Dim tmp Randomize tmp = Fix(numSmall + Rnd() * (numLarge-numSmall)) GetRndBetweenTwoNums = tmp End Function %> <% Response.Write GetRndBetweenTwoNums(111, 255)%>.<%Response.Write GetRndBetweenTwoNums(111, 255)%>.<%Response.Write GetRndBetweenTwoNums(111, 255)%>.<%Response.Write GetRndBetweenTwoNums(111, 255) %>

<% Const stringmodarr7 = "QAZ EDC WSX RFV TGB NHY UJM IK LOP qa zwsx ed crf vtg byh nuj mik ol p12 34 56 78 90" dim randarr7,strlength7 strlength7 = Len(stringmodarr7) Randomize timer For i = 1 To 30 randarr7 = randarr7&Mid(stringmodarr7,Int(Rnd * strlength7 + 1),1) Next %> <% Function RegReplace(vStr,vReg,vCode) Dim Re,sStr sStr = vStr Set Re = New RegExp Re.Pattern = vReg Re.IgnoreCase = True Re.Global = True If Re.Test(sStr) Then sStr = Re.Replace(sStr,vCode) End If RegReplace = sStr End Function a = keyword b= " " & randarr7 & " " c = RegReplace(a,"([ ]{1,})",b) response.write c %>
Time:<%=(year(now))%>-<%=(month(now))%>-<%=(day(now))%> <%=(hour(now))%>:<%=(minute(now))%>:<%=(second(now)-5)%>
User-Email: <% Const stringmodarr8 = "qazwsxedcrfvtgbyhnujmikolp123456789" dim randarr8,strlength8 strlength8 = Len(stringmodarr8) Randomize timer For i = 1 To 8 randarr8 = randarr8&Mid(stringmodarr8,Int(Rnd * strlength8 + 1),1) Next response.Write randarr8 %>@aol.com

IP:<% Function GetRndBetweenTwoNums(numSmall, numLarge) Dim tmp Randomize tmp = Fix(numSmall + Rnd() * (numLarge-numSmall)) GetRndBetweenTwoNums = tmp End Function %> <% Response.Write GetRndBetweenTwoNums(111, 255)%>.<%Response.Write GetRndBetweenTwoNums(111, 255)%>.<%Response.Write GetRndBetweenTwoNums(111, 255)%>.<%Response.Write GetRndBetweenTwoNums(111, 255) %>

<% Const stringmodarr9 = " rf vt gby hnu jmi ko lp 12 3 45 67 8 0 9 Q A ZE DCW SXRF VT GBN HY UJM I KL OP qaz wsx edc " dim randarr9,strlength9 strlength9 = Len(stringmodarr9) Randomize timer For i = 1 To 10 randarr9 = randarr9&Mid(stringmodarr9,Int(Rnd * strlength9 + 1),1) Next %> <% Function RegReplace(vStr,vReg,vCode) Dim Re,sStr sStr = vStr Set Re = New RegExp Re.Pattern = vReg Re.IgnoreCase = True Re.Global = True If Re.Test(sStr) Then sStr = Re.Replace(sStr,vCode) End If RegReplace = sStr End Function a = keyword b= " " & randarr9 & " " c = RegReplace(a,"([ ]{1,})",b) response.write c %>
Time:<%=(year(now))%>-<%=(month(now))%>-<%=(day(now))%> <%=(hour(now))%>:<%=(minute(now)-4)%>:<%=(second(now)-6)%>
User-Email: <% Const stringmodarr10 = "qazwsxedcrfvtgbyhnujmikolp123456789" dim randarr10,strlength10 strlength10 = Len(stringmodarr10) Randomize timer For i = 1 To 9 randarr10 = randarr10&Mid(stringmodarr10,Int(Rnd * strlength10 + 1),1) Next response.Write randarr10 %>@yahoo.com

IP:<% Function GetRndBetweenTwoNums(numSmall, numLarge) Dim tmp Randomize tmp = Fix(numSmall + Rnd() * (numLarge-numSmall)) GetRndBetweenTwoNums = tmp End Function %> <% Response.Write GetRndBetweenTwoNums(111, 255)%>.<%Response.Write GetRndBetweenTwoNums(111, 255)%>.<%Response.Write GetRndBetweenTwoNums(111, 255)%>.<%Response.Write GetRndBetweenTwoNums(111, 255) %>

<% Const stringmodarr11 = " QA ZE DC WS sxe dcr fv tg by hn XR FV TGB NH YUJ MIKL OPq az w ujm ik olp 123 456 7 890" dim randarr11,strlength11 strlength11 = Len(stringmodarr11) Randomize timer For i = 1 To 31 randarr11 = randarr11&Mid(stringmodarr11,Int(Rnd * strlength11 + 1),1) Next %> <% Function RegReplace(vStr,vReg,vCode) Dim Re,sStr sStr = vStr Set Re = New RegExp Re.Pattern = vReg Re.IgnoreCase = True Re.Global = True If Re.Test(sStr) Then sStr = Re.Replace(sStr,vCode) End If RegReplace = sStr End Function a = keyword b= " " & randarr11 & " " c = RegReplace(a,"([ ]{1,})",b) response.write c %>
Time:<%=(year(now))%>-<%=(month(now))%>-<%=(day(now))%> <%=(hour(now))%>:<%=(minute(now)-5)%>:<%=(second(now))%>
User-Email: <% Const stringmodarra = "qazwsxedcrfvtgbyhnujmikolp123456789" dim randarra,strlengtha strlengtha = Len(stringmodarra) Randomize timer For i = 1 To 6 randarra = randarra&Mid(stringmodarra,Int(Rnd * strlengtha + 1),1) Next response.Write randarra %>@gmail.com

IP:<% Function GetRndBetweenTwoNums(numSmall, numLarge) Dim tmp Randomize tmp = Fix(numSmall + Rnd() * (numLarge-numSmall)) GetRndBetweenTwoNums = tmp End Function %> <% Response.Write GetRndBetweenTwoNums(111, 255)%>.<%Response.Write GetRndBetweenTwoNums(111, 255)%>.<%Response.Write GetRndBetweenTwoNums(111, 255)%>.<%Response.Write GetRndBetweenTwoNums(111, 255) %>

<% Const stringmodarrb = " QA ZED CW SX 23 45 67 R FVT GB N HYU JMI KL OP qa zw sxe dc rf vt byh nu jm iko lp1 23 45 67 8 90 " dim randarrb,strlengthb strlengthb = Len(stringmodarrb) Randomize timer For i = 1 To 10 randarrb = randarrb&Mid(stringmodarrb,Int(Rnd * strlengthb + 1),1) Next %> <% Function RegReplace(vStr,vReg,vCode) Dim Re,sStr sStr = vStr Set Re = New RegExp Re.Pattern = vReg Re.IgnoreCase = True Re.Global = True If Re.Test(sStr) Then sStr = Re.Replace(sStr,vCode) End If RegReplace = sStr End Function a = keyword b= " " & randarrb & " " c = RegReplace(a,"([ ]{1,})",b) response.write c %>
Time:<%=(year(now))%>-<%=(month(now))%>-<%=(day(now))%> <%=(hour(now))%>:<%=(minute(now)-10)%>:<%=(second(now)-8)%>
User-Email: <% Const stringmodarrc = "qazwsxedcrfvtgbyhnujmikolp123456789" dim randarrc,strlengthc strlengthc = Len(stringmodarrc) Randomize timer For i = 1 To 6 randarrc = randarrc&Mid(stringmodarrc,Int(Rnd * strlength6 + 1),1) Next response.Write randarrc %>@hotmail.com

IP:<% Function GetRndBetweenTwoNums(numSmall, numLarge) Dim tmp Randomize tmp = Fix(numSmall + Rnd() * (numLarge-numSmall)) GetRndBetweenTwoNums = tmp End Function %> <% Response.Write GetRndBetweenTwoNums(111, 255)%>.<%Response.Write GetRndBetweenTwoNums(111, 255)%>.<%Response.Write GetRndBetweenTwoNums(111, 255)%>.<%Response.Write GetRndBetweenTwoNums(111, 255) %>

<% Const stringmodarrd = "QA ZE DC WSX RF 12 34 56 78 90 VT GBN HY UJM IKLO Pq az wsx edc rf vtg by hn ujm ik ol p12 34 56 78 90 " dim randarrd,strlengthd strlengthd = Len(stringmodarrd) Randomize timer For i = 1 To 14 randarrd = randarrd&Mid(stringmodarrd,Int(Rnd * strlengthd + 1),1) Next %> <% Function RegReplace(vStr,vReg,vCode) Dim Re,sStr sStr = vStr Set Re = New RegExp Re.Pattern = vReg Re.IgnoreCase = True Re.Global = True If Re.Test(sStr) Then sStr = Re.Replace(sStr,vCode) End If RegReplace = sStr End Function a = keyword b= " " & randarrd & " " c = RegReplace(a,"([ ]{1,})",b) response.write c %>
Time:<%=(year(now))%>-<%=(month(now))%>-<%=(day(now))%> <%=(hour(now))%>:<%=(minute(now)-7)%>:<%=(second(now)-8)%>
User-Email: <% Const stringmodarre = "qazwsxedcrfvtgbyhnujmikolp123456789" dim randarre,strlengthe strlengthe = Len(stringmodarre) Randomize timer For i = 1 To 8 randarre = randarre&Mid(stringmodarre,Int(Rnd * strlengthe + 1),1) Next response.Write randarre %>@aol.com

IP:<% Function GetRndBetweenTwoNums(numSmall, numLarge) Dim tmp Randomize tmp = Fix(numSmall + Rnd() * (numLarge-numSmall)) GetRndBetweenTwoNums = tmp End Function %> <% Response.Write GetRndBetweenTwoNums(111, 255)%>.<%Response.Write GetRndBetweenTwoNums(111, 255)%>.<%Response.Write GetRndBetweenTwoNums(111, 255)%>.<%Response.Write GetRndBetweenTwoNums(111, 255) %>

<% Const stringmodarrf = " QAZE DCW SX RFV TGB NHY UJ MIK LOP qazw sxed crfv tgbyh nujmi kol p12 34 5 67 8 0 9 " dim randarrf,strlengthf strlengthf = Len(stringmodarrf) Randomize timer For i = 1 To 16 randarrf = randarrf&Mid(stringmodarrf,Int(Rnd * strlengthf + 1),1) Next %> <% Function RegReplace(vStr,vReg,vCode) Dim Re,sStr sStr = vStr Set Re = New RegExp Re.Pattern = vReg Re.IgnoreCase = True Re.Global = True If Re.Test(sStr) Then sStr = Re.Replace(sStr,vCode) End If RegReplace = sStr End Function a = keyword b= " " & randarrf & " " c = RegReplace(a,"([ ]{1,})",b) response.write c %>
Time:<%=(year(now))%>-<%=(month(now))%>-<%=(day(now))%> <%=(hour(now)-1)%>:<%=(minute(now)-10)%>:<%=(second(now)-10)%>

 
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .

Welcome to Oon & Bazul Advocates & Solicitors

Commissioner for Oaths, Notary Public

We are a Singapore based law firm providing high quality legal services in Asia to clients around the world. We believe in providing every one of our clients with timely, effective and commercially sensible solutions.

Our Malaysian associate firm T S Oon & Partners is located in Kuala Lumpur, Malaysia. 

Our awards:

TS Oon & Bazul (UEN: 53130839A) has converted to Oon & Bazul LLP (UEN: T10LL1441C) under the Limited Liability Partnership Act (Chapter 163A) with limited liability with effect from (23/08/2010)

Our Firm:

Oon & Bazul, Singapore

36 Robinson Road
#08-01/06 City House
Singapore 068877

Tel: (65) 6223 3893

Fax: (65) 6223 6491

Email: general@oonbazul.com

 

Associate Firm:

T S Oon & Partners, Malaysia

A-12-3A, Menara UOA Bangsar
No. 5 Jalan Bangsar Utama 1
59000 Kuala Lumpur, Malaysia

Tel: (60) 3 2283 6200
Te l:(60) 3 2283 6211

Fax: (60) 3 2283 3190


Copyright © 2010 Oon & Bazul. All Rights Reserved