|
 |
asp_ado_rds thread: string variable is concatinating...
Message #1 by "raj" <rajkalakota@h...> on Tue, 27 Feb 2001 16:45:46
|
|
hello,
i m assigning a sql statement to a variable and executing using execute
method.
the variable is not able to take more a fixed length. it is concatinating
the string hence it is causing error in executing the sql.
can any body help me out.
thanks
raj
Message #2 by "Muazzam Aumeerally" <muazm@h...> on Tue, 27 Feb 2001 12:08:17 -0500
|
|
Hello raj,
can u send your code, i will see what's wrong in it.
regards,
M.A
>From: "raj" <rajkalakota@h...>
>Reply-To: "ASP_ADO_RDS" <asp_ado_rds@p...>
>To: "ASP_ADO_RDS" <asp_ado_rds@p...>
>Subject: [asp_ado_rds] string variable is concatinating...
>Date: Tue, 27 Feb 2001 16:45:46
>
>hello,
> i m assigning a sql statement to a variable and executing using execute
>method.
>the variable is not able to take more a fixed length. it is concatinating
>the string hence it is causing error in executing the sql.
>can any body help me out.
>thanks
>raj
>---
Message #3 by "raj" <rajkalakota@h...> on Wed, 28 Feb 2001 09:43:29
|
|
thanks for reply MA,
here is the code.
i think this is quite big but for ur ref im sending.
the string which is causing problem is searchSql
***************************************************************************
Function ValidStr(string)
for a=1 to len(string)
b=mid(string,a,1)
if b="'" then b="''"
c=c+b
next
ValidStr=c
End Function
Set DataConn = Server.CreateObject("ADODB.Connection")
DataConn.Open "GSPC"
Set DataConn2 = Server.CreateObject("ADODB.Connection")
DataConn2.Open "GSPCAdmin"
Callback=Request.Form("Callback")
If Callback Then
Area=Request.Form("Area")
StreetPart=Request.Form("StreetPart")
PropertyType=Request.Form("Type")
MinPrice=Request.Form("MinPrice")
MaxPrice=Request.Form("MaxPrice")
PublicRooms=Request.Form("PublicRooms")
Bedrooms=Request.Form("Bedrooms")
CentralHeating=Request.Form("CentralHeating")
DoubleGlazing=Request.Form("DoubleGlazing")
Garage=Request.Form("Garage")
Garden=Request.Form("Garden")
SearchDB=Request.Form("SearchDB")
End If
ReRun=False
If trim(Request.QueryString("SearchID"))=trim(cstr(session.sessionID))
then
SearchCriteriaSQL="SELECT * FROM SearchCriteria Where
SessionID='"+trim(cstr(session.sessionID))+"' ORDER BY SearchDate DESC;"
Set SearchCriteria=DataConn2.Execute(SearchCriteriaSQL)
If not SearchCriteria.EOF Then
Area=SearchCriteria("Area")
StreetPart=SearchCriteria("StreetPart")
PropertyType=SearchCriteria("Type")
MinPrice=SearchCriteria("MinPrice")
MaxPrice=SearchCriteria("MaxPrice")
PublicRooms=SearchCriteria("PublicRooms")
Bedrooms=SearchCriteria("Bedrooms")
CentralHeating=SearchCriteria("CentralHeating")
DoubleGlazing=SearchCriteria("DoubleGlazing")
Garage=SearchCriteria("Garage")
Garden=SearchCriteria("Garden")
SearchDB=SearchCriteria("SearchDB")
Callback=True
Rerun=True
Else
Callback=False
End If
SearchCriteria.Close
End If
If Callback then
if SearchDB="Sold" Then
DataConn.Close
DataConn.Open "GSPCMembers"
if IsNull(MinPrice) or trim(MinPrice)="" Then
fromPrice="0"
Else
fromPrice=cstr(cdbl(MinPrice))
End If
if IsNull(MaxPrice) or trim(MaxPrice)="" Then
toPrice="1000000"
Else
toPrice=cstr(cdbl(MaxPrice))
End If
WhereSQL_Price="(Property.SellingPrice>="+trim(FromPrice)+" and
Property.SellingPrice<="+trim(ToPrice)+")"
SearchTempSQL="SELECT * FROM PickListFilterPropertyTypeMajorMinor
WHERE trim(PickListDescription)='"+trim(PropertyType)+"'"
Set SearchTemp=DataConn.Execute(SearchTempSQL)
FilterFromMajor=SearchTemp("FilterFromMajor")
FilterToMajor=SearchTemp("FilterToMajor")
FilterFromMinor=SearchTemp("FilterFromMinor")
FilterToMinor=SearchTemp("FilterToMinor")
SearchTemp.Close
WhereSQL_Type="((PropertySearchKeys.PropertyTypeMajorID>="+trim(cstr
(FilterFromMajor))+" And PropertySearchKeys.PropertyTypeMajorID<="+trim
(cstr(FilterToMajor))+")"
WhereSQL_Type=WhereSQL_Type+" AND
(PropertySearchKeys.PropertyTypeMinorID>="+trim(cstr(FilterFromMinor))+"
And PropertySearchKeys.PropertyTypeMinorID<="+trim(cstr(FilterToMinor))
+"))"
SearchTempSQL="SELECT * FROM PickListFilterLocationMajorMinor WHERE
trim(PickListDescription)='"+trim(Area)+"'"
Set SearchTemp=DataConn.Execute(SearchTempSQL)
FilterFromMajor=SearchTemp("FilterFromMajor")
FilterToMajor=SearchTemp("FilterToMajor")
FilterFromMinor=SearchTemp("FilterFromMinor")
FilterToMinor=SearchTemp("FilterToMinor")
SearchTemp.Close
WhereSQL_Location="((((PickListFilterLocationMajorMinor.LocationID)
>="+trim(cstr(FilterFromMinor))+" And
(PickListFilterLocationMajorMinor.LocationID)<="+trim(cstr(FilterToMinor))
+") AND ((PropertySearchKeys.LocationMajorID)>="+trim(cstr
(FilterFromMajor))+" And (PropertySearchKeys.LocationMajorID)<="+trim(cstr
(FilterToMajor))+")) OR"
WhereSQL_Location=WhereSQL_Location+"
(((PickListFilterLocationMajorMinor_1.LocationID)>="+trim(cstr
(FilterFromMinor))+" And (PickListFilterLocationMajorMinor_1.LocationID)
<="+trim(cstr(FilterToMinor))+") AND ((PropertySearchKeys.LocationMajorID)
>="+trim(cstr(FilterFromMajor))+" And (PropertySearchKeys.LocationMajorID)
<="+trim(cstr(FilterToMajor))+")) OR"
WhereSQL_Location=WhereSQL_Location+"
(((PickListFilterLocationMajorMinor_2.LocationID)>="+trim(cstr
(FilterFromMinor))+" And (PickListFilterLocationMajorMinor_2.LocationID)
<="+trim(cstr(FilterToMinor))+") AND ((PropertySearchKeys.LocationMajorID)
>="+trim(cstr(FilterFromMajor))+" And (PropertySearchKeys.LocationMajorID)
<="+trim(cstr(FilterToMajor))+")))"
SearchTempSQL="SELECT * FROM NumberOfRooms WHERE Trim([As Seen In Pick
List])='"+trim(PublicRooms)+"';"
Set SearchTemp=DataConn.Execute(SearchTempSQL)
FromRoom=SearchTemp("From Room")
ToRoom=SearchTemp("To Room")
SearchTemp.Close
WhereSQL_PublicRooms="(PublicRooms Is Null or (PublicRooms>="+trim(cstr
(FromRoom))+" and PublicRooms<="+trim(cstr(ToRoom))+"))"
SearchTempSQL="SELECT * FROM NumberOfRooms WHERE Trim([As Seen In Pick
List])='"+trim(Bedrooms)+"';"
Set SearchTemp=DataConn.Execute(SearchTempSQL)
FromRoom=SearchTemp("From Room")
ToRoom=SearchTemp("To Room")
SearchTemp.Close
WhereSQL_Bedrooms="(BedRooms Is Null or (Bedrooms>="+trim(cstr(FromRoom))
+" and Bedrooms<="+trim(cstr(ToRoom))+"))"
Select Case CentralHeating
Case "Yes"
WhereSQL_CentralHeating="(PropertySearchKeys.CentralHeating=-1)"
Case "No"
WhereSQL_CentralHeating="(PropertySearchKeys.CentralHeating=0)"
Case "Optional"
WhereSQL_CentralHeating="(PropertySearchKeys.CentralHeating=0 or
PropertySearchKeys.CentralHeating=-1)"
End Select
Select Case DoubleGlazing
Case "Yes"
WhereSQL_DoubleGlazing="(PropertySearchKeys.DoubleGlazing=-1)"
Case "No"
WhereSQL_DoubleGlazing="(PropertySearchKeys.DoubleGlazing=0)"
Case "Optional"
WhereSQL_DoubleGlazing="(PropertySearchKeys.DoubleGlazing=0 or
PropertySearchKeys.DoubleGlazing=-1)"
End Select
Select Case Garage
Case "Yes"
WhereSQL_Garage="(PropertySearchKeys.Garage=-1)"
Case "No"
WhereSQL_Garage="(PropertySearchKeys.Garage=0)"
Case "Optional"
WhereSQL_Garage="(PropertySearchKeys.Garage=0 or
PropertySearchKeys.Garage=-1)"
End Select
Select Case Garden
Case "Yes"
WhereSQL_Garden="(PropertySearchKeys.Garden=-1)"
Case "No"
WhereSQL_Garden="(PropertySearchKeys.Garden=0)"
Case "Optional"
WhereSQL_Garden="(PropertySearchKeys.Garden=0 or
PropertySearchKeys.Garden=-1)"
End Select
If trim(StreetPart)<>"" then
WhereSQL_StreetPart="(PickListFilterStreet.PickListDescription
Like '%"+trim(streetpart)+"%')"
End If
SearchSQL="SELECT DISTINCTROW PropertySearchKeys.PropertyReference,
PickListFilterPropertyTypeMajorMinor.PropertyTypeDescription as
PropertyTypeMajorDescription, Property.HouseName, Property.HouseNumber,
Property.SellingPrice,
PickListFilterLocationMajorMinor.PickListDescription as
PropertyTypeMinorDescription,
PickListFilterLocationMajorMinor_1.PickListDescription AS LocDescription,
PickListFilterLocationMajorMinor_2.PickListDescription AS Loc1Description,
PickListFilterLocationMajorMinor_3.PickListDescription AS Loc2Description,
PickListFilterStreet.PickListDescription AS StreetDescription "
FromSQL="FROM ((((((("
FromSQL=FromSQL+"PropertySearchKeys LEFT JOIN Property ON
PropertySearchKeys.PropertyReference=Property.PropertyReference) "
FromSQL=FromSQL+"LEFT JOIN PickListFilterPropertyTypeMajorMinor ON
(PropertySearchKeys.PropertyTypeMinorID =
PickListFilterPropertyTypeMajorMinor.PropertyTypeMinorID) AND
(PropertySearchKeys.PropertyTypeMajorID =
PickListFilterPropertyTypeMajorMinor.PropertyTypeMajorID)) "
FromSQL=FromSQL+"LEFT JOIN PropertyPriceType ON
Property.PropertyPriceTypeID = PropertyPriceType.PropertyPriceTypeID) "
FromSQL=FromSQL+"LEFT JOIN PickListFilterLocationMajorMinor ON
PropertySearchKeys.LocationMajorID =
PickListFilterLocationMajorMinor.LocationMajorID) "
FromSQL=FromSQL+"LEFT JOIN PickListFilterLocationMajorMinor AS
PickListFilterLocationMajorMinor_1 ON PropertySearchKeys.LocationID1 =
PickListFilterLocationMajorMinor_1.LocationID) "
FromSQL=FromSQL+"LEFT JOIN PickListFilterLocationMajorMinor AS
PickListFilterLocationMajorMinor_2 ON PropertySearchKeys.LocationID2 =
PickListFilterLocationMajorMinor_2.LocationID) "
FromSQL=FromSQL+"LEFT JOIN PickListFilterLocationMajorMinor AS
PickListFilterLocationMajorMinor_3 ON PropertySearchKeys.LocationID3 =
PickListFilterLocationMajorMinor_3.LocationID) "
FromSQL=FromSQL+"LEFT JOIN PickListFilterStreet ON
(PropertySearchKeys.StreetNameID =
PickListFilterStreet.FilterFromStreetNameID) AND
(PropertySearchKeys.StreetTypeID =
PickListFilterStreet.FilterFromStreetTypeID)"
onSQL=""
WhereSQL="WHERE ((Property.PropertyReference>0))"
CountSQL="SELECT Count(Property.PropertyReference) As Counter "
SearchSQL=SearchSQL+FromSQL+onSQL+WhereSQL
CountSQL=CountSQL+FromSQL+onSQL+WhereSQL
SearchSQL=SearchSQL+" AND "+WhereSQL_Price
SearchSQL=SearchSQL+" AND "+WhereSQL_Type
SearchSQL=SearchSQL+" AND "+WhereSQL_Location
SearchSQL=SearchSQL+" AND "+WhereSQL_PublicRooms
SearchSQL=SearchSQL+" AND "+WhereSQL_Bedrooms
If CentralHeating<>"Optional" then SearchSQL=SearchSQL+"
AND "+WhereSQL_CentralHeating
If DoubleGlazing<>"Optional" then SearchSQL=SearchSQL+"
AND "+WhereSQL_DoubleGlazing
If Garage<>"Optional" then SearchSQL=SearchSQL+" AND "+WhereSQL_Garage
If Garden<>"Optional" then SearchSQL=SearchSQL+" AND "+WhereSQL_Garden
If WhereSQL_StreetPart<>"" Then
SearchSQL=SearchSQL+" AND "+WhereSQL_StreetPart
End If
SearchSQL=SearchSQL+" ORDER BY Property.SellingPrice DESC;"
CountSQL=CountSQL+" AND "+WhereSQL_Price
CountSQL=CountSQL+" AND "+WhereSQL_Type
CountSQL=CountSQL+" AND "+WhereSQL_Location
CountSQL=CountSQL+" AND "+WhereSQL_PublicRooms
CountSQL=CountSQL+" AND "+WhereSQL_Bedrooms
If CentralHeating<>"Optional" then CountSQL=CountSQL+"
AND "+WhereSQL_CentralHeating
If DoubleGlazing<>"Optional" then CountSQL=CountSQL+"
AND "+WhereSQL_DoubleGlazing
If Garage<>"Optional" then CountSQL=CountSQL+" AND "+WhereSQL_Garage
If Garden<>"Optional" then CountSQL=CountSQL+" AND "+WhereSQL_Garden
If WhereSQL_StreetPart<>"" Then
CountSQL=CountSQL+" AND "+WhereSQL_StreetPart
End If
CountSQL=CountSQL+";"
Else
DataConn.Close
DataConn.Open "GSPC"
if IsNull(MinPrice) or trim(MinPrice)="" Then
fromPrice="0"
Else
fromPrice=cstr(cdbl(MinPrice))
End If
if IsNull(MaxPrice) or trim(MaxPrice)="" Then
toPrice="1000000"
Else
toPrice=cstr(cdbl(MaxPrice))
End If
WhereSQL_Price="(PropertySearchKeys.AskingPrice>="+trim(FromPrice)+"
and PropertySearchKeys.AskingPrice<="+trim(ToPrice)+")"
SearchTempSQL="SELECT * FROM PickListFilterPropertyTypeMajorMinor
WHERE trim(PickListDescription)='"+trim(PropertyType)+"'"
Set SearchTemp=DataConn.Execute(SearchTempSQL)
FilterFromMajor=SearchTemp("FilterFromMajor")
FilterToMajor=SearchTemp("FilterToMajor")
FilterFromMinor=SearchTemp("FilterFromMinor")
FilterToMinor=SearchTemp("FilterToMinor")
SearchTemp.Close
WhereSQL_Type="((PropertySearchKeys.PropertyTypeMajorID>="+trim(cstr
(FilterFromMajor))+" And PropertySearchKeys.PropertyTypeMajorID<="+trim
(cstr(FilterToMajor))+")"
WhereSQL_Type=WhereSQL_Type+" AND
(PropertySearchKeys.PropertyTypeMinorID>="+trim(cstr(FilterFromMinor))+"
And PropertySearchKeys.PropertyTypeMinorID<="+trim(cstr(FilterToMinor))
+"))"
SearchTempSQL="SELECT * FROM PickListFilterLocationMajorMinor WHERE
trim(PickListDescription)='"+trim(Area)+"'"
Set SearchTemp=DataConn.Execute(SearchTempSQL)
FilterFromMajor=SearchTemp("FilterFromMajor")
FilterToMajor=SearchTemp("FilterToMajor")
FilterFromMinor=SearchTemp("FilterFromMinor")
FilterToMinor=SearchTemp("FilterToMinor")
SearchTemp.Close
WhereSQL_Location="((((PickListFilterLocationMajorMinor.LocationID)
>="+trim(cstr(FilterFromMinor))+" And
(PickListFilterLocationMajorMinor.LocationID)<="+trim(cstr(FilterToMinor))
+") AND ((PropertySearchKeys.LocationMajorID)>="+trim(cstr
(FilterFromMajor))+" And (PropertySearchKeys.LocationMajorID)<="+trim(cstr
(FilterToMajor))+")) OR"
WhereSQL_Location=WhereSQL_Location+"
(((PickListFilterLocationMajorMinor_1.LocationID)>="+trim(cstr
(FilterFromMinor))+" And (PickListFilterLocationMajorMinor_1.LocationID)
<="+trim(cstr(FilterToMinor))+") AND ((PropertySearchKeys.LocationMajorID)
>="+trim(cstr(FilterFromMajor))+" And (PropertySearchKeys.LocationMajorID)
<="+trim(cstr(FilterToMajor))+")) OR"
WhereSQL_Location=WhereSQL_Location+"
(((PickListFilterLocationMajorMinor_2.LocationID)>="+trim(cstr
(FilterFromMinor))+" And (PickListFilterLocationMajorMinor_2.LocationID)
<="+trim(cstr(FilterToMinor))+") AND ((PropertySearchKeys.LocationMajorID)
>="+trim(cstr(FilterFromMajor))+" And (PropertySearchKeys.LocationMajorID)
<="+trim(cstr(FilterToMajor))+")))"
SearchTempSQL="SELECT * FROM NumberOfRooms WHERE Trim([As Seen In Pick
List])='"+trim(PublicRooms)+"';"
Set SearchTemp=DataConn.Execute(SearchTempSQL)
FromRoom=SearchTemp("From Room")
ToRoom=SearchTemp("To Room")
SearchTemp.Close
WhereSQL_PublicRooms="(PublicRooms Is Null or (PublicRooms>="+trim(cstr
(FromRoom))+" and PublicRooms<="+trim(cstr(ToRoom))+"))"
SearchTempSQL="SELECT * FROM NumberOfRooms WHERE Trim([As Seen In Pick
List])='"+trim(Bedrooms)+"';"
Set SearchTemp=DataConn.Execute(SearchTempSQL)
FromRoom=SearchTemp("From Room")
ToRoom=SearchTemp("To Room")
SearchTemp.Close
WhereSQL_Bedrooms="(BedRooms Is Null or (Bedrooms>="+trim(cstr(FromRoom))
+" and Bedrooms<="+trim(cstr(ToRoom))+"))"
Select Case CentralHeating
Case "Yes"
WhereSQL_CentralHeating="(PropertySearchKeys.CentralHeating=-1)"
Case "No"
WhereSQL_CentralHeating="(PropertySearchKeys.CentralHeating=0)"
Case "Optional"
WhereSQL_CentralHeating="(PropertySearchKeys.CentralHeating=0 or
PropertySearchKeys.CentralHeating=-1)"
End Select
Select Case DoubleGlazing
Case "Yes"
WhereSQL_DoubleGlazing="(PropertySearchKeys.DoubleGlazing=-1)"
Case "No"
WhereSQL_DoubleGlazing="(PropertySearchKeys.DoubleGlazing=0)"
Case "Optional"
WhereSQL_DoubleGlazing="(PropertySearchKeys.DoubleGlazing=0 or
PropertySearchKeys.DoubleGlazing=-1)"
End Select
Select Case Garage
Case "Yes"
WhereSQL_Garage="(PropertySearchKeys.Garage=-1)"
Case "No"
WhereSQL_Garage="(PropertySearchKeys.Garage=0)"
Case "Optional"
WhereSQL_Garage="(PropertySearchKeys.Garage=0 or
PropertySearchKeys.Garage=-1)"
End Select
Select Case Garden
Case "Yes"
WhereSQL_Garden="(PropertySearchKeys.Garden=-1)"
Case "No"
WhereSQL_Garden="(PropertySearchKeys.Garden=0)"
Case "Optional"
WhereSQL_Garden="(PropertySearchKeys.Garden=0 or
PropertySearchKeys.Garden=-1)"
End Select
If trim(StreetPart)<>"" then
WhereSQL_StreetPart="(StreetName.Description+chr(32)
+StreetType.Description Like '%"+trim(streetpart)+"%')"
End If
SearchSQL="SELECT DISTINCTROW PropertySearchKeys.*,
PickListFilterPropertyTypeMajorMinor.PropertyTypeDescription as
PropertyTypeMajorDescription, Solicitor.SolicitorName,
ViewingArrangements.Description AS ViewingDescription,
PropertyPriceType.Description AS PriceDescription,
PickListFilterLocationMajorMinor.PickListDescription as
PropertyTypeMinorDescription,
PickListFilterLocationMajorMinor_1.PickListDescription AS LocDescription,
PickListFilterLocationMajorMinor_2.PickListDescription AS Loc1Description,
PickListFilterLocationMajorMinor_3.PickListDescription AS Loc2Description,
StreetName.Description AS StreetNameDescription, StreetType.Description AS
StreetTypeDescription "
FromSQL="FROM (((((((((("
FromSQL=FromSQL+"Property RIGHT JOIN PropertySearchKeys ON
Property.PropertyReference = PropertySearchKeys.PropertyReference) "
FromSQL=FromSQL+"LEFT JOIN Solicitor ON Property.SolicitorID =
Solicitor.SolicitorID) "
FromSQL=FromSQL+"LEFT JOIN ViewingArrangements ON
Property.ViewingArrangementsID =
ViewingArrangements.ViewingArrangementsID) "
FromSQL=FromSQL+"LEFT JOIN PickListFilterPropertyTypeMajorMinor ON
(PropertySearchKeys.PropertyTypeMinorID =
PickListFilterPropertyTypeMajorMinor.PropertyTypeMinorID) AND
(PropertySearchKeys.PropertyTypeMajorID =
PickListFilterPropertyTypeMajorMinor.PropertyTypeMajorID)) "
FromSQL=FromSQL+"LEFT JOIN PropertyPriceType ON
Property.PropertyPriceTypeID = PropertyPriceType.PropertyPriceTypeID) "
FromSQL=FromSQL+"LEFT JOIN PickListFilterLocationMajorMinor ON
PropertySearchKeys.LocationMajorID =
PickListFilterLocationMajorMinor.LocationMajorID) "
FromSQL=FromSQL+"LEFT JOIN PickListFilterLocationMajorMinor AS
PickListFilterLocationMajorMinor_1 ON PropertySearchKeys.LocationID1 =
PickListFilterLocationMajorMinor_1.LocationID) "
FromSQL=FromSQL+"LEFT JOIN PickListFilterLocationMajorMinor AS
PickListFilterLocationMajorMinor_2 ON PropertySearchKeys.LocationID2 =
PickListFilterLocationMajorMinor_2.LocationID) "
FromSQL=FromSQL+"LEFT JOIN PickListFilterLocationMajorMinor AS
PickListFilterLocationMajorMinor_3 ON PropertySearchKeys.LocationID3 =
PickListFilterLocationMajorMinor_3.LocationID) "
FromSQL=FromSQL+"LEFT JOIN StreetName ON Property.StreetNameID =
StreetName.StreetNameID) "
FromSQL=FromSQL+"LEFT JOIN StreetType ON Property.StreetTypeID =
StreetType.StreetTypeID "
onSQL=""
WhereSQL="WHERE ((Property.PropertyReference>0))"
CountSQL="SELECT Count(Property.PropertyReference) As Counter "
SearchSQL=SearchSQL+FromSQL+onSQL+WhereSQL
CountSQL=CountSQL+FromSQL+onSQL+WhereSQL
SearchSQL=SearchSQL+" AND "+WhereSQL_Price
SearchSQL=SearchSQL+" AND "+WhereSQL_Type
SearchSQL=SearchSQL+" AND "+WhereSQL_Location
SearchSQL=SearchSQL+" AND "+WhereSQL_PublicRooms
SearchSQL=SearchSQL+" AND "+WhereSQL_Bedrooms
SearchSQL=SearchSQL+" AND "+WhereSQL_CentralHeating
SearchSQL=SearchSQL+" AND "+WhereSQL_DoubleGlazing
SearchSQL=SearchSQL+" AND "+WhereSQL_Garage
SearchSQL=SearchSQL+" AND "+WhereSQL_Garden
If WhereSQL_StreetPart<>"" Then
SearchSQL=SearchSQL+" AND "+WhereSQL_StreetPart
End If
SearchSQL=SearchSQL+" ORDER BY PropertySearchKeys.AskingPrice DESC;"
CountSQL=CountSQL+" AND "+WhereSQL_Price
CountSQL=CountSQL+" AND "+WhereSQL_Type
CountSQL=CountSQL+" AND "+WhereSQL_Location
CountSQL=CountSQL+" AND "+WhereSQL_PublicRooms
CountSQL=CountSQL+" AND "+WhereSQL_Bedrooms
CountSQL=CountSQL+" AND "+WhereSQL_CentralHeating
CountSQL=CountSQL+" AND "+WhereSQL_DoubleGlazing
CountSQL=CountSQL+" AND "+WhereSQL_Garage
CountSQL=CountSQL+" AND "+WhereSQL_Garden
If WhereSQL_StreetPart<>"" Then
CountSQL=CountSQL+" AND "+WhereSQL_StreetPart
End If
CountSQL=CountSQL+";"
End If
If Not Rerun Then
SaveSearchCriteriaSQL="INSERT INTO SearchCriteria (SessionID,
Area, Type, MinPrice, MaxPrice, PublicRooms, Bedrooms, CentralHeating,
DoubleGlazing, Garage, Garden, SearchDB, StreetPart) VALUES("
SaveSearchCriteriaSQL=SaveSearchCriteriaSQL+"'"+trim(cstr
(session.sessionid))+"',"
SaveSearchCriteriaSQL=SaveSearchCriteriaSQL+"'"+ValidStr(trim
(Area))+"',"
SaveSearchCriteriaSQL=SaveSearchCriteriaSQL+"'"+ValidStr(trim
(PropertyType))+"',"
SaveSearchCriteriaSQL=SaveSearchCriteriaSQL+"'"+ValidStr(trim
(MinPrice))+"',"
SaveSearchCriteriaSQL=SaveSearchCriteriaSQL+"'"+ValidStr(trim
(MaxPrice))+"',"
SaveSearchCriteriaSQL=SaveSearchCriteriaSQL+"'"+ValidStr(trim
(PublicRooms))+"',"
SaveSearchCriteriaSQL=SaveSearchCriteriaSQL+"'"+ValidStr(trim
(Bedrooms))+"',"
SaveSearchCriteriaSQL=SaveSearchCriteriaSQL+"'"+ValidStr(trim
(CentralHeating))+"',"
SaveSearchCriteriaSQL=SaveSearchCriteriaSQL+"'"+ValidStr(trim
(DoubleGlazing))+"',"
SaveSearchCriteriaSQL=SaveSearchCriteriaSQL+"'"+ValidStr(trim
(Garage))+"',"
SaveSearchCriteriaSQL=SaveSearchCriteriaSQL+"'"+ValidStr(trim
(Garden))+"',"
SaveSearchCriteriaSQL=SaveSearchCriteriaSQL+"'"+ValidStr(trim
(SearchDB))+"',"
SaveSearchCriteriaSQL=SaveSearchCriteriaSQL+"'"+ValidStr(trim
(StreetPart))+"')"
DataConn2.Execute(SaveSearchCriteriaSQL)
End If
Set Search=DataConn.Execute(SearchSQL)
Set Count=DataConn.Execute(CountSQL)
Else
FindSavedSearchSQL="SELECT * FROM SearchCriteria WHERE
SessionID='"+trim(cstr(session.sessionID))+"' ORDER BY SearchDate DESC"
set SavedSearches=DataConn2.Execute(FindSavedSearchSQL)
If not SavedSearches.EOF Then
AREADESCRIPTION=SavedSearches("AREA")
STREETPART=SavedSearches("STREETPART")
PROPERTYTYPEDESCRIPTION=SavedSearches("TYPE")
MINPRICE=SavedSearches("MINPRICE")
MAXPRICE=SavedSearches("MAXPRICE")
PUBLICROOMS=SavedSearches("PUBLICROOMS")
BEDROOMS=SavedSearches("BEDROOMS")
CENTRALHEATING=SavedSearches("CENTRALHEATING")
DOUBLEGLAZING=SavedSearches("DOUBLEGLAZING")
GARAGE=SavedSearches("GARAGE")
GARDEN=SavedSearches("GARDEN")
SearchDB=SavedSearches("SearchDB")
End If
SavedSearches.Close
AreaSQL="SELECT * FROM PickListFilterLocationMajorMinor"
Set Area=DataConn.Execute(AreaSQL)
PropertyTypeSQL="SELECT * FROM
PickListFilterPropertyTypeMajorMinor"
Set PropertyType=DataConn.Execute(PropertyTypeSQL)
NumberOfRoomsSQL="SELECT * FROM NumberOfRooms"
Set NumberofRooms=DataConn.Execute(NumberofRoomsSQL)
End If
%>
<HTML>
<TITLE>GSPC Online Property Search</TITLE>
<!-- #INCLUDE VIRTUAL="/Includes/header2.inc"-->
<P>
<TABLE ALIGN="CENTER" WIDTH="90%" BORDER="0" CELLSPACING="0"
CELLPADDING="0">
<TR VALIGN="TOP">
<TD VALIGN="TOP" ALIGN="RIGHT" WIDTH="100">
<IMG SRC="/images/sherlock.jpg" BORDER="0">
<P>
<FONT FACE="Verdana, Arial, Helvetica" SIZE="1">
<% if Callback then
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
records=cint(Count("Counter"))
count.close
if records>0 then%>
<B>WANT MORE?</B><BR>Click on the reference number beside a property
to view more details and, optionally, request a property schedule.
<% end if
else%>
<B>HINT:</B><BR>Start by setting a few options, returning to add more
until you receive a manageable number of matches.
<%end if%>
</FONT>
</TD>
<TD VALIGN="TOP" ALIGN="RIGHT" WIDTH="10"></TD>
<TD VALIGN="TOP" ALIGN="LEFT">
<%
If Callback then
%>
<IMG SRC="/images/site/results.gif" border="0" width="231" height="33"
alt="Search results"><P>
<%
response.write "<TABLE ALIGN="+chr(34)+"CENTER"+chr(34)+"
BORDER="+chr(34)+"0"+chr(34)+" CELLSPACING="+chr(34)+"0"+chr(34)+"
CELLPADDING="+chr(34)+"0"+chr(34)+" WIDTH="+chr(34)+"100%"+chr(34)+">"
response.write "<TR><TD COLSPAN="+chr(34)+"2"+chr(34)+">"
response.write "<FONT FACE="+chr(34)+"Verdana, Arial, Helvetica"+chr
(34)+" SIZE="+chr(34)+"2"+chr(34)+">"
if records>0 then
response.write "<B>"
response.write records
response.write " match"
if records>1 then response.write "es"
response.write " found.</B><P>"
if records>100 then
if records>200 then
response.write "<B>Your criteria returned in excess of 200
properties.</B> Our recommendation is that whilst you start with as few
options set as possible, you gradually introduce more specific
requirements to narrow your search.<P>We have limited the results shown to
the first 200 matches.<P> Click <B><A HREF="+chr(34)+"default.asp"+chr(34)
+">HERE</A></B> to refine your search criteria.<P>"
else
response.write "<B>Your criteria returned in excess of 100
properties.</B> Our recommendation is that whilst you start with as few
options set as possible, you gradually introduce more specific
requirements to narrow your search.<P>Click <B><A HREF="+chr(34)
+"default.asp"+chr(34)+">HERE</A></B> to refine your search criteria.<P>"
end if
else
response.write "Click <B><A HREF="+chr(34)+"default.asp"+chr(34)
+">HERE</A></B> to modify your search criteria or run another
search.<P>"
end if
response.write "</TD></TR>"
a=0
while not search.eof and a<201
a=a+1
Location=Trim(Search("LocDescription"))
if Trim(Search("Loc1Description"))<>"" then
If trim(Location)<>"" then
Location=Location+chr(32)
End If
Location=Location+Trim(Search("Loc1Description"))
End If
if Trim(Search("Loc2Description"))<>"" then
If trim(Location)<>"" then
Location=Location+chr(32)
End If
Location=Location+Trim(Search("Loc2Description"))
End If
Location=ucase(Location)
If SearchDB="Sold" Then
if Trim(Search("HouseName"))<>"" then
If trim(Location)<>"" then
Location=Location+chr(32)
End If
Location=Location+Trim(Search("HouseName"))+chr(32)
End If
if Trim(Search("HouseNumber"))<>"" then
If trim(Location)<>"" then
Location=Location+chr(32)
End If
Location=Location+Trim(Search("HouseNumber"))+chr(32)
End If
if Trim(Search("StreetDescription"))<>"" then
If trim(Location)<>"" then
Location=Location+chr(32)
End If
Location=Location+Trim(Search("StreetDescription"))
End If
Else
if Trim(Search("StreetNameDescription"))<>"" then
If trim(Location)<>"" then
Location=Location+chr(32)
End If
Location=Location+Trim(Search("StreetNameDescription"))
End If
if Trim(Search("StreetTypeDescription"))<>"" then
If trim(Location)<>"" then
Location=Location+chr(32)
End If
Location=Location+Trim(Search("StreetTypeDescription"))
End If
End If
if bgcolor<>"#FFFFFF" then bgcolor="#FFFFFF" else bgcolor="#DDDDDD"
response.write chr(32)+chr(32)+"<TR BGCOLOR="+chr(34)+bgcolor+chr(34)
+"><TD VALIGN="+chr(34)+"TOP"+chr(34)+" ALIGN="+chr(34)+"LEFT"+chr(34)+"
WIDTH="+chr(34)+"75%"+chr(34)+">"
response.write "<FONT FACE="+chr(34)+"Verdana, Arial, Helvetica"+chr(34)+"
SIZE="+chr(34)+"1"+chr(34)+">"
response.write "<A HREF="+chr(34)+"detail.asp?PropertyRef="
If SearchDB="Sold" Then response.write "o"
response.write trim(Search("PropertyReference"))+chr(34)+">"
response.write trim(search("PropertyReference"))
response.write "</A> "
response.write Location
response.write " ("
response.write trim(search("PropertyTypeMajorDescription"))
'
===========================================================================
==========
' temporarily removed by KGP (10/2/98)
'
'if trim(search("PropertyTypeMinorDescription"))<>"" then
' response.write ", "
' response.write trim(search("PropertyTypeMinorDescription"))
'end if
'
'
===========================================================================
==========
response.write ") "
On Error Resume Next
Set CheckFile = FileObject.OpenTextFile
("c:\inetpub\customer\gspc\images\property\"+trim(Search
("PropertyReference"))+".JPG", 1, FALSE, FALSE)
If err=0 then
response.write " <IMG SRC="+chr(34)+"/Images/camera_icon.gif"+chr(34)+"
width="+chr(34)+"14"+chr(34)+" height="+chr(34)+"11"+chr(34)+">"
End if
On Error Resume Next
Set CheckFile = FileObject.OpenTextFile
("c:\inetpub\customer\gspc\schedules\"+trim(Search("PropertyReference"))
+".PDF", 1, FALSE, FALSE)
If err=0 then
response.write " <IMG SRC="+chr(34)+"/Images/schedule_icon.gif"+chr(34)
+" width="+chr(34)+"14"+chr(34)+" height="+chr(34)+"11"+chr(34)+">"
End if
response.write "</FONT></TD><TD VALIGN="+chr(34)+"TOP"+chr(34)+"
ALIGN="+chr(34)+"RIGHT"+chr(34)+" WIDTH="+chr(34)+"25%"+chr(34)+">"
response.write "<FONT FACE="+chr(34)+"Verdana, Arial, Helvetica"+chr(34)+"
SIZE="+chr(34)+"1"+chr(34)+">"
If SearchDB="Sold" Then
response.write FormatCurrency(Search("SellingPrice"),0)
Else
response.write Search("PriceDescription")
response.write chr(32)
response.write FormatCurrency(Search("AskingPrice"),0)
End If
response.write "</TD></TR>"+chr(13)
search.movenext
wend
response.write chr(13)
else
response.write "<B>No Matching Records.</B><P>"
response.write "We are sorry, but none of the current properties matched
your search criteria. Our recommendation is that you with start as few
options set as possible, gradually introducing more specific requirements
to narrow your search.<P>"
response.write "</FONT></TD></TR>"
end if
response.write "</TABLE>"
response.write "<FONT FACE="+chr(34)+"Verdana, Arial, Helvetica"+chr(34)+"
SIZE="+chr(34)+"1"+chr(34)+"><P><B>KEY TO SYMBOLS:</B><BR>"
response.write "<IMG SRC="+chr(34)+"/Images/camera_icon.gif"+chr(34)+"
width="+chr(34)+"14"+chr(34)+" height="+chr(34)+"11"+chr(34)+"> - Picture
of property available.<BR>"
response.write "<IMG SRC="+chr(34)+"/Images/schedule_icon.gif"+chr(34)+"
width="+chr(34)+"14"+chr(34)+" height="+chr(34)+"11"+chr(34)+"> - Property
Schedule available online.</FONT><P>"
search.close
%>
<%else%>
<IMG SRC="/images/site/text1.gif" border="0" width="231" height="33"
alt="Property search"><P>
<FONT FACE="Verdana, Arial, Helvetica" SIZE="2">
Please select your criteria from the choices below, then click the Search
button to view matching properties.<P>
</FONT>
<FORM NAME="SearchForm" ACTION="/search/default.asp" METHOD="POST">
<INPUT TYPE="HIDDEN" NAME="CALLBACK" VALUE=-1>
<TABLE BGCOLOR="#DDDDDD" ALIGN="CENTER" WIDTH="500" CELLSPACING="0"
CELLPADDING="2" BORDER="0">
<TR>
<TD VALIGN="TOP" ALIGN="RIGHT">
<FONT FACE="Verdana, Arial, Helvetica" SIZE="2"><B>
Area:
</B></FONT>
</TD>
<TD VALIGN="TOP" ALIGN="LEFT" COLSPAN="3">
<FONT FACE="Verdana, Arial, Helvetica" SIZE="2">
<SELECT NAME="Area" SIZE="1">
<%while not Area.eof
Response.write "<OPTION"
If trim(Area("PickListDescription"))=trim
(AREADescription) then response.write " SELECTED"
Response.write ">"+trim(Area
("PickListDescription"))
Area.Movenext
wend
Area.Close
%>
</SELECT>
</FONT>
</TD>
</TR>
<%If session("ValidatedMemberID")<>"" Then%>
<TR>
<TD VALIGN="TOP" ALIGN="RIGHT">
<FONT FACE="Verdana, Arial, Helvetica" SIZE="2"><B>
Street:
</B></FONT>
</TD>
<TD VALIGN="TOP" ALIGN="LEFT" COLSPAN="3">
<FONT FACE="Verdana, Arial, Helvetica" SIZE="2">
<INPUT TYPE="TEXT" NAME="STREETPART" VALUE="<%=StreetPart%
>" SIZE="20" MAXLENGTH="20">
</FONT>
</TD>
</TR>
<%End If%>
<TR>
<TD VALIGN="TOP" ALIGN="RIGHT">
<FONT FACE="Verdana, Arial, Helvetica" SIZE="2"><B>
Type:
</B></FONT>
</TD>
<TD VALIGN="TOP" ALIGN="LEFT" COLSPAN="3">
<FONT FACE="Verdana, Arial, Helvetica" SIZE="2">
<SELECT NAME="Type" SIZE="1">
<%while not PropertyType.eof
Response.write "<OPTION"
If trim(PropertyType("PickListDescription"))=trim
(PROPERTYTYPEDescription) then response.write " SELECTED"
Response.write ">"+trim(PropertyType
("PickListDescription"))
PropertyType.Movenext
wend
PropertyType.Close
%>
</SELECT>
</FONT>
</TD>
</TR>
<TR>
<TD VALIGN="TOP" ALIGN="RIGHT">
<FONT FACE="Verdana, Arial, Helvetica" SIZE="2"><B>
Min Price:
</B></FONT>
</TD>
<TD VALIGN="TOP" ALIGN="LEFT">
<FONT FACE="Verdana, Arial, Helvetica" SIZE="2">
<INPUT TYPE="TEXT" NAME="MinPrice" SIZE="10" VALUE="<%=MINPRICE%>">
</FONT>
</TD>
<TD VALIGN="TOP" ALIGN="RIGHT">
<FONT FACE="Verdana, Arial, Helvetica" SIZE="2"><B>
Max Price:
</B></FONT>
</TD>
<TD VALIGN="TOP" ALIGN="LEFT">
<FONT FACE="Verdana, Arial, Helvetica" SIZE="2">
<INPUT TYPE="TEXT" NAME="MaxPrice" SIZE="10" VALUE="<%=MAXPRICE%>">
</FONT>
</TD>
</TR>
<TR>
<TD VALIGN="MIDDLE" ALIGN="CENTER" COLSPAN=4>
</TD>
</TR>
<TR>
<TD VALIGN="TOP" ALIGN="RIGHT">
<FONT FACE="Verdana, Arial, Helvetica" SIZE="2"><B>
Public Rooms:
</B></FONT>
</TD>
<TD VALIGN="TOP" ALIGN="LEFT">
<FONT FACE="Verdana, Arial, Helvetica" SIZE="2">
<SELECT NAME="PublicRooms" SIZE="1">
<%while not NumberOfRooms.eof
Response.write "<OPTION"
if trim(NumberOfRooms("As Seen In Pick List"))=trim
(PUBLICROOMS) then response.write " SELECTED"
Response.write ">"+trim(NumberOfRooms("As Seen In
Pick List"))
NumberOfRooms.Movenext
wend
%>
</SELECT>
</FONT>
</TD>
<TD VALIGN="TOP" ALIGN="RIGHT">
<FONT FACE="Verdana, Arial, Helvetica" SIZE="2"><B>
Bedrooms:
</B></FONT>
</TD>
<TD VALIGN="TOP" ALIGN="LEFT">
<FONT FACE="Verdana, Arial, Helvetica" SIZE="2">
<SELECT NAME="Bedrooms" SIZE="1">
<%NumberOfRooms.MoveFirst
while not NumberOfRooms.eof
Response.write "<OPTION"
IF trim(NumberOfRooms("As Seen In Pick List"))=trim
(BEDROOMS) then Response.write " SELECTED"
Response.write ">"+trim(NumberOfRooms("As Seen In
Pick List"))
NumberOfRooms.Movenext
wend
NumberOfRooms.Close
%>
</SELECT>
</FONT>
</TD>
</TR>
<TR>
<TD VALIGN="TOP" ALIGN="RIGHT">
<FONT FACE="Verdana, Arial, Helvetica" SIZE="2"><B>
Central Heating:
</B></FONT>
</TD>
<TD VALIGN="TOP" ALIGN="LEFT">
<FONT FACE="Verdana, Arial, Helvetica" SIZE="2">
<SELECT NAME="CentralHeating" SIZE="1">
<OPTION<%IF CENTRALHEATING="Optional" then response.write "
SELECTED"%>>Optional</OPTION>
<OPTION<%IF CENTRALHEATING="Yes" then response.write "
SELECTED"%>>Yes</OPTION>
<OPTION<%IF CENTRALHEATING="No" then response.write " SELECTED"%
>>No</OPTION>
</SELECT>
</FONT>
</TD>
<TD VALIGN="TOP" ALIGN="RIGHT">
<FONT FACE="Verdana, Arial, Helvetica" SIZE="2"><B>
Double Glazing:
</B></FONT>
</TD>
<TD VALIGN="TOP" ALIGN="LEFT">
<FONT FACE="Verdana, Arial, Helvetica" SIZE="2">
<SELECT NAME="DoubleGlazing" SIZE="1">
<OPTION<%IF DOUBLEGLAZING="Optional" then response.write "
SELECTED"%>>Optional</OPTION>
<OPTION<%IF DOUBLEGLAZING="Yes" then response.write " SELECTED"%
>>Yes</OPTION>
<OPTION<%IF DOUBLEGLAZING="No" then response.write " SELECTED"%
>>No</OPTION>
</SELECT>
</FONT>
</TD>
</TR>
<TR>
<TD VALIGN="TOP" ALIGN="RIGHT">
<FONT FACE="Verdana, Arial, Helvetica" SIZE="2"><B>
Garage:
</B></FONT>
</TD>
<TD VALIGN="TOP" ALIGN="LEFT">
<FONT FACE="Verdana, Arial, Helvetica" SIZE="2">
<SELECT NAME="Garage" SIZE="1">
<OPTION<%IF GARAGE="Optional" then response.write " SELECTED"%
>>Optional</OPTION>
<OPTION<%IF GARAGE="Yes" then response.write " SELECTED"%
>>Yes</OPTION>
<OPTION<%IF GARAGE="No" then response.write " SELECTED"%
>>No</OPTION>
</SELECT>
</FONT>
</TD>
<TD VALIGN="TOP" ALIGN="RIGHT">
<FONT FACE="Verdana, Arial, Helvetica" SIZE="2"><B>
Garden:
</B></FONT>
</TD>
<TD VALIGN="TOP" ALIGN="LEFT">
<FONT FACE="Verdana, Arial, Helvetica" SIZE="2">
<SELECT NAME="Garden" SIZE="1">
<OPTION<%IF GARDEN="Optional" then response.write " SELECTED"%
>>Optional</OPTION>
<OPTION<%IF GARDEN="Yes" then response.write " SELECTED"%
>>Yes</OPTION>
<OPTION<%IF GARDEN="No" then response.write " SELECTED"%
>>No</OPTION>
</SELECT>
</FONT>
</TD>
</TR>
<TR>
<TD VALIGN="MIDDLE" ALIGN="CENTER" COLSPAN=4>
</TD>
</TR>
<%If session("ValidatedMemberID")<>"" Then%>
<TR>
<TD VALIGN="TOP" ALIGN="RIGHT">
<FONT FACE="Verdana, Arial, Helvetica" SIZE="2"><B>
Database:
</B></FONT>
</TD>
<TD VALIGN="TOP" ALIGN="LEFT" COLSPAN="3">
<FONT FACE="Verdana, Arial, Helvetica" SIZE="2">
<SELECT NAME="SearchDB" SIZE="1">
<OPTION<%If SearchDB="Active" then response.write "
SELECTED"%>>Active</OPTION>
<OPTION<%If SearchDB="Sold" then response.write "
SELECTED"%>>Sold</OPTION>
</SELECT>
</FONT>
</TD>
</TR>
<TR>
<TD VALIGN="MIDDLE" ALIGN="CENTER" COLSPAN=4>
</TD>
</TR>
<%End If%>
<TR>
<TD VALIGN="TOP" ALIGN="RIGHT">
</TD>
<TD VALIGN="TOP" ALIGN="LEFT" COLSPAN="3">
<FONT FACE="Verdana, Arial, Helvetica" SIZE="2">
<INPUT TYPE="SUBMIT" VALUE="Search!" NAME="SubmitButton">
</FONT>
</FONT>
</TD>
</TR>
</TABLE>
</FORM>
<%
End If
%>
</TD></TR></TABLE>
</BODY>
</HTML>
<%
DataConn.Close
DataConn2.Close
%>
***************************************************************************
> Hello raj,
>
> can u send your code, i will see what's wrong in it.
>
> regards,
> M.A
>
> >From: "raj" <rajkalakota@h...>
> >Reply-To: "ASP_ADO_RDS" <asp_ado_rds@p...>
> >To: "ASP_ADO_RDS" <asp_ado_rds@p...>
> >Subject: [asp_ado_rds] string variable is concatinating...
> >Date: Tue, 27 Feb 2001 16:45:46
> >
> >hello,
> > i m assigning a sql statement to a variable and executing using
execute
> >method.
> >the variable is not able to take more a fixed length. it is
concatinating
> >the string hence it is causing error in executing the sql.
> >can any body help me out.
> >thanks
> >raj
Message #4 by "Muazzam Aumeerally" <muazm@h...> on Wed, 28 Feb 2001 10:11:02 -0500
|
|
Hi Raj,
Is it VB SCript or Java Script ?
If it's VB, then to concatenate you have to use "&" not "+".
Please try and let me know.
Muazzam
> > Hello raj,
> >
> > can u send your code, i will see what's wrong in it.
> >
> > regards,
> > M.A
> >
> > >From: "raj" <rajkalakota@h...>
> > >Reply-To: "ASP_ADO_RDS" <asp_ado_rds@p...>
> > >To: "ASP_ADO_RDS" <asp_ado_rds@p...>
> > >Subject: [asp_ado_rds] string variable is concatinating...
> > >Date: Tue, 27 Feb 2001 16:45:46
> > >
> > >hello,
> > > i m assigning a sql statement to a variable and executing using
>execute
> > >method.
> > >the variable is not able to take more a fixed length. it is
>concatinating
> > >the string hence it is causing error in executing the sql.
> > >can any body help me out.
> > >thanks
> > >raj
|
|
|
View Cart
