An Strange Error

alirezaaali · August 4th, 2007, 03:21 PM

I use the source code below:

<%
'read strings from export page
Dim strtilekind,strtilesize,strmosaic,strgranite
strtilekind=request.Form("tilekind")
strtilesize=request.Form("tilesize")
strmosaic=request.Form("mosaic")
strgranite=request.Form("granite")

Dim StrSQL
If strtilekind ="---" and strtilesize ="" and strmosaic="---" and strgranite="---" then
    StrSQL="SELECT sale_model_no,type,tile_size,water_absorption,poli shed,varnished,firing _type,certifications,MOQ,available,other_sizes,col ores FROM tblproducts ORDER BY sale_model_no ASC"
Else If strtilekind ="Floor" and strtilesize ="---" and strmosaic="---" and strgranite="---" then
    StrSQL="SELECT sale_model_no,type,tile_size,water_absorption,poli shed,varnished,firing _type,certifications,MOQ,available,other_sizes,col ores FROM tblproducts Where(type='Floor') ORDER BY sale_model_no ASC"
Else If strtilekind ="Wall" and strtilesize ="---" and strmosaic="---" and strgranite="---" then
    StrSQL="SELECT sale_model_no,type,tile_size,water_absorption,poli shed,varnished,firing _type,certifications,MOQ,available,other_sizes,col ores FROM tblproducts Where(type='Wall') ORDER BY sale_model_no ASC"
Else If strtilekind ="Floor" and strtilesize ="15x45" and strmosaic="---" and strgranite="---" then
    StrSQL="SELECT sale_model_no,type,tile_size,water_absorption,poli shed,varnished,firing _type,certifications,MOQ,available,other_sizes,col ores FROM tblproducts Where(type='Floor' AND tile_size='15x45') ORDER BY sale_model_no ASC"
Else If strtilekind ="Floor" and strtilesize ="30x60" and strmosaic="---" and strgranite="---" then
    StrSQL="SELECT sale_model_no,type,tile_size,water_absorption,poli shed,varnished,firing _type,certifications,MOQ,available,other_sizes,col ores FROM tblproducts Where(type='Floor' AND tile_size='30x60') ORDER BY sale_model_no ASC"
Else If strtilekind ="Floor" and strtilesize ="33x33" and strmosaic="---" and strgranite="---" then
    StrSQL="SELECT sale_model_no,type,tile_size,water_absorption,poli shed,varnished,firing _type,certifications,MOQ,available,other_sizes,col ores FROM tblproducts Where(type='Floor' AND tile_size='33x33') ORDER BY sale_model_no ASC"
Else If strtilekind ="Floor" and strtilesize ="33x55" and strmosaic="---" and strgranite="---" then
    StrSQL="SELECT sale_model_no,type,tile_size,water_absorption,poli shed,varnished,firing _type,certifications,MOQ,available,other_sizes,col ores FROM tblproducts Where(type='Floor' AND tile_size='33x55') ORDER BY sale_model_no ASC"
Else If strtilekind ="Floor" and strtilesize ="40x40" and strmosaic="---" and strgranite="---" then
    StrSQL="SELECT sale_model_no,type,tile_size,water_absorption,poli shed,varnished,firing _type,certifications,MOQ,available,other_sizes,col ores FROM tblproducts Where(type='Floor' AND tile_size='40x40') ORDER BY sale_model_no ASC"
Else If strtilekind ="Wall" and strtilesize ="15x15" and strmosaic="---" and strgranite="---" then
    StrSQL="SELECT sale_model_no,type,tile_size,water_absorption,poli shed,varnished,firing _type,certifications,MOQ,available,other_sizes,col ores FROM tblproducts Where(type='Wall' AND tile_size='15x15') ORDER BY sale_model_no ASC"
Else If strtilekind ="Wall" and strtilesize ="20x20" and strmosaic="---" and strgranite="---" then
    StrSQL="SELECT sale_model_no,type,tile_size,water_absorption,poli shed,varnished,firing _type,certifications,MOQ,available,other_sizes,col ores FROM tblproducts Where(type='Wall' AND tile_size='20x20') ORDER BY sale_model_no ASC"
Else If strtilekind ="Wall" and strtilesize ="20x25" and strmosaic="---" and strgranite="---" then
    StrSQL="SELECT sale_model_no,type,tile_size,water_absorption,poli shed,varnished,firing _type,certifications,MOQ,available,other_sizes,col ores FROM tblproducts Where(type='Wall' AND tile_size='20x25') ORDER BY sale_model_no ASC"
Else If strtilekind ="Wall" and strtilesize ="20x30" and strmosaic="---" and strgranite="---" then
    StrSQL="SELECT sale_model_no,type,tile_size,water_absorption,poli shed,varnished,firing _type,certifications,MOQ,available,other_sizes,col ores FROM tblproducts Where(type='Wall' AND tile_size='20x30') ORDER BY sale_model_no ASC"
Else If strtilekind ="Wall" and strtilesize ="25x25" and strmosaic="---" and strgranite="---" then
    StrSQL="SELECT sale_model_no,type,tile_size,water_absorption,poli shed,varnished,firing _type,certifications,MOQ,available,other_sizes,col ores FROM tblproducts Where(type='Wall' AND tile_size='25x25') ORDER BY sale_model_no ASC"
Else If strtilekind ="Wall" and strtilesize ="25x33" and strmosaic="---" and strgranite="---" then
    StrSQL="SELECT sale_model_no,type,tile_size,water_absorption,poli shed,varnished,firing _type,certifications,MOQ,available,other_sizes,col ores FROM tblproducts Where(type='Wall' AND tile_size='25x33') ORDER BY sale_model_no ASC"
Else If strtilekind ="Wall" and strtilesize ="25x40" and strmosaic="---" and strgranite="---" then
    StrSQL="SELECT sale_model_no,type,tile_size,water_absorption,poli shed,varnished,firing _type,certifications,MOQ,available,other_sizes,col ores FROM tblproducts Where(type='Wall' AND tile_size='25x40') ORDER BY sale_model_no ASC"
Else If strtilekind ="---" and strtilesize ="" and strmosaic="Press" and strgranite="---" then
    StrSQL="SELECT sale_model_no,type,tile_size,water_absorption,poli shed,varnished,firing _type,certifications,MOQ,available,other_sizes,col ores FROM tblproducts Where(type='Mosaic' AND tile_size='Press') ORDER BY sale_model_no ASC"
Else If strtilekind ="---" and strtilesize ="" and strmosaic="Puzzel" and strgranite="---" then
    StrSQL="SELECT sale_model_no,type,tile_size,water_absorption,poli shed,varnished,firing _type,certifications,MOQ,available,other_sizes,col ores FROM tblproducts Where(type='Mosaic' AND tile_size='Puzzel') ORDER BY sale_model_no ASC"
Else If strtilekind ="---" and strtilesize ="" and strmosaic="Elevation" and strgranite="---" then
    StrSQL="SELECT sale_model_no,type,tile_size,water_absorption,poli shed,varnished,firing _type,certifications,MOQ,available,other_sizes,col ores FROM tblproducts Where(type='Mosaic' AND tile_size='Elevation') ORDER BY sale_model_no ASC"
Else If strtilekind ="---" and strtilesize ="" and strmosaic="Washbeton" and strgranite="---" then
    StrSQL="SELECT sale_model_no,type,tile_size,water_absorption,poli shed,varnished,firing _type,certifications,MOQ,available,other_sizes,col ores FROM tblproducts Where(type='Mosaic' AND tile_size='Washbeton') ORDER BY sale_model_no ASC"
Else If strtilekind ="---" and strtilesize ="" and strmosaic="---" and strgranite="Pepper&Salt" then
    StrSQL="SELECT sale_model_no,type,tile_size,water_absorption,poli shed,varnished,firing _type,certifications,MOQ,available,other_sizes,col ores FROM tblproducts Where(type='granite' AND tile_size='pepper&salt') ORDER BY sale_model_no ASC"
Else If strtilekind ="---" and strtilesize ="" and strmosaic="---" and strgranite="Solublesalt" then
    StrSQL="SELECT sale_model_no,type,tile_size,water_absorption,poli shed,varnished,firing _type,certifications,MOQ,available,other_sizes,col ores FROM tblproducts Where(type='granite' AND tile_size='Solublesalt') ORDER BY sale_model_no ASC"
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If

Dim ObjRS
Set objRS=Server.CreateObject("ADODB.Recordset")
objRS.open StrSQL,objconn
%>

and i get the error below :
Error Type:
ADODB.Recordset (0x800A0BB9)
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/ravimex/product_show.asp, line 79

I Really Love to learn ASP

explore_asp · August 16th, 2007, 10:03 AM

Hi,
  Make Sure that u are passing values to the select query are of
  correct type means 'suppose u have specified varchar in the
  database and u are passing numeric type, this is wrong type'..

  OR 'Suppose u have specified varchar in the database with its size
  10 and u r passing value that is more then 10 character that is out
  of range'.

  Plz check I think It will work then......

Thanks.