<%
IntpageId = request.QUERYSTRING("id")
'Establish a connection with data source.
Dim Rsresult
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 FROM images WHERE pageid = "&IntpageId
rs1_cmd.Prepared = true
Set Rsresult= rs1_cmd.Execute
rs1_numRows = 0
Dim Rsresult2
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 images WHERE pageid = "&IntpageId
rs2_cmd.Prepared = true
Set Rsresult2 = rs2_cmd.Execute
rs2_numRows = 0
%>
Miracle Kitchens