<% Set CheckObj = New CheckKit Public Connexio Public Registres Dim strSQL Dim seleccio Dim x rcol=Request.QueryString("col") rnum=Request.QueryString("num") 'Obrir connexió amb dades Set Connexio = Server.CreateObject ("ADODB.Connection") Connexio.Open "dades" 'Construcció instrucció strSQL strSQL = "SELECT coleccio,numero,titol,resum,autor,traductor,introduccio,portada,dporta,propdida,tamanypdf," strSQL = strSQL & "ilustrador,pagines,preu,isbn,edat,imatge,edicio,critica,informacio,tast,oferta,format,assumpte,drets," strSQL = strSQL & "tematica,fantasia,realisme,aventura,humor,misteri,intriga,cienciaficcio,historia,interculturalitat,viatges,animals," strSQL = strSQL & "autorealitzacio,lacolla,relacions,propsicologica,prosocial,escolafamilia,tradicio,poesia,amistatamor," strSQL = strSQL & "colaboracio,solidaritat,convivencia,respecte,esforc,valentia,coeducacio,natura,eduambiental,edusalut,llibertat," strSQL = strSQL & "enginy,educonsum FROM titols" strSQL = strSQL & " WHERE (titols.coleccio=" & rcol & ");" 'Creació grup de registres Set Registres = Server.CreateObject ("ADODB.Recordset") Registres.Open strSQL, Connexio, 1 continuar=False Do while Not Registres.EOF If Registres("numero") = rnum then continuar=True exit do else Registres.MoveNext End If Loop If continuar=True then Response.Write ("
") 'Response.Write ("
") titolbuit=False If Registres("titol")<>"" then titolbuit=True Response.Write ("") Response.Write (Registres("titol") & "
") End If If Registres("preu") <> 0 then ide=CStr(Registres("coleccio") & Registres("numero")) Dim varCarro(0,2) VarCarro(0,0) = ide VarCarro(0,1) = Registres("titol") VarCarro(0,2) = CStr(Registres("preu")) Session("varCarro") = VarCarro Session("url")="/asp_cgi/llibres.asp?catcol=" & Registres("coleccio") & "&catnum=" & Registres("numero") sessionurl=Session("url") If CheckObj.CheckItem(ide) then vcarro="CarroP.gif" else vcarro="CarroB.gif" End If Response.Write ("" & FormatNumber(Registres("preu"),2) & " € ") %> <% End If If titolbuit=True then Response.Write ("
") If Registres("propdida") then response.Write (" Propostes didàctiques (PDF, " & Registres("tamanypdf") & ")
 
") 'If Registres("tematica")=True then ' Response.Write ("temàtica: ") ' Response.Write ("" & CheckObj.tematica & "
") 'End If If Registres("tematica") = True then temes = CheckObj.tematica If temes <> "" then Response.Write ("
temàtica: ") Response.Write ("" & temes & "
") Response.Write ("
") End If End If Response.Write ("
") msg = CheckObj.carpeta(rcol) If Registres("imatge")<>"" then If Registres("dporta")="Verdadero" then If Request.ServerVariables("REMOTE_ADDR") = "80.25.158.145" or Request.ServerVariables("REMOTE_ADDR") = "195.5.78.212" then IPServer = "192.168.1.1" else IPServer = "bromera.net" End if 'urlin="ftp://" & IPServer & "/pub/porta/" & rcol & rnum & ".jpg" urlin="ftp://" & IPServer & "/porta/" & rcol & rnum & ".jpg" Response.Write ("Descàrrega portada 300 dpi, RGB, JPG
") Else Response.Write ("Portada no disponible per a descàrrega
") End If End If If Registres("numero")<>"" and Registres("numero")<>"0" then If msg="foreign" then nume = "number:" else nume = "numero:" end if Response.Write ("" & nume & "") Response.Write ("" & Registres("numero") & "
") End If If Registres("autor")<>"" then If msg="foreign" then autor = "author:" else autor = "autor/a:" end if Response.Write ("
" & autor & "
") Response.Write ("" & Registres("autor") & "") End If If Registres("introduccio")<>"" then Response.Write ("
introducció:
") Response.Write ("" & Registres("introduccio") & "") End If If Registres("ilustrador")<>"" then If msg="foreign" then ilustra = "ilustrator:" else ilustra = "il·lustracions:" end if Response.Write ("
" & ilustra & "
") Response.Write ("" & Registres("ilustrador") & "") End If If Registres("portada")<>"" then Response.Write ("
portada:
") Response.Write ("" & Registres("portada") & "") End If If Registres("traductor")<>"" then Response.Write ("
traducció:
") Response.Write ("" & Registres("traductor") & "") End If If Registres("edat")<>"" then If msg="foreign" then edat = "ages:" else edat = "edat:" end if Response.Write ("
" & edat & "
") Response.Write ("" & Registres("edat") & "") End If If Registres("format")<>"" then Response.Write ("
format:
") Response.Write ("" & Registres("format") & " cm") End If If Registres("pagines")<>"" and Registres("pagines")<>0 then If msg="foreign" then npag = "pages:" else npag = "nombre de pàgines:" end if Response.Write ("
" & npag & "
") Response.Write ("" & Registres("pagines") & "") End If If Registres("edicio")<>"" and Registres("edicio")<>0 then Response.Write ("
edició:
") Response.Write ("" & Registres("edicio") & "") End If If Registres("isbn")<>"" then Response.Write ("
isbn:
") Response.Write ("" & Registres("isbn") & "") End If If msg="foreign" then If Registres("assumpte")<>"" then Response.Write ("
subject:
") Response.Write ("" & Registres("assumpte") & "") End If If Registres("drets")<>"" then Response.Write ("
rights:
") Response.Write ("" & Registres("drets") & "") End If Response.Write ("

") Response.Write ("contact us") End If Response.Write ("
.") Response.Write ("") If Registres("critica")="Verdadero" then urlcri="../critica/" & Registres("coleccio") & Registres("numero") & ".htm" %>

<% End If If Registres("informacio")="Verdadero" then urlin="../informa/" & Registres("coleccio") & Registres("numero") & ".htm" %> <% End If If Registres("tast")="Verdadero" then urltast="../tast/" & Registres("coleccio") & Registres("numero") & ".htm" %> <% End If If Registres("oferta")="Verdadero" then urloferta="../oferta/" & Registres("coleccio") & Registres("numero") & ".htm" %> <% End If Response.Write ("

" & Registres("resum") & "") Response.Write ("

") End If Registres.Close Connexio.Close Set Registres=Nothing Set Connexio=Nothing %>