 |
|
 |
| |
<%
DIM mySQL, objRS
mySQL = "SELECT * FROM cats"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open mySQL, objConn
DIM recCount
IF Not objRS.EOF THEN
Response.Write ""
recCount = 0
Do UNTIL objRS.EOF
IF recCount Mod 3 = 0 THEN
IF recCount <> 0 THEN
Response.Write ""
Response.Write "| "&objRS("name")&" | "
ELSE
Response.Write ""&objRS("name")&" | "
END IF
recCount = recCount + 1
objRS.MoveNext
Loop
Response.Write" "
ELSE
Response.Write "Sorry, there are no records in our database."
END IF
%>
|
| |
|
 |
|
 |
