รบกวนช่วยดู Code ให้หน่อยนะค่ะ มึนแล้วค่ะ ขึ้น error ประมาณนี้ค่ะ Type mismatch

<%
	sql = "select * from products p inner join categories c on p.catid=c.catid " & _
			"where p.pid = "&pronew1&"And"& _
			"p.pactive=True And c.catactive=True"
	Set rs = Conn.Execute(sql)
	If Not rs.EOF Then
	%>
	<input type="hidden" name="pid2" value="<%=rs("pid2")%>" />
	<form method="post" action="sscart.asp" name="a1">
    <table width="182" height="275" border="0" cellpadding="0" cellspacing="0">
            <tr>
              <th height="138" bgcolor="#F5F5F5" scope="row">
			  <%Response.Write "<a href=detail.asp?pid=" & rs("pid") & ">" %>
<img src="pimages/<%=rs("pimages")%>" alt="click here in full details" border="0" align="texttop"></a></th>
            </tr>
            <tr>
              <th height="62" bgcolor="#F5F5F5" scope="row"><%=rs("pname")%><br />
			  <%=rs("catname")%><br />
			  <%=Replace(rs("pdescriptions"),vbCrLf,"<br>")%><br />
			  <%=FormatNumber(rs("pprice"),2)%><br />
			  <%=FormatNumber(rs("pdiscount"),2)%>			  </th>
            </tr>
            <tr>
              <th bgcolor="#F5F5F5" scope="row">
			  <input type="hidden" name="pid" value="<%=rs("pid")%>">
	<input type="hidden" name="pname" value="<%=rs("pname")%>">
	<input type="hidden" name="pdiscount" value="<%=rs("pdiscount")%>">
	<input type="image" border="0" src="images/add2cart.gif"></th>
            </tr>
          </table>
	</form>  	  
 <%
End If
rs.Close

%>