Her har i koden der genere siden.
<!-- #include file=\"db.asp\" -->
<%
Response.Buffer = true
Dim catid, strcat
catid = Request.QueryString(\"id\")
strcat = Request.QueryString (\"cat\")
If catid = \"\" OR (IsNumeric(catid) = false) Then
Response.Redirect \"default.asp\"
End if
Dim catname, productslist, vpris
sub productInfo(connObj,category)
q = chr(34)
set cmd = server.CreateObject(\"ADODB.Command\")
cmd.ActiveConnection = connObj
cmd.CommandText = \"qryProdsCategory\"
cmd.CommandType = adCmdStoredProc
set param = cmd.CreateParameter(\"theCategory\",adInteger,adParamInput,4)
cmd.Parameters.Append(param)
cmd(\"theCategory\") = Cint(category)
set rs = server.CreateObject(\"ADODB.Recordset\")
sql = \"Select * FROM categories ORDER BY categoryid ASC;\"
set rs = cmd.Execute
if not rs.EOF then
catname = rs(\"catdescription\")
strHTML = \"<table border=2 cellPadding=4 cellSpacing=2 width=\'100%\'>\"
strHTML = strHTML & \"<tr>\"
i = 1
while not rs.EOF
strHTML = strHTML & \"<td valign=top>\" & vbcrlf
strHTML = strHTML & \"<h4>\" & rs(\"cname\") & \"</h4>\"
strHTML = strHTML & \"<h4>\" & rs(\"cweight\") & \" gram\" & \"</h4>\"
strHTML = strHTML & \"<form action=\"&q&\"addtocart.asp\"&q&\" method=\"&q&\"POST\"&q&\" name=form\"&i&\" onSubmit=\"&q& \"return checkItems(form\"&i&\")\" &q&\">\"
strHTML = strHTML & \"<td>\"
if rs(\"cprice\") = 0 then vpris = 12 else vpris = 0 end if
strHTML = strHTML & \"Pris: \" & FormatCurrency(vpris + rs(\"cprice\"),2) & \"<input type=\"&q&\"hidden\"&q&\" name=\"&q&\"fproductid\"&q&\" value=\"&q & rs(\"catalogID\")& q&\"><br><br>\" & vbcrlf
strHTML = strHTML & \"Antal: <input maxLength=\"&q&\"1\"&q&\" name=\"&q&\"fquantity\"&q&\" size=2 value=\"&q&\"1\"&q&\">\"
strHTML = strHTML & \" <input type=\"&q&\"submit\"&q&\" value=\"&q&\"BESTIL\"&q&\" name=\"&q&\"order\"&q&\" style=\"&q&\"font-family: Arial; color: #800000; font-weight: bold\"&q&\">\"
strHTML = strHTML & \"</form>\"
if (i mod 1) = 0 then
strHTML = strHTML & \"</tr><tr>\" & vbcrlf
end if
i = i + 1
rs.MoveNext
wend
strHTML = strHTML & \"<tr></table>\"
else
strHTML = \"Product information not found.\"
catname = \"Error\"
end if
productslist = strHTML
rs.Close
set rs = nothing
set cmd = nothing
end sub
%>
<html>
<head>
<title>Products</title>
<SCRIPT LANGUAGE=javascript>
<!--
function checkItems(formobj)
{
var 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\">
<meta name=\"site-config-URL\" content=\"\">
</head>
<body>
<table border=\"0\" width=\"600\" cellpadding=\"4\">
<tr>
<td width=\"100%\" colspan=\"2\" valign=\"top\">
<h3><img src=\"images/eplogo2.gif\" alt=\"EPoster store\" width=\"187\" height=\"36\">
<br><font face=\"Arial\">
<%
\'on error resume next
call openConn()
call productInfo(dbc,catid)
call closeConn()
response.write catname
%>
</font></h3></td>
</tr>
<tr>
<td width=\"120\" bgcolor=\"#004080\" valign=\"top\">
<!--#include file=\"navleft.htm\" --></td>
<td width=\"480\">
<%= productslist %>
</td>
</tr>
</table>
</body>
</html>
