%Response.Buffer=TRUE%>
<% Dim conn, SQL_Cat, rsCat, SQL_Tot, rsTot, rs, LinkCount
Set conn = server.createobject("adodb.connection")
conn.Open ("Driver={MySQL};SERVER=localhost;DATABASE=jigg_net;UID=jigg_net;PASSWORD=tve7dnae") %>
Send A Card
<%
SQL_Cat="SELECT MAX(ID) as CatNo FROM cata"
set rsCat=Conn.Execute(SQL_Cat)
SQL_Tot="SELECT MAX(ID) as TotNo FROM card"
set rsTot=Conn.Execute(SQL_Tot)
Set rs = Conn.Execute("SELECT * FROM cata")
If Not rs.EOF Then
Response.Write""
Response.Write"
"
Response.Write rsCat("CatNo") & " Categories With " & rsTot("TotNo") & " Pictures"
Response.Write""
LinkCount = 0
Do Until rs.EOF
If LinkCount Mod 2 = 0 Then
If LinkCount <> 0 Then Response.Write""
Response.Write"| "&rs("cata")&" | "
Else
Response.Write""&rs("cata")&" | "
End If
LinkCount = LinkCount + 1
rs.MoveNext
Loop
Response.Write"
"
Response.Write""
Response.Write"
"
rs.Close
Set rs = Nothing
Set rsCat = Nothing
Set rsTot = Nothing
Conn.Close
Set Conn = Nothing
Else Response.Write"Sorry, no records were found!"
End If
%>