<%@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
 

 

Scegli il file:

 
Se non hai inserito nessuna immagine clicca qui...

 

 
<% Recordset1.Close() Set Recordset1 = Nothing %>