<%Response.Expires =-1%> <% On error resume next UrlPath="http://Theostil.gr/" KeywordsFix= "ΘΕΟΣΤΥΛ ΑΕ ΒΙΟΜΗΧΑΝΙΚΑ ΚΑΙ ΚΤΙΡΙΑΚΑ ΕΡΓΑ ΑΠΟ ΧΑΛΥΒΑ – THEOSTIL (THEOSTYL) INDUSTRIAL AND BUILDINGS STEEL CONSTRUCTIONS,Βόλος Μαγνησία" Code=Request("Code") SqlString="SELECT CatalogDataKeyWord.CatalogData, KeyWord.TitleGr FROM CatalogDataKeyWord INNER JOIN KeyWord ON CatalogDataKeyWord.KeyWord = KeyWord.Id WHERE (((CatalogDataKeyWord.CatalogData)='" & Code & "')); " set GetEsodaCodesByEntepriseDb=server.createObject("adodb.connection") set GetEsodaCodesByEntepriseRecordSet=server.createObject("adodb.recordset") GetEsodaCodesByEntepriseDb.open Session("DataBase") GetEsodaCodesByEntepriseRecordSet.activeconnection= GetEsodaCodesByEntepriseDb 'GetEsodaCodesByEntepriseRecordSet.cursortype=1 GetEsodaCodesByEntepriseRecordSet.locktype=3 GetEsodaCodesByEntepriseRecordSet.source=Trim(SqlString) GetEsodaCodesByEntepriseRecordSet.open While Not GetEsodaCodesByEntepriseRecordSet.Eof Keywords=Keywords & GetEsodaCodesByEntepriseRecordSet.Fields("TitleGr").Value & "," GetEsodaCodesByEntepriseRecordSet.MoveNext Wend GetEsodaCodesByEntepriseRecordSet.Movefirst Keywords=Keywords & " " & KeywordsFix DescreptionGr=GetFromTable("catalogdata",Code,"DescGr","Id") DescreptionEn=GetFromTable("catalogdata",Code,"DescEn","Id") TitleGr=GetFromTable("catalogdata",Code,"TitleGr","Id") TitleEn=GetFromTable("catalogdata",Code,"TitleEn","Id") ''Response.Write Keywords %> <%=TitleGr & " " & TitleEn%> " />