Warthog web design designs quality websites in Durban, South Africa. We also offer web development, web applicatioms, web site promotion, web marketing, database driven web sites, graphic design, web design tuition and courses. Our web sites are fast and download quickly, are attractive, easy to use and show high search engine rankings. Our rates are very competitive and we pride ourselves on designing sensible, common sense web sites.
| FAST, |
![]() |
![]() |
|
![]() |
||
![]() |
| ABOUT US | APPROACH | CLIENTS | RATES |
| <%
' connect to db.
set Conn=Server.CreateObject("ADODB.Connection")
Conn.Provider="Microsoft.Jet.OLEDB.4.0"
Conn.Open(Server.Mappath("yelldb/yelldb.mdb"))
' set rs and select all required records.
set rsYell = Server.CreateObject("ADODB.recordset")
rsYell.Open "SELECT * FROM Yells order by YellDate desc", conn, 3, 1, 1
' if there are no records available let the user know.
if rsYell.EOF then
response.write("There are no Yells to be viewed. ") ' else if there are records, display these. else ' a count variable helps us loop through the records. The page size lets us define how many records we want to display in the table on the user page. Dim yellCount, yellPageSize yellCount = 1 yellPageSize = 12 rsYell.PageSize = yellPageSize ' looping through records. do while NOT rsYell.EOF and yellCount <= yellPageSize response.write("> " & Replace(rsYell("YellMessage"),"APOS","'") & " - " & Replace(rsYell("YellName"),"APOS","'") & " | " & rsYell("YellDate") & "") ' if an Admin is logged in, display the option to delete. if sLoggedIn = "True" then response.write(" - d?") end if response.write(" ") yellCount = yellCount + 1 rsYell.MoveNext Loop rsYell.Close Conn.Close set Conn = Nothing %> A compliment? A beef? A query?
Complete - then yell! |