I am trying to write a simple search function that will return items from a SQL DB. i am using a basic search form with one text field.
<form name="search" method="post" action="search.asp">
Item Search<br>
<input type="text" name="searchvalue">
<input type="submit" name="Submit" value = "Submit">
</form>
I am trying to get the searchvalue to query against the SQL DB via the request.form function. I am not recieving any errors, but I am not returning any output? Am I calling the function properly?
<%
Dim rsItems
Set rsItems = Server.CreateObject("ADODB.RecordSet"
Dim sSql
sSql = "SELECT NO, DESCRIPTION, WEBNAME, UNITPRICE FROM SHOP_ITEM WHERE WEBSITECODE = '" & MSCSSite.NFSiteName & "' AND DESCRIPTION LIKE '" & Request.Form("searchvalue"
& "' AND PARENTITEM = '' ORDER BY NO"
rsItems.Open sSql, connDB, adOpenForwardOnly, adLockReadOnly
<!-- OUTPUT Method-->
If Not rsItems.EOF Then
%>
<table width=100%>
<%
Do While Not rsItems.EOF
j = j + 1
If j = 1 Then Response.Write "<tr>"
ItemNo = rsItems(MSCSSite.Item_No)
ItemDescription = rsItems(MSCSSite.Item_Description)
WebName = rsItems(MSCSSite.Item_WebName)
UnitPrice = UtilNFMoney(rsItems("UNITPRICE"
,currencycode)
%>
<td align="middle">
<a href="<%= mscsPage.URL("item.asp","itemno",ItemNo,"class",Request.QueryString("Class"
)%>"><img src="../thumb/<%= trim(ItemNo) %>.jpg" border="0"></a><br>
<a href="<%= mscsPage.URL("item.asp","itemno",ItemNo,"class",Request.QueryString("Class"
)%>"><%If WebName <> "" Then Response.Write WebName Else Response.Write ItemDescription End If %></a><br>
$<%= UnitPrice %>
<br><br><br>
</td>
<%
If (j Mod 3 = 0) Then Response.Write "</tr>"
rsItems.MoveNext
Loop
Do While Not (j Mod 3 = 0)
Response.Write "<td></td>"
j = j + 1
bRowEnd = True
Loop
If bRowEnd Then Response.Write "</tr>"
%>
</table>
<%
End If
rsItems.Close
Set rsItems = Nothing
%>
Thanks In Advance!
<form name="search" method="post" action="search.asp">
Item Search<br>
<input type="text" name="searchvalue">
<input type="submit" name="Submit" value = "Submit">
</form>
I am trying to get the searchvalue to query against the SQL DB via the request.form function. I am not recieving any errors, but I am not returning any output? Am I calling the function properly?
<%
Dim rsItems
Set rsItems = Server.CreateObject("ADODB.RecordSet"
Dim sSql
sSql = "SELECT NO, DESCRIPTION, WEBNAME, UNITPRICE FROM SHOP_ITEM WHERE WEBSITECODE = '" & MSCSSite.NFSiteName & "' AND DESCRIPTION LIKE '" & Request.Form("searchvalue"
rsItems.Open sSql, connDB, adOpenForwardOnly, adLockReadOnly
<!-- OUTPUT Method-->
If Not rsItems.EOF Then
%>
<table width=100%>
<%
Do While Not rsItems.EOF
j = j + 1
If j = 1 Then Response.Write "<tr>"
ItemNo = rsItems(MSCSSite.Item_No)
ItemDescription = rsItems(MSCSSite.Item_Description)
WebName = rsItems(MSCSSite.Item_WebName)
UnitPrice = UtilNFMoney(rsItems("UNITPRICE"
%>
<td align="middle">
<a href="<%= mscsPage.URL("item.asp","itemno",ItemNo,"class",Request.QueryString("Class"
<a href="<%= mscsPage.URL("item.asp","itemno",ItemNo,"class",Request.QueryString("Class"
$<%= UnitPrice %>
<br><br><br>
</td>
<%
If (j Mod 3 = 0) Then Response.Write "</tr>"
rsItems.MoveNext
Loop
Do While Not (j Mod 3 = 0)
Response.Write "<td></td>"
j = j + 1
bRowEnd = True
Loop
If bRowEnd Then Response.Write "</tr>"
%>
</table>
<%
End If
rsItems.Close
Set rsItems = Nothing
%>
Thanks In Advance!