QLharta, stire, titlustire, carestire, titlupg, carepg, curs, titlucurs, carecurs, Conn,strSQL9005,strSQL9003,strSQL9004,strSQL9002,rscautare5,rscautare4,rscautare2,rscautare3, criteriu, cuv1, cuv2,rscautare, strSQL9001, strSQL1, strSQL2, strSQL3, strSQLZ, strSQL4, strSQL5, strSQL6, rsEvent, rsMeniu2, rsCursuri, rsNoutati, rsZoneStg, rsZoneDr, rsMeniu, rsPagini, rsContinutStanga, filename, readfile, fs, conexiune, pag, pagina, carecategorie, carecateg, carepag, numecategorie pag = Request.QueryString("pagina") tur=Request.QueryString("turism") careitem=Request.QueryString("item") loc=Request.QueryString("locatia") view=Request.QueryString("view") if loc<>"" or view<>"" then careitem="" tur="" 'pag="" end if if careitem<>"" then tur="" loc="" 'pag="" end if if tur<>"" then careitem="" loc="" 'pag="" end if if tur="" and careitem="" and pag="" then pag=1 end if if tur<>"" and careitem<>"" and pag=1 then pag="" end if Session("conexiune")="" set session("Conn")=server.CreateObject("ADODB.Connection") set c = server.CreateObject("ADODB.Connection") Set fs = CreateObject("Scripting.FileSystemObject") filename=server.mappath("setup/filedsn.txt") Set readfile=fs.OpenTextFile(filename,1,False) Do until readfile.AtEndOfStream Session("conexiune")=readfile.readline If Session("conexiune")="" then response.write "The database connection missing or incorrect!" End If Loop Session("Conn").Open Session("conexiune") readfile.close set readfile=nothing strSQL1 = "select * from PaginiRo where IdPagina = " & pag & " AND Active = True AnD Sters = False" Set rsPagini = Server.CreateObject("ADODB.Recordset") rsPagini.Open strSQL1,Session("Conn"),adOpenDynamic,adLockOptimistic,adCmdText if not (rsPagini.EOF and rsPagini.BOF) then rsPagini.MoveFirst carecategorie = rsPagini("IdPagina") numecategorie = rsPagini("TitluPagina") carecateg = rsPagini("Radacina") carepag = pag end if '/////////////Categoria parinte////////////////// %>