>> <% response.write(hour(time)) %>:<% if minute(time)<10 then response.write("0" & minute(time)) else response.write(minute(time)) %> >> <% if day(date)<10 then response.write("0" & day(date)) else response.write(day(date)) %> - <% if month(date)<10 then response.write("0" & month(date)) else response.write(month(date)) %> - <% response.write(year(date)) %>

<% 'session.lcid=2057 'closing_date="Closing price as at " set dbObj=server.createObject("ADODB.connection") dbObj.open session("utprice") 'sql= "EXEC sp_PMBRetrievePrice '001'" sql=" select fcode,fname,fmname,bid,offer,dealingdate " sql=sql & " from fund,fundmanager " sql=sql & " where fund.viewdata=1 and fund.fmcode=fundmanager.fmcode and fund.fmcode='001'" set tbObj=dbObj.execute(SQL) if not tbObj.eof then closing_date="Closing price as at " & AddZero(day(tbObj("dealingdate"))) & "/" & AddZero(month(tbObj("dealingdate"))) &"/" & year(tbObj("dealingdate")) end if %> <% do while not tbObj.eof %> <% tbObj.movenext loop set tbObj=nothing %>

	Fund				NAV
	<%=closing_date%>
	<%Response.Write tbObj("fname")' response.write(objrecord.fields("tffund")) %>				<%Response.Write formatnumber(tbObj("bid"),4)' response.write(objrecord.fields("tfsell")) %>

<% 'sql= "EXEC sp_PMBRetrievePrice '001'" sql=" select distinct fund.fmcode,fmname " sql=sql & " from fund,fundmanager " sql=sql & " where fund.viewdata=1 and fund.fmcode=fundmanager.fmcode and fund.fmcode<>'001' " set tbObj=dbObj.execute(SQL) do while not tbObj.eof %> <% tbObj.movenext loop %>

	3rd Party Funds Price
	"> <%=tbObj("fmname")%>

Our accomplishment in Asia, proven. Our expansion in Europe, acknowledged. The PhillipCapital Group main aim is simply to maximise your returns through our innovative and enthusiastic approaches to investment. We are now in Malaysia to answer your demand for performance and undivided attention. You will discover that our Phillip MASTER Trust Series of 3 funds serve as an excellent platform for all your financial planning needs. For more information please call our Client Services Personnel at 03 - 2783 0200 to assist you futher.

<% 'Dimension variables Dim fsoObject 'File System Object Dim tsObject 'Text Stream Object Dim filObject 'File Object Dim lngVisitorNumber 'Holds the visitor number Dim intWriteDigitLoopCount 'Loop counter to display the graphical hit count 'Create a File System Object variable Set fsoObject = Server.CreateObject("Scripting.FileSystemObject") 'Initialise a File Object with the path and name of text file to open Set filObject = fsoObject.GetFile(Server.MapPath("hit_count.txt")) 'Open the visitor counter text file Set tsObject = filObject.OpenAsTextStream 'Read in the visitor number from the visitor counter file lngVisitorNumber = CLng(tsObject.ReadAll) 'Increment the visitor counter number by 1 lngVisitorNumber = lngVisitorNumber + 1 'Create a new visitor counter text file over writing the previous one 'Set tsObject = fsoObject.CreateTextFile(Server.MapPath("hit_count.txt")) 'Write the new visitor number to the text file 'tsObject.Write CStr(lngVisitorNumber) 'Reset server objects Set fsoObject = Nothing Set tsObject = Nothing Set filObject = Nothing 'HTML output to display the visitor number Response.Write("Visitor Number ") 'Display the hit count as text 'Response.Write(lngVisitorNumber) 'Loop to display graphical digits For intWriteDigitLoopCount = 1 to Len(lngVisitorNumber) 'Display the graphical hit count Response.Write("") Next %>

	Demo
	Online Trading Demo

	<% strquery="select caname from category where carfnbr=2" set objrecord=objcon.execute(strquery) response.write(objrecord.fields("caname")) %>
	<% strquery="select arrfnbr,artitle from article,article_category_relation where arrfnbr=acrarnbr and acrcanbr=2 and arshow='Y' order by ardate desc" set objrecord=objcon.execute(strquery) counter=0 do while not objrecord.eof %> <% objrecord.movenext if counter=2 then exit do else counter=counter+1 end if loop %> "> <% response.write(objrecord.fields("artitle")) %>

	<% strquery="select caname from category where carfnbr=3" set objrecord=objcon.execute(strquery) response.write(objrecord.fields("caname")) %>
	eUnittrust Launching