estensioni del server di Frontpage e lettura database

Il Ballabo

Nuovo Utente
11 Ago 2015
8
0
0
Ciao a tutti e .... grazie in anticipo.

Ho sviluppato nel 2007 un sito internet con pagine di visualizzazione di contenuti da database .mdb tramite Frontpage. Da alcune settimane il provider ha migrato il sito su server windows 2012 che non supporta più le estensioni del server di Frontpage.

E magicamente le pagine di accesso al database non funzionano più ....:incazz::incazz::incazz:

Chiedo un aiuto per poter rieditare le pagine con codice valido per eliminare l'uso delle estensioni di FP.

Che editor gratuito usare ? Quali sono le istruzioni di base per gestire i database dall'interno di pagine web ?

Sono abbastanza disperato anche perchè sono autodidatta e non sono aggiornato nè sui nuovi editor nè sui nuovi linguaggi nè ho molto tempo per dedicarmi ad uno studio approfondito dell'argomento. Mi arrangio benino con il codice ma ho bisogno di strumenti per capirlo.

Ma sopratutto .... mi basta risolvere il problema.

Ancora grazie.
 

borgo italia

Super Moderatore
Membro dello Staff
SUPER MOD
MOD
4 Feb 2008
16.042
146
63
PR
www.borgo-italia.it
ciao
ho l'impressione che il tuo non sia un problema da poco anche se posso sbagliarmi.
non conosco frontpage e mi sembra che .mdb sia un'estenzione per i db in access e non mysql
poi che linguaggio usi? asp, php ...
 

Il Ballabo

Nuovo Utente
11 Ago 2015
8
0
0
Problema non semplice me ne rendo conto. Allora:

in una pagina del sito viene utilizzato un DB formato access con istruzioni SQL. Le pagine sono state scaricate e adattate per cui non ci capisco. In ogni caso un comando tipo:

MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("fpdb/login.mdb")

dovrebbe permettermi di gestire con SQL anche un file .mdb. Tale stringa è contenuta insieme ad altre in un file chiamato config.inc.

All'inizio di ogni pagina (con estensione .asp) è inserito il seguente comando

<!--#INCLUDE FILE="config.inc"-->

E così tutto sembra funzionare, con una query SQL del tipo :

SQL = "Select ID, UserName, PassWord, Clearance, ExpireDate From Login Order By ID"
Set RS = MyConn.Execute(SQL)


In altre pagine la gestione di altro db è stata fatta dal sottoscritto utilizzando le estensioni di FP. E qui casca l'asino ....

Come fare per far funzionare di nuovo la pagina ?

Se volete vedere il codice attuale di una delle pagine incriminate è http://www.serenascapini.it/v2/it/catalogoop.asp


Che ne pensate ?
 

Paolo69

Moderatore
Membro dello Staff
MOD
18 Feb 2010
549
13
18
Italy
www.riciclarte.info
Non ho mai utilizzato le estensioni di Front Page, per curiosità pubblicami il codice della pagina catalogoop.asp, giusto per capire com'è strutturato.
Secondo me il codice va riscritto completamente in quanto mancando quelle estensioni che lo interpretavano mi sembra impossibile adattarlo.
Se non vuoi diventar matto ti consiglio di migrare il server in php ed installare un CMS del tipo Wordpress, se invece ti piace il masochismo (siamo in due) ti tocca un po (tanto) impazzire.
 

Il Ballabo

Nuovo Utente
11 Ago 2015
8
0
0
Più che masochista cerco di lavorare sapendo quello che faccio anche se già in passato ho dovuto abdicare a questa filosofia. Migrare in php ? installare un CMS ? Wordpress ? Ecco .... già qui non ci capisco ....:crying:

Vuoi il codice ? Ma devo pubblicare tutto il codice qui ? Chiedo conferma ...
 
Ultima modifica:

Il Ballabo

Nuovo Utente
11 Ago 2015
8
0
0
Eccolo ....




<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="it">
<head>

<title>Serena Scapini - Catalogo Completo delle Opere</title>


<% ' FP_ASP -- File ASP generato automaticamente da un componente di Frontpage. Non modificare.
FP_LCID = 1040 %>
<meta http-equiv="Content-Language" content="it">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<% ' FP_ASP -- File ASP generato automaticamente da un componente di Frontpage. Non modificare.
FP_CharSet = "windows-1252"
FP_CodePage = 1252 %>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="Robots" content="All" />

<meta name="DESCRIPTION" content="Catalogo completo della produzione di porcellane e ceramiche artistiche decorate a mano di Serena Scapini.">

<link rel="stylesheet" type="text/css" href="../css/font.css" />
<link rel="stylesheet" type="text/css" href="../css/stilecatalogo.css" />
<link rel="shortcut icon" href="http://www.serenascapini.it/v2/images/Servizio/icona.ico">

<script type="text/javascript" language="JavaScript" src="http://www.serenascapini.it/myasg/stats_js.asp"></script>

<base target="_top">
<script type="text/javascript">
var _gaq = _gaq || [];
_gaq.push(['_setAccount', 'UA-34304603-3']); _gaq.push(['_setDomainName', 'www.serenascapini.it']);
_gaq.push(['_setAllowLinker', true]);
_gaq.push(['_trackPageview']);
(function() {
var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true;
ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '.google-analytics.com/ga.js';
var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s);
})();
</script>
</head>



<body>

<a name="top"></a>
<div class="wrapper">

<table>
<tr>
<td class="intest" width="50%">
<a href="menu.htm">Serena Scapini .it</a>
</td>
<td class="intest" width="50%" style="text-align: right">
<div class="g-plusone" data-size="medium" data-annotation="none"></div>
<script type="text/javascript">
window.___gcfg = {lang: 'it'};
(function() {
var po = document.createElement('script'); po.type = 'text/javascript'; po.async = true;
po.src = 'https://apis.google.com/js/plusone.js';
var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(po, s);
})();
</script>
</td>
</tr>
</table>

<div class="linec"></div>
<p>&nbsp;</p>

<table>
<tr>
<td>
<tpag class="maiu">L<tpag class="minu">E <tpag class="maiu">O<tpag class="minu">PERE</tpag>
</td>
<td class="intest" align="right">
<temo>
Il valore di un'opera d'arte<p>
è direttamente proporzionale<p>
al desiderio di possederla !
</temo>
</td>
</tr>
</table>

<p>&nbsp;</p>
<div class="linec"></div>
<p>&nbsp;</p>



<!----- La Galleria ---------------------------------------------------------->


<div align="center">


<table width="100%">
<tbody>
<!--webbot bot="DatabaseRegionStart" s-columnnames="Seq,Numero_opera,Titolo_opera,Supporto,Misure,Descr_opera,File_jpg,Note_opera,Data_inizio_opera,Data_termine_opera,Disponibilita,Pezzi_disponibili,Esposizione,Note_pubblicazione,Disponibilita_en,Campo_libero_1,Tempi_lavorazione,Numero_cotture,Nota_1,Nota_2,Largh_foto,Link,Prezzo_1,Prezzo_2,Prezzo_3,Prezzo_4,Prezzo_pers_1,Prezzo_pers_2,Prezzo_pers_3,Prezzo_pers_4,Prezzo_pers_5,Nome_computer_remoto,Nome_utente,Tipo_browser,Data_e_ora,ID,Fornitore,Descr_bianco,Data_acquisto,Prezzo_listino,Sconto,Prezzo_reale,Area_competenza,Dettagli_bianco1,Note_bianco1,Info_inventario,Data_cessione,Ceduto_a,Descr_bianco_en,Codice_produttore,Come_scheda,Ex_num_scheda,Prezzo_cessione,Note_opera_en,Descr_opera_en,Link_en,Dettagli_bianco1_en,Nota_2_en,Nota_1_en,Titolo_opera_en,Nota_generica1" s-columntypes="3,202,202,202,202,202,202,202,202,202,202,3,202,202,202,202,202,3,202,202,202,202,202,202,202,202,202,202,202,202,202,202,202,202,135,202,202,202,202,202,3,202,202,202,202,202,202,202,202,202,202,202,202,202,202,202,202,202,202,202,202" s-dataconnection="Modulo opere" b-tableformat="TRUE" b-menuformat="FALSE" s-menuchoice s-menuvalue b-tableborder="FALSE" b-tableexpand="TRUE" b-tableheader="FALSE" b-listlabels="TRUE" b-listseparator="TRUE" i-listformat="0" b-makeform="TRUE" s-recordsource s-displaycolumns="Link,Descr_bianco,Misure,Titolo_opera,Descr_opera,Disponibilita" s-criteria s-order s-sql="SELECT * FROM Risultati WHERE (Area_competenza = 'Galleria' OR Area_competenza = 'Catalogo') ORDER BY Numero_opera DESC" b-procedure="FALSE" clientside suggestedext="asp" s-defaultfields s-norecordsfound="Nessun articolo presente" i-maxrecords="0" i-groupsize="0" botid="1" u-dblib="../_fpclass/fpdblib.inc" u-dbrgn1="../_fpclass/fpdbrgn1.inc" u-dbrgn2="../_fpclass/fpdbrgn2.inc" tag="TBODY" preview="&lt;tr&gt;&lt;td colspan=64 bgcolor=&quot;#FFFF00&quot; align=&quot;left&quot; width=&quot;100%&quot;&gt;&lt;font color=&quot;#000000&quot;&gt;Inizio dell'area risultati database. Per visualizzare correttamente l'area risultati database è necessario accedere alla pagina connettendosi al server Web tramite browser. Il Web corrente è memorizzato nella rete o in un disco locale.&lt;/font&gt;&lt;/td&gt;&lt;/tr&gt;" startspan --><!--#include file="../_fpclass/fpdblib.inc"-->
<% if 0 then %>
<SCRIPT Language="JavaScript">
document.write("<div style='background: yellow; color: black;'>Impossibile visualizzare il contenuto del database nel componente Risultati database della pagina corrente. Il nome file della pagina deve avere estensione '.asp' e il sito Web deve trovarsi in un server che supporta Active Server Pages.</div>");
</SCRIPT>
<% end if %>
<%
fp_sQry="SELECT * FROM Risultati WHERE (Area_competenza = 'Galleria' OR Area_competenza = 'Catalogo') ORDER BY Numero_opera DESC"
fp_sDefault=""
fp_sNoRecords="<tr><td colspan=6 align=left width=""100%"">Nessun articolo presente</td></tr>"
fp_sDataConn="Modulo opere"
fp_iMaxRecords=0
fp_iCommandType=1
fp_iPageSize=0
fp_fTableFormat=True
fp_fMenuFormat=False
fp_sMenuChoice=""
fp_sMenuValue=""
fp_sColTypes="&Seq=3&Numero_opera=202&Titolo_opera=202&Supporto=202&Misure=202&Descr_opera=202&File_jpg=202&Note_opera=202&Data_inizio_opera=202&Data_termine_opera=202&Disponibilita=202&Pezzi_disponibili=3&Esposizione=202&Note_pubblicazione=202&Disponibilita_en=202&Campo_libero_1=202&Tempi_lavorazione=202&Numero_cotture=3&Nota_1=202&Nota_2=202&Largh_foto=202&Link=202&Prezzo_1=202&Prezzo_2=202&Prezzo_3=202&Prezzo_4=202&Prezzo_pers_1=202&Prezzo_pers_2=202&Prezzo_pers_3=202&Prezzo_pers_4=202&Prezzo_pers_5=202&Nome_computer_remoto=202&Nome_utente=202&Tipo_browser=202&Data_e_ora=135&ID=202&Fornitore=202&Descr_bianco=202&Data_acquisto=202&Prezzo_listino=202&Sconto=3&Prezzo_reale=202&Area_competenza=202&Dettagli_bianco1=202&Note_bianco1=202&Info_inventario=202&Data_cessione=202&Ceduto_a=202&Descr_bianco_en=202&Codice_produttore=202&Come_scheda=202&Ex_num_scheda=202&Prezzo_cessione=202&Note_opera_en=202&Descr_opera_en=202&Link_en=202&Dettagli_bianco1_en=202&Nota_2_en=202&Nota_1_en=202&Titolo_opera_en=202&Nota_generica1=202&"
fp_iDisplayCols=6
fp_fCustomQuery=True
BOTID=1
fp_iRegion=BOTID
%>
<!--#include file="../_fpclass/fpdbrgn1.inc"-->
<!--webbot bot="DatabaseRegionStart" endspan i-checksum="19265" -->


<tr>
<td class="cella_cont_left" width="120">
<!--webbot bot="DatabaseResultColumn" s-columnnames="ID,Numero_opera,Titolo_opera,Supporto,Misure,Descr_opera,File_jpg,Note_opera,Data_inizio_opera,Data_termine_opera,Disponibilita,Pezzi_disponibili,Area_pubblicazione,Note_pubblicazione,Data_annuncio_pubbl,Data_pubblicazione,Tempi_lavorazione,Numero_cotture,Nota_1,Nota_2,Largh_foto,Link,Prezzo_1,Prezzo_2,Prezzo_3,Prezzo_4,Prezzo_pers_1,Prezzo_pers_2,Prezzo_pers_3,Prezzo_pers_4,Prezzo_pers_5,Nome_computer_remoto,Nome_utente,Tipo_browser,Data_e_ora,Num_scheda,Fornitore,Descr_bianco,Data_acquisto,Prezzo_listino,Sconto,Prezzo_reale,Area_competenza" s-column="Link" b-tableformat="TRUE" b-hashtml="TRUE" b-makelink="FALSE" clientside b-MenuFormat preview="&lt;font size=&quot;-1&quot;&gt;&amp;lt;&amp;lt;&lt;/font&gt;Link&lt;font size=&quot;-1&quot;&gt;&amp;gt;&amp;gt;&lt;/font&gt;" startspan --><%=FP_Field(fp_rs,"Link")%><!--webbot bot="DatabaseResultColumn" endspan i-checksum="2277" -->
</td>
<td class="cella_cont_left">
<desogg>
<!--webbot bot="DatabaseResultColumn" s-columnnames="Seq,Numero_opera,Titolo_opera,Supporto,Misure,Descr_opera,File_jpg,Note_opera,Data_inizio_opera,Data_termine_opera,Disponibilita,Pezzi_disponibili,Esposizione,Note_pubblicazione,Disponibilita_en,Campo_libero_1,Tempi_lavorazione,Numero_cotture,Nota_1,Nota_2,Largh_foto,Link,Prezzo_1,Prezzo_2,Prezzo_3,Prezzo_4,Prezzo_pers_1,Prezzo_pers_2,Prezzo_pers_3,Prezzo_pers_4,Prezzo_pers_5,Nome_computer_remoto,Nome_utente,Tipo_browser,Data_e_ora,ID,Fornitore,Descr_bianco,Data_acquisto,Prezzo_listino,Sconto,Prezzo_reale,Area_competenza,Dettagli_bianco1,Note_bianco1,Info_inventario,Data_cessione,Ceduto_a,Descr_bianco_en,Codice_produttore,Come_scheda,Ex_num_scheda,Prezzo_cessione,Note_opera_en,Descr_opera_en,Link_en,Dettagli_bianco1_en,Nota_2_en,Nota_1_en,Titolo_opera_en,Nota_generica1" s-column="Descr_bianco" b-tableformat="TRUE" b-hashtml="FALSE" b-makelink="FALSE" clientside b-MenuFormat preview="&lt;font size=&quot;-1&quot;&gt;&amp;lt;&amp;lt;&lt;/font&gt;Descr_bianco&lt;font size=&quot;-1&quot;&gt;&amp;gt;&amp;gt;&lt;/font&gt;" startspan --><%=FP_FieldVal(fp_rs,"Descr_bianco")%><!--webbot bot="DatabaseResultColumn" endspan i-checksum="30527" -->
</desogg>
&nbsp;
<misogg>
<!--webbot bot="DatabaseResultColumn" s-columnnames="Seq,Numero_opera,Titolo_opera,Supporto,Misure,Descr_opera,File_jpg,Note_opera,Data_inizio_opera,Data_termine_opera,Disponibilita,Pezzi_disponibili,Esposizione,Note_pubblicazione,Disponibilita_en,Campo_libero_1,Tempi_lavorazione,Numero_cotture,Nota_1,Nota_2,Largh_foto,Link,Prezzo_1,Prezzo_2,Prezzo_3,Prezzo_4,Prezzo_pers_1,Prezzo_pers_2,Prezzo_pers_3,Prezzo_pers_4,Prezzo_pers_5,Nome_computer_remoto,Nome_utente,Tipo_browser,Data_e_ora,ID,Fornitore,Descr_bianco,Data_acquisto,Prezzo_listino,Sconto,Prezzo_reale,Area_competenza,Dettagli_bianco1,Note_bianco1,Info_inventario,Data_cessione,Ceduto_a,Descr_bianco_en,Codice_produttore,Come_scheda,Ex_num_scheda,Prezzo_cessione,Note_opera_en,Descr_opera_en,Link_en,Dettagli_bianco1_en,Nota_2_en,Nota_1_en,Titolo_opera_en,Nota_generica1" s-column="Misure" b-tableformat="TRUE" b-hashtml="FALSE" b-makelink="FALSE" clientside b-MenuFormat preview="&lt;font size=&quot;-1&quot;&gt;&amp;lt;&amp;lt;&lt;/font&gt;Misure&lt;font size=&quot;-1&quot;&gt;&amp;gt;&amp;gt;&lt;/font&gt;" startspan --><%=FP_FieldVal(fp_rs,"Misure")%><!--webbot bot="DatabaseResultColumn" endspan i-checksum="15282" -->
</misogg>
-
<titop>
<!--webbot bot="DatabaseResultColumn" s-columnnames="Seq,Numero_opera,Titolo_opera,Supporto,Misure,Descr_opera,File_jpg,Note_opera,Data_inizio_opera,Data_termine_opera,Disponibilita,Pezzi_disponibili,Esposizione,Note_pubblicazione,Disponibilita_en,Campo_libero_1,Tempi_lavorazione,Numero_cotture,Nota_1,Nota_2,Largh_foto,Link,Prezzo_1,Prezzo_2,Prezzo_3,Prezzo_4,Prezzo_pers_1,Prezzo_pers_2,Prezzo_pers_3,Prezzo_pers_4,Prezzo_pers_5,Nome_computer_remoto,Nome_utente,Tipo_browser,Data_e_ora,ID,Fornitore,Descr_bianco,Data_acquisto,Prezzo_listino,Sconto,Prezzo_reale,Area_competenza,Dettagli_bianco1,Note_bianco1,Info_inventario,Data_cessione,Ceduto_a,Descr_bianco_en,Codice_produttore,Come_scheda,Ex_num_scheda,Prezzo_cessione,Note_opera_en,Descr_opera_en,Link_en,Dettagli_bianco1_en,Nota_2_en,Nota_1_en,Titolo_opera_en,Nota_generica1" s-column="Titolo_opera" b-tableformat="TRUE" b-hashtml="FALSE" b-makelink="FALSE" clientside b-MenuFormat preview="&lt;font size=&quot;-1&quot;&gt;&amp;lt;&amp;lt;&lt;/font&gt;Titolo_opera&lt;font size=&quot;-1&quot;&gt;&amp;gt;&amp;gt;&lt;/font&gt;" startspan --><%=FP_FieldVal(fp_rs,"Titolo_opera")%><!--webbot bot="DatabaseResultColumn" endspan i-checksum="32131" -->
</titop>
&nbsp;
<descod>
<!--webbot bot="DatabaseResultColumn" s-columnnames="Seq,Numero_opera,Titolo_opera,Supporto,Misure,Descr_opera,File_jpg,Note_opera,Data_inizio_opera,Data_termine_opera,Disponibilita,Pezzi_disponibili,Esposizione,Note_pubblicazione,Disponibilita_en,Campo_libero_1,Tempi_lavorazione,Numero_cotture,Nota_1,Nota_2,Largh_foto,Link,Prezzo_1,Prezzo_2,Prezzo_3,Prezzo_4,Prezzo_pers_1,Prezzo_pers_2,Prezzo_pers_3,Prezzo_pers_4,Prezzo_pers_5,Nome_computer_remoto,Nome_utente,Tipo_browser,Data_e_ora,ID,Fornitore,Descr_bianco,Data_acquisto,Prezzo_listino,Sconto,Prezzo_reale,Area_competenza,Dettagli_bianco1,Note_bianco1,Info_inventario,Data_cessione,Ceduto_a,Descr_bianco_en,Codice_produttore,Come_scheda,Ex_num_scheda,Prezzo_cessione,Note_opera_en,Descr_opera_en,Link_en,Dettagli_bianco1_en,Nota_2_en,Nota_1_en,Titolo_opera_en,Nota_generica1" s-column="Descr_opera" b-tableformat="TRUE" b-hashtml="FALSE" b-makelink="FALSE" clientside b-MenuFormat preview="&lt;font size=&quot;-1&quot;&gt;&amp;lt;&amp;lt;&lt;/font&gt;Descr_opera&lt;font size=&quot;-1&quot;&gt;&amp;gt;&amp;gt;&lt;/font&gt;" startspan --><%=FP_FieldVal(fp_rs,"Descr_opera")%><!--webbot bot="DatabaseResultColumn" endspan i-checksum="29983" -->
</descod>
</td>
<td class="cella_cont_right" width="150">
<dispcod>
<!--webbot bot="DatabaseResultColumn" s-columnnames="Seq,Numero_opera,Titolo_opera,Supporto,Misure,Descr_opera,File_jpg,Note_opera,Data_inizio_opera,Data_termine_opera,Disponibilita,Pezzi_disponibili,Esposizione,Note_pubblicazione,Disponibilita_en,Campo_libero_1,Tempi_lavorazione,Numero_cotture,Nota_1,Nota_2,Largh_foto,Link,Prezzo_1,Prezzo_2,Prezzo_3,Prezzo_4,Prezzo_pers_1,Prezzo_pers_2,Prezzo_pers_3,Prezzo_pers_4,Prezzo_pers_5,Nome_computer_remoto,Nome_utente,Tipo_browser,Data_e_ora,ID,Fornitore,Descr_bianco,Data_acquisto,Prezzo_listino,Sconto,Prezzo_reale,Area_competenza,Dettagli_bianco1,Note_bianco1,Info_inventario,Data_cessione,Ceduto_a,Descr_bianco_en,Codice_produttore,Come_scheda,Ex_num_scheda,Prezzo_cessione,Note_opera_en,Descr_opera_en,Link_en,Dettagli_bianco1_en,Nota_2_en,Nota_1_en,Titolo_opera_en,Nota_generica1" s-column="Disponibilita" b-tableformat="TRUE" b-hashtml="TRUE" b-makelink="FALSE" clientside b-MenuFormat preview="&lt;font size=&quot;-1&quot;&gt;&amp;lt;&amp;lt;&lt;/font&gt;Disponibilita&lt;font size=&quot;-1&quot;&gt;&amp;gt;&amp;gt;&lt;/font&gt;" startspan --><%=FP_Field(fp_rs,"Disponibilita")%><!--webbot bot="DatabaseResultColumn" endspan i-checksum="39426" -->
</dispcod>
</td>
</tr>
<!--webbot bot="DatabaseRegionEnd" b-tableformat="TRUE" b-menuformat="FALSE" u-dbrgn2="../_fpclass/fpdbrgn2.inc" i-groupsize="0" clientside tag="TBODY" preview="&lt;tr&gt;&lt;td colspan=64 bgcolor=&quot;#FFFF00&quot; align=&quot;left&quot; width=&quot;100%&quot;&gt;&lt;font color=&quot;#000000&quot;&gt;Fine dell'area risultati database.&lt;/font&gt;&lt;/td&gt;&lt;/tr&gt;" startspan --><!--#include file="../_fpclass/fpdbrgn2.inc"-->
<!--webbot bot="DatabaseRegionEnd" endspan i-checksum="56926" -->
</tbody>
</table>


<!----- Fine Galleria ---------------------------------------------------------->

<div class="linec"></div>
<div class="linec"></div>

<table class="intest">
<tr>
<td class="intest" style="text-align: left" width="34%" valign="top">
&nbsp;</td>
<td class="intest" style="text-align: center" width="33%" valign="top">
<a href="#top" target="_self">Torna su</a>
</td>
<td class="intest" style="text-align: right" width="33%" valign="top">
&nbsp;</td>
</tr>
</table>



</center>
</div>

</body>
</html>
 

Il Ballabo

Nuovo Utente
11 Ago 2015
8
0
0
In effetti leggendo il codice di un'altra pagina che usa un db con struttura Access e query SQL e che funziona (vedi post #3), mi sembra non difficile e riproducibile. Ma mi necessita capire come SQL punta il file nel posto giusto e poi riscrivere le query ....

.... forse !
 

Paolo69

Moderatore
Membro dello Staff
MOD
18 Feb 2010
549
13
18
Italy
www.riciclarte.info
Il codice va completamente riscritto, sia la parte VBScript che la parte HTML.

Ho desunto che il DB è composto dai seguenti campi:
Codice:
Seq,Numero_opera,
Titolo_opera,
Support o,Misure,
Descr_opera,
File_jpg,
Note_opera,
Data_iniz io_opera,
Data_termine_opera,
Disponibilita,
Pezzi_di sponibili,
Esposizione,
Note_pubblicazione,
Disponibi lita_en,
Campo_libero_1,
Tempi_lavorazione,
Numero_co tture,
Nota_1,
Nota_2,
Largh_foto,
Link,Prezzo_1,
Prezz o_2,
Prezzo_3,
Prezzo_4,
Prezzo_pers_1,
Prezzo_pers_2,
Prezzo_pers_3,
Prezzo_pers_4,
Prezzo_pers_5,
Nome_com puter_remoto,
Nome_utente,
Tipo_browser,
Data_e_ora,
I D,
Fornitore,
Descr_bianco,
Data_acquisto,
Prezzo_list ino,
Sconto,
Prezzo_reale,
Area_competenza,
Dettagli_b ianco1,
Note_bianco1,
Info_inventario,
Data_cessione, 
Ceduto_a,
Descr_bianco_en,
Codice_produttore,
Come_scheda,
Ex_num_scheda,
Prezzo_cessione,
Note_opera_en,
Descr_opera_en,
Link_en,
Dettagli_bianco1_en,
Nota_2_en,
Nota_1_en,
Titolo_opera_en,
Nota_generica1
Lo script seleziona le informazioni mediante questa query:
Codice:
SELECT * FROM Risultati WHERE (Area_competenza = 'Galleria' OR Area_competenza = 'Catalogo') ORDER BY Numero_opera DESC

Che campi visualizzavi nella pagina?
Hai un disegno del layout?

da una analisi mi sembra di capire che visualizzavi i seguenti campi:
Codice:
<tr>
<td> <%=Link%> - <%=descr_bianco%> - <%=misure%> - <%=titolo_opera%></td>
<td> <%=disponibilita%></td>
</tr>
 
Ultima modifica:

Il Ballabo

Nuovo Utente
11 Ago 2015
8
0
0
Mi scuso per il ritardo nella risposta, non per disinteresse ma per un grave problema personale, peraltro non ancora risolto.

L'analisi da te fatta è perfetta anche se non è l'unica pagina che deve visualizzare dati del DB. Altre pagine, altre query, ma se capisco come modificarn una potrò modificare anche le altre.

Non ho un disegno del layout ma si tratta di una banale tabella dove i pochi dati estratti da ogni record vengono visualizzati su una riga, opportunamente allineati.

Penso solo di poter aggiungere che il database si chiama Modulo opere.mdb e risiede in v2/fpdb/ rispetto alle pagine di visualizzazione che risiedono in v2/it/ in v2/it/opere/ e in v2/it/ac/

Grazie mille per il tentativo. Non mi preoccupa certo riscrivere tutto il codice. Spero le tue indicazioni possano servirmi per risolvere.
 

Paolo69

Moderatore
Membro dello Staff
MOD
18 Feb 2010
549
13
18
Italy
www.riciclarte.info
inviami una copia del DB cancellando ovviamente gli utenti al seguente indirizzo: rimosso
Dedicati al problema personale, al codice ci penso io.
Buona serata.
 
Ultima modifica:

Paolo69

Moderatore
Membro dello Staff
MOD
18 Feb 2010
549
13
18
Italy
www.riciclarte.info
Personalizza solo la connessione al DB:
Codice:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Serena Scapini - Catalogo Completo delle Opere</title>
<meta name="Robots" content="All">
<meta name="DESCRIPTION" content="Catalogo completo della produzione di porcellane e ceramiche artistiche decorate a mano di Serena Scapini.">
<link rel="stylesheet" type="text/css" href="catalogo_files/font.css">
<link rel="stylesheet" type="text/css" href="catalogo_files/stilecatalogo.css">
<link rel="shortcut icon" href="http://www.serenascapini.it/v2/images/Servizio/icona.ico">

<script async="" src="catalogo_files/cbgapi.loaded_1"></script>
<script async="" src="catalogo_files/cbgapi.loaded_0"></script>
<script gapi_processed="true" src="catalogo_files/plusone.js" async="" type="text/javascript"></script>
<script src="catalogo_files/ga.js" async="" type="text/javascript"></script>
<script type="text/javascript" language="JavaScript" src="catalogo_files/stats_js.htm"></script>
</head>

<body>

<img src="catalogo_files/count.gif" border="0">

<!-- base href="http://www.serenascapini.it/v2/it/catalogoop.asp" -->
<script type="text/javascript">
  var _gaq = _gaq || [];
  _gaq.push(['_setAccount', 'UA-34304603-3']); _gaq.push(['_setDomainName', 'www.serenascapini.it']);
  _gaq.push(['_setAllowLinker', true]);
  _gaq.push(['_trackPageview']);
  (function() {
    var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true;
    ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '.google-analytics.com/ga.js';
    var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s);
  })();
</script>


<a name="top"></a>
<div class="wrapper">

<table>
  <tbody><tr>
    <td class="intest" width="50%">
	  <a href="http://www.serenascapini.it/v2/it/menu.htm">Serena Scapini .it</a>
	  </td>
    <td class="intest" style="text-align: right" width="50%">
	  <div id="___plusone_0" style="text-indent: 0px; margin: 0px; padding: 0px; background: transparent none repeat scroll 0% 0%; border-style: none; float: none; line-height: normal; font-size: 1px; vertical-align: baseline; display: inline-block; width: 32px; height: 20px;"><iframe title="+1" data-gapiattached="true" src="catalogo_files/fastbutton.htm" name="I0_1439803143021" id="I0_1439803143021" vspace="0" tabindex="0" style="position: static; top: 0px; width: 32px; margin: 0px; border-style: none; left: 0px; visibility: visible; height: 20px;" scrolling="no" marginwidth="0" marginheight="0" hspace="0" frameborder="0" width="100%"></iframe></div>
	  <script type="text/javascript">
	    window.___gcfg = {lang: 'it'};
	    (function() {
	      var po = document.createElement('script'); po.type = 'text/javascript'; po.async = true;
	      po.src = 'https://apis.google.com/js/plusone.js';
	      var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(po, s);
	    })();
	  </script>
	</td>
  </tr>
</tbody></table>

<div class="linec"></div>
<p>&nbsp;</p>

<table>
  <tbody><tr>
    <td>
	  <tpag class="maiu">L<tpag class="minu">E <tpag class="maiu">O<tpag class="minu">PERE</tpag>
	</tpag></tpag></tpag></td>
    <td class="intest" align="right">
	  <temo>
	  Il valore di un'opera d'arte<p>
	  è direttamente proporzionale</p><p>
	  al desiderio di possederla !
	  
	</p></temo></td>
  </tr>
</tbody></table>

<p>&nbsp;</p>
<div class="linec"></div>
<p>&nbsp;</p>



<!-----   La Galleria   ---------------------------------------------------------->


<div align="center">
<%

' CONNESSIONE AL DATA BASE
Dim strPath, strConnect
	strPath = "C:\inetpub\MN4025484S005\opere\mdb-database\Modulo_opere.mdb"
	strConnect = "DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=" & strPath
'	strConnect = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("mdb-database/manutenzione.mdb")

' LISTA RECORD
Select Case Request.QueryString("dir")
  Case ""
    v_pagina_corrente = 1
  Case "next"
    v_pagina_corrente= cdbl(Request.QueryString("pag")) + 1
  Case "prev"
    v_pagina_corrente= cdbl(Request.QueryString("pag")) - 1
End Select 

   		adOpenKeyset = 1
	
				v_record_pagina = 10  'Numero di record da visualizzare nel campo cerca


	Set conn = Server.CreateObject("ADODB.Connection")
	Set rs = Server.CreateObject("ADODB.Recordset")
		conn.open  strConnect
		criterio = "SELECT * FROM Risultati WHERE (Area_competenza = 'Galleria' OR Area_competenza = 'Catalogo') ORDER BY Numero_opera DESC"
		rs.Open criterio, conn, adOpenKeyset

	If Not (rs.bof and rs.eof) then 'Se la query ritorna dati, visualizzo la pagina
		rs.PageSize = cint(v_record_pagina)
		rs.AbsolutePage = Cdbl(v_pagina_corrente)
		
%>
<div id="col3">
<table width="100%" cellpadding="1" cellspacing="1" border="0" align="center" style="font-size:10px; font-family:Verdana">
<%	

'Ciclo sui record della pagina
	For x = 1 To rs.PageSize

'Esco alla fine della pagina, se è l'ultima e contiene meno record delle altre
	If rs.Eof then exit for 
	
	Descr_bianco = UCase(rs.Fields("Descr_bianco").Value)
	Titolo_opera = UCase(rs.Fields("Titolo_opera").Value)
	Descr_opera = UCase(rs.Fields("Descr_opera").Value)
	Link = UCase(rs.Fields("Link").Value)
	Nota_1 = UCase(rs.Fields("Nota_1").Value)
	Disponibilita = UCase(rs.Fields("Disponibilita").Value)
	Misure = UCase(rs.Fields("Misure").Value)
%>
<tr>
<td width="20%" height="32"><%=Link%>&nbsp;</td>
<td><%=Descr_bianco%>&nbsp;</td>
<td><%=Misure%>&nbsp;</td>
<td><%=Titolo_opera%>&nbsp;</td>
<td width="20%"><%=Disponibilita%>&nbsp;</td>
</tr>
<% 

    rs.MoveNext 

    Next 

	End If


%>
</table>
</div>
<br />
<table width="100%" cellpadding="1" cellspacing="1" border="0" align="center">
    <tr>
    <td align="center" height="22">
    <font size="2" face="Verdana" color='#C0C0C0'>Pagina <%=v_pagina_corrente%> di <%=rs.PageCount%></font><br />    <%
          'Qui semplicemente creo la barra di navigazione.
    If rs.EOF and rs.BOF then
    
    %>
    <font color='#C0C0C0' size='2' face='Verdana'>Inizio</font>
    <font color='#C0C0C0' size='2' face='Verdana'>Indietro></font>
    <font color='#C0C0C0' size='2' face='Verdana'>Avanti</font>
    <font color='#C0C0C0' size='2' face='Verdana'>Fine</font>
    <%
    
    Else
            If Cdbl(v_pagina_corrente) > 1 Then
            
            %>
            <a href="catalogo.asp"><font size="2" face='Verdana'>Inizio</font></a>
            <a href="catalogo.asp?dir=prev&pag=<%=v_pagina_corrente%>"><font size="2" face='Verdana'>Indietro</font></a>
            <%
            
            Else
            
            %>
            <font color='#C0C0C0' size='2' face='Verdana'>Inizio</font>
            <font color='#C0C0C0' size='2' face='Verdana'>Indietro</font>
            <%
            
            End If
    
            If Cdbl(v_pagina_corrente) < rs.PageCount Then
            
            %>
            <a href="catalogo.asp?dir=next&pag=<%= v_pagina_corrente %>"><font size='2' face='Verdana'>Avanti</font></a>
            <a href="catalogo.asp?dir=next&pag=<%= rs.pagecount - 1 %>"><font size='2' face='Verdana'>Fine</font></a>
            <%
            
            Else
            
            %>
            <font color='#C0C0C0' size='2' face='Verdana'>Avanti</font>
            <font color='#C0C0C0' size='2' face='Verdana'>Fine</font>
            <%
            
            End If	
    
    End If
    
    %>
    </td>
    </tr>
</table>
<%
		rs.Close
		conn.Close
	Set rs = nothing
	Set conn = nothing

%>

<!-----   Fine Galleria   ---------------------------------------------------------->

<div class="linec"></div>
<div class="linec"></div>

<table class="intest">
  <tbody><tr>
	<td class="intest" style="text-align: left" valign="top" width="34%">&nbsp;
	  </td>
	<td class="intest" style="text-align: center" valign="top" width="33%">
	  <a href="#top" target="_self">Torna su</a>
	</td>
	<td class="intest" style="text-align: right" valign="top" width="33%">&nbsp;
	  </td>
  </tr>
</tbody></table>




</div>

</div>
<iframe tabindex="-1" style="width: 1px; height: 1px; position: absolute; top: -100px;" src="catalogo_files/postmessageRelay.htm" id="oauth2relay526868661" name="oauth2relay526868661"></iframe>

</body>
</html>
il risultato sul server di prova:
Cattura.JPG
 
Ultima modifica:

Il Ballabo

Nuovo Utente
11 Ago 2015
8
0
0
WOW .... appare tutto perfetto !!!!

Ancora non ho potuto mettere on.line le pagine con le modifiche. Conto di poterlo fare nei prossimi giorni ...

In ogni caso, Paolo, sei un grande anche per la disiniteressata disponibilità ad aiutarmi. Spero di capire il codice affinchè possa poi arrangiarmi. Così non fosse spero di poter contare ancora sul tuo aiuto.

Grazie mille !!! :fonzie:
 

rexcors

Nuovo Utente
26 Nov 2015
3
0
0
Ciao a tutti, Vi chiedo un aiuto.
Sto aggiornando un vecchio programma sviluppato con frontopage nel 2001, molte delle funzioni non vanno.... potreste darmi una mano?

ho creato una pagina per l'upolad dei files: chiamata uploadNuvoDoc.asp
di seguito il codice
HTML:
<%'@ENABLESESSIONSTATE=FALSE%>

<% 
if session("idUser")="" then response.redirect "test.asp"

'We disable maintaining session state so that more than one ASP 
    '     page can be processed at the same time 
response.expires=-1
 Response.Buffer = true %>
<!--#include file="funzADO.asp" -->
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
</HEAD>
<body color="black" bgcolor="white">
<font face="Arial">
<%
'most methods throw an exception if unsuccessful
on error resume next
%>
<%
'now we must create an instance of the UploadProgress component and retrieve a new state (progress) id
dim objProgress			'ProgressBar component instance
dim ProgressID			'new progress (state) id, used to uniquely identify this particular upload operation


set objProgress = server.CreateObject("Dundas.UploadProgress")
ProgressID = objProgress.GetNewProgressID   'used in the client side "Upload" function

 if IsEmpty(ProgressID) = true then
	 Response.Write "<font color=blue><b>Il server non è attivo.<br>"
	 Response.Write "<br>Eseguire StateServer.exe sul server e riprovare.</font></b>"
	 Response.End
 end if
%>
<%
'look for Result Querystring item, if it exists then output the success/failure message
'  of the upload operation
if Request.QueryString("Success") <> "" then
	Response.Write "<br><br><b><center><font color=blue>" & Request.QueryString("Success") & "</font></center></b>"
end if
%>
<br>
<Script language="javascript">
<!--
ProgressID=<%=ProgressID%>;
function Upload()
{ 
	if (ProgressID != -1){	
	//only open progressbar.asp window if there is a valid id.  We will center this progress bar as well.
		//window.document.cookie = "RefreshProgressID=TRUE";
		Param = "SCROLLBARS=no,RESIZABLE=no, TOOLBAR=no,STATUS=no,MENUBAR=no,WIDTH=400,HEIGHT=100";
		Param += ",TOP=" + String(window.screen.Height/2 - 50);
		Param += ",LEFT=" + String(window.screen.Width/2 - 200);
		window.open("ProgressBar.asp?ProgressID=<%=ProgressID%>", null, Param);
	}	
	
	//now that progress bar window is open submit the form data to Process.asp, passing
	//   the ProgressID as a querystring parameter
	document.frmMain.action = "Process.asp?ProgressID=<%=ProgressID%>"
	document.frmMain.submit();
}
//-->
</Script></font><center>
<form name="frmMain" action="Process.asp?id=4&" enctype="multipart/form-data" method="post" style="BORDER-BOTTOM: thin; BORDER-RIGHT-STYLE: none">
    <p align="center" style="background-color: #B2B2B2; width: 600px; border-style: solid; border-width: thin"> 
      <b> 
      <font color="#000000" face="Arial">&nbsp;Inserimento file da archiviare 
<%if session("MULTIPAGINA")=true and session("currpagina")<1 then session("MULTIPAGINA")=false%>
<%if session("MULTIPAGINA")=true and session("currpagina")<>"" then%>
<%=lastNumProt-1%>-<%=session("currpagina")+1%>
<%else%>
<%=lastNumProt%>
<%end if%>


</font>
      </b>
    <table width="600" border="0" cellPadding="3" cellSpacing="3" style="BACKGROUND-COLOR: #D3D3D3" align="center">
      <tr> 
        <td width="250"><font face="Arial">Selezionare il file da inviare:</font></td>
        <td width="250">
          <font face="Arial">
          <input type="file" name="File1">
          </font>
        </td>
      </tr>
    </table>
    <p align="center"> 
      <font face="Arial"> 
      <input type="button" name="submit1" value="Carica file" OnClick="Upload()">
      <br>
      </font>
  </form></center>
</BODY>
</HTML>
poi apre la pagina di inserimento file nel percorso indicato (pagina: process.asp)

HTML:
<%@ENABLESESSIONSTATE=TRUE%>
<% 'We disable maintaining session state so that more than one ASP 
    '     page can be processed at the same time 
 Response.Buffer = true %>
<!--#include file="funzADO.asp" -->
<!--#include file="funzUtili.asp" -->
<%
if session("MULTIPAGINA")=false then
	session("NUMEROPROTOCOLLO")=""
	session("CURRPAGINA")=""
	msg="Inserire le informazioni associate al documento inviato"
else
	msg="Fare clic sul pulsante INVIA per completare l'inserimento o su PAGINA NN per continuare"

response.write(	"<B>INFORMAZIONI DI CONTROLLO:</b>"&"<br>")
response.write(	"1-"&	session("IDDOCSALVATO")&"<br>")
response.write(	"2-"&	session("MULTIPAGINA")&"<br>")
response.write(	"3-"&	session("CURRDOCSALVATO")&"<br>")
response.write(	"4-"&	session("NUMEROPROTOCOLLO")&"<br>")
response.write(	"5-"&	session("CURRPAGINA")&"<br>")

end if
%>


<html>
<head>
<title>Inserimento di un nuovo documento</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">

<p><b><font face="Arial" size="4"><%=msg%></font></b></p>
<form name="datiDoc" method="post" action="insNuovoDoc.asp">
  <table width="794" border="0" cellspacing="0" cellpadding="0">
    <%if session("MULTIPAGINA")=false then%>
	<tr> 
      <td width="174" align="left"><font face="Arial" size="2" color="#0000FF"><b>Tipo documento:</b></font></td>
      <td width="620"><font face="Arial" size="2"><%=creaCombo(0,"tipoDoc","id","descrizione","idTipoDoc")%>&nbsp;
        <b><font face="Arial" size="2" color="#0000FF">Nuovo Tipo documento: <input type="text" name="nuovotipodoc" size="20"></font></b></font></td>
    </tr>
    <tr> 
      <td width="174" align="left" valign="top"><font face="Arial" size="2" color="#0000FF"><b>Oggetto:</b></font></td>
      <td width="620"> 
        <font face="Arial" size="2"> 
        <textarea name="ogg" cols="50" rows="5">Inserire l'oggetto del documento</textarea>
        </font>
      </td>
    </tr>
    <tr> 
      <td width="174" align="left"><font face="Arial" size="2" color="#0000FF"><b>Numero Protocollo:</b></font></td>
      <td width="620"> 
        <font face="Arial" size="2"> 
        <input type="text" name="protNum" size="10" maxlength="10" value="<%=nz(session("NUMEROPROTOCOLLO"),lastNumProt)%>">
        </font>
      </td>
    </tr>
    <tr> 
      <td width="174" align="left"><font face="Arial" size="2" color="#0000FF"><b>Progressivo alfab.:</b></font></td>
      <td width="620"> 
        <font face="Arial" size="2"> 
        <input type="text" name="protProg" size="2" maxlength="1">
        </font>
      </td>
    </tr>
    <tr> 
      <td width="174" align="left"><font face="Arial" size="2" color="#0000FF"><b>Data inserimento:</b></font></td>
      <td width="620"> 
        <font face="Arial" size="2"> 
        <input type="text" name="gg" size="2" maxlength="2" value="<%=day(date())%>">
        / 
        <select name="mm">
          <option selected value="<%=month(date())%>"><%=month(date())%></option>          
          <option value="01">Gennaio</option>
          <option value="02">Febbraio</option>
          <option value="03">Marzo</option>
          <option value="04">Aprile</option>
          <option value="05">Maggio</option>
          <option value="06">Giugno</option>
          <option value="07">Luglio</option>
          <option value="08">Agosto</option>
          <option value="09">Settembre</option>
          <option value="10">Ottobre</option>
          <option value="11">Novembre</option>
          <option value="12">Dicembre</option>
        </select>
        / 
        <input type="text" name="yyyy" size="4" maxlength="4" value="<%=year(date())%>">
        </font>
      </td>
    </tr>
    <tr> 
      <td width="174" valign="top" align="left"><font face="Arial" size="2" color="#0000FF"><b>Nota descrittiva:</b></font></td>
      <td width="620" align="left" valign="top"> 
        <font face="Arial" size="2"> 
        <textarea name="NotaDescr" cols="45" rows="10"> </textarea>
        </font>
      </td>
    </tr>
    <tr> 
      <td width="174" align="left"><font face="Arial" size="2" color="#0000FF"><b>Documento in ingresso?</b></font></td>
      <td width="620"> 
        <font face="Arial" size="2"> 
        <input type="checkbox" name="Ingresso" value="true">
        </font>
      </td>
    </tr>
    <tr> 
      <td width="174" align="left"><font face="Arial" size="2" color="#0000FF"><b>Ubicazione:</b></font></td>
      <td width="620"><font face="Arial" size="2"><%=creaCombo(0,"ubicazioneDoc","id","ubicazione","IdUbicazione")%> 
        <font face="Arial" size="2" color="#0000FF"><b>Nuova Ubicazione: </b></font><b><font face="Arial" size="2" color="#0000FF"><input type="text" name="nuovaubicazione" size="20"></font></b> </font> </td>
    </tr>
    <tr>
      <td width="174" align="left" valign="top"><font face="Arial" size="2" color="#0000FF"><b>Mittente/Destinatario:</b></font></td>
      <td width="620">
        <font face="Arial" size="2">
        <textarea name="toFrom" cols="50" rows="5"></textarea>
        </font>
      </td>
    </tr>
	<%end if%>
    <tr> 
      <td width="174" align="left"><font face="Arial" size="2" color="#0000FF"><b>&nbsp;</b></font> </td>
      <td width="620"> <font face="Arial" size="2"> 
        <input type="submit" name="Button" value="INVIA" >
        <input type="submit" name="Button" value="PAGINA <%=nz(session("CURRPAGINA"),0)+2%>">
        <input type="hidden" name="fileName" value="<%=request("fileName")%>">
        <input type="hidden" name="idUser" value="<%=session("idUser")%>">
        </font> </td>
    </tr>
  </table>
</form>
<p>&nbsp;</p>
<p>&nbsp; </p>
</body>
</html>
In seguito si apre la pagina di inserimento dati nel database (la pagina si chiama: datiNuovoDoc.asp)

HTML:
<%@ENABLESESSIONSTATE=TRUE%>
<% 'We disable maintaining session state so that more than one ASP 
    '     page can be processed at the same time 
 Response.Buffer = true %>
<!--#include file="funzADO.asp" -->
<!--#include file="funzUtili.asp" -->
<%
if session("MULTIPAGINA")=false then
	session("NUMEROPROTOCOLLO")=""
	session("CURRPAGINA")=""
	msg="Inserire le informazioni associate al documento inviato"
else
	msg="Fare clic sul pulsante INVIA per completare l'inserimento o su PAGINA NN per continuare"

response.write(	"<B>INFORMAZIONI DI CONTROLLO:</b>"&"<br>")
response.write(	"1-"&	session("IDDOCSALVATO")&"<br>")
response.write(	"2-"&	session("MULTIPAGINA")&"<br>")
response.write(	"3-"&	session("CURRDOCSALVATO")&"<br>")
response.write(	"4-"&	session("NUMEROPROTOCOLLO")&"<br>")
response.write(	"5-"&	session("CURRPAGINA")&"<br>")

end if
%>


<html>
<head>
<title>Inserimento di un nuovo documento</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">

<p><b><font face="Arial" size="4"><%=msg%></font></b></p>
<form name="datiDoc" method="post" action="insNuovoDoc.asp">
  <table width="794" border="0" cellspacing="0" cellpadding="0">
    <%if session("MULTIPAGINA")=false then%>
	<tr> 
      <td width="174" align="left"><font face="Arial" size="2" color="#0000FF"><b>Tipo documento:</b></font></td>
      <td width="620"><font face="Arial" size="2"><%=creaCombo(0,"tipoDoc","id","descrizione","idTipoDoc")%>&nbsp;
        <b><font face="Arial" size="2" color="#0000FF">Nuovo Tipo documento: <input type="text" name="nuovotipodoc" size="20"></font></b></font></td>
    </tr>
    <tr> 
      <td width="174" align="left" valign="top"><font face="Arial" size="2" color="#0000FF"><b>Oggetto:</b></font></td>
      <td width="620"> 
        <font face="Arial" size="2"> 
        <textarea name="ogg" cols="50" rows="5">Inserire l'oggetto del documento</textarea>
        </font>
      </td>
    </tr>
    <tr> 
      <td width="174" align="left"><font face="Arial" size="2" color="#0000FF"><b>Numero Protocollo:</b></font></td>
      <td width="620"> 
        <font face="Arial" size="2"> 
        <input type="text" name="protNum" size="10" maxlength="10" value="<%=nz(session("NUMEROPROTOCOLLO"),lastNumProt)%>">
        </font>
      </td>
    </tr>
    <tr> 
      <td width="174" align="left"><font face="Arial" size="2" color="#0000FF"><b>Progressivo alfab.:</b></font></td>
      <td width="620"> 
        <font face="Arial" size="2"> 
        <input type="text" name="protProg" size="2" maxlength="1">
        </font>
      </td>
    </tr>
    <tr> 
      <td width="174" align="left"><font face="Arial" size="2" color="#0000FF"><b>Data inserimento:</b></font></td>
      <td width="620"> 
        <font face="Arial" size="2"> 
        <input type="text" name="gg" size="2" maxlength="2" value="<%=day(date())%>">
        / 
        <select name="mm">
          <option selected value="<%=month(date())%>"><%=month(date())%></option>          
          <option value="01">Gennaio</option>
          <option value="02">Febbraio</option>
          <option value="03">Marzo</option>
          <option value="04">Aprile</option>
          <option value="05">Maggio</option>
          <option value="06">Giugno</option>
          <option value="07">Luglio</option>
          <option value="08">Agosto</option>
          <option value="09">Settembre</option>
          <option value="10">Ottobre</option>
          <option value="11">Novembre</option>
          <option value="12">Dicembre</option>
        </select>
        / 
        <input type="text" name="yyyy" size="4" maxlength="4" value="<%=year(date())%>">
        </font>
      </td>
    </tr>
    <tr> 
      <td width="174" valign="top" align="left"><font face="Arial" size="2" color="#0000FF"><b>Nota descrittiva:</b></font></td>
      <td width="620" align="left" valign="top"> 
        <font face="Arial" size="2"> 
        <textarea name="NotaDescr" cols="45" rows="10"> </textarea>
        </font>
      </td>
    </tr>
    <tr> 
      <td width="174" align="left"><font face="Arial" size="2" color="#0000FF"><b>Documento in ingresso?</b></font></td>
      <td width="620"> 
        <font face="Arial" size="2"> 
        <input type="checkbox" name="Ingresso" value="true">
        </font>
      </td>
    </tr>
    <tr> 
      <td width="174" align="left"><font face="Arial" size="2" color="#0000FF"><b>Ubicazione:</b></font></td>
      <td width="620"><font face="Arial" size="2"><%=creaCombo(0,"ubicazioneDoc","id","ubicazione","IdUbicazione")%> 
        <font face="Arial" size="2" color="#0000FF"><b>Nuova Ubicazione: </b></font><b><font face="Arial" size="2" color="#0000FF"><input type="text" name="nuovaubicazione" size="20"></font></b> </font> </td>
    </tr>
    <tr>
      <td width="174" align="left" valign="top"><font face="Arial" size="2" color="#0000FF"><b>Mittente/Destinatario:</b></font></td>
      <td width="620">
        <font face="Arial" size="2">
        <textarea name="toFrom" cols="50" rows="5"></textarea>
        </font>
      </td>
    </tr>
	<%end if%>
    <tr> 
      <td width="174" align="left"><font face="Arial" size="2" color="#0000FF"><b>&nbsp;</b></font> </td>
      <td width="620"> <font face="Arial" size="2"> 
        <input type="submit" name="Button" value="INVIA" >
        <input type="submit" name="Button" value="PAGINA <%=nz(session("CURRPAGINA"),0)+2%>">
        <input type="hidden" name="fileName" value="<%=request("fileName")%>">
        <input type="hidden" name="idUser" value="<%=session("idUser")%>">
        </font> </td>
    </tr>
  </table>
</form>
<p>&nbsp;</p>
<p>&nbsp; </p>
</body>
</html>
a processo funzionante si apre la seguente pagina (insNuovoDoc.asp)
HTML:
<!--#include file="funzGestione.asp" -->
<!--#include file="funzUtili.asp" -->
<!-- We disable maintaining session state so that more than one ASP 
         page can be processed at the same time -->
<%
'devo gestire i documenti multi pagina
'leggo i dati dal form

nuovotipodoc=request.form("nuovoTipoDoc")
if nuovotipodoc<>"" then
	sqlstring="Select * from tipoDoc"
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.Open sqlstring, connstr,3,3
	rs.addnew	
	rs("descrizione")=nuovotipodoc
	rs.update
	idTipoDoc=rs.fields("id")
	rs.close
	set rs=nothing
else
	idTipoDoc=request.form("idTipoDoc")
end if


nuovaubicazione=request.form("nuovaubicazione")
if nuovaubicazione<>"" then
	sqlstring="Select * from ubicazioneDoc"
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.Open sqlstring, connstr,3,3
	rs.addnew	
	rs("ubicazione")=nuovaubicazione
	rs.update
	idubicazione=rs.fields("id")
	rs.close
	set rs=nothing
else
	idUbicazione=request.form("idUbicazione")
end if
	
	
	
	ogg=request.form("ogg")
	protNum=request.form("protNum")
	session("NUMEROPROTOCOLLO")=protNum
	protProg=NZ(request.form("protProg")," ")
	dataIns=request.form("gg")& "/" & request.form("mm")& "/"  & request.form("yyyy")
	NotaDescr=request.form("NotaDescr")
	Ingresso=cbool(nz(request.form("Ingresso"),"false"))
	nomeFile=request.form("fileName")
	toFrom=request.form("toFrom")	
	
	if isNumeric(session("CURRPAGINA")) then
	   session("CURRPAGINA")=session("CURRPAGINA")+1
	else
	   session("CURRPAGINA")=1
	end if


	'ora salvo i dati nel db controllando che non siano già stati salvat	
	if request.form("button")="INVIA" then
		session("MULTIPAGINA")=false
	else
		session("MULTIPAGINA")=true
		
	end if
	'nel caso di doc multipagina verranno salvate le pagine dalla 2 in poi nella tab multipagina	
	pg=session("CURRPAGINA")
	if pg>1 then
		addPagina session("IDDOCSALVATO"),pg,nomeFile	


	end if
	
	if session("CURRDOCSALVATO")=false then
		
		idDoc=addDoc(idTipoDoc,ogg,protNum,protProg,dataIns,NotaDescr,Ingresso,idUbicazione,nomeFile,toFrom,session("MULTIPAGINA"))
		session("IDDOCSALVATO")=idDoc	
		session("CURRDOCSALVATO")=true
		
	else

	if session("CURRDOCSALVATO")=true and session("MULTIPAGINA")=false then
		'ovvero ho salvato il documento ed il processo multipagina è finito
		'azzero le variabili
		session("CURRDOCSALVATO")=false
		session("NUMEROPROTOCOLLO")=""
		session("CURRPAGINA")=""

	end if

	end if
	
	if  session("MULTIPAGINA")=false then
		if session("classificazione") then
			response.redirect "classificaDoc.asp?visalb=1&file="&nomefile&"&idDoc=" & session("IDDOCSALVATO")	
		else


'response.write(	"1-"&	session("IDDOCSALVATO")&"<br>")
'response.write(	"2-"&	session("MULTIPAGINA")&"<br>")
'response.write(	"3-"&	session("CURRDOCSALVATO")&"<br>")
'response.write(	"4-"&	session("NUMEROPROTOCOLLO")&"<br>")
'response.write(	"5-"&	session("CURRPAGINA")&"<br>")

		session("IDDOCSALVATO")=""
		session("CURRDOCSALVATO")=false
		session("NUMEROPROTOCOLLO")=""
		session("CURRPAGINA")=""

'response.end

			response.redirect "uploadnuovodoc.asp?iduser="&session("iduser")
		end if

	elseif session("MULTIPAGINA")=true then
		'devo tornare alla pagina di upload
	
		response.redirect "uploadnuovodoc.asp?iduser="&session("iduser")

	end if

%>
Il problema sta che non funzionano le parti....da l'upload alla pagina di inserimento dati nel database...

Qualcuno può aiutarmi??

Grazie
Ciao
stefano
 

rexcors

Nuovo Utente
26 Nov 2015
3
0
0
la pagina funzGestione.asp

HTML:
<!--#include file="funzAdo.asp" -->
<%
'tutte le funzioni di gestione delle tabelle
sub addTipoDoc (nomeCat)
	dim sql,rs
	sql="Select * from tipoDoc"
	set rs=crearecordset(sql,true)
	rs.addnew	
	rs("nomeCategoria")=nomeCat
	rs.update
	rs.close
	set rs=nothing
end sub

function addDoc(idTipoDoc,ogg,protNum,protProg,dataIns,NotaDescr,Ingresso,idUbicazione,nomeFile,toFrom,multipage)
	
	
	dim sql,rs
	sql="Select * from documenti"
	set rs=crearecordset(sql,true)
	rs.addnew
		rs("tipodoc")=idTipoDoc
		rs("idUtente")=session("idUser")
		rs("oggetto")=ogg
		rs("protocollonum")=protNum
		rs("protocollolet")=protProg
		rs("dataInserimento")=dataIns
		rs("notaDescrittiva")=NotaDescr
		rs("Ingresso")=Ingresso
		rs("idUbicazione")=idUbicazione
		rs("nomeFile")=nomeFile
		rs("classificato")=false
		if ingresso then
			rs("toFrom")="Mittente: " & toFrom
		else
			rs("toFrom")="Destinatario: " & toFrom
		end if
		rs("multipagina")=multipage
					
	rs.update
	addDoc=rs("id")
	rs.close
	set rs=nothing

end function

sub eliminaCategoria(id)
	dim sql
	sql="Delete * from tipodoc where id=" & id
	eseguiQuery(sql)

end sub
sub eliminaDocumento(id)
	dim sql
	sql="Delete * from documenti where id=" & id
	eseguiQuery(sql)

end sub
sub modCategoria(id,nwNome)
	dim sql,rs
	sql="Select * from tipoDoc where id=" & id
	set rs=crearecordset(sql,true)
	if not rs.eof and not rs.bof then
		rs("descrizione")=nwNome
		rs.update
	end if
	rs.close
	set rs=nothing

end sub
sub modDoc(id,idTipoDoc,ogg,protNum,protProg,dataIns,NotaDescr,Ingresso,idUbicazione,nomeFile,toFrom,multipage)
	dim sql,rs
	sql="Select * from documenti where id=" & id
	set rs=crearecordset(sql,true)
	if not rs.eof and not rs.bof then
		rs("tipodoc")=idTipoDoc
		rs("idUtente")=session("idUser")
		rs("oggetto")=ogg
		rs("protocollonum")=protNum
		rs("protocollolet")=protProg
		rs("dataInserimento")=dataIns
		rs("notaDescrittiva")=NotaDescr
		rs("Ingresso")=Ingresso
		rs("idUbicazione")=idUbicazione
		rs("nomeFile")=nomeFile
		rs("toFrom")=toFrom
		rs("multipagina")=multipage
		rs.update
	end if
	rs.close
	set rs=nothing

end sub
function elencoCategorie()
	dim sql,rs
	sql="Select * from tipoDOc order by Descrizione"
	set elencoCategorie=crearecordset(sql,false)
	
end function
function elencoDocDaClass()
	dim sql,rs
	sql="Select * from documenti where classificato=false order by dataIns DESC"
	set elencoDocDaClass=crearecordset(sql,false)
	
end function

function Categoria(id)
	dim sql,rs
	sql="Select * from tipoDoc where id=" & id
	set Categoria=crearecordset(sql,false)
	
end function
function Documento(id)
	dim sql,rs
	sql="Select * from documenti where id=" & id
	set Documento=crearecordset(sql,false)
	
end function
function elencoDocXCategoria(id)
	dim sql,rs,rs1

	if id=0 then 
		set rs1=elencoCategorie
		if not rs1.EOF	then id=rs1("id") else id=0
	end if
	sql="Select * from Documenti where TipoDoc=" & id & " order by dataIns DESC"
	set elencoDocXCategoria=crearecordset(sql,false)
	
end function
function assegnaClassifica(idDoc,idAlb)
	dim sql,rs
	if segnaDocClass(idDoc,true) then
		sql="select * from congiunzioneAlbero"
		set rs=crearecordset(sql,true)
		rs.addnew
			rs("idDocumento")=idDoc
			rs("idAlbero")=idAlb
		rs.update
		rs.close
		set rs=nothing
		assegnaClassifica="Classificazione del documento completata."
		
	else
		assegnaClassifica="Impossibile classificare un documento inesistente."
	end if
end function
function leggiCodiceClass(id)
	dim sql,rs
	sql="select * from Albero where idNodo=" & id
	set rs=crearecordset(sql,false)
	if not rs.BOF and not rs.EOF then
		leggiCodiceClass=rs("codice")
	else
		leggiCodiceClass="NESSUN CODICE"
	end if
	rs.close
	set rs=nothing
end function

function segnaDocClass(id,flag)
	dim sql,rs
	sql="select * from documenti where id=" & id
	set rs=crearecordset(sql,true)
	if not rs.BOF and not rs.EOF then
		rs("classificato")=cbool(flag)
		rs.update
		segnaDocClass=true
	else
		segnaDocClass=false
	end if
	rs.close
	set rs=nothing
end function

function renFolder(id,Nwname)
	dim sql,rs
	sql="Select * from albero where idNodo=" & id
	set rs=creaRecordset(sql,true)
	if not rs.BOF and not rs.EOF then
		rs("codice")=NwName
	end if
	rs.update
	rs.close
	set rs=nothing
end function

function addChild(idPadre,codice)
	'se si passa idPadre=0 si crea un nodo top
	dim sql,rs
	sql="Select * from albero"
	set rs=creaRecordset(sql,true)
	rs.addNew
		rs("codice")=codice
		rs("idPadre")=clng(idPadre)
	rs.Update
	rs.close
	set rs=nothing
	
end function

function delFolder(idAlbero)
	dim sql,rs1,rs2,idDoc
	'eliminando una voce della'albero occorre controllare se i corrispondenti documenti rimangono senza una classificazione
	sql="Select * from congiunzioneAlbero where idAlbero=" & idAlbero
	set rs1=creaRecordset(sql,false)
	'rs1.movefirst
	do while not rs1.eof
			idDoc=rs1("idDocumento")
			'adesso ricerco nella tab congiunzione tutti i record che hanno idDocumento pari a idDoc
			sql="Select * from congiunzioneAlbero where idDocumento=" & clng(idDoc)
			set rs2=creaRecordset(sql,true)
			if not rs2.bof and not rs2.eof then
				rs2.movelast
				if rs2.recordcount=1 then segnaDocClass idDoc,false 'segno il documento come non classificato perchè perderà la classifica
			end if
			rs2.close	
			rs1.movenext	
	loop
	rs1.close
	set rs1=nothing
	set rs2=nothing

		
	'infine elimino il folder dall'albero
	sql="Delete * from albero where idnodo=" & idAlbero
	eseguiQuery sql
end function


function numDocXClass(idAlbero)
	'restituisce il numero di documento catalogati con una certa classifica
	dim sql,rs
	sql="select count(idDocumento) as NumDoc from congiunzioneAlbero where idAlbero=" & idAlbero
	set rs=crearecordset(sql,false)
    numDocXClass=rs("NumDoc")
	rs.close
	set rs=nothing
end function

function addPagina(idDoc,nPagina,nFile)
	dim sql,rs
	sql="select * from multipagina where id=" &idDoc
	set rs=creaRecordset(sql,true)
	rs.addnew
		rs("id")=idDoc
		rs("Pagina")=nPagina
		rs("file")=nFile
	rs.update
	rs.close
	set rs=nothing

end function
function proxPagina (idDoc)
	'restituisce la prossima pagina di un documento multipagina
	dim sql,rs
	sql="select Max(pagina) as lstPage from multipagina where id=" &idDoc & " having max(pagina) is not null"
	set rs=creaRecordset(sql,false)
	if not rs.eof and not rs.bof then
		proxPagina=rs("lstpage")+1
	else
		proxPagina=1
	end if
end function

function cambiaPadre(idnodo,idpadre)
	'utilizzata per spostare un ramo dii un albero
	dim sql,rs
	sql="Select * from albero where idNodo=" & idNodo
	set rs=crearecordset(sql,true)
	if not rs.eof and not rs.bof then
		rs("idPadre")=idpadre
		rs.update
	end if
	rs.close
	set rs=nothing
end function
%>
 

rexcors

Nuovo Utente
26 Nov 2015
3
0
0
Ciao Paolo,

non ancora...continuo ad avere errori....
Tu puoi darmi una mano?
Te ne sarei molto grato