% 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, desc2, 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 desc1 FROM content WHERE pageid = '"&IntpageId&"'" rs2_cmd.Prepared = true Set rs2 = rs2_cmd.Execute rs2_numRows = 0 %>
![]() |
|
|
|