http 500 - Errore interno del serve
questo è il codice che penso mi dia l'errore infatti mi restituisce come errore sulla form "Error accessing database"
<!-- #include file="db.asp" -->
<%
'===================================================
'
'
'
'This page shows product information
'===================================================
Response.Buffer = true
Dim catid, strcat
prodid = Request.QueryString("id")
If prodid = "" OR (isNumeric(prodid) = false) Then
Response.Redirect "default.asp"
End if
'procedure is called in the body, shows the product information
sub productInfo(connObj,product)
q = chr(34)
set cmd = server.CreateObject("ADODB.Command")
cmd.ActiveConnection = connObj
cmd.CommandText = "qryProduct"
cmd.CommandType = adCmdStoredProc
set param = cmd.CreateParameter("prodID",adInteger,adParamInput,4)
cmd.Parameters.Append(param)
cmd("prodID") = Cint(product)
set rsprod = server.CreateObject("ADODB.Recordset")
set rsprod = cmd.Execute
if not rsprod.EOF then
strHTML = strHTML & "<table border=0 cellPadding=4 cellSpacing=2 width='100%'>"
strHTML = strHTML & "<tr>"
strHTML = strHTML & "<td valign=top>"
strHTML = strHTML & "<h3>" & rsprod("cname") & "</h3>"
strHTML = strHTML & "<img src=" & q & "images/" & rsprod("cimageurl") &q& " align=" & q & "right"& q & ">"
strHTML = strHTML & "<p>" & rsprod("cdescription") & "</p>"
strHTML = strHTML & "<p><b>Price:</b> " & FormatCurrency(rsprod("cprice"),2) & "<br>"
strHTML = strHTML & "<form action="&q&"addprod.asp"&q&" method="&q&"POST"&q&" name=form1 onSubmit="&q& "return checkItems(form1)" & q&">"
strHTML = strHTML & "<input type="&q&"hidden"&q&" name="&q&"fproductid"&q&" value="&q & rsprod("shownID")& q&">"
strHTML = strHTML & "<b>Quantity:</b> <input maxLength="&q&"1"&q&" name="&q&"fquantity"&q&" size=2 value="&q&"1"&q&">" & vbcrlf
strHTML = strHTML & "<input type="&q&"submit"&q&" value="&q&"ORDER"&q&" name="&q&"order"&q&" style="&q&"font-family: Arial; color: #800000; font-weight: bold"&q&">"
strHTML = strHTML & "</form></td></tr>"
strHTML = strHTML & "</table>"
else
strHTML = "Product information not found."
end if
rsprod.Close
set rsprod = nothing
set cmd = nothing
Response.Write strHTML
end sub
%>
<html>
<head>
<title>Product info: </title>
<SCRIPT LANGUAGE=javascript>
<!--
function checkItems(formobj)
{
quant = formobj.fquantity.value;
if (isNaN(quant) == true || quant < 1 || quant > 9)
{
alert("Please enter a number between 1 and 9");
formobj.fquantity.focus();
return false
}else
{
return true;
}
}
//-->
</SCRIPT>
<link rel="stylesheet" type="text/css" href="eposter.css">
</head>
<body>
<table border="0" width="600" cellpadding="4">
<tr>
<td width="100%" colspan="2" valign="top"><h3><img src="images/eplogo2.gif" alt="AC store" width="187" height="36" align="right">
</h3>
</td>
</tr>
<tr>
<td width="120" bgcolor="#004080" valign="top">
<!--#include file="navleft.htm" --></td>
<td width="480">
<%
'on error resume next
call openConn()
if dbc.errors.count > 0 then
Response.Write "Error accessing database."
else
call productInfo(dbc,prodid)
end if
call closeConn()
%>
<hr align="center" color="darkblue" noShade SIZE="2" width="80%">
<p>
</td>
</tr>
</table>
</body>
</html>
non so perchè mi da questo errore visto che l'elenco delle categorie "sempre memorizzate sul database" me le mostra.
Datemi una mano Grazie.
Serena_cp
