<% IntpageId = request.QUERYSTRING("id") Dim rs1 Dim rs1_cmd Dim rs1_numRows Set rs1_cmd = Server.CreateObject ("ADODB.Command") rs1_cmd.ActiveConnection = MM_miracle_db1_STRING rs1_cmd.CommandText = "SELECT Pageid, imghead, imagesrc1, imagesrc2, desc1, links, nav FROM content WHERE pageid = '"&IntpageId&"'" rs1_cmd.Prepared = true Set rs1 = rs1_cmd.Execute rs1_numRows = 0 Dim rs2 Dim rs2_cmd Dim rs2_numRows Set rs2_cmd = Server.CreateObject ("ADODB.Command") rs2_cmd.ActiveConnection = MM_miracle_db1_STRING rs2_cmd.CommandText = "SELECT imagesrc1, pageid, ImgHead FROM images where categoryid = '"&IntpageId&"'" rs2_cmd.Prepared = true Set rs2 = rs2_cmd.Execute rs2_numRows = 0 Set StrHContent = rs2("ImgHead") Set Strimage = rs2("imagesrc1") Set StrPageid = rs2("pageid") %>

border=0>   <%= rs1("desc1")%> <% Do until rs2.EOF %> target="_blank" onClick="window.open('pic.asp?id=<%= StrPageid %>','','width=430,height=550,resizable=yes,scrollbars=yes'); return false" class="list">    <% rs2.MoveNext Loop %>

<%= rs1("Links")%>   <%= rs1("nav")%>