<%@LANGUAGE="VBSCRIPT"%> <% 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, Desc2, Nav, Links, imagesrc2 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 %>

border=0>   <%= rs2("desc1")%> <%= rs1("desc2")%>

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