Me again that code worked great it allowed me to search for either the bride or grooms name--the problem is this isn't unique enough i need to to have a text box where you enter the grooms name, the brides name and the date of the wedding. Taking these 3 things producing the list of goods which match all these 3 things.
The code i have for reading in either the bride or grooms surname is
Private Sub wciSearch_Respond()
'Purpose: Search product by keywords and show the results of search.
Dim strKeyWord As String
Dim vntId As Variant
Dim strProductName As String
Dim strUnitPrice As String
Dim strFilePath As String
Dim intCategoryId As Integer
With Response
.Write "<body BGColor=#FFFFFF>"
.Write "<p>"
.Write "<form action= """ & URLFor(wciSearch) & """ method=POST>"
.Write "<BR>"
.Write "<IMG SRC =Graphic/Search.gif>"
.Write "<font face = arial>To search for a particual Wedding List, type the Grooms or Brides Surname in the box and click on the Search button"
.Write "<p>"
.Write "<B><font face = Arial>Enter Grooms Surname : <input type=text name=Search size=20></font> "
'this is a new line to take in brides name
.Write "<B><font face = Arial>Enter Brides Surname : <input type=text name=Search size=20></font> "
.Write "</font>"
.Write "<input type=submit value=Search> <input type=reset value=Reset>"
.Write "<p>"
.Write "</form>"
End With
strKeyWord = Request.Form("Search")
If strKeyWord <> "" Then
' Dim CurPage
' Const NumPerPage = 10
'
' If Request.QueryString("CurPage") = "" Then
' CurPage = 1
' Else
' CurPage = Request.QueryString("CurPage")
' End If
Call objStore.OpenConnection
Call objStore.GetProductIdsBySearchKeyword(strKeyWord)
If VarType(objStore.ProductIds) <> vbEmpty Then
For Each vntId In objStore.ProductIds
Call objStore.GetProductById(vntId)
Call objStore.CreateProductPicById(vntId)
strProductName = objStore.ProductName
strUnitPrice = objStore.ProductUnitPrice
strFilePath = objStore.PicFilePath
intCategoryId = objStore.CategoryId
With Response
.Write "<TABLE border=0 cellpadding=0 cellspacing=0 width=100%>"
.Write "<tr>"
.Write "<td width=30%> <IMG ALIGN=Right SRC=" & "'" & strFilePath & "'" & ">"
.Write "</td>"
.Write "<td width=70%><p align=center><font color=navy size=4><b>" & strProductName & "</font></B>"
.Write "<p align=center>" & objStore.ProductDescription
.Write "</td>"
.Write "<tr>"
.Write "</TABLE>"
.Write "<form action=""" & URLFor(wciViewItem) & """ method=POST>"
.Write "<TABLE border=0 cellpadding=0 cellspacing=0 width=100%>"
.Write "<tr>"
.Write "<td width=10%> <p align=left>"
.Write "</td>"
.Write "<td width=50%><p align=left><B> Unit Price: " & " £" & strUnitPrice
.Write "</td>"
.Write "<td width=40%> <p align=left>Quantity to Order: "
.Write "<input type=text size=3 name=Quantity Value=1>"
.Write "<input type=hidden size=0 name=ProductName value=" & "'" & strProductName & "'" & ">"
.Write "<input type=hidden size=0 name=UnitPrice value=" & "'" & strUnitPrice & "'" & ">"
.Write "<input type=hidden size=0 name=CurrentCategID value=" & "'" & intCategoryId & "'" & ">"
.Write "</td>"
.Write "</tr>"
.Write "</TABLE>"
.Write "<TABLE border=0 cellpadding=0 cellspacing=0 width=100%>"
.Write "<tr>"
.Write "<td width=10%> <p align=left>"
.Write "</td>"
.Write "<p>"
.Write "<td width=50%><p align=left><B>Product Manfacturer: " & objStore.ProductUnitQuantity
.Write "</td>"
.Write "<td align=left width=40%>"
.Write "<p><input type=submit value=" & """ Add to Cart """ & " > "
.Write "</td>"
.Write "</form>"
.Write "<tr>"
.Write "</TABLE>"
.Write "<HR>"
.Write "<p>"
End With
Next
' If CInt(CurPage) <> 2 Then
' Response.Write "<INPUT type = button NAME=Value=Next Onclick="" document.location.href='Store.ASP? curpage=" & CurPage + 1 & "';"">)"
' End If
'If CInt(CurPage) <> 2 Then
'Response.Write "<Input type = button Value=Next ONCLICK= "" document.location.href='Paging.asp?curpage=" & CurPage + 1 & "';" > ") "
' Response.Write "<Input type = button Value=Next ONCLICK= "" document.location.href='Store.ASP?WCI=wciSearch&WCU & Curpage=" & CurPage + 1 & "';"" > "
' Response.Write "<Input type = Submit NAME=cmdNext Value=Next>"
'End If
Else
With Response
.Write "<p>"
.Write "Sorry, no Surname has been found that matches the keyword you entered."
End With
End If
Call objStore.CloseConnection
End If
End Sub
and the code of the database class is the same as above but with the extra code you give me.
I'd really really appreciate it if you could help me here please.
Thanks for your time
LT
