OK, I'm not sure of the problem, so lets try a different aproach.
Lets try removing all the recordcount stuff and do something like:
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Request.QueryString("Title") <> "") Then
Recordset1__MMColParam = Request.QueryString("Title")
End If
%>
<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows
Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConnection = MM_hostspaced_STRING
Recordset1_cmd.CommandText = "SELECT Count(Title) AS TitleCount FROM software WHERE Title = ?"
Recordset1_cmd.Prepared = true
Recordset1_cmd.Parameters.Append Recordset1_cmd.CreateParameter("param1", 200, 1, 255, Recordset1__MMColParam) ' adVarChar
Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%>
<%
if (Request.ServerVariables("Request_Method") = "POST") then
WAFV_Redirect = ""
Session("WAVT_insertproduct_Errors") = ""
if (WAFV_Redirect = "") then
WAFV_Redirect = cStr(Request.ServerVariables("SCRIPT_NAME"))
end if
WAFV_Errors = ""
WAFV_Errors = WAFV_Errors & WAValidateNM((Recordset1.fields("TitleCount")) & "",0,0,"",",.",true,1)
if (WAFV_Errors<> "") then
PostResult WAFV_Redirect,WAFV_Errors,"insertproduct"
end if
end if
%>
