Author: henryaga | Posted on: 3/17/2009 9:21:44 AM | Views : 245

Hi,
 
I have a code to get use zip codes database searching for information.  The code is:
Dim rsAds__MMColParam, criterio
rsAds__MMColParam = "1"
set rsAds = Server.CreateObject("ADODB.Recordset")
rsAds.ActiveConnection = MM_connDUclassified_STRING

criterio="SELECT * FROM ADS, USERS WHERE U_ID = AD_POSTER "

if request.form("cod")<>0 then
    criterio=criterio+" AND AD_ID = "&request.form("cod")&" ORDER BY AD_EXPIRED DESC"
else
    if request.form("state")<>"TODOS" then
        criterio=criterio+" AND STATE='"+request.form("state")+"' "
    end if
   
    if request.form("monedas")<>"0" then
   ...

Go to the complete details ...