Strange Error inh STRSQL
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
I Really Love to learn ASP
__________________
I Really Love to learn ASP
|
