%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers=""
MM_authFailedURL="login_OFF.asp"
MM_grantAccess=false
If Session("MM_Username") <> "" Then
If (true Or CStr(Session("MM_UserAuthorization"))="") Or _
(InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then
MM_grantAccess = true
End If
End If
If Not MM_grantAccess Then
MM_qsChar = "?"
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
MM_referrer = Request.ServerVariables("URL")
if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
Response.Redirect(MM_authFailedURL)
End If
%>
<%
Dim Recordset1__varLibriScolastici
Recordset1__varLibriScolastici = "%"
If (Request("LibriScolastici") <> "") Then
Recordset1__varLibriScolastici = Request("LibriScolastici")
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_editrice_STRING
Recordset1.Source = "SELECT * FROM TB_Libri WHERE Categoria LIKE '" + Replace(Recordset1__varLibriScolastici, "'", "''") + "'"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
Editrice Libreria Aurora
Tutti
i volumi presenti in questa sezione sono editi dalla
casa editrice-libreria "Aurora".
Cliccando sulle relative immagini si ha la possibilità
di accedere ad una scheda dettagliata del volume nella
quale si possono trovare una serie di informazioni.
Attenzione... l'immagine che stai per inserire deve
essere pixel