mrw0253 - 3:22 pm on Mar 24, 2006 (gmt 0)

I've got this program working perfectly except for one error. When a product search expands to more than one page I get this error when going to "next page"

Microsoft VBScript runtime error '800a000d'

Type mismatch: '[string: ""]'

/search_results.asp, line 63

Does anyone have any idea of what I should look for in the VB script?
Here is a subsection of the area involved:

sALLSUB = Request.item("txtsearchParamCat")
iLevel = Request.item("iLevel")
if ilevel = 2 and sALLSUB = "ALL" then
sSubCat = Request.item("subcat")
end if
' Requests the variables depending on how the page is entered
If txtFromSearch = "fromSearch" Then
txtsearchParamTxt= trim(Replace(Replace(Request.Form("txtsearchParamTxt"), "'", "''"), "*", ""))
txtsearchParamType= trim(Request.Form("txtsearchParamType"))
if Ilevel = 2 and sALLSUB = "ALL" then
txtsearchParamCat= sSubCat
Ilevel = 1
else
txtsearchParamCat= trim(Request.QueryString("txtsearchParamCat"))
end if
txtsearchParamMan= trim(Request.Form("txtsearchParamMan"))
txtsearchParamVen= trim(Request.Form("txtsearchParamVen"))
txtDateAddedStart= MakeUSDate(trim(Request.Form("txtDateAddedStart")))
txtDateAddedEnd = MakeUSDate(trim(Request.Form("txtDateAddedEnd")))
txtPriceStart= trim(Request.Form("txtPriceStart"))
txtPriceEnd = trim(Request.Form("txtPriceEnd"))
txtSale= trim(Request.Form("txtSale"))
Else
txtsearchParamTxt= trim(Replace(Replace(Request.QueryString("txtsearchParamTxt"), "'", "''"), "*", ""))
txtsearchParamType= trim(Request.QueryString("txtsearchParamType"))
if Ilevel = 2 and sALLSUB = "ALL" then
txtsearchParamCat= sSubCat
Ilevel = 1
else
txtsearchParamCat= trim(Request.QueryString("txtsearchParamCat"))
end if