HIGHLIGHTS
<%
' Recordset Object
Dim rs1
Set rs1 = Server.CreateObject("ADODB.Recordset")
' opening connection
rs1.Open "select [ID],[highlight_title],[highlight_body],[highlight_date] from highlight " & _
"order by [ID] desc", connStr, 3, 4
If Not rs1.EOF Then
While Not rs1.EOF
Response.Write " ![]() "
Response.Write rs1("highlight_title") & "
"
rs1.MoveNext
Wend
Else
Response.Write "No Record Found"
End If
rs1.Close
Set rs1 = Nothing
%>
UPDATES
<%
' Recordset Object
Dim rs2
Set rs2 = Server.CreateObject("ADODB.Recordset")
' opening connection
rs2.Open "select [ID],[ipi_update_title],[ipi_update_body],[ipi_update_date] from ipi_update " & _
"order by [ID] desc", connStr, 3, 4
If Not rs2.EOF Then
While Not rs2.EOF
Response.Write " ![]() "
Response.Write rs2("ipi_update_title") & "
"
rs2.MoveNext
Wend
Else
Response.Write "No Record Found"
End If
rs2.Close
Set rs2 = Nothing
%>
NEWS AND DEVELOPMENTS
<%
' Recordset Object
Dim rs3
Set rs3 = Server.CreateObject("ADODB.Recordset")
' opening connection
rs3.Open "select [ID],[news_dev_title],[news_dev_body],[news_dev_date] from news_dev " & _
"order by [ID] desc", connStr, 3, 4
If Not rs3.EOF Then
While Not rs3.EOF
Response.Write " ![]() "
Response.Write rs3("news_dev_title") & "
"
rs3.MoveNext
Wend
Else
Response.Write "No Record Found"
End If
rs3.Close
Set rs3 = Nothing
%>
PRODUCTS
 APPLICATION SOFTWARE
DEVELOPMENT TOOLS
HARDWARE
SERVICES
BUSINESS PROCESS FOR PAYROLL AND ACCOUNTING SERVICES
CAMPUS TEXT MESSAGING
COMPUTER EDUCATION
GOLF HANDICAPPING
GOLF TOURNAMENT SCORING
IT CONSULTANCY
TECHNICAL IMPLEMENTATION SOFTWARE FOR SOLOMON
ABOUT US
THE COMPANY
FAQ ABOUT IPI
THE ORGANIZATION
GALLERY
|