1
I am working in asp coding by using Dreamwavers
Following codes are opening new window of any product after click small thumbnail of each product. And i want to show Product Article No And Product Detail from Access database table field name (ProductArtNo) and (ProductDetail) with respected image in new window.
<!--#include file="connection.asp"-->
<%
Dim img,pno,artno
pno = Request.QueryString("pno")
img = Request.QueryString("img")
%>
<%
Dim rsList : set rsList = server.CreateObject("ADODB.RecordSet")
Dim pid,pid_array
pid = Request.QueryString("pid")
pid_array = split(pid,"-")
if not pid= "" then
ProductID = pid_array(0)
SubID = pid_array(1)
MainID = pid_array(2)
SecID = pid_array(3)
else
SecID = 10
MainID = 1
SubID = 1
ProductID = 0
end if
Dim topHeading,bgimg
if SecID<>0 then
rs.Open"Select * from tbl_Section where SecID="&SecID,cnn,3,2
if not rs.eof then
topHeading = rs("topHeading")
bgimg = rs("bgimg")
img_perpage = rs("PerPage")
end if
rs.close
end if
if secID <> 0 then
rs.Open"Select * from tbl_Section where SecID="&SecID,cnn,3,2
if not rs.eof then
secHead = "You are in: <strong>" & rs("SecDesc") & "</strong>"
end if
rs.close
end if
if MainID <> 0 then
rs.Open"Select * from tbl_Main where MainID="&MainID,cnn,3,2
if not rs.eof then
mainHead = " > <strong>" & rs("MainDescription")&"</strong>"
bgimg = rs("bgimg")
img_perpage = rs("PerPage")
end if
rs.close
end if
if SubID <> 0 then
rs.Open"Select * from tbl_Sub where SubID="&SubID,cnn,3,2
if not rs.eof then
subHead = " > <strong>" & rs("SubDescription")&"</strong>"
bgimg = rs("bgimg")
img_perpage = rs("PerPage")
end if
rs.close
end if
if img_perpage = 0 then
img_perpage = 1
end if
Dim Str
Str = secHead & mainHead & subHead
%>
<html>
<head>
<title>Art#: <%=pno%></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta content="no" http-equiv="Imagetoolbar">
</head>
<body bgcolor="#CCCC99">
<table width="50%" border="0" align="left" cellpadding="2" cellspacing="2">
<tr>
<td height="24" valign="top"> <table width="494" border="0" align="left" cellpadding="0" cellspacing="0">
<tr valign="top">
<td width="139" rowspan="2" align="center"><img src="<%=img%>"></td>
<td> <table width="316" border="1" align="left" cellpadding="0" cellspacing="0">
<tr>
<td class="Headings"><font color="#FFFFFF">Art NO</font></td>
<td colspan="2" class="Products"><font color="#FFFFFF"><%=rs("Artno")%></font></td>
</tr>
<tr>
<td class="Products"><font color="#FFFFFF">Detail</font></td>
<td class="Products"> </td>
</tr>
<tr class="Products">
<td width="23%"><font color="#FFFFFF">Price</font></td>
<td width="77%"> </td>
</tr>
<tr class="Products">
<td><font color="#FFFFFF">Color</font></td>
<td> </td>
</tr>
<tr class="Products">
<td><font color="#FFFFFF">Size</font></td>
<td> </td>
</tr>
<tr class="Products">
<td><font color="#FFFFFF"> </font></td>
<td> </td>
</tr>
<tr>
<td><font color="#FFFFFF"> </font></td>
<td> </td>
</tr>
</table> </td>
</tr>
<tr valign="top">
<td><p> </p>
<table width="90%" border="1" cellspacing="0" cellpadding="0">
<tr>
<td><div align="center"><img src="images/sp1.jpg" width="160" height="100"></div></td>
<td><div align="center"><img src="images/sp2.jpg" width="170" height="100"></div></td>
</tr>
<tr>
<td><div align="center"><img src="images/spj3.jpg" width="82" height="100"></div></td>
<td><div align="center"></div></td>
</tr>
</table>
<p> </p>
<p> </p></td>
</tr>
<tr valign="top">
<td align="center">Back View</td>
<td> </td>
</tr>
</table></td>
</tr>
</table>
<p> </p>
<p> </p>
</body>
</html>
Follwoing error message is displayed
Error Type:
ADODB.Recordset (0x800A0CC1)
Item cannot be found in the collection corresponding to the requested name or ordinal.
/bossn/lareview.asp, line 88
Thanks in Advance
