chongherr

<% stropen="driver={microsoft access driver (*.mdb)}; dbq="& server.mappath("inc/asichongherr.mdb") Function funSQLEXEC(tmpSqlStr) Dim tmpSQLEXEC,isRecords If Left(UCase(tmpSqlStr),6)="SELECT" Then Set tmpSQLEXEC=Server.CreateObject("ADODB.Recordset") tmpSQLEXEC.ActiveConnection = stropen tmpSQLEXEC.Source = tmpSqlStr tmpSQLEXEC.Open If tmpSQLEXEC.Bof And tmpSQLEXEC.Eof Then Dim tmpArray(1,1) tmpArray(0,0)="" isRecords=0 Else tmpArray=tmpSQLEXEC.GetRows isRecords=1 End If tmpSQLEXEC.Close Set tmpSQLEXEC=Nothing If isRecords=1 Then Dim i,j For i=0 To Ubound(tmpArray) For j=0 To Ubound(tmpArray,2) If Isnull(tmpArray(i,j)) Then tmpArray(i,j)="" End If Next Next End If funSQLEXEC=tmpArray Else Dim tmpRecs Set tmpSQLEXEC=Server.CreateObject("ADODB.Connection") tmpSQLEXEC.Open DBConn tmpSQLEXEC.Execute tmpSqlStr,tmpRecs,adCmdText+adExecuteNoRecords funSQLEXEC=tmpRecs tmpSQLEXEC.Close Set tmpSQLEXEC=Nothing End If End Function %> <%fileList=funSQLEXEC("SELECT TOP 2 class_name,file_name,file_time FROM tb_file WHERE class_name='3' ORDER BY file_name DESC")%> chongherr

Home

Corporate

Investor Relations

Sandstone Business

ChongHerr Investments Limited is a Queensland based company listed on the Australian Stock Exchange under the code of CDH. The Company owns 2 sandstone mining leases in Helidon, Australia, and is a major quarrier, manufacturer and exporter of Helidon Sandstone. The products, known as ASI Sandstone are known for its strength, durability, fine texture and a broad range of colours. ...Read more

<%For j=0 To Ubound(fileList,2)%> <%=fileList(1,j)%>
<%Next%>

...More...