Wildcard and intergers

DaveRook

Hi

I have a simple piece of code which will not accept the wild card!

My SQL looks like

Expand|Select|Wrap|Line Numbers

 <%

if Request.QueryString("num")<>"" then

Var_Number = Request.QueryString("num")

else

Var_Number="%"

end if

%>
 
<%
 
Dim rs05

Dim rs05_numRows
 
Set rs05 = Server.CreateObject("ADODB.Recordset")

rs05.ActiveConnection = conn_05

rs05.Source = "SELECT *  FROM 05 WHERE ((MinContacts <= "+ Replace(Var_Number, "'", "''")+") AND (MaxContacts >= "+ Replace(Var_Number, "'", "''")+"))"

rs05.CursorType = 0

rs05.CursorLocation = 2

rs05.LockType = 1

rs05.Open()

%>

Let's pretend the user doesn't specify a number and so the program uses the wildcard!

If I enter

Var_Number=%

I get the message Invalid character

If I include spech marks

Var_Number="%"

I get: Microsoft JET Database Engine error '80040e14'
((MinContacts <= %) AND (MaxContacts >= %))

I have looked online, and it says the program doesn't know how to handle % as it's probably looking for an int, but I don't know how to correct it!

Thanks for any help

Dave

codegecko

Hi Dave,

The answer to your question is remarkably simple - wildcards don't work with numbers! You'd have to move your If block to surround your SQL construct like so:

Expand|Select|Wrap|Line Numbers

 
<%

Dim rs05

Dim rs05_numRows
 
Set rs05 = Server.CreateObject("ADODB.Recordset")

rs05.ActiveConnection = conn_05

rs05.Source = "SELECT *  FROM 05" 

If Request.QueryString("num")<>"" Then

    Var_Number = Request.QueryString("num")

    rs05.Source = rs05.Source + " WHERE ((MinContacts <= "+ Replace(Var_Number, "'", "''")+") AND (MaxContacts >= "+ Replace(Var_Number, "'", "''")+"))"

End If

rs05.CursorType = 0

rs05.CursorLocation = 2

rs05.LockType = 1

rs05.Open()

%>

Hope this helps.

medicineworker

DaveRook

medicineworker,

Thank you for your suggestion and help. This will now allow me to progress with this.

Thank you,

Dave

codegecko

You're welcome Dave :-)

med

Wildcard and intergers

re: Wildcard and intergers

re: Wildcard and intergers

re: Wildcard and intergers

Similar ASP / Active Server Pages bytes

/bytes/development

/bytes/it

/bytes/about