<%@ language=vbscript%> <% set conn = server.createobject("adodb.connection") conn.open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & server.MapPath ("ecards.MDB") SET rs= server.CreateObject ("adodb.recordset") sql="select * from cateid" rs.Open sql,conn conn.Execute(sql) cat=rs("catagory") 'Response.Write cat %> Egreetings
Photo Gallery
<% do while not rs.EOF catid=RS("catid") SQLcard="select * from picid where catid="&catid set rscard=server.CreateObject("ADODB.recordset") rscard.open SQLcard,conn,1,3 no_cards=rscard.RecordCount %> <% rs.MoveNext loop %>
                                                        
<% rs.Close set rs=nothing conn.Close set conn=nothing %>