<script runat="server">
Function GetSearchResults as string	
Dim ConnStr,Conn,RstSimCmd,RstSim,Sql,ProdID, SSTR, ResultStr,SearchFound
Dim Title as string
If ispostback and txt_Search.text<>"" then 
	SSTR=replace(replace(txt_Search.text,"-",""),"'","")
	else 
	exit Function
	end if 
ConnStr=ConfigurationSettings.AppSettings("MM_CONNECTION_STRING_Renovat")
Conn= New OleDbConnection (ConnStr)
Conn.Open ()
Sql = "SELECT 'products.aspx?PR_ID=' AS SearchtblID, ProdID AS SearchPKID, ProdLocCode1 + N' ' + ProdLocCode2 AS SearchTitle, CONVERT(nVarchar(800), ProdDesc) AS SearchDesc FROM tbl_Prod WHERE (ProdDesc LIKE '%" & SSTR & "%') OR (REPLACE(REPLACE(ProdLocCode1, ' ', ''), '-', '') LIKE '%" & SSTR & "%') OR (REPLACE(REPLACE(ProdLocCode2, ' ', ''), '-', '') LIKE '%" & SSTR & "%') OR (REPLACE(ProdLocCode1, '-', '') LIKE '%" & SSTR & "%') OR (REPLACE(ProdLocCode2, '-', '') LIKE '%" & SSTR & "%') OR (ProdCatDesc LIKE N'%" & SSTR & "%') OR (ProdProp LIKE '%" & SSTR & "%') OR (ProdApp LIKE '%" & SSTR & "%') OR (ProdUse LIKE '%" & SSTR & "%') OR (ProdPack LIKE '%" & SSTR & "%') OR (ProdCons LIKE '%" & SSTR & "%') OR (ProdSpecs LIKE '%" & SSTR & "%') UNION SELECT 'TechSol.Aspx?TS_ID=' AS SearchtblID, TechSolID AS SearchPKID, 'TechSol' AS SearchTitle, TechSolTitle AS SearchDesc FROM tbl_TechSol WHERE (TechSolTitle LIKE N'%" & SSTR & "%') OR (TechSolText1 LIKE '%" & SSTR & "%') OR (TechSolText2 LIKE '%" & SSTR & "%') OR (TechSolText3 LIKE '%" & SSTR & "%')"
RstSimCmd=New OleDbCommand(Sql,Conn)
SearchFound = 0
resultstr=""
RstSim = RstSimCmd.ExecuteReader()	
'	Place.Add(0,"<--Doesn't Matter-->")
	while RstSim.read 
	SearchFound = SearchFound + 1
	If RstSim!SearchTitle="TechSol" then 
		Title = "Τεχνικές Λύσεις:"
		else
		Title=RstSim!SearchTitle
		end if 
	resultstr = resultstr & "<a href="& CHR(34)& rstSim!SearchtblID & rstSim!SearchPKID  & chr(34) & " class=" & CHR(34) & "style12" & CHR(34) & ">"& Title & "</a>&nbsp;" & rstSim!Searchdesc & "<BR>"
'		Place.Add(rstPlace!PlaceID,rstPlace!PlaceNameEN)
	If SearchFound >1 then 	
	'SimText = SimText & ", "
	end if 
'	SimText = SimText & "<a href="& CHR(34)& "products.aspx?PR_ID="& RstSim!ProdID & chr(34) & " class=" & CHR(34) & "style34" & CHR(34) & ">" & RstSim!ProdLocCode1  & "</a>"
		end while
	RstSim.close
If SearchFound<>0 then 
	'GetSim = "Παρόμοια Προϊόντων: " & SimText 	
	end if 
ResultStr = SearchFound & " Αποτελέσματα σχετικά με αυτόν τον όρο <br><br>"& ResultStr 
GetSearchResults = ResultStr
end Function
</script>

