Wow, thanks for that, sorry for my delayed reply I have been away today. I really was not expecting that much detail. I have tried to apply it but because this logic is not what I am use to I am probably going to come across as very stupid  Your code mentions replacing qry_count = "SELECT count(*) as count FROM wce_contact where ((company like '%"&SearchCriteria&"%' OR type_of_business like '%"&SearchCriteria&"%' OR Business_Overview like '%"&SearchCriteria&"%' OR services like '%"&SearchCriteria&"%') AND (General_Public_Facing = 'y'))" with CODEqry_count = "dbo.SearchCount '" & SearchCriteria & "'" Should qry_count go in the other code you posted below? Or outside of that? Below you code example is what I have tried and the error I have got returned. CODE<%
search = ""
search = Request.QueryString("search")
SearchCriteria = Request.Form("directorysearch")
If Len(SearchCriteria) > 2 Then
Set cmd = Server.CreateObject("ADODB.Command")
Set cmd.ActiveConnection = connStr
cmd.CommandText = "dbo.SearchCount"
cmd.CommandType = adCmdStoredProc
cmd.Parameters.Append cmd.CreateParameter("SearchCriteria", adVarChar, 1000, adParamInput)
cmd("SearchCriteria") = SearchCriteria
Set oRs_count = cmd.Execute
count = (oRs_count("count"))
qry = "SELECT * FROM wce_contact WHERE((General_Public_Facing = 'y') AND (company LIKE '%"&SearchCriteria&"%' OR type_of_business LIKE '%"&SearchCriteria&"%' OR Business_Overview LIKE '%"&SearchCriteria&"%' OR services LIKE '%"&SearchCriteria&"%'))"
Set oRs = connStr.Execute(qry)
Else
search = ""
End If
%> Here is the entire code page and the error: Thank you very much for you help, gret to learn new stuff, when it works i'm sure i will be able to link the logic together. ADODB.Command error '800a0bb9' Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another. /DirectorySearch.asp, line 16 Line 16 is --- cmd.CommandType = adCmdStoredProc CODE<!--#include file="include/connection.asp"-->
<%
search = ""
search = Request.QueryString("search")
SearchCriteria = Request.Form("directorysearch")
qry_count = "dbo.SearchCount '" & SearchCriteria & "'"
If Len(SearchCriteria) > 2 Then
Set cmd = Server.CreateObject("ADODB.Command")
Set cmd.ActiveConnection = connStr
cmd.CommandText = "dbo.SearchCount"
cmd.CommandType = adCmdStoredProc
cmd.Parameters.Append cmd.CreateParameter("SearchCriteria", adVarChar, 1000, adParamInput)
cmd("SearchCriteria") = SearchCriteria
Set oRs_count = cmd.Execute
count = (oRs_count("count"))
qry = "SELECT * FROM wce_contact WHERE((General_Public_Facing = 'y') AND (company LIKE '%"&SearchCriteria&"%' OR type_of_business LIKE '%"&SearchCriteria&"%' OR Business_Overview LIKE '%"&SearchCriteria&"%' OR services LIKE '%"&SearchCriteria&"%'))"
Set oRs = connStr.Execute(qry)
Else
search = ""
End If
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>WiredContact Portal</title>
<link type="text/css" href="portal/css/stylesheet.css" rel="stylesheet">
<script language="">
function checkfield(){
if(document.forms[0].directorysearch.value == ""){
alert("Please enter a search value");
}
else {
document.forms[0].submit();
}
}
</script>
</head>
<form name="DirectorySearch" method="post" action="DirectorySearch.asp?search=yes">
<body>
<table border=0>
<tr><td colspan=2> </td></tr>
<tr><td class=lbl align=right colspan=2>Search directory <input type=text name="directorysearch"> <input type="button" onclick="checkfield()" value="Click to Search"></td></tr>
<tr><td colspan=2> </td></tr>
<% If (search <> "") Then %>
<% If (oRs_count("count")) => "1" Then %>
<% Do while not oRs.eof %>
<tr><td class=lbl>Business Name</td>
<td class=Text> <% response.write(oRs("company")) %></td></tr>
<% If (oRs("Name_Enfield_Business_Directory")) = "y" Then %> <tr><td class=lbl>Salutation</td>
<td class=Text> <% response.write(oRs("Salutation")) %></td></tr> <% Else %> <% End If %>
<% If (oRs("Name_Enfield_Business_Directory")) = "y" Then %> <tr><td class=lbl>First Name</td>
<td class=Text> <% response.write(oRs("firstname")) %></td></tr> <% Else %> <% End If %>
<% If (oRs("Name_Enfield_Business_Directory")) = "y" Then %> <tr><td class=lbl>Last Name</td>
<td class=Text> <% response.write(oRs("lastname")) %></td></tr> <% Else %> <% End If %>
<% If (oRs("address_Enfield_Business_Directory")) = "y" Then %> <tr><td class=lbl>Address</td>
<td class=Text> <% response.write(oRs("Building_Name_Flat_Number")) %>, <% response.write(oRs("unit_number")) %>, <% response.write(oRs("Estate_or_Business_Centre")) %>, <% response.write(oRs("address1")) %>, <% response.write(oRs("address2")) %>, <% response.write(oRs("city")) %>, <% response.write(oRs("county")) %>, <% response.write(oRs("postalcode")) %></td></tr> <% Else %> <% End If %>
<% If (oRs("mobile_Enfield_Business_Directory")) = "y" Then %> <tr><td class=lbl>Mobilephone</td>
<td class=Text> <% response.write(oRs("mobilephone")) %></td></tr> <% Else %> <% End If %>
<tr><td class=lbl>Telephone</td>
<td class=Text><% response.write(oRs("phone")) %></td></tr>
<tr><td class=lbl>08 numbers</td>
<td class=Text><% response.write(oRs("Zero_Eight_Numbers")) %></td></tr>
<tr><td class=lbl>Type of Business</td>
<td class=Text><% response.write(oRs("type_of_business")) %></td></tr>
<tr><td class=lbl>Generic Email</td>
<td class=Text><% response.write(oRs("Generic_Email")) %></td></tr>
<tr><td class=lbl>Website</td>
<td class=Text> <% response.write(oRs("website")) %></td></tr>
<tr><td class=lbl>Business Overview</td>
<td class=Text><% response.write(oRs("Business_Overview")) %> </td></tr>
<tr><td class=lbl>Services</td>
<td class=Text><% response.write(oRs("services")) %> </td></tr>
<tr><td colspan=2> </td></tr>
<tr><td colspan=2><hr></td></tr>
<%
oRs.movenext
Loop
oRs.Close
Else
lup = ""
SearchCriteria = ""
oRs.Close
End If
lup = ""
SearchCriteria = ""
'End If
Else
End If
%>
</table>
</form>
</body>
</html> |
|
Talk To Other Members
Read More Threads Like This One