Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\DBList-Buoni-Spesa\_dblist_81.asp</i><br><form method=post action="edit.asp?action=save&dir=\DBList-Buoni-Spesa&file=_dblist_81.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>ï»¿&lt;%
'----------------------------------------------------------------------------------------
'-  ASP dbList - Version 8.1 - 30 July 2005
'-  Copyright Â© 2005 - Livio Siri (http://www.DaMa SOFTWARE) - All Rights Reserved.
'----------------------------------------------------------------------------------------

'--- Funzioni ---------------
sub w(sText)
        response.write sText &amp; vbCrLf
end sub

'-----------------
Sub re()
        Response.End
End Sub

'--- Funzione che sostituisce l'apostrofo
Function Fixapos(data)
        fixapos = Replace(data,&quot;'&quot;,&quot;''&quot;)
end function

'--- GetColDescription(strColName) Funzione-----------------------------
 Public Function GetColDescription(ByVal strColName)
        If Session(&quot;bGetCD&quot;) then
                Dim db
                  Dim rsSchema
                 Set db = Server.CreateObject(&quot;ADODB.Connection&quot;)
                  Set rsSchema = Server.CreateObject(&quot;ADODB.Recordset&quot;)
                        db.Open = dsn
                        rsSchema.CursorType = 3
                        rsSchema.ActiveConnection = db
                        Set rsSchema = db.openSchema(adSchemaColumns)
                                do while (not rsSchema.EOF)
                                        if LCase(rsSchema(&quot;COLUMN_NAME&quot;)) = LCase(strColName) then
                                                If rsSchema(&quot;DESCRIPTION&quot;) &lt;&gt; &quot;&quot; then
                                                        GetColDescription = rsSchema(&quot;DESCRIPTION&quot;)
                                                else
                                                        GetColDescription = rsSchema(&quot;COLUMN_NAME&quot;)
                                                end if
                                        end if
                                        rsSchema.MoveNext
                                loop
                        rsSchema.Close
                        Set rsSchema = Nothing
                        db.Close
                        Set db = Nothing
                Else
                        GetColDescription = strColName
                End if
 End function '--- GetColDescription

'--- GetFileName(strFilePath) Funzione-----------------------------
 Public Function GetFileName(ByVal strGetPath)
    Dim numPos, strFileName
    strFileName = &quot;&quot;
    strGetPath = cstr(strGetPath)
    if Not len(strGetPath) = 0 Then
      if InStr(strGetPath, &quot;\&quot;) &gt; 0 Then
         numPos = InStrRev(strGetPath, &quot;\&quot;, Len(strGetPath))
      elseif InStr(strGetPath, &quot;/&quot;) &gt; 0 Then
         numPos = InStrRev(strGetPath, &quot;/&quot;, Len(strGetPath))
      end if
      if numPos &gt; 0 Then
        strFileName = Right(strGetPath, Len(strGetPath) - numPos)
      End if
    End if
    GetFilename = strFileName
 End function '--- GetFileName

'-----------------
Public Function ReturnDropDown(objConn, sSQL, intSelect, fieldname, fieldtype, IncludeBlank)
      Dim arrRS, i, bSQL, rsRecordSet, arrField
            set rsRecordSet = Server.CreateObject(&quot;ADODB.RecordSet&quot;)
                        On error resume next
            rsRecordSet.Open sSQL, objConn, adOpenStatic, adLockReadOnly, adCmdText
            arrRS = rsRecordSet.GetRows
            rsRecordSet.Close
            set rsRecordSet = nothing
                        On error goto 0
                ReturnDropDown = ReturnDropDown &amp; &quot;&lt;select name=&quot;&quot;&quot; &amp; fieldname &amp; &quot;&quot;&quot; onChange=&quot;&quot;this.form.submit();&quot;&quot;&quot; &amp; VbCrLf
                if (fieldtype = adLongVarChar) OR (fieldtype = adLongVarWChar) then
                        ReturnDropDown = ReturnDropDown &amp; &quot; style=&quot;&quot; width:300px;&quot;&quot;&gt;&quot; &amp; VbCrLf
                Else
                         ReturnDropDown = ReturnDropDown &amp; &quot;&gt;&quot; &amp; VbCrLf
                End if
      if includeBlank = true then ReturnDropDown = ReturnDropDown &amp; &quot;&lt;option value=&quot;&quot;&quot;&quot;&gt;All&lt;/option&gt;&quot;
                if isArray(arrRS) then
             for i = 0 to uBound(arrRS, 2)

                                                 if (arrRS(0,i)) &lt;&gt; &quot;&quot; then
                   ReturnDropDown = ReturnDropDown &amp; &quot;&lt;option value=&quot;&quot;&quot; &amp; arrRS(0,i) &amp; &quot;&quot;&quot;&quot;
                                  if cStr(arrRS(0,i)) = cStr(intSelect) then ReturnDropDown = ReturnDropDown &amp; &quot; selected Style=&quot;&quot;color:white;background-color:#F00000;&quot;&quot;&quot;
                    ReturnDropDown = ReturnDropDown &amp; &quot;&gt;&quot; &amp; arrRS(0,i) &amp; &quot;&lt;/option&gt;&quot; &amp; vbcrlf
                                                End if

              next
                end if
        ReturnDropDown = ReturnDropDown &amp; &quot;&lt;/select&gt;&quot; &amp; VbCrLf
end function

'----------------- Display Tabella list -------------------------
Sub GetTable()
                        Dim sSelect
                        Dim rstSchema, db, objConn

                W &quot;&lt;Style type=&quot;&quot;text/css&quot;&quot;&gt; select {font-family:Tahoma;font-size:10px;font-weight:bold;color:#000066;border-style:solid;border-color:#0066CC;background-color: #F6F6F6;}&lt;/style&gt;&quot;
                If Request.Querystring(&quot;table&quot;) &lt;&gt; &quot;&quot; Then
                        Session(&quot;table&quot;) = Request.Querystring(&quot;table&quot;)
                        Call dbList(strConn, Session(&quot;table&quot;), &quot;&quot;, DefaultSort, strProvider)
                Else
                        w &quot;&lt;TABLE cellSpacing=0 cellPadding=2 border=0 align=center style=&quot;&quot;border:solid 1px #999999;background-color:#FFFFFF;font-family:verdana;font-size:10px;&quot;&quot;&gt;&quot;
                        w &quot;&lt;TBODY&gt;&lt;TR&gt;&lt;td vAlign=top&gt;&quot;

                        w &quot;&lt;TABLE cellSpacing=0 cellPadding=3 border=0 align=center style=&quot;&quot;font-family:verdana;font-size:10px;&quot;&quot;&gt;&lt;TBODY&gt;&lt;TR&gt;&quot;
                        w &quot;&lt;td align=center bgcolor=#D9D9D9 WIDTH=26&gt;&quot;
                        w &quot;&lt;a href=&quot;&quot;&quot; &amp; Session(&quot;basereferer&quot;) &amp; &quot;?db=Select database&quot;&quot; title=&quot;&quot; SELEZIONARE UN ALTRO ARCHIVIO &quot;&quot;&gt;&quot;
                        w &quot;&lt;img src=&quot;&quot;&quot; &amp; strimgDir &amp; &quot;database.gif&quot;&quot; width=12 height=13 border=0 align=absmiddle alt=&quot;&quot; SELEZIONARE UN ALTRO ARCHIVIO &quot;&quot;&gt;&lt;/a&gt;&lt;/td&gt;&quot;
                                w &quot;&lt;td&gt;&amp;nbsp;&lt;b&gt;Archivio&lt;/b&gt;: &quot;
                                If dbName &lt;&gt; &quot;&quot; Then w &quot;&lt;b Style=&quot;&quot;color:#e00000;background-color:yellow;&quot;&quot;&gt;&amp;nbsp;&quot; &amp; UCase(Session(&quot;db&quot;)) &amp; &quot;&amp;nbsp;&lt;/b&gt;&quot;
                                If Request.Querystring(&quot;db&quot;) = &quot;Select database&quot; then Session(&quot;db&quot;) = Null
                                w &quot;&lt;/td&gt;&lt;form name=&quot;&quot;Dir&quot;&quot;&gt;&lt;td valign=top&gt;&quot;
                        If dbName = &quot;&quot; then
                                Call Dir(autoPath)
                        End if

                        If Session(&quot;db&quot;) &lt;&gt; &quot;&quot; Then
                                objConn = dsn
                                w &quot;&lt;/td&gt;&lt;/form&gt;&lt;td align=right&gt;&quot;
                                w &quot;&amp;nbsp;&amp;nbsp;&lt;b&gt;Tabella&lt;/b&gt;:&quot;
                                w &quot;&lt;/td&gt;&lt;form name=&quot;&quot;Tab&quot;&quot;&gt;&lt;td valign=top&gt;&quot;

                                Set db = Server.CreateObject(&quot;ADODB.Connection&quot;)
                                On error resume next
                                        db.Open objConn
                                                If Err.Number &lt;&gt; 0 then
                                                        w &quot;&lt;b&gt;Errore:&lt;/b&gt; &quot; &amp; Err.Description
                                                        w &quot;&lt;b&gt;Errore:&lt;/b&gt; &quot; &amp; objConn
                                                        response.end
                                                end if
                                                w &quot;&lt;select name=&quot;&quot;table&quot;&quot; onChange=&quot;&quot;this.form.submit();&quot;&quot;&gt;&quot; &amp; VbCrLf
                                                w &quot;&lt;option value=&quot;&quot;Select table&quot;&quot;&gt;Seleziona tabella&lt;/option&gt;&quot;
                                            Set rstSchema = db.OpenSchema(adSchemaTables)
                                                        Do Until rstSchema.EOF
                                                        if UCase(rstSchema(&quot;TABLE_TYPE&quot;)) = &quot;TABLE&quot; then
                                                                        w &quot;&lt;option &quot; &amp; sSelect &amp; &quot;&gt;&lt;a href=&quot;&quot;&quot; &amp; Session(&quot;basereferer&quot;) &amp; &quot;?table=&quot; &amp; rstSchema(&quot;TABLE_NAME&quot;) &amp; &quot;&amp;fieldSQL=reset&quot;&quot;&gt;&quot; &amp; rstSchema(&quot;TABLE_NAME&quot;) &amp; &quot;&lt;/a&gt;&lt;/option&gt;&quot;
                                                                end if
                                                        rstSchema.MoveNext
                                                        Loop
                                                w &quot;&lt;/select&gt;&quot; &amp; VbCrLf
                                           rstSchema.Close
                                           Set rstSchema = Nothing
                                        db.Close
                                On error goto 0
                                set db = nothing
                        End if
                        w &quot;&lt;/td&gt;&lt;/form&gt;&lt;td align=left nowrap style='text-decoration:none;color:NAVY;font-size:9px;'&gt;&quot;
                        w &quot;&amp;nbsp;dbList v&quot; &amp; lVersion &amp; &quot; &quot;
                        w &quot;&lt;b&gt;&lt;a href='' style='text-decoration:none;color:NAVY;font-size:9px;' Target=_new&gt;DaMa SOFTWARE&lt;/a&gt;&amp;nbsp;&lt;/b&gt;&quot;
                        w &quot;&lt;/TD&gt;&lt;/TR&gt;&lt;/TBODY&gt;&lt;/TABLE&gt;&quot;
                        w &quot;&lt;/TD&gt;&lt;/TR&gt;&lt;/TBODY&gt;&lt;/TABLE&gt;&quot;
                End if
End sub

'----------------- Display Tabella list -------------------------
Sub Getdb()
                Dim sSelect
                        Session(&quot;table&quot;) = Request.Querystring(&quot;table&quot;)
                        w &quot;&lt;TABLE cellSpacing=0 cellPadding=0 border=0 style=&quot;&quot;font-family:verdana;font-size:10px;&quot;&quot;&gt;&lt;TBODY&gt;&lt;TR&gt;&quot;
                        w &quot;&lt;td align=center bgcolor=#D9D9D9 WIDTH=56&gt;&quot;
                        If dbName = &quot;&quot; Then
                                w &quot;&lt;a href=&quot;&quot;&quot; &amp; Session(&quot;basereferer&quot;) &amp; &quot;?db=Select database&quot;&quot; title=&quot;&quot; SELEZIONA UN ALTRO ARCHIVIO &quot;&quot;&gt;&quot;
                                w &quot;&lt;img src=&quot;&quot;&quot; &amp; strimgDir &amp; &quot;database.gif&quot;&quot; width=12 height=13 border=0 align=absmiddle alt=&quot;&quot; SELEZIONA UN ALTRO ARCHIVIO &quot;&quot;&gt;&lt;/a&gt;&amp;nbsp;&quot;
                        Else
                                w &quot;&lt;img src=&quot;&quot;&quot; &amp; strimgDir &amp; &quot;database.gif&quot;&quot; width=12 height=13 border=0 align=absmiddle alt=&quot;&quot; dbList  DaMa SOFTWARE &quot;&quot;&gt;&amp;nbsp;&quot;
                        End if
                                w &quot;&lt;/td&gt;&lt;td&gt;&amp;nbsp;&lt;b&gt;Archivio&lt;/b&gt;:&quot;
                                If dbName &lt;&gt; &quot;&quot; Then w &quot;&lt;b Style=&quot;&quot;color:#e00000;background-color:yellow;&quot;&quot;&gt;&amp;nbsp;&quot; &amp; UCase(Session(&quot;db&quot;)) &amp; &quot;&amp;nbsp;&lt;/b&gt;&quot;
                                If Request.Querystring(&quot;db&quot;) &lt;&gt; &quot;&quot; then Session(&quot;db&quot;) = Request.Querystring(&quot;db&quot;)
                                If Request.Querystring(&quot;db&quot;) = &quot;Select database&quot; then Session(&quot;db&quot;) = Null
                                w &quot;&lt;/td&gt;&lt;form name=&quot;&quot;Dir&quot;&quot;&gt;&lt;td valign=top&gt;&quot;
                        If dbName = &quot;&quot; then
                                Call Dir(autoPath)
                        End if
                If Session(&quot;db&quot;) &lt;&gt; &quot;&quot; Then
                        Dim rstSchema, db, objConn
                        objConn = dsn
                        w &quot;&lt;/td&gt;&lt;/form&gt;&lt;td align=right&gt;&quot;
                        w &quot;&amp;nbsp;&amp;nbsp;&lt;b&gt;Tabella&lt;/b&gt;:&quot;
                        w &quot;&lt;/td&gt;&lt;form name=&quot;&quot;Tab&quot;&quot;&gt;&lt;td valign=top&gt;&quot;
                        Set db = Server.CreateObject(&quot;ADODB.Connection&quot;)
                        On error resume next
                                db.Open objConn
                                        If Err.Number &lt;&gt; 0 then
                                                w &quot;&lt;b&gt;Errore:&lt;/b&gt; &quot; &amp; Err.Description &amp; &quot;&lt;br&gt;&quot;
                                                w &quot;&lt;b&gt;Errore:&lt;/b&gt; &quot; &amp; objConn
                                                response.end
                                        end if
                                        w &quot;&lt;select name=&quot;&quot;table&quot;&quot; onChange=&quot;&quot;this.form.submit();&quot;&quot;&gt;&quot; &amp; VbCrLf
                                    Set rstSchema = db.OpenSchema(adSchemaTables)
                                                Do Until rstSchema.EOF
                                                if UCase(rstSchema(&quot;TABLE_TYPE&quot;)) = &quot;TABLE&quot; then
                                                                If rstSchema(&quot;TABLE_NAME&quot;) = Session(&quot;table&quot;) Then sSelect = &quot; selected Style=&quot;&quot;color:white;background-color:#F00000;&quot;&quot;&quot; Else sSelect = &quot; style=&quot;&quot;color:black;&quot;&quot;&quot; End if
'                                                                If rstSchema(&quot;TABLE_NAME&quot;) = Session(&quot;table&quot;) Then sSelect = &quot; selected Style=&quot;&quot;color:#e00000;background-color:yellow;&quot;&quot;&quot; Else sSelect = &quot; style=&quot;&quot;color:black;&quot;&quot;&quot; End if
                                                                w &quot;&lt;option &quot; &amp; sSelect &amp; &quot;&gt;&lt;a href=&quot;&quot;&quot; &amp; Session(&quot;basereferer&quot;) &amp; &quot;?table=&quot; &amp; rstSchema(&quot;TABLE_NAME&quot;) &amp; &quot;&amp;fieldSQL=reset&quot;&quot;&gt;&quot; &amp; rstSchema(&quot;TABLE_NAME&quot;) &amp; &quot;&lt;/a&gt;&lt;/option&gt;&quot;
                                                        end if
                                                rstSchema.MoveNext
                                                Loop
                                        w &quot;&lt;/select&gt;&quot; &amp; VbCrLf
                                   rstSchema.Close
                                   Set rstSchema = Nothing
                                db.Close
                        On error goto 0
                        set db = nothing
                End if
                w &quot;&lt;/TD&gt;&lt;/form&gt;&lt;/TR&gt;&lt;/TBODY&gt;&lt;/TABLE&gt;&quot;
End sub

'---------------------------------------------------------------------------------------------------------------
Sub Dir(byVal directory)
        Dim objFSO, currentFolder, objFile, currentFile, objFolder, sSelect
        Dim dbfile, ii, strdbfile, strColor, strColor1, strnextarrow
        w &quot;&lt;select name=&quot;&quot;db&quot;&quot; onChange=&quot;&quot;this.form.submit();&quot;&quot;&gt;&quot; &amp; VbCrLf
                w &quot;&lt;option value=&quot;&quot;Select database&quot;&quot;&gt;Seleziona archivio&lt;/Option&gt;&quot;
                Set objFSO = Server.CreateObject(&quot;Scripting.FileSystemObject&quot;)
                Set currentFolder = objFSO.GetFolder(directory)
                        For Each objFile In currentFolder.Files
                                If lcase(right(objFile.name, 3)) = &quot;mdb&quot; then
                                        If objFile.name = Session(&quot;db&quot;) Then sSelect = &quot; selected Style=&quot;&quot;color:white;background-color:#F00000;&quot;&quot;&quot; Else sSelect = &quot; style=&quot;&quot;color:black;&quot;&quot;&quot; End if
'                                        If objFile.name = Session(&quot;db&quot;) Then sSelect = &quot; selected Style=&quot;&quot;color:#e00000;background-color:yellow;&quot;&quot;&quot; Else sSelect = &quot; style=&quot;&quot;color:black;&quot;&quot;&quot; End if
                                                w &quot;&lt;option &quot; &amp; sSelect &amp; &quot;&gt;&lt;a href='&quot; &amp; Session(&quot;basereferer&quot;) &amp; &quot;?db=&quot; &amp; objFile.name &amp; &quot;'&gt;&quot; &amp; objFile.name &amp; &quot;&lt;/a&gt;&lt;/option&gt;&quot;
                                End if
                        Next
                Set currentFolder = Nothing
                Set objFSO = Nothing
        w &quot;&lt;/select&gt;&quot; &amp; VbCrLf
End Sub

'---------------------------------------------------------------------------------------------------------------
Private Function CompactDB(strProvider, strDbSource, autoPath, dBmain, boolIs97)
        Dim fso, Engine, strDBPath
        strDBPath = left(autoPath,instrrev(autoPath,&quot;\&quot;))
       Set fso = CreateObject(&quot;Scripting.FileSystemObject&quot;)
   If fso.FileExists(autoPath &amp; dBmain) Then
	On error resume next 
     Set Engine = CreateObject(&quot;JRO.JetEngine&quot;)
      If boolIs97 = &quot;True&quot; Then
         Engine.CompactDatabase strProvider &amp; strDbSource, strProvider &amp; autoPath &amp; &quot;temp.mdb;&quot; &amp; &quot;Jet OLEDB:Engine Type=4&quot;
      Else
         Engine.CompactDatabase strProvider &amp; strDbSource, strProvider &amp; autoPath &amp; &quot;temp.mdb&quot;
      End If
       fso.CopyFile autoPath &amp; &quot;temp.mdb&quot;, autoPath &amp;dbmain
       fso.DeleteFile(autoPath &amp; &quot;temp.mdb&quot;)
         If Err.number &lt;&gt; 0 Then
               Session(&quot;msg&quot;) = &quot;&lt;b style=&quot;&quot;color:red;font-size:12px;&quot;&quot;&gt;ERRORE&lt;/b&gt; : &quot; &amp; Err.description &amp; &quot; - (La cartella con gli archivi avrebbe dovuto avere i permessi di scrittura) &quot;
			Else
       			Session(&quot;msg&quot;) = &quot;L'archivio, &quot; &amp; autoPath &amp; dBmain &amp; &quot;, Ã¨ stato Compattato&quot; &amp; vbCrLf
         End if
       Set Engine = nothing
	On error goto 0
       Set fso = nothing
   Else
       Session(&quot;msg&quot;) = &quot;Il nome dell'archivio o il percorso non Ã¨ stato trovato. Riprova&quot; &amp; vbCrLf
   End If
End Function '---CompactDB

'---------------------------------------------------------------------------------------------------------------
Public Function dbList(strDbSource, strDbTable, strCondition, DefaultSort, strProvider)
'*************************************************
' Procedure: dbList
'
' Returns: fills a sortable, pageable html table with records from a database
' with page navigating, editing, deleting, adding, exporting, filtering and searching capabilities
'
' Inputs:
' strDbSource = the database path (physical)
' strDbTable = the database table
' strCondition = Query Condition (ex: &quot; WHERE Codice_Utente LIKE &quot; &amp; Session(&quot;USER_CODE&quot;))
' DefaultSort = either desc or asc
' strProvider = ODBC provider ( ex. &quot;Provider=Microsoft.Jet.OLEDB.4.0;Data Source=&quot;)
'
' Usage:
' include this file in your ASP page
' Then call the function:
'--- Usage:  Call dbList(server.mappath(&quot;your_dB_path.mdb&quot;, &quot;your_table_name&quot;, &quot;your_SQL_WHERE_condition&quot;, your_Default_Sort, theConnProvider)
'
' Author: Livio Siri - http://www.DaMa SOFTWARE
'*************************************************
'##### CONFIGURATION ##################################
rowColor1 = &quot;#E0E0E0&quot;                                                                        '--- the db table alternate row color 1 ---
rowColor2 = &quot;#F0F0F0&quot;                                                                        '--- the db table alternate row color 2 ---
strTRAttributes = &quot;class=dbListTR&quot;                                 '--- the main table row TR attributes ---
strTHAttributes = &quot;class=dbListTH&quot;                                 '--- the table header TH attributes ---
strTDAttributes = &quot;class=dbListTD vAlign=top&quot;         '--- the table data TD attributes ---
strNamesAttributes = &quot;class=dbListNames&quot;                 '--- the Column of Field Names attributes ---
strNamesAttributesSort = &quot;class=dbListNamesSort&quot;                 '--- the Column of Sorted Field attributes ---
objConn = strProvider &amp; strDbSource &amp; &quot;;&quot;                 '--- the connection string ---
UpperNav = True                                                                        '--- add the upper navigation bar ---
Description = True                                                                        '--- displays the description at table bottom ---
SearchBox = True                                                                        '--- add the search functions ---
LowerNav = True                                                                        '--- add the lower navigation bar ---
'##### END CONFIG ####################################

'---- Dim variables -----------------------------------------------------------------------------------------
Dim strDefaultSort, RS, strSort, intCurrentPage, strPageName, strTemp, field
Dim strMoveFirst, strMoveNext, strMovePrevious, strMoveLast
Dim i, j, intPageSize, intTotalPages, intCurrentRecord, intTotalRecords
Dim nFrom, nTo, sele, sele1, sele2, intStart, intFinish, Sorting, Rpp
Dim FieldsCount, strKeyWords, TheMode, strKeyWordsArray, MorethanOneKeywords
Dim Wmax, StrOpenInContruction, strOpen, msg, sSort, cPKSort
Dim strTRAttributes, strTHAttributes, strTDAttributes, objConn, strSQL
Dim SearchBox, Description, strNamesAttributes, strNamesAttributesSort, rowColor1, rowColor2
Dim UpperNav, LowerNav, CheckIE, IE, rsS, bnorec, isPrimaryKey
Dim mySQL, select1, select2, fieldSQL, strSQLString, sResetColor, sResetBGColor
Dim rowColor, strPrimaryKey, db, rsSchema, bReturn

'---- SchemaEnum Values ----
Const adSchemaIndexes = 12

        If  Len(strCondition) = 0 Then
                strSQL = &quot;SELECT * FROM &quot; &amp; strDbTable                '--- the default query string ---
        Else
                strSQL = &quot;SELECT * FROM &quot; &amp; strDbTable &amp; &quot; WHERE (&quot; &amp; strCondition &amp; &quot;)&quot;
        End if

        If Request.querystring(&quot;mystrSQL&quot;) &lt;&gt; &quot;&quot; Then
                strSQL = &quot;SELECT * FROM &quot; &amp; strDbTable &amp; &quot; &quot; &amp; Request.querystring(&quot;mystrSQL&quot;)
        End if

        if Request.form(&quot;dSQL&quot;) &lt;&gt; &quot;&quot; Then
                If Session(&quot;debugSQL&quot;) = False Then Session(&quot;debugSQL&quot;) = True else Session(&quot;debugSQL&quot;) = False end if
        end if
        If ISNULL(Session(&quot;debugSQL&quot;)) Then Session(&quot;debugSQL&quot;) = debugSQL else debugSQL = Session(&quot;debugSQL&quot;) end if

        W &quot;&lt;Style type=&quot;&quot;text/css&quot;&quot;&gt;&quot;
        W &quot;&lt;!--&quot;
        W &quot;TR.dbListTR TD.dbListTR {Font-family:Verdana;font-weight:normal;font-size:10px;color:black;}&quot;
        W &quot;A.dbListTR {font-size:10px;color:black;text-decoration:underline;font-family:Verdana,Tahoma,Arial;}&quot;
        W &quot;A.dbListTR:Link {font-size:10px;color:black;text-decoration:underline;font-family:Verdana,Tahoma,Arial;}&quot;
        W &quot;A.dbListTR:Visited {font-size:10px;color:black;text-decoration:underline;font-family:Verdana,Tahoma,Arial;}&quot;
        W &quot;A.dbListTR:Active {font-size:10px;color:black;text-decoration:underline;font-family:Verdana,Tahoma,Arial;}&quot;
        W &quot;A.dbListTR:Hover {font-size:10px;text-decoration:none;font-family:Verdana,Tahoma,Arial;background-color: #FFFFCC;color:black;}&quot;

        W &quot;TH.dbListTH {font-size:10px;color:white;background-color:#436ea9;}&quot;
        W &quot;A.dbListTH {font-size:10px;color:white;text-decoration:underline;font-family:Tahoma,Arial;Verdana;}&quot;
        W &quot;A.dbListTH:Link {font-size:10px;color:white;text-decoration:none;font-family:Tahoma,Arial;}&quot;
        W &quot;A.dbListTH:Visited {font-size:10px;color:white;text-decoration:none;font-family:Tahoma,Arial;}&quot;
        W &quot;A.dbListTH:Active {font-size:10px;color:white;text-decoration:none;font-family:Tahoma,Arial;}&quot;
        W &quot;A.dbListTH:Hover {font-size:10px;text-decoration:none;font-family:Tahoma,Arial;background-color: #FFFFCC;color:black;}&quot;

        W &quot;TD.dbListTD {Font-family:Verdana;font-weight:normal;font-size:10px;color:black;}&quot;
        W &quot;A.dbListTD {font-size:10px;color:black;text-decoration:underline;font-family:Verdana,Tahoma,Arial;}&quot;
        W &quot;A.dbListTD:Link {font-size:10px;color:black;text-decoration:underline;font-family:Verdana,Tahoma,Arial;}&quot;
        W &quot;A.dbListTD:Visited {font-size:10px;color:black;text-decoration:underline;font-family:Verdana,Tahoma,Arial;}&quot;
        W &quot;A.dbListTD:Active {font-size:10px;color:black;text-decoration:underline;font-family:Verdana,Tahoma,Arial;}&quot;
        W &quot;A.dbListTD:Hover {font-size:10px;text-decoration:none;font-family:Verdana,Tahoma,Arial;background-color: #FFFFCC;color:black;}&quot;

        W &quot;TH.dbListNames {font-size:10px;color:white;background-color:#385C8E;}&quot;
        W &quot;TH.dbListNamesSort {font-size:10px;color:white;background-color:#F00000;}&quot;

        W &quot;select {font-family:Tahoma;font-size:10px;font-weight:bold;color:#000066;border-style:solid;border-color:#0066CC;background-color: #F6F6F6;}&quot;
        W &quot;input {font-family:Tahoma;font-size:10px;font-weight:bold;color:#000066;padding-left:3px;padding-right:3px;background-color: #F6F6F6;}&quot;
        W &quot;.cflat  {font-size:10px;font-family:Tahoma;background-color:#606060;color:#FFFFFF;font-weight:bold;cursor:hand;}&quot;
        W &quot;.cflat1  {font-size:10px;font-family:Verdana;background-color:#436ea9;color:#FFFFFF;font-weight:bold;cursor:hand;border:0px;height:12px;width:50px;}&quot;
        W &quot;.tflat  {font-size : 10px; font-family : Verdana;         BORDER-BOTTOM: 1px solid #080888; BORDER-LEFT: 1px solid #080888; BORDER-RIGHT: 1px solid #080888; BORDER-TOP: 1px solid #080888;}&quot;
        W &quot;SPAN.searchword { background-color:yellow; }&quot;
        W &quot;//--&gt;&quot;
        W &quot;&lt;/style&gt;&quot;
        W &quot;&lt;script language=&quot;&quot;javascript&quot;&quot; type=&quot;&quot;text/javascript&quot;&quot;&gt;&quot;
        W &quot;&lt;!--&quot;
        W &quot;function SelectPageTop (){&quot;
        W &quot;document.location = '&quot; &amp; strInc &amp; &quot;?sort=' + document.frmPage1.frmOrderBy.value + '&amp;page=' + document.frmPage1.PageNbr.value + '&amp;pagesize=' + document.frmPage1.frmRecordsPerPage.value + '&amp;strKeyWords=' + document.frmPage1.frmKeyWords.value + '&amp;mode=' + document.frmPage1.frmMode.value + '&amp;table=' + document.frmPage1.Table.value;}&quot;
        W &quot;function SelectPageBottom (){&quot;
        W &quot;document.location = '&quot; &amp; strInc &amp; &quot;?sort=' + document.frmPage.frmOrderBy.value + '&amp;page=' + document.frmPage.PageNbr.value + '&amp;pagesize=' + document.frmPage.frmRecordsPerPage.value + '&amp;strKeyWords=' + document.frmPage.frmKeyWords.value + '&amp;mode=' + document.frmPage.frmMode.value + '&amp;table=' + document.frmPage.Table.value;}&quot;
        W &quot;function SelectRecordsPerPageTop (){&quot;
        W &quot;document.location = '&quot; &amp; strInc &amp; &quot;?sort=' + document.frmRPP1.fOrderBy.value + '&amp;pagesize=' + document.frmRPP1.RPP.value + '&amp;strKeyWords=' + document.frmRPP1.fKeyWords.value + '&amp;mode=' + document.frmRPP1.fMode.value + '&amp;table=' + document.frmRPP1.Table.value;}&quot;
        W &quot;function SelectRecordsPerPageBottom (){&quot;
        W &quot;document.location = '&quot; &amp; strInc &amp; &quot;?sort=' + document.frmRPP.fOrderBy.value + '&amp;pagesize=' + document.frmRPP.RPP.value + '&amp;strKeyWords=' + document.frmRPP.fKeyWords.value + '&amp;mode=' + document.frmRPP.fMode.value + '&amp;table=' + document.frmRPP.Table.value;}&quot;
        W &quot;function clearfield(){&quot;
        W &quot;document.frmSearch.strKeyWords.value = '';}&quot;
        W &quot;function clearfieldfind(){&quot;
        W &quot;document.frmFind.q.value = '';}&quot;

        W &quot;var times = 0;&quot;
        W &quot;var hex = function(n){return (n&lt;16?'0':'')+n.toString(16);};&quot;
        W &quot;function highlight( s, o ) {&quot;
        W &quot;if( !s ) { return 0; }&quot;
        W &quot;var d = document, f = d.forms.f.elements;&quot;
        W &quot;if( !f.regex.checked ) { s = s.replace( /([\\|^$()[\]{}.*+?])/g, '\\$1' ); }&quot;
        W &quot;if( /^\s*$/.test(s) ) { return 0; }&quot;
        W &quot;if( !f.phrase.checked ) { s = s.split( /\s+/ ).join( '|' ); }&quot;
        W &quot;o = [ o || d.documentElement || d.body ];&quot;
        W &quot;var r = new RegExp( s, f.cases.checked ? 'g' : 'gi' ),&quot;
        W &quot;h = d.createElement('span'), i = 0, j, k, l, m, n=0, t;&quot;
        W &quot;times++;&quot;
        W &quot;h.style.color = '#000';&quot;
        W &quot;h.style.backgroundColor = '#'+( times%2 ? ''+hex((times%5)*51)+'ff' : 'ff'+hex(((times+1)%5)*51)+'' )+'00';&quot;
        W &quot;do {&quot;
        W &quot;m = o[i];&quot;
        W &quot;if( m.nodeType === 3 ) {&quot;
        W &quot;r.lastIndex = 0;&quot;
        W &quot;l = r.exec(m.nodeValue);&quot;
        W &quot;if( l !== null ) {&quot;
        W &quot;k = l[0].length;&quot;
        W &quot;if( r.lastIndex &gt; k ) {&quot;
        W &quot;m.splitText( r.lastIndex - k );&quot;
        W &quot;m = m.nextSibling;}&quot;
        W &quot;if( m.nodeValue.length &gt; k ) {&quot;
        W &quot;m.splitText(k);&quot;
        W &quot;o[i++] = m.nextSibling;}&quot;
        W &quot;t = h.cloneNode( true );&quot;
        W &quot;t.appendChild( d.createTextNode( l[0] ) );n++;&quot;
        W &quot;m.parentNode.replaceChild( t, m );}&quot;
        W &quot;} else {&quot;
        W &quot;j = m.childNodes.length;&quot;
        W &quot;while (j) { o[i++] = m.childNodes.item(--j); }}&quot;
        W &quot;} while(i--); return n;}&quot;
        W &quot;function unhighlight( s, o ) {&quot;
        W &quot;var d = document;&quot;
        W &quot;o = o || d.documentElement || d.body;&quot;
        W &quot;s = s.replace(/([\\|^$()[\]{}.*+?])/g, '\\$1');&quot;
        W &quot;var a = o.getElementsByTagName('span'), i = a.length, j,&quot;
        W &quot;re = new RegExp( '^' + s + '$', 'i' );&quot;
        W &quot;while(i--) {&quot;
        W &quot;j = a[i].firstChild;&quot;
        W &quot;if( j ) {&quot;
        W &quot;if( j.nodeType === 3 &amp;&amp; re.test( j.nodeValue ) ) {&quot;
        W &quot;a[i].parentNode.replaceChild( document.createTextNode( j.nodeValue ), a[i] );&quot;
        W &quot;}}}&quot;
        W &quot;return false;}&quot;

        W &quot;function hi(f) { f = f.elements;&quot;
        W &quot; f.find.value = highlight( f.q.value ) + 'x ' + f.q.value;&quot;
        W &quot; window.setTimeout( 'document.forms.f.elements.find.value=&quot;&quot; CERCA &quot;&quot; ;', 3500 );return false;&quot;
        W &quot;}&quot;
        W &quot;function openit(){&quot;
        W &quot;var which='&quot;&amp;strIncPath&amp;&quot;info.asp'&quot;
        W &quot;whichit=window.open(which,'','width=350,height=300')&quot;
        W &quot;}&quot;
        W &quot;// --&gt;&quot;
        W &quot;&lt;/script&gt;&quot;

'On error resume next
                If Request.form(&quot;compact&quot;) = &quot;compact&quot; Then
                        w &quot;&lt;b style=&quot;&quot;background-color:yellow;&quot;&quot;&gt;&quot;
                                CompactDB strProvider, strDbSource, autoPath, Session(&quot;db&quot;), false
                        w &quot;&lt;/b&gt;&quot;
                End if


w &quot;&lt;table border=0 cellspacing=0 cellpadding=2 style='border:solid 1px #999999;' bgcolor=#FFFFFF align=center&gt;&lt;tr &quot; &amp; strTRAttributes &amp; &quot;&gt;&lt;td &quot; &amp; strTRAttributes &amp; &quot;&gt;&quot;
  i = 0
  strSort = request(&quot;sort&quot;)
  strPageName = Request.serverVariables(&quot;SCRIPT_NAME&quot;)
  intPageSize = request(&quot;pagesize&quot;)
  intCurrentPage = request(&quot;page&quot;)
        if intCurrentPage = &quot;&quot; then intCurrentPage = 1 end if

'---- Check for Internet Explorer
        checkIE = True 'False
        if (checkIE) then
                if Instr(Request.ServerVariables(&quot;HTTP_USER_AGENT&quot;), &quot;IE&quot;) =&gt; 1 Then IE = True
        End if

'---- find primary key field
  bReturn = False
  Set db = Server.CreateObject(&quot;ADODB.Connection&quot;)
  Set rsSchema = Server.CreateObject(&quot;ADODB.Recordset&quot;)
        db.Open objConn
        rsSchema.CursorType = 3
        rsSchema.ActiveConnection = db
        Set rsSchema = db.openSchema(adSchemaIndexes)
                do while (not rsSchema.EOF) and (not bReturn)
                        if LCase(rsSchema(&quot;TABLE_NAME&quot;)) = LCase(strDbTable) then
                                if rsSchema(&quot;PRIMARY_KEY&quot;) then
                                        bReturn = True
                                        strPrimaryKey = rsSchema(&quot;COLUMN_NAME&quot;) &amp; DefaultSort ' &quot;desc&quot;
                                        strDefaultSort = rsSchema(&quot;COLUMN_NAME&quot;) &amp; DefaultSort ' &quot;desc&quot;
                                end if
                        end if
                        rsSchema.MoveNext
                loop
  rsSchema.Close
  Set rsSchema = Nothing

'---- if no Primary key field use the first table field as default
  if strDefaultSort = &quot;&quot; then
         Set rsS = Server.CreateObject(&quot;ADODB.Recordset&quot;)
        rsS.CursorLocation = 3
        On error resume next
        rsS.Open strSQL, objConn, 3
                for each field in rsS.Fields
                        strPrimaryKey = field.name &amp; DefaultSort ' &quot;desc&quot;
                        strDefaultSort = field.name &amp; DefaultSort ' &quot;desc&quot;
                        exit for
                next
          rsS.Close
        On error goto 0
          Set rsS = Nothing
  end if
        if strSort = &quot;&quot; then strSort = strDefaultSort end if
  db.Close
  Set db = Nothing

'---- Open table -----------------------
  set RS = server.CreateObject(&quot;adodb.recordset&quot;)
  with RS
        .CursorLocation=3
        If instr(strSort, &quot;desc&quot;) &gt; 0 Then sSort = replace(strSort,&quot;desc&quot;,&quot; desc&quot;) else sSort = strSort
        If instr(strSort, &quot;asc&quot;) &gt; 0 Then sSort = replace(strSort,&quot;asc&quot;,&quot; asc&quot;)

On error resume next
        .Open strSQL &amp; &quot; order by &quot; &amp; sSort, objConn, 3
        If Err.number &lt;&gt; 0 Then
                If Err.number = -2147217900 Then
                        w &quot;&lt;span STYLE=&quot;&quot;font-family:verdana;font-size:11px;color:navy;&quot;&quot;&gt;&quot;
                        w &quot;&lt;B STYLE=&quot;&quot;color:crimson;&quot;&quot;&gt;ERRORE: &lt;/b&gt;Controllare se c'Ã¨ un carattere di spazio nel nome della tabella (&quot; &amp; strDbTable &amp; &quot;).&lt;br&gt;&quot;
                        w &quot;&lt;B STYLE=&quot;&quot;color:crimson;&quot;&quot;&gt;SOLUTIONE: &lt;/b&gt;E'il caso di rinominare la tabella, senza spazi o seguire questaprocedura &quot;
                        W &quot;&lt;a href=&quot;&quot;http://support.microsoft.com/?kbid=316975&quot;&quot; target=_blank style=&quot;&quot;text-decoration:underline;color:blue;&quot;&quot;&gt;&quot;
                        w &quot;ARTICLE&lt;/a&gt; nella Knowledge Base Microsoft.&lt;br&gt;&quot;
                End if
                w &quot;&lt;B STYLE=&quot;&quot;color:crimson;&quot;&quot;&gt;ERRORE NUMBERO:&lt;/b&gt; (&quot; &amp; Err.number &amp; &quot;)&lt;br&gt;&quot;
                w &quot;&lt;B STYLE=&quot;&quot;color:crimson;&quot;&quot;&gt;ERRORE DESCRIZIONE:&lt;/b&gt; (&quot; &amp; Err.description &amp; &quot;)&lt;/span&gt;&quot;
        end if
        FieldsCount = .fields.count
        If request(&quot;strKeyWords&quot;) &lt;&gt; &quot;&quot; Then
                strKeyWords = fixapos(request(&quot;strKeyWords&quot;))
        End if
        If request(&quot;mode&quot;) &lt;&gt; &quot;&quot; Then
                TheMode = request(&quot;mode&quot;)
        End if

        '--- Save strKeyWords into array&quot;
If instr(1,strKeyWords,&quot; &quot;,1) &gt; 0 then
   MorethanOneKeywords = &quot;yes&quot;
   strKeyWordsArray = Split(strKeyWords,&quot; &quot;)
   Wmax = ubound(strKeyWordsArray)
        For i = 0 to Wmax
                if len(strKeyWordsArray(i)) &lt; 3 then
                        msg = &quot; &lt;span style=&quot;&quot;font-size:10px;&quot;&quot;&gt;(Termine di ricerca &lt;b style=&quot;&quot;color:#f00000;&quot;&quot;&gt;&quot; &amp; strKeyWordsArray(i) &amp; &quot;&lt;/b&gt; Ã¨ troppo breve, per cui non Ã¨ stato usato)&lt;/span&gt;&quot;
                        strKeyWordsArray(i) = &quot;&quot;
                    end if
          next
end if

        '--- First we will get &quot;StrOpen&quot;, wich is latter use to filter the database
If MorethanOneKeywords = &quot;yes&quot; then

   if instr(1,strKeyWords,&quot; &quot;,1) &gt; 0 AND TheMode = &quot;OR&quot; then
      For i = 0 to Wmax
                if strKeyWordsArray(i) &lt;&gt; &quot;&quot; then
                        For j = 1 to FieldsCount - 1
                                StrOpen= StrOpen &amp; &quot; OR &quot; &amp; .fields(j).name &amp; &quot; LIKE '%&quot; &amp; strKeyWordsArray(i) &amp; &quot;%'&quot;
                        next
                end if
      next
   end if

   if instr(1,strKeyWords,&quot; &quot;,1) &gt; 0 AND TheMode = &quot;AND&quot; then
      For j = 1 to FieldsCount - 1
        StrOpenInContruction = &quot;&quot;
                For i = 0 to Wmax
                        if strKeyWordsArray(i) &lt;&gt; &quot;&quot; then
                                StrOpenInContruction = StrOpenInContruction &amp; &quot; AND &quot; &amp; .fields(j).name &amp; &quot; LIKE '%&quot; &amp; strKeyWordsArray(i) &amp; &quot;%'&quot;
                        end if
                next
                StrOpen = StrOpen &amp; &quot; OR (&quot; &amp; Right(StrOpenInContruction, Len(StrOpenInContruction) - 5) &amp; &quot;)&quot;
      next
   end if

   For j = 1 to FieldsCount - 1
      StrOpen = StrOpen &amp; &quot; OR &quot; &amp; .fields(j).name &amp; &quot; LIKE '%&quot; &amp; strKeyWords &amp; &quot;%'&quot;
   next

end if

        '--- Build the query to find keywords ----------------------------------
        If strKeyWords &lt;&gt; &quot;&quot; AND instr(1,strKeyWords,&quot; &quot;,1) = 0 then

                If Len(strCondition) = 0 Then
                        strSQL = strSQL &amp;  &quot; WHERE (&quot; &amp; .fields(0).name &amp; &quot; LIKE '%&quot; &amp; strKeyWords &amp; &quot;%'&quot;
                Else
                        strSQL = strSQL &amp;  &quot; AND (&quot; &amp; .fields(0).name &amp; &quot; LIKE '%&quot; &amp; strKeyWords &amp; &quot;%'&quot;
                End if

                        For i = 1 To FieldsCount - 1
                                strSQL = strSQL &amp;  &quot; OR &quot; &amp; .fields(i).name &amp; &quot; LIKE '%&quot; &amp; strKeyWords &amp; &quot;%'&quot;
                        next

                        strSQL = strSQL &amp; &quot;)&quot;


        Elseif strKeyWords &lt;&gt; &quot;&quot; AND instr(1,strKeyWords,&quot; &quot;,1) &gt; 0 Then

                If Len(strCondition) = 0 Then
                        strSQL = strSQL &amp; &quot; WHERE (&quot; &amp; Right(StrOpen,Len(StrOpen) - 3)
                Else
                        strSQL = strSQL &amp; &quot; AND (&quot; &amp; Right(StrOpen,Len(StrOpen) - 3)
                End if
                        strSQL = strSQL &amp; &quot;)&quot;

        Else
                strKeyWords = &quot;&quot;
        End if
        .Close

'----------- field search --------------------------------------------------------------------
        If instr(strSort, &quot;desc&quot;) &gt; 0 Then sSort = replace(strSort,&quot;desc&quot;,&quot; desc&quot;) else sSort = strSort
        If instr(strSort, &quot;asc&quot;) &gt; 0 Then sSort = replace(strSort,&quot;asc&quot;,&quot; asc&quot;)
        .Open strSQL &amp; &quot; order by &quot; &amp; sSort, objConn, 3
                '---for each field in the recordset
                for each field in RS.Fields
                        select1 = request(&quot;fieldname&quot;)
                        select2 = request(field.name)

                        If select1 = field.name Then
                                Session(field.name) = select2
                        End if

                        If len(Session(field.name)) &gt; 0 Then

                                if Session(field.name) = &quot;True&quot; then
                                                        fieldSQL = fieldSQL &amp; &quot; AND &quot; &amp; field.name &amp; &quot; = &quot; &amp; Session(field.name)
                                                elseif Session(field.name) = &quot;False&quot; Then
                                                        fieldSQL = fieldSQL &amp; &quot; AND &quot; &amp; field.name &amp; &quot; = &quot; &amp; Session(field.name)
                                                elseif IsNumeric(Session(field.name)) Then
                                                        fieldSQL = fieldSQL &amp; &quot; AND &quot; &amp; field.name &amp; &quot; LIKE &quot; &amp; replace(Session(field.name), &quot;,&quot;, &quot;.&quot;)
                                                else
                                                        fieldSQL = fieldSQL &amp; &quot; AND &quot; &amp; field.name &amp; &quot; LIKE '%&quot; &amp; fixapos(Session(field.name)) &amp; &quot;%'&quot;
                                                End if
                        Else
                                Session(field.name) = Empty
                        End if

                        if request(&quot;fieldSQL&quot;) &lt;&gt; &quot;&quot; then Session(field.name) = &quot;&quot;

                next

        If fieldSQL &gt; &quot;&quot; Then
                fieldSQL = &quot; WHERE (&quot; &amp; right(fieldSQL, len(fieldSQL) - 5) &amp; &quot;)&quot;
                if request(&quot;fieldSQL&quot;) &lt;&gt; &quot;&quot; then fieldSQL = &quot;&quot;
        End if
        .Close

 end with

if instr(strSQL,&quot;WHERE&quot;) &gt; 0 then
        fieldSQL = replace(fieldSQL, &quot;WHERE&quot;, &quot;AND&quot;)
end if

If fieldSQL &gt; &quot;&quot; Then
        strSQL = strSQL &amp; &quot; &quot; &amp; fieldSQL
End if

        If instr(strSort, &quot;desc&quot;) &gt; 0 Then sSort = replace(strSort,&quot;desc&quot;,&quot; desc&quot;) else sSort = strSort
        If instr(strSort, &quot;asc&quot;) &gt; 0 Then sSort = replace(strSort,&quot;asc&quot;,&quot; asc&quot;)
        RS.Open strSQL &amp; &quot; order by &quot; &amp; sSort, objConn, 3

If RS.EOF Then bnorec = true

        If intPageSize = &quot;&quot; Then intPageSize = DefaultRecordsPerPage
        If RS.RecordCount &gt; DefaultRecordsPerPage Then
                UpperNav = True                                                                        '--- add the upper navigation bar ---
        Else
                UpperNav = False                                                                        '--- remove the upper navigation bar ---
        End if

                If (Not(UpperNav) AND Not(LowerNav)) OR Ucase(intPageSize) = &quot;ALL&quot; Then intPageSize = RS.RecordCount
                If isNumeric(intPagesize) Then
                        RS.PageSize = Cint(intPageSize)
                Else
                        RS.PageSize = DefaultRecordsPerPage
                End if
                intTotalPages = RS.PageCount
                intCurrentRecord = RS.AbsolutePosition
if not bnorec then
        RS.AbsolutePage = intCurrentPage
end if
                intTotalRecords = RS.RecordCount
                intStart = RS.AbsolutePosition
                If intStart + RS.PageSize &gt; RS.RecordCount Then intFinish = RS.RecordCount Else intFinish = intStart + (RS.PageSize - 1) End if

        strSQLString = strSQL

'--------------------------------------------------------------
                If Session(&quot;msg&quot;) &lt;&gt; &quot;&quot; Then
                        w &quot;&lt;b style=&quot;&quot;background-color:yellow;&quot;&quot;&gt;&quot; &amp; Session(&quot;msg&quot;) &amp; &quot;&lt;/b&gt;&quot;
                        Session(&quot;msg&quot;) = &quot;&quot;
                End if
	if request(&quot;strKeyWords&quot;) &lt;&gt; &quot;&quot; then
        '--- show search result and words find -------------
        w &quot;&lt;table border=0 CellSpacing=0 CellPadding=0 style='border:solid 1px #999999;'&gt;&lt;tr &quot; &amp; strTRAttributes &amp; &quot;&gt;&lt;td nowrap &quot; &amp; strTRAttributes &amp; &quot;&gt;&quot;
        w &quot;&amp;nbsp;Risultato della ricerca per parola chiave:&amp;nbsp;&lt;/td&gt;&lt;td &quot; &amp; strTRAttributes &amp; &quot;&gt;&quot;
        w &quot;&lt;b style=&quot;&quot;color:#F00000;background-color:yellow;&quot;&quot;&gt;&amp;nbsp;&quot; &amp; request(&quot;strKeyWords&quot;) &amp; &quot;&amp;nbsp;&lt;/b&gt;&amp;nbsp;&quot;
        w &quot;&lt;/TD&gt;&lt;/TR&gt;&lt;/TABLE&gt;&quot;
	End if

        w &quot;&lt;table border=0 cellspacing=1 cellpadding=0 style=&quot;&quot;border: solid 1px #999999;font-family:Verdana;font-size:7pt;color:NAVY;&quot;&quot;&gt;&lt;tr&gt;&lt;td vAlign=top&gt;&quot;
                Call Getdb()
        w &quot;&lt;/td&gt;&lt;td nowrap&gt;&amp;nbsp;&quot;
        w &quot;&lt;a href=&quot;&quot;&quot; &amp;Request.servervariables(&quot;SCRIPT_NAME&quot;)&amp;&quot;?&quot;&amp;Request.querystring&amp;&quot;&quot;&quot; title=&quot;&quot; Aggiorna &quot;&quot;&gt;&quot;
        w &quot;&lt;img src=&quot;&quot;&quot; &amp; strimgDir &amp; &quot;refresh.gif&quot;&quot; name=&quot;&quot;Refresh&quot;&quot; border=&quot;&quot;0&quot;&quot; height=&quot;&quot;17&quot;&quot; width=&quot;&quot;15&quot;&quot; alt=&quot;&quot; Aggiorna &quot;&quot;&gt;&lt;/a&gt;&quot;
        w &quot;&lt;/td&gt;&quot;

        '--- Toggle hide columns management
        if Request(&quot;hf&quot;) = &quot;ok&quot; Then
                If Session(&quot;bHideField&quot;) = False Then Session(&quot;bHideField&quot;) = True else Session(&quot;bHideField&quot;) = False end if
        end if
        If ISNULL(Session(&quot;bHideField&quot;)) Then Session(&quot;bHideField&quot;) = bHideField else bHideField = Session(&quot;bHideField&quot;) end if

                w &quot;&lt;FORM name=&quot;&quot;frmHideField&quot;&quot; action=&quot;&quot;&quot;&quot; method=POST&gt;&lt;td nowrap valign=top&gt;&amp;nbsp;&quot;
                w &quot;&lt;input type=&quot;&quot;checkbox&quot;&quot; style=&quot;&quot;cursor:hand;width:18px;height:18px;&quot;&quot; name=&quot;&quot;hidefield&quot;&quot; value=&quot;&quot;Enable&quot;&quot; onClick=&quot;&quot;this.form.submit();&quot;&quot;&quot;
                If Session(&quot;bhidefield&quot;) Then w &quot; checked style=&quot;&quot;background-color:#F00000;&quot;&quot; title=&quot;&quot; Disattivare Nascondi colonna funzione di campo &quot;&quot;&gt;&quot; Else w &quot; style=&quot;&quot;background-color:#D9D9D9;&quot;&quot; title=&quot;&quot; Nasconde la colonna funzione di campo &quot;&quot;&gt;&quot; End if
                w &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;fKeyWords&quot;&quot; value=&quot;&quot;&quot; &amp; replace(strKeyWords, &quot; &quot;, &quot;+&quot;) &amp; &quot;&quot;&quot;&gt;&quot;
                w &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;fOrderBy&quot;&quot; value=&quot;&quot;&quot; &amp; strSort &amp; &quot;&quot;&quot;&gt;&quot;
                w &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;fMode&quot;&quot; value=&quot; &amp; TheMode &amp; &quot;&gt;&quot;
                w &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;Table&quot;&quot; value=&quot; &amp; strDbTable &amp; &quot;&gt;&quot;
                w &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;pagesize&quot;&quot; value=&quot; &amp; request(&quot;pagesize&quot;) &amp; &quot;&gt;&quot;
                w &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;hf&quot;&quot; value=&quot;&quot;ok&quot;&quot;&gt;&quot;
                w &quot;&lt;/td&gt;&lt;/form&gt;&quot;

        '--- Column description insthead of column name management
        If bShowColDescription AND strDbType = &quot;Access&quot; Then
                if Request(&quot;gcd&quot;) = &quot;ok&quot; Then
                        If Session(&quot;bGetCD&quot;) = False Then Session(&quot;bGetCD&quot;) = True else Session(&quot;bGetCD&quot;) = False end if
                end if
                If ISNULL(Session(&quot;bGetCD&quot;)) Then Session(&quot;bGetCD&quot;) = bShowColDescription else bShowColDescription = Session(&quot;bGetCD&quot;) end if

                   w &quot;&lt;FORM name=&quot;&quot;frmGetColDescription&quot;&quot; action=&quot;&quot;&quot;&quot; method=POST&gt;&lt;td nowrap valign=top&gt;&amp;nbsp;&quot;
                   w &quot;&lt;input type=&quot;&quot;checkbox&quot;&quot; style=&quot;&quot;cursor:hand;width:18px;height:18px;&quot;&quot; name=&quot;&quot;GetCD&quot;&quot; value=&quot;&quot;Enable&quot;&quot; onClick=&quot;&quot;this.form.submit();&quot;&quot;&quot;
                   If Session(&quot;bGetCD&quot;) Then w &quot; checked style=&quot;&quot;background-color:#F00000;&quot;&quot; title=&quot;&quot; Disabilita la visualizzazione della colonna descrizione &quot;&quot;&gt;&quot; Else w &quot; style=&quot;&quot;background-color:#D9D9D9;&quot;&quot; title=&quot;&quot; Abilitare la visualizzazione della colonna Descrizione &quot;&quot;&gt;&quot; End if
                   w &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;fKeyWords&quot;&quot; value=&quot;&quot;&quot; &amp; replace(strKeyWords, &quot; &quot;, &quot;+&quot;) &amp; &quot;&quot;&quot;&gt;&quot;
                   w &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;fOrderBy&quot;&quot; value=&quot;&quot;&quot; &amp; strSort &amp; &quot;&quot;&quot;&gt;&quot;
                   w &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;fMode&quot;&quot; value=&quot; &amp; TheMode &amp; &quot;&gt;&quot;
                   w &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;Table&quot;&quot; value=&quot; &amp; strDbTable &amp; &quot;&gt;&quot;
                   w &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;pagesize&quot;&quot; value=&quot; &amp; request(&quot;pagesize&quot;) &amp; &quot;&gt;&quot;
                   w &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;gcd&quot;&quot; value=&quot;&quot;ok&quot;&quot;&gt;&quot;
                   w &quot;&lt;/td&gt;&lt;/form&gt;&quot;
        End if

        '--- Print all records management
        If bShowPrint Then
                W &quot;&lt;td nowrap valign=middle&gt;&amp;nbsp;&quot;
                w &quot;&lt;a href=&quot;&quot;&quot; &amp; strIncPath &amp; &quot;print.asp?Q=&quot; &amp; Server.Urlencode(strSQLString) &amp; &quot;&amp;dsn=&quot; &amp; Server.Urlencode(dsn) &amp; &quot;&amp;primarykey=&quot; &amp; Replace(strDefaultSort, DefaultSort, &quot;&quot;) &amp; &quot;&amp;strdbtable=&quot; &amp; strdbtable &amp; &quot;&quot;&quot; target=&quot;&quot;_blank&quot;&quot; title=&quot;&quot; STAMPA TUTTI I RECORDS (con filtro) &quot;&quot;&gt;&quot;
                w &quot;&lt;img src=&quot;&quot;&quot; &amp; strimgDir &amp; &quot;print.gif&quot;&quot; name=&quot;&quot;Print Record&quot;&quot; border=&quot;&quot;0&quot;&quot; height=&quot;&quot;15&quot;&quot; width=&quot;&quot;15&quot;&quot; alt=&quot;&quot; STAMPA TUTTI I RECORDS (con filtro) &quot;&quot;&gt;&lt;/a&gt;&quot;
                W &quot;&lt;/td&gt;&quot;
        End if

'--- if excel_export. true then display the command link
  			If bExcel_export Then
                W &quot;&lt;td nowrap valign=middle&gt;&amp;nbsp;&quot;
                w &quot;&lt;a href=&quot;&quot;&quot; &amp; strIncPath &amp; &quot;excel_export.asp?objConn=&quot; &amp; objConn &amp; &quot;&amp;strSQL=&quot; &amp; Server.Urlencode(strSQL) &amp; &quot;&amp;strSort=&quot; &amp; strSort &amp; &quot;&quot;&quot; target=_blank title=&quot;&quot; SCARICA TUTTI I RECORD IN UN DOCUMENTO EXCEL (con filtro)&quot;&quot;&gt;&quot;
                 w &quot;&lt;img src=&quot;&quot;&quot; &amp; strimgDir &amp; &quot;excel1.gif&quot;&quot; border=0 width=16 height=16 align=absmiddle alt=&quot;&quot; SCARICA TUTTI I RECORD IN UN DOCUMENTO EXCEL (con filtro) &quot;&quot;&gt; &lt;/a&gt;&quot;
                W &quot;&lt;/td&gt;&quot;
        End if

        '--- Compact db management
        If strDbType = &quot;Access&quot; AND bShowCompact AND bEnableEdit Then
            w &quot;&lt;FORM name=&quot;&quot;frmCompactDb&quot;&quot; action=&quot;&quot;&quot;&quot; method=POST&gt;&lt;td nowrap valign=middle&gt;&amp;nbsp;&quot;
            w &quot;&lt;input type=&quot;&quot;image&quot;&quot; src=&quot;&quot;&quot; &amp; strimgDir &amp; &quot;compact.gif&quot;&quot; height=&quot;&quot;15&quot;&quot; width=&quot;&quot;15&quot;&quot; align=&quot;&quot;absmiddle&quot;&quot; alt=&quot;&quot; COMPATTA ARCHIVIO &quot; &amp; session(&quot;db&quot;) &amp;&quot; &quot;&quot; border=0 style=&quot;&quot;border:none;cursor:hand;width:15px;height:15px;&quot;&quot; value=&quot;&quot;compact&quot;&quot; onClick=&quot;&quot;this.form.submit();&quot;&quot;&gt;&quot;
            w &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;fKeyWords&quot;&quot; value=&quot;&quot;&quot; &amp; replace(strKeyWords, &quot; &quot;, &quot;+&quot;) &amp; &quot;&quot;&quot;&gt;&quot;
            w &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;fOrderBy&quot;&quot; value=&quot;&quot;&quot; &amp; strSort &amp; &quot;&quot;&quot;&gt;&quot;
            w &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;fMode&quot;&quot; value=&quot; &amp; TheMode &amp; &quot;&gt;&quot;
            w &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;Table&quot;&quot; value=&quot; &amp; strDbTable &amp; &quot;&gt;&quot;
            w &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;pagesize&quot;&quot; value=&quot; &amp; request(&quot;pagesize&quot;) &amp; &quot;&gt;&quot;
            w &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;compact&quot;&quot; value=&quot;&quot;compact&quot;&quot;&gt;&quot;
            w &quot;&lt;/td&gt;&lt;/form&gt;&quot;
        End if

			W &quot;&lt;td nowrap&gt;&amp;nbsp;&quot;
			W &quot;&lt;a href='javascript:openit()'&gt;&lt;img src=&quot;&quot;&quot; &amp; strimgDir &amp; &quot;help.gif&quot;&quot; border=0 alt=&quot;&quot; Informazioni sull'applicazione &quot;&quot; width=16 height=17&gt;&lt;/a&gt;&quot;
' ##########################################
			' Modificato per visualizzare l'uscita
			'############################################
'		If bLogin Then '--- Show logout button
'			w &quot;&lt;/td&gt;&lt;td nowrap valign=bottom&gt;&amp;nbsp;&quot;
'			W &quot;&lt;a href='?logout=yes'&gt;&lt;img src=&quot;&quot;&quot; &amp; strimgDir &amp; &quot;logout.gif&quot;&quot; border=0 alt=&quot;&quot; Logout &quot;&quot; width=16 height=16&gt;&lt;/a&gt;&quot;
'		End if
		
 '--- Show logout button
			w &quot;&lt;/td&gt;&lt;td nowrap valign=bottom&gt;&amp;nbsp;&quot;
			' W &quot;&lt;a href='?logout=yes'&gt;&lt;img src=&quot;&quot;&quot; &amp; strimgDir &amp; &quot;logout.gif&quot;&quot; border=0 alt=&quot;&quot; Logout &quot;&quot; width=16 height=16&gt;&lt;/a&gt;&quot;
			W &quot;&lt;a href='http://www.martinucci-regali.com/admin/default.asp'&gt;&lt;img src=&quot;&quot;&quot; &amp; strimgDir &amp; &quot;logout.gif&quot;&quot; border=0 alt=&quot;&quot; Logout &quot;&quot; width=16 height=16&gt;&lt;/a&gt;&quot;
			http://www.martinucci-regali.com/admin/default.asp
		'End if					
        w &quot;&lt;/td&gt;&lt;td nowrap style='text-decoration:none;color:NAVY;font-size:9px;'&gt;&quot;
        w &quot;&amp;nbsp;dbList v&quot; &amp; lVersion &amp; &quot; &quot;
        w &quot;&lt;b&gt;&lt;a href='' style='text-decoration:none;color:NAVY;font-size:9px;' Target=_new title=''&gt;DaMa SOFTWARE&lt;/a&gt;&amp;nbsp;&lt;/b&gt;&quot;
        w &quot;&lt;/td&gt;&lt;td&gt;&amp;nbsp;&quot;
        w &quot;&lt;/td&gt;&lt;/tr&gt;&lt;/table&gt;&quot;
        w &quot;&lt;span style=&quot;&quot;font-size:1px;&quot;&quot;&gt;&amp;nbsp;&lt;/span&gt;&lt;br&gt;&quot;


'--- navigation routines --------------------------------
                Dim strFirstp
                Dim strPrevp
                Dim strNextp
                Dim strLastp
                Dim strFirstpTitle
                Dim strPrevpTitle
                Dim strNextpTitle
                Dim strLastpTitle
                Dim strPagep
                Dim strOfp
                Dim strNorfp
                Dim strAll
                Dim strimgFirstMon
                Dim strimgPrevMon
                Dim strimgNextMon
                Dim strimgLastMon
                Dim strimgFirstMoff
                Dim strimgPrevMoff
                Dim strimgNextMoff
                Dim strimgLastMoff

                strPagep = &quot;Pag. &quot;
                strFirstpTitle = &quot; Prima &quot;
                strPrevpTitle = &quot; Precedente &quot;
                strNextpTitle = &quot; Prossima &quot;
                strLastpTitle = &quot; Ultima &quot;
                strOfp = &quot; di &quot;
                strAll = &quot; Tutti i record visualizzati &quot;
                strNorfp = &quot;Nessun record trovato&quot;

                strimgFirstMon = &quot;2first.gif&quot; '--- OnMouseOver
                strimgPrevMon = &quot;2prev.gif&quot; '--- OnMouseOver
                strimgNextMon = &quot;2next.gif&quot; '--- OnMouseOver
                strimgLastMon = &quot;2last.gif&quot; '--- OnMouseOver

                strimgFirstMoff = &quot;22first.gif&quot; '--- OnMouseOut
                strimgPrevMoff = &quot;22prev.gif&quot; '--- OnMouseOut
                strimgNextMoff = &quot;22next.gif&quot; '--- OnMouseOut
                strimgLastMoff = &quot;22last.gif&quot; '--- OnMouseOut

                strFirstp = &quot;&lt;img src=&quot;&quot;&quot; &amp; strimgDir &amp; strimgFirstMoff &amp; &quot;&quot;&quot; align=absmiddle border=1 alt=&quot;&quot;&quot; &amp; strFirstpTitle &amp; strPagep &amp;&quot;&quot;&quot; name=&quot;&quot;strimgFirstTop&quot;&quot; style=&quot;&quot;border-color:black;&quot;&quot;&gt;&quot;
                strPrevp = &quot;&lt;img src=&quot;&quot;&quot; &amp; strimgDir &amp; strimgPrevMoff &amp; &quot;&quot;&quot; align=absmiddle border=1 alt=&quot;&quot;&quot; &amp; strPrevpTitle &amp; &quot;(&quot; &amp; strPagep &amp; intCurrentPage - 1 &amp; &quot;)&quot;&quot; name=&quot;&quot;strimgPrevTop&quot;&quot; style=&quot;&quot;border-color:black;&quot;&quot;&gt;&quot;
                strNextp = &quot;&lt;img src=&quot;&quot;&quot; &amp; strimgDir &amp; strimgNextMoff &amp; &quot;&quot;&quot; align=absmiddle border=1 alt=&quot;&quot;&quot; &amp; strNextpTitle &amp; &quot;(&quot; &amp; strPagep &amp; intCurrentPage + 1 &amp; &quot;)&quot;&quot; name=&quot;&quot;strimgNextTop&quot;&quot; style=&quot;&quot;border-color:black;&quot;&quot;&gt;&quot;
                strLastp = &quot;&lt;img src=&quot;&quot;&quot; &amp; strimgDir &amp; strimgLastMoff &amp; &quot;&quot;&quot; align=absmiddle border=1 alt=&quot;&quot;&quot; &amp; strLastpTitle &amp; &quot;(&quot; &amp; strPagep &amp; intTotalPages &amp; &quot;)&quot;&quot; name=&quot;&quot;strimgLastTop&quot;&quot; style=&quot;&quot;border-color:black;&quot;&quot;&gt;&quot;

        '--- give links to move between pages
        strMoveFirst = &quot;&lt;a href=&quot; &amp; strPageName &amp; &quot;?table=&quot;&amp; strDbTable &amp;&quot;&amp;sort=&quot;&amp; strSort &amp; &quot;&amp;page=1&amp;pagesize=&quot; &amp; intPageSize &amp;_
         &quot;&amp;strKeyWords=&quot; &amp; replace(strKeyWords, &quot; &quot;, &quot;+&quot;) &amp; &quot;&amp;mode=&quot; &amp; TheMode &amp; &quot; &quot; &amp; strTHAttributes &amp;_
         &quot; title=&quot;&quot; Vai alla prima pagina &quot;&quot;&quot; &amp; _
          &quot; onMouseOver=&quot;&quot;document.strimgFirstTop.src='&quot; &amp; strimgDir &amp; strimgFirstMon &amp; &quot;'&quot;&quot;&quot; &amp; _
          &quot; onMouseOut=&quot;&quot;document.strimgFirstTop.src='&quot; &amp; strimgDir &amp; strimgFirstMoff &amp; &quot;'&quot;&quot;&gt;&quot; &amp; _
        strFirstp &amp; &quot;&lt;/A&gt;&amp;nbsp;&quot;

         strMovePrevious = &quot;&lt;a href=&quot; &amp; strPageName &amp; &quot;?table=&quot;&amp; strDbTable &amp;&quot;&amp;sort=&quot; &amp; strSort &amp; &quot;&amp;page=&quot; &amp; intCurrentPage - 1 &amp; &quot;&amp;pagesize=&quot; &amp; intPageSize &amp;_
         &quot;&amp;strKeyWords=&quot; &amp; replace(strKeyWords, &quot; &quot;, &quot;+&quot;) &amp; &quot;&amp;mode=&quot; &amp; TheMode &amp; &quot; &quot; &amp; strTHAttributes &amp; &quot; title=&quot;&quot;&quot; &amp; strPrevpTitle &amp; &quot;(&quot; &amp; strPagep &amp; intCurrentPage - 1 &amp; &quot;)&quot;&quot;&quot;&quot;&quot; &amp; _
        &quot; onMouseOver=&quot;&quot;document.strimgPrevTop.src='&quot; &amp; strimgDir &amp; strimgPrevMon &amp; &quot;'&quot;&quot;&quot; &amp; _
        &quot; onMouseOut=&quot;&quot;document.strimgPrevTop.src='&quot; &amp; strimgDir &amp; strimgPrevMoff &amp; &quot;'&quot;&quot;&gt;&quot; &amp; _
        strPrevp &amp; &quot;&lt;/A&gt;&amp;nbsp;&quot;

        strMoveNext = &quot;&lt;a href=&quot; &amp; strPageName &amp; &quot;?table=&quot;&amp; strDbTable &amp;&quot;&amp;sort=&quot;&amp; strSort &amp; &quot;&amp;page=&quot; &amp; intCurrentPage + 1 &amp; &quot;&amp;pagesize=&quot; &amp; intPageSize &amp;_
         &quot;&amp;strKeyWords=&quot; &amp; replace(strKeyWords, &quot; &quot;, &quot;+&quot;) &amp; &quot;&amp;mode=&quot; &amp; TheMode &amp; &quot; &quot; &amp; strTHAttributes &amp; &quot; title=&quot;&quot;&quot; &amp; strNextpTitle &amp; &quot;(&quot; &amp; strPagep &amp; intCurrentPage + 1 &amp; &quot;)&quot;&quot;&quot;&quot;&quot; &amp; _
        &quot; onMouseOver=&quot;&quot;document.strimgNextTop.src='&quot; &amp; strimgDir &amp; strimgNextMon &amp; &quot;'&quot;&quot;&quot; &amp; _
        &quot; onMouseOut=&quot;&quot;document.strimgNextTop.src='&quot; &amp; strimgDir &amp; strimgNextMoff &amp; &quot;'&quot;&quot;&gt;&quot; &amp; _
        strNextp &amp; &quot;&lt;/A&gt;&quot;

        strMoveLast = &quot;&lt;a href=&quot; &amp; strPageName &amp; &quot;?table=&quot;&amp; strDbTable &amp;&quot;&amp;sort=&quot;&amp; strSort &amp; &quot;&amp;page=&quot; &amp; intTotalPages &amp; &quot;&amp;pagesize=&quot; &amp; intPageSize &amp;_
         &quot;&amp;strKeyWords=&quot; &amp; replace(strKeyWords, &quot; &quot;, &quot;+&quot;) &amp; &quot;&amp;mode=&quot; &amp; TheMode &amp; &quot; &quot; &amp; strTHAttributes &amp; &quot; title=&quot;&quot;&quot; &amp; strLastpTitle &amp; &quot;(&quot; &amp; strPagep &amp; intTotalPages &amp; &quot;)&quot;&quot;&quot;&quot;&quot; &amp; _
        &quot; onMouseOver=&quot;&quot;document.strimgLastTop.src='&quot; &amp; strimgDir &amp; strimgLastMon &amp; &quot;'&quot;&quot;&quot; &amp; _
        &quot; onMouseOut=&quot;&quot;document.strimgLastTop.src='&quot; &amp; strimgDir &amp; strimgLastMoff &amp; &quot;'&quot;&quot;&gt;&quot; &amp; _
        strLastp &amp; &quot;&lt;/A&gt;&quot;

	select case cint(intCurrentPage)
    '---if there is only one last page then no links
        case cint(intTotalPages)
        If cint(intTotalPages) = 1 Then
      strMoveFirst = &quot;&quot;
      strMovePrevious = &quot;&quot;
      strMoveNext = &quot;&quot;
      strMoveLast = &quot;&quot;
    '---if its the last page give only links to movefirst and move previous
        else
      strMoveNext = &quot;&quot;
      strMoveLast = &quot;&quot;
        end if
        '---if its the first page only give links to move next and move last
        case 1
      strMoveFirst = &quot;&quot;
      strMovePrevious = &quot;&quot;
         case 2
      strMoveFirst = &quot;&quot;
        case cint(intTotalPages - 1)
     strMoveLast = &quot;&quot;
        '---if its a page in the middle give all links
        case else
	end select

if UpperNav then
'--- top of page navigation routines --------------------------------
	with Response
    .Write &quot;&lt;table width='100%' border=0 cellpadding=0 cellspacing=0&gt;&lt;tr&gt;&lt;th &quot; &amp; strTHAttributes &amp; &quot;&gt;&quot;
    .Write &quot;&lt;table border=0 cellpadding=0 cellspacing=0 align=left&gt;&quot;
    .Write &quot;&lt;form action=&quot;&quot;&quot;&quot; method=&quot;&quot;post&quot;&quot; name=&quot;&quot;frmPage1&quot;&quot;&gt;&quot;
    .Write &quot;&lt;tr&gt;&lt;th &quot; &amp; strTHAttributes &amp; &quot; align=left vAlign=middle&gt;&amp;nbsp;&amp;nbsp;&quot;
    .Write strMoveFirst &amp; &quot; &quot;

    .Write &quot;&lt;/th&gt;&lt;th &quot; &amp; strTHAttributes &amp; &quot; align=left vAlign=middle&gt;&quot;
    .Write strMovePrevious
    .Write &quot;&lt;/th&gt;&lt;th &quot; &amp; strTHAttributes &amp; &quot; align=left vAlign=middle&gt;&quot;
    .Write &quot; &lt;span style=&quot;&quot;font-weight:normal;&quot;&quot;&gt;&amp;nbsp;Page:&lt;/span&gt; &quot;
    .Write &quot;&lt;/th&gt;&lt;th &quot; &amp; strTHAttributes &amp; &quot; align=left vAlign=middle&gt;&quot;

        '--- select page #
	if intTotalPages &gt; 1 then
                .Write &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;frmOrderBy&quot;&quot; value=&quot; &amp; strSort &amp; &quot;&gt;&quot;
                .Write &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;frmRecordsPerPage&quot;&quot; value=&quot; &amp; intPageSize &amp; &quot;&gt;&quot;
                .Write &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;frmKeyWords&quot;&quot; value=&quot;&quot;&quot; &amp; replace(strKeyWords, &quot; &quot;, &quot;+&quot;) &amp; &quot;&quot;&quot;&gt;&quot;
                .Write &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;frmMode&quot;&quot; value=&quot; &amp; TheMode &amp; &quot;&gt;&quot;
                .Write &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;Table&quot;&quot; value=&quot; &amp; strDbTable &amp; &quot;&gt;&quot;
                .Write &quot;&amp;nbsp;&lt;select name=&quot;&quot;PageNbr&quot;&quot; onchange=&quot;&quot;SelectPageTop()&quot;&quot;&gt;&quot;
        for i = 1 to intTotalPages
                            if CStr(i) = CStr(intCurrentPage) Then sele = &quot; selected style=&quot;&quot;color:#F00000;&quot;&quot;&quot; Else sele = &quot; style=&quot;&quot;color:black;&quot;&quot;&quot; End if
                                .Write &quot;&lt;option value=&quot; &amp; CStr(i) &amp; sele &amp; &quot;&gt; &amp;nbsp;&quot; &amp; CStr(i) &amp; &quot;&amp;nbsp; &lt;/option&gt;&quot;
        next
                .Write &quot;&lt;/select&gt;&amp;nbsp;&quot;

                .Write &quot;&lt;/th&gt;&lt;th &quot; &amp; strTHAttributes &amp; &quot; align=left vAlign=middle style=&quot;&quot;font-weight:normal;&quot;&quot;&gt;&quot;
                .Write &quot;of &quot; &amp; intTotalPages &amp; &quot;&amp;nbsp;&quot;
    .Write &quot;&lt;/th&gt;&lt;th &quot; &amp; strTHAttributes &amp; &quot; align=left vAlign=middle&gt;&quot;
    .Write strMoveNext &amp; &quot; &quot;
    .Write strMoveLast
	Else '--- there is only one page
    .Write &quot; 1 &quot;
	End if
        .Write &quot;&lt;/th&gt;&lt;/form&gt;&quot;

        '--- select records per page
        .Write &quot;&lt;form action=&quot;&quot;&quot;&quot; method=&quot;&quot;post&quot;&quot; name=&quot;&quot;frmRPP1&quot;&quot;&gt;&quot;
        .Write &quot;&lt;th &quot; &amp; strTHAttributes &amp; &quot; align=left vAlign=middle&gt;&quot;
        .Write &quot;&amp;nbsp;&amp;nbsp;-&amp;nbsp;&amp;nbsp;&lt;span style=&quot;&quot;font-weight:normal;&quot;&quot;&gt;Records/Pagina:&lt;/span&gt; &amp;nbsp;&quot;
        .Write &quot;&lt;/th&gt;&lt;th &quot; &amp; strTHAttributes &amp; &quot; align=left vAlign=middle&gt;&quot;
        .Write &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;fKeyWords&quot;&quot; value=&quot;&quot;&quot; &amp; replace(strKeyWords, &quot; &quot;, &quot;+&quot;) &amp; &quot;&quot;&quot;&gt;&quot;
        .Write &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;fOrderBy&quot;&quot; value=&quot;&quot;&quot; &amp; strSort &amp; &quot;&quot;&quot;&gt;&quot;
        .Write &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;fMode&quot;&quot; value=&quot; &amp; TheMode &amp; &quot;&gt;&quot;
        .Write &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;Table&quot;&quot; value=&quot; &amp; strDbTable &amp; &quot;&gt;&quot;
        .Write &quot;&lt;select name=&quot;&quot;RPP&quot;&quot; class=&quot;&quot;inputbox&quot;&quot; onchange=&quot;&quot;SelectRecordsPerPageTop()&quot;&quot;&gt;&quot;

        If intTotalRecords &gt; 10 Then
                    If intPageSize = 10 then sele1 = &quot; SELECTED style=&quot;&quot;color:#F00000;&quot;&quot;&quot; else sele1 = &quot; style=&quot;&quot;color:black;&quot;&quot;&quot; End if
                .Write &quot;&lt;option value=&quot;&quot;10&quot;&quot;&quot; &amp; sele1 &amp; &quot;&gt; 10 &lt;/option&gt;&quot;
        End if

        If intTotalRecords &gt; 25 Then
                If intPageSize = 25 then sele1 = &quot; SELECTED style=&quot;&quot;color:#F00000;&quot;&quot;&quot; else sele1 = &quot; style=&quot;&quot;color:black;&quot;&quot;&quot; End if
                .Write &quot;&lt;option value=&quot;&quot;25&quot;&quot;&quot; &amp; sele1 &amp; &quot;&gt; 25 &lt;/option&gt;&quot;
        End if

        If intTotalRecords &gt; 50 Then
                If intPageSize = 50 then sele1 = &quot; SELECTED style=&quot;&quot;color:#F00000;&quot;&quot;&quot; else sele1 = &quot; style=&quot;&quot;color:black;&quot;&quot;&quot; End if
                .Write &quot;&lt;option value=&quot;&quot;50&quot;&quot;&quot; &amp; sele1 &amp; &quot;&gt; 50 &lt;/option&gt;&quot;
        End if

        If intPageSize &lt;&gt; 10 AND intPageSize &lt;&gt; 25 AND intPageSize &lt;&gt; 50 then sele1 = &quot; SELECTED style=&quot;&quot;color:#F00000;&quot;&quot;&quot; else sele1 = &quot; style=&quot;&quot;color:black;&quot;&quot;&quot; End if
        .Write &quot;&lt;option value=&quot;&quot;all&quot;&quot;&quot; &amp; sele1 &amp; &quot;&gt; TUTTI &lt;/option&gt;&quot;
        .Write &quot;&lt;/select&gt;&quot;
        .Write &quot;&lt;/th&gt;&lt;/form&gt;&lt;th &quot; &amp; strTHAttributes &amp; &quot; align=left vAlign=middle&gt;&quot;

        If Cint(intPageSize) &gt; 1 Then
                .Write &quot;&amp;nbsp;&lt;span style=&quot;&quot;font-weight:normal;&quot;&quot;&gt; - ( Records &lt;b&gt;&quot; &amp; intStart &amp;_
                 &quot;&lt;/b&gt; di &lt;b&gt;&quot; &amp; intFinish &amp; &quot;&lt;/b&gt; di &lt;b&gt;&quot; &amp; intTotalRecords &amp; &quot;&lt;/b&gt; totali )&lt;/span&gt;&quot;
        End if

        .Write &quot;&lt;/th&gt;&lt;/tr&gt;&lt;/table&gt;&quot;
        .Write &quot;&lt;/td&gt;&lt;/tr&gt;&lt;/table&gt;&quot;
	End with
End if

	'------ CORE -------------------------------------------------------------------------
	if bHideFirstColumn then
        if instr(strPrimaryKey, &quot;desc&quot;) &gt; 0 then
                isPrimaryKey = replace(strPrimaryKey, &quot;desc&quot;, &quot;&quot;)
        elseif instr(strPrimaryKey, &quot;asc&quot;) &gt; 0 then
                isPrimaryKey = replace(strPrimaryKey, &quot;asc&quot;, &quot;&quot;)
        end if
	end if
        '--- show field names in the table header-------------------------------------------------
	w &quot;&lt;table align=center width='100%' border=0 CellSpacing=1 CellPadding=2 style='border:solid 1px #999999;'&gt;&lt;tr&gt;&quot;

	If bEnableEdit Then
                w &quot;&lt;td &quot; &amp; strNamesAttributes &amp; &quot; align=center bgcolor=#D9D9D9 WIDTH=48 valign=top&gt;&quot;

                w &quot;&lt;a href=&quot;&quot;?table=&quot;&amp; strDbTable &amp;&quot;&amp;action=add&amp;url=&quot; &amp; GetFileName(Request.ServerVariables(&quot;URL&quot;)) &amp; &quot;&amp;strdbsource=&quot; &amp; strdbsource &amp; &quot;&amp;strdbtable=&quot; &amp; strdbtable &amp; &quot;&amp;strdefaultsort=&quot; &amp; strDefaultSort &amp; &quot;&quot;&quot; title=&quot;&quot; AGGIUNGI NUOVO RECORD &quot;&quot;&gt;&quot;
                w &quot;&lt;img src=&quot;&quot;&quot; &amp; strimgDir &amp; &quot;u_plus_1.gif&quot;&quot; width=11 height=11 border=0&gt;&lt;/a&gt;&lt;div style=&quot;&quot;font-size:3px;&quot;&quot;&gt;&amp;nbsp;&lt;/div&gt;&quot;

                w &quot;&lt;a href=&quot;&quot;&quot; &amp; strPageName &amp; &quot;?table=&quot;&amp; strDbTable &amp;&quot;&amp;fieldSQL=reset&quot;&quot;&quot;
                If Request.QueryString(&quot;fieldname&quot;) &lt;&gt; &quot;&quot; OR request(&quot;strKeyWords&quot;) &lt;&gt; &quot;&quot; OR request.querystring(&quot;mystrSQL&quot;) &lt;&gt; &quot;&quot; then
                        sResetColor = &quot;#FFFFFF&quot;
                        sResetBGColor = &quot;#F00000&quot;
                Else
                        sResetColor = &quot;black&quot;
                        sResetBGColor = &quot;#D1E0FD&quot;
                End if
                w &quot; style=&quot;&quot;font-size:10px;color:&quot;&amp;sResetColor&amp;&quot;;font-weight:bold;text-decoration:none;background-color:&quot;&amp;sResetBGColor&amp;&quot;;border: solid 1px navy;CURSOR:HAND;WIDTH:50;&quot;&quot;&quot;
                w &quot;        onMouseover=&quot;&quot;this.style.color='#4D6185'; this.style.background='#DCECFD'; return true;&quot;&quot;&quot;
                w &quot;        onMouseout=&quot;&quot;this.style.color='&quot;&amp;sResetColor&amp;&quot;'; this.style.background='&quot;&amp;sResetBGColor&amp;&quot;'; return true;&quot;&quot;&quot;
                 w &quot;title=&quot;&quot;  REIMPOSTA TUTTI I FILTRI ''TUTTI'' &quot;&quot;&gt;&quot;
                w &quot;&amp;nbsp;RESET&amp;nbsp;&amp;raquo;&lt;/a&gt;&lt;/div&gt;&quot;
                w &quot;&lt;/td&gt;&quot;
	End if

        '--- loop through the fields in the recordset
	for each field in RS.Fields

        '--- Set cookies to hold hidden fields
        If request(&quot;hidefield&quot;) = field.name AND request(&quot;fieldname&quot;) = field.name Then
                Response.Cookies(&quot;hidefield&quot;)(field.name) = True
        Else
                If request(field.name) = &quot;&quot; AND request(&quot;fieldname&quot;) = field.name Then
                        Response.Cookies(&quot;hidefield&quot;)(field.name) = False
                End if
        End if
                Response.Cookies(&quot;hidefield&quot;).Expires=Now() + 30

	'--- toggle hidden field control
		If not Request.Cookies(&quot;hidefield&quot;)(field.name) then

        if field.name &lt;&gt; isPrimaryKey OR NOT bHideFirstColumn then
                If strSort = field.name OR strSort = field.name &amp; &quot;desc&quot; OR strSort = field.name &amp; &quot;asc&quot; Then
                         w &quot;&lt;FORM name=frmSearchField action=&quot;&quot;&quot;&quot; method=GET&gt;&quot;
                    w &quot;&lt;th &quot; &amp; strNamesAttributesSort &amp; &quot; nowrap valign=top&gt;&quot;
                        If Session(&quot;bHideField&quot;) Then
                                w &quot;&lt;input type=&quot;&quot;checkbox&quot;&quot; style=&quot;&quot;cursor:hand;width:12px;&quot;&quot; title=&quot;&quot; Nascondi campo &quot; &amp; field.name &amp; &quot; &quot;&quot; name=&quot;&quot;hidefield&quot;&quot; value=&quot;&quot;&quot; &amp; field.name &amp; &quot;&quot;&quot; style=&quot;&quot;background-color:#F00000;&quot;&quot; onClick=&quot;&quot;this.form.submit();&quot;&quot;&quot;
                                If Request.Cookies(&quot;hidefield&quot;)(field.name) Then w &quot; verificato&gt;&quot; Else w &quot;&gt;&quot; End if
                        End if
                Else
                         w &quot;&lt;FORM name=frmSearchField action=&quot;&quot;&quot;&quot; method=GET&gt;&quot;
                    w &quot;&lt;th &quot; &amp; strNamesAttributes &amp; &quot; nowrap valign=top&quot;
                                        If field.type = adLongVarWChar then w &quot; width=300 valign=top&gt;&quot; else w &quot; valign=top&gt;&quot; end if
                        If Session(&quot;bHideField&quot;) Then
                                w &quot;&lt;input type=&quot;&quot;checkbox&quot;&quot; style=&quot;&quot;cursor:hand;width:12px;&quot;&quot; title=&quot;&quot; Nascondi campo &quot; &amp; field.name &amp; &quot; &quot;&quot; name=&quot;&quot;hidefield&quot;&quot; value=&quot;&quot;&quot; &amp; field.name &amp; &quot;&quot;&quot; style=&quot;&quot;background-color:#385C8E;&quot;&quot; onClick=&quot;&quot;this.form.submit();&quot;&quot;&quot;
                                If Request.Cookies(&quot;hidefield&quot;)(field.name) Then w &quot; verificato&gt;&quot; Else w &quot;&gt;&quot; End if
                        End if
                End if
                        if not isexcluded(field.type) then
                            '--- check the sort order, if its currently ascending, make the link descending
                            if instr(strSort, &quot;desc&quot;) then
                                      w &quot;&lt;a href=&quot; &amp; strPageName &amp; &quot;?table=&quot;&amp; strDbTable &amp;&quot;&amp;sort=&quot; &amp; field.name &amp; &quot;&amp;page=&quot; &amp; intCurrentPage &amp;_
                                         &quot;&amp;pagesize=&quot; &amp; intPageSize &amp; &quot;&amp;strKeyWords=&quot; &amp; replace(strKeyWords, &quot; &quot;, &quot;+&quot;) &amp; &quot;&amp;mode=&quot; &amp; TheMode &amp;_
                                         &quot; &quot; &amp; strTHAttributes &amp; &quot; title=&quot;&quot; Clicca per mettere in ordine il campo: &quot; &amp; field.name &amp; &quot;, crescente &quot;&quot;&gt;&quot; &amp; GetColDescription(field.name) &amp; &quot;&lt;/a&gt;&quot;
                                                If strSort = field.name &amp; &quot;desc&quot; Then w &quot; &lt;img src=&quot;&quot;&quot; &amp; strimgDir &amp; &quot;sort_desc_1.gif&quot;&quot; width=10 height=7 border=0 alt=&quot;&quot; ordine decrescente &quot;&quot;&gt;&quot; '&amp; chr(118)
                            else '---ascending
                                      w &quot;&lt;a href=&quot; &amp; strPageName &amp; &quot;?table=&quot;&amp; strDbTable &amp;&quot;&amp;sort=&quot; &amp; field.name &amp; &quot;desc&amp;page=&quot; &amp; intCurrentPage &amp;_
                                         &quot;&amp;pagesize=&quot; &amp; intPageSize &amp; &quot;&amp;strKeyWords=&quot; &amp; replace(strKeyWords, &quot; &quot;, &quot;+&quot;) &amp; &quot;&amp;mode=&quot; &amp; TheMode &amp;_
                                         &quot; &quot; &amp; strTHAttributes &amp; &quot; title=&quot;&quot; Clicca per mettere in ordine il campo: &quot; &amp; field.name &amp; &quot;, crescente &quot;&quot;&gt;&quot; &amp; GetColDescription(field.name) &amp; &quot;&lt;/a&gt;&quot;
                                                If strSort = field.name Then w &quot; &lt;img src=&quot;&quot;&quot; &amp; strimgDir &amp; &quot;sort_asc_1.gif&quot;&quot; width=10 height=7 border=0 alt=&quot;&quot; Ordine crescente &quot;&quot;&gt;&quot; '&amp; chr(094)
                            end if
                        else
                                      w GetColDescription(field.name)
                        end if
                        w &quot;&lt;br&gt;&quot;

                mySQL = &quot;SELECT DISTINCT &quot; &amp; field.name &amp; &quot; FROM &quot; &amp; strDbTable &amp; &quot; ORDER BY &quot; &amp; field.name

                if not isexcluded(field.type) AND field.type &lt;&gt; adLongVarWChar then
                        w ReturnDropDown(dsn, mySQL, Session(field.name), field.name, field.type, true)
                end if

                        w &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;fieldname&quot;&quot; value=&quot;&quot;&quot; &amp; field.name &amp; &quot;&quot;&quot;&gt;&quot;
                        w &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;fKeyWords&quot;&quot; value=&quot;&quot;&quot; &amp; replace(strKeyWords, &quot; &quot;, &quot;+&quot;) &amp; &quot;&quot;&quot;&gt;&quot;
                        w &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;fOrderBy&quot;&quot; value=&quot;&quot;&quot; &amp; strSort &amp; &quot;&quot;&quot;&gt;&quot;
                        w &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;fMode&quot;&quot; value=&quot; &amp; TheMode &amp; &quot;&gt;&quot;
                        w &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;Table&quot;&quot; value=&quot; &amp; strDbTable &amp; &quot;&gt;&quot;
                        w &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;pagesize&quot;&quot; value=&quot; &amp; request(&quot;pagesize&quot;) &amp; &quot;&gt;&quot;
           w &quot;&lt;/th&gt;&lt;/form&gt;&quot;

        end if

		else
                         w &quot;&lt;FORM action=&quot;&quot;&quot;&quot; method=GET&gt;&quot;
                    w &quot;&lt;th &quot; &amp; strNamesAttributesSort &amp; &quot; nowrap valign=top&gt;&quot;
                        w &quot;&lt;input type=&quot;&quot;checkbox&quot;&quot; style=&quot;&quot;cursor:hand;width:12px;&quot;&quot; title=&quot;&quot; Mostra campo &quot; &amp; field.name &amp; &quot; &quot;&quot; name=&quot;&quot;hidefield&quot;&quot; value=&quot;&quot;&quot; &amp; field.name &amp; &quot;&quot;&quot; style=&quot;&quot;background-color:#F00000;&quot;&quot; onClick=&quot;&quot;this.form.submit();&quot;&quot;&quot;
                        If Request.Cookies(&quot;hidefield&quot;)(field.name) Then
                                w &quot; verificato&gt;&quot;
                        Else
                                w &quot;&gt;&quot;
                        End if
'                        w &quot;&lt;br&gt;&lt;img src=&quot;&quot;&quot; &amp; strimgDir &amp; &quot;qm1.gif&quot;&quot; width=12 heigth=12 border=0 alt=&quot;&quot; Hidden field : &quot; &amp; field.name &amp; &quot; &quot;&quot;&gt;&quot;
                        w &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;fieldname&quot;&quot; value=&quot;&quot;&quot; &amp; field.name &amp; &quot;&quot;&quot;&gt;&quot;
                        w &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;fKeyWords&quot;&quot; value=&quot;&quot;&quot; &amp; replace(strKeyWords, &quot; &quot;, &quot;+&quot;) &amp; &quot;&quot;&quot;&gt;&quot;
                        w &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;fOrderBy&quot;&quot; value=&quot;&quot;&quot; &amp; strSort &amp; &quot;&quot;&quot;&gt;&quot;
                        w &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;fMode&quot;&quot; value=&quot; &amp; TheMode &amp; &quot;&gt;&quot;
                        w &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;Table&quot;&quot; value=&quot; &amp; strDbTable &amp; &quot;&gt;&quot;
                        w &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;pagesize&quot;&quot; value=&quot; &amp; request(&quot;pagesize&quot;) &amp; &quot;&gt;&quot;
           w &quot;&lt;/th&gt;&lt;/form&gt;&quot;
		end if
	next
  w &quot;&lt;/tr&gt;&quot;
        '--- display records from the current record to the pagesize --------------------------------
	if intTotalRecords &gt; 0 Then
        for i = intCurrentRecord to RS.PageSize
                if not RS.EOF then

                        '---alternate row color
                        w &quot;&lt;tr &quot;
                        If (IE) then w &quot; onMouseOver=&quot;&quot;this.bgColor = '#CCCCCC'&quot;&quot; &quot; End if
                                If i Mod 2 = 0 Then
                                        w &quot; onMouseOut=&quot;&quot;this.bgColor = '&quot; &amp; rowColor1 &amp; &quot;'&quot;&quot; bgcolor=&quot; &amp; rowColor1 &amp; &quot;&gt;&quot;
                                Else
                                        w &quot; onMouseOut=&quot;&quot;this.bgColor = '&quot; &amp; rowColor2 &amp; &quot;'&quot;&quot; bgcolor=&quot; &amp; rowColor2 &amp; &quot;&gt;&quot;
                                End If

        '--- display ADD EDIT DELETE PRINT--------------------------------
        If bEnableEdit Then
                If instr(strPrimaryKey, &quot;desc&quot;) &gt; 0 Then cPKSort = replace(strPrimaryKey, &quot;desc&quot;, &quot;&quot;) else cPKSort = strPrimaryKey
                If instr(strPrimaryKey, &quot;asc&quot;) &gt; 0 Then cPKSort = replace(strPrimaryKey, &quot;asc&quot;, &quot;&quot;)
                w &quot;&lt;td align=center &quot; &amp; strTDAttributes &amp; &quot; bgcolor=#D9D9D9&gt;&quot;
                w &quot;&lt;a href=&quot;&quot;?table=&quot;&amp; strDbTable &amp;&quot;&amp;action=edit&amp;member=&quot; &amp; RS(cPKSort) &amp; &quot;&amp;url=&quot; &amp; GetFileName(Request.ServerVariables(&quot;URL&quot;)) &amp;_
                 &quot;&amp;strdbsource=&quot; &amp; strdbsource &amp; &quot;&amp;strdbtable=&quot; &amp; strdbtable &amp; &quot;&amp;strdefaultsort=&quot; &amp; strDefaultSort &amp; &quot;&quot;&quot; title=&quot;&quot; MODIFICA RECORD &quot;&quot;&gt;&quot;
                w &quot;&lt;b&gt;&lt;img src=&quot;&quot;&quot; &amp; strimgDir &amp; &quot;u_edit.gif&quot;&quot; width=13 height=13 border=0&gt;&lt;/b&gt;&lt;/a&gt;&quot;

                w &quot;&lt;a href=&quot;&quot;?table=&quot;&amp; strDbTable &amp;&quot;&amp;action=delete&amp;member=&quot; &amp; RS(cPKSort) &amp; &quot;&amp;url=&quot; &amp; GetFileName(Request.ServerVariables(&quot;URL&quot;)) &amp;_
                 &quot;&amp;strdbsource=&quot; &amp; strdbsource &amp; &quot;&amp;strdbtable=&quot; &amp; strdbtable &amp; &quot;&amp;strdefaultsort=&quot; &amp; strDefaultSort &amp; &quot;&quot;&quot; title=&quot;&quot;  CANCELLA RECORD &quot;&quot;&gt;&quot;
                w &quot;&lt;b&gt;&lt;img src=&quot;&quot;&quot; &amp; strimgDir &amp; &quot;u_delete.gif&quot;&quot; width=13 height=13 border=0&gt;&lt;/b&gt;&lt;/a&gt;&quot;

        If bShowPrint Then
                w &quot;&lt;a href=&quot;&quot;&quot; &amp; strIncPath &amp; &quot;printrec.asp?dsn=&quot; &amp; Server.Urlencode(dsn) &amp; &quot;&amp;primarykey=&quot; &amp; Replace(strDefaultSort, DefaultSort, &quot;&quot;) &amp; &quot;&amp;strdbtable=&quot; &amp; strdbtable &amp; &quot;&amp;member=&quot; &amp; RS(cPKSort) &amp; &quot;&quot;&quot; target=&quot;&quot;_blank&quot;&quot;&gt;&quot;
                w &quot;&lt;img src=&quot;&quot;&quot; &amp; strimgDir &amp; &quot;print_1.gif&quot;&quot; name=&quot;&quot;Stampa record&quot;&quot; border=&quot;&quot;0&quot;&quot; height=&quot;&quot;13&quot;&quot; width=&quot;&quot;13&quot;&quot; title=&quot;&quot; STAMPA RECORD &quot;&quot;&gt;&lt;/a&gt;&quot;
        End if

                w &quot;&lt;/td&gt;&quot;
        End if

        '###### Show fields content ###########
                '---for each field in the recordset
                for each field in RS.Fields
                        if field.name &lt;&gt; isPrimaryKey OR NOT bHideFirstColumn then
                                if not isexcluded(field.type) then
                                        '--- toggle hidden field control
                                        If not Request.Cookies(&quot;hidefield&quot;)(field.name) then
                                                If field.type = adLongVarWChar then w &quot;&lt;td &quot; &amp; strTDAttributes &amp; &quot; width=300&gt;&quot; Else w &quot;&lt;td &quot; &amp; strTDAttributes &amp; &quot;&gt;&quot; End if
                                                If isNULL(field.value) Then
                                                        w &quot;&amp;nbsp;&quot;
                                                elseif field.type = adBoolean then
                                                        if field.value = true then w &quot;True&quot; else w &quot;False&quot; End if
                                                else
                                                        '--- replace &lt;br&gt; with VbCrLf in text fields
                                                        w replace(field.value, CHR(13), &quot;&lt;br&gt;&quot;)
                                                end if
                                        else
                                                w &quot;&lt;td &quot; &amp; strTDAttributes &amp; &quot;&gt;&amp;nbsp;&quot;
                                        end if
                                        w &quot;&lt;/td&gt;&quot;
                                else '--- is an excluded field type
                                        '--- replace excluded binary data fields with image
                                        w &quot;&lt;td &quot; &amp; strTDAttributes &amp; &quot; align=center&gt;&lt;img src=&quot;&quot;&quot; &amp; strimgDir &amp; &quot;no.gif&quot;&quot; width=16 height=16 border=0 align=absmiddle alt=&quot;&quot; Binary data field &quot;&quot;&gt;&lt;/td&gt;&quot;
                                end if
                        end if
                next
        '#############################

                        w &quot;&lt;/tr&gt;&quot;
                        RS.MoveNext
                end if
        next

	else '--- no records
        w &quot;&lt;tr bgcolor=#F0F0F0&gt;&lt;td &quot; &amp; strTDAttributes &amp; &quot; colspan=&quot; &amp; FieldsCount &amp; &quot;&gt;&quot;
        w &quot;&lt;div style='font-size:12px;'&gt;Ricerca &quot;
        If strKeyWords &lt;&gt; &quot;&quot; AND instr(1,strKeyWords,&quot; &quot;,1) &gt; 0 Then
                if TheMode = &quot;OR&quot; then w &quot;(qualsiasi parola)&quot; Else w &quot;(tutte le parole)&quot; End if
        End if
        w &quot; risultato per: &lt;b&gt;&quot; &amp; strKeyWords &amp; &quot;&lt;/b&gt;  = &lt;span style='color:#F00000;font-weight:bold;background-color:yellow;'&gt;&amp;nbsp;nessuna corrispondenza trovata&amp;nbsp;&lt;/span&gt;&lt;/div&gt;&lt;/td&gt;&lt;/tr&gt;&quot;
	end if
	w &quot;&lt;/table&gt;&quot;

        '--- bottom page navigation------------------------------------------
	If LowerNav Then

                strFirstp = &quot;&lt;img src=&quot;&quot;&quot; &amp; strimgDir &amp; strimgFirstMoff &amp; &quot;&quot;&quot; align=absmiddle border=1 alt=&quot;&quot;&quot; &amp; strFirstpTitle &amp; strPagep &amp;&quot;&quot;&quot; name=&quot;&quot;strimgFirstBottom&quot;&quot; style=&quot;&quot;border-color:black;&quot;&quot;&gt;&quot;
                strPrevp = &quot;&lt;img src=&quot;&quot;&quot; &amp; strimgDir &amp; strimgPrevMoff &amp; &quot;&quot;&quot; align=absmiddle border=1 alt=&quot;&quot;&quot; &amp; strPrevpTitle &amp; &quot;(&quot; &amp; strPagep &amp; intCurrentPage - 1 &amp; &quot;)&quot;&quot; name=&quot;&quot;strimgPrevBottom&quot;&quot; style=&quot;&quot;border-color:black;&quot;&quot;&gt;&quot;
                strNextp = &quot;&lt;img src=&quot;&quot;&quot; &amp; strimgDir &amp; strimgNextMoff &amp; &quot;&quot;&quot; align=absmiddle border=1 alt=&quot;&quot;&quot; &amp; strNextpTitle &amp; &quot;(&quot; &amp; strPagep &amp; intCurrentPage + 1 &amp; &quot;)&quot;&quot; name=&quot;&quot;strimgNextBottom&quot;&quot; style=&quot;&quot;border-color:black;&quot;&quot;&gt;&quot;
                strLastp = &quot;&lt;img src=&quot;&quot;&quot; &amp; strimgDir &amp; strimgLastMoff &amp; &quot;&quot;&quot; align=absmiddle border=1 alt=&quot;&quot;&quot; &amp; strLastpTitle &amp; &quot;(&quot; &amp; strPagep &amp; intTotalPages &amp; &quot;)&quot;&quot; name=&quot;&quot;strimgLastBottom&quot;&quot; style=&quot;&quot;border-color:black;&quot;&quot;&gt;&quot;

        '--- give links to move between pages
        strMoveFirst = &quot;&lt;a href=&quot; &amp; strPageName &amp; &quot;?table=&quot;&amp; strDbTable &amp;&quot;&amp;sort=&quot;&amp; strSort &amp; &quot;&amp;page=1&amp;pagesize=&quot; &amp; intPageSize &amp;_
         &quot;&amp;strKeyWords=&quot; &amp; replace(strKeyWords, &quot; &quot;, &quot;+&quot;) &amp; &quot;&amp;mode=&quot; &amp; TheMode &amp; &quot; &quot; &amp; strTHAttributes &amp;_
         &quot; title=&quot;&quot; Vai alla prima pagina &quot;&quot;&quot; &amp; _
          &quot; onMouseOver=&quot;&quot;document.strimgFirstBottom.src='&quot; &amp; strimgDir &amp; strimgFirstMon &amp; &quot;'&quot;&quot;&quot; &amp; _
          &quot; onMouseOut=&quot;&quot;document.strimgFirstBottom.src='&quot; &amp; strimgDir &amp; strimgFirstMoff &amp; &quot;'&quot;&quot;&gt;&quot; &amp; _
        strFirstp &amp; &quot;&lt;/A&gt;&amp;nbsp;&quot;

         strMovePrevious = &quot;&lt;a href=&quot; &amp; strPageName &amp; &quot;?table=&quot;&amp; strDbTable &amp;&quot;&amp;sort=&quot; &amp; strSort &amp; &quot;&amp;page=&quot; &amp; intCurrentPage - 1 &amp; &quot;&amp;pagesize=&quot; &amp; intPageSize &amp;_
         &quot;&amp;strKeyWords=&quot; &amp; replace(strKeyWords, &quot; &quot;, &quot;+&quot;) &amp; &quot;&amp;mode=&quot; &amp; TheMode &amp; &quot; &quot; &amp; strTHAttributes &amp; &quot; title=&quot;&quot;&quot; &amp; strPrevpTitle &amp; &quot;(&quot; &amp; strPagep &amp; intCurrentPage - 1 &amp; &quot;)&quot;&quot;&quot;&quot;&quot; &amp; _
        &quot; onMouseOver=&quot;&quot;document.strimgPrevBottom.src='&quot; &amp; strimgDir &amp; strimgPrevMon &amp; &quot;'&quot;&quot;&quot; &amp; _
        &quot; onMouseOut=&quot;&quot;document.strimgPrevBottom.src='&quot; &amp; strimgDir &amp; strimgPrevMoff &amp; &quot;'&quot;&quot;&gt;&quot; &amp; _
        strPrevp &amp; &quot;&lt;/A&gt;&amp;nbsp;&quot;

        strMoveNext = &quot;&lt;a href=&quot; &amp; strPageName &amp; &quot;?table=&quot;&amp; strDbTable &amp;&quot;&amp;sort=&quot;&amp; strSort &amp; &quot;&amp;page=&quot; &amp; intCurrentPage + 1 &amp; &quot;&amp;pagesize=&quot; &amp; intPageSize &amp;_
         &quot;&amp;strKeyWords=&quot; &amp; replace(strKeyWords, &quot; &quot;, &quot;+&quot;) &amp; &quot;&amp;mode=&quot; &amp; TheMode &amp; &quot; &quot; &amp; strTHAttributes &amp; &quot; title=&quot;&quot;&quot; &amp; strNextpTitle &amp; &quot;(&quot; &amp; strPagep &amp; intCurrentPage + 1 &amp; &quot;)&quot;&quot;&quot;&quot;&quot; &amp; _
        &quot; onMouseOver=&quot;&quot;document.strimgNextBottom.src='&quot; &amp; strimgDir &amp; strimgNextMon &amp; &quot;'&quot;&quot;&quot; &amp; _
        &quot; onMouseOut=&quot;&quot;document.strimgNextBottom.src='&quot; &amp; strimgDir &amp; strimgNextMoff &amp; &quot;'&quot;&quot;&gt;&quot; &amp; _
        strNextp &amp; &quot;&lt;/A&gt;&quot;

        strMoveLast = &quot;&lt;a href=&quot; &amp; strPageName &amp; &quot;?table=&quot;&amp; strDbTable &amp;&quot;&amp;sort=&quot;&amp; strSort &amp; &quot;&amp;page=&quot; &amp; intTotalPages &amp; &quot;&amp;pagesize=&quot; &amp; intPageSize &amp;_
         &quot;&amp;strKeyWords=&quot; &amp; replace(strKeyWords, &quot; &quot;, &quot;+&quot;) &amp; &quot;&amp;mode=&quot; &amp; TheMode &amp; &quot; &quot; &amp; strTHAttributes &amp; &quot; title=&quot;&quot;&quot; &amp; strLastpTitle &amp; &quot;(&quot; &amp; strPagep &amp; intTotalPages &amp; &quot;)&quot;&quot;&quot;&quot;&quot; &amp; _
        &quot; onMouseOver=&quot;&quot;document.strimgLastBottom.src='&quot; &amp; strimgDir &amp; strimgLastMon &amp; &quot;'&quot;&quot;&quot; &amp; _
        &quot; onMouseOut=&quot;&quot;document.strimgLastBottom.src='&quot; &amp; strimgDir &amp; strimgLastMoff &amp; &quot;'&quot;&quot;&gt;&quot; &amp; _
        strLastp &amp; &quot;&lt;/A&gt;&quot;

	select case cint(intCurrentPage)
    '---if there is only one last page then no links
        case cint(intTotalPages)
        If cint(intTotalPages) = 1 Then
      strMoveFirst = &quot;&quot;
      strMovePrevious = &quot;&quot;
      strMoveNext = &quot;&quot;
      strMoveLast = &quot;&quot;
    '---if its the last page give only links to movefirst and move previous
        else
      strMoveNext = &quot;&quot;
      strMoveLast = &quot;&quot;
        end if
        '---if its the first page only give links to move next and move last
        case 1
      strMoveFirst = &quot;&quot;
      strMovePrevious = &quot;&quot;
         case 2
      strMoveFirst = &quot;&quot;
        case cint(intTotalPages - 1)
     strMoveLast = &quot;&quot;
        '---if its a page in the middle give all links
        case else
	end select

	with Response
    .Write &quot;&lt;table width='100%' border=0 cellpadding=0 cellspacing=0&gt;&lt;tr&gt;&lt;th &quot; &amp; strTHAttributes &amp; &quot;&gt;&quot;
    .Write &quot;&lt;table border=0 cellpadding=0 cellspacing=0 align=left&gt;&quot;
    .Write &quot;&lt;form action=&quot;&quot;&quot;&quot; method=&quot;&quot;post&quot;&quot; name=&quot;&quot;frmPage&quot;&quot;&gt;&quot;
    .Write &quot;&lt;tr&gt;&lt;th &quot; &amp; strTHAttributes &amp; &quot; align=left vAlign=middle&gt;&amp;nbsp;&amp;nbsp;&quot;
    .Write strMoveFirst &amp; &quot; &quot;
    .Write &quot;&lt;/th&gt;&lt;th &quot; &amp; strTHAttributes &amp; &quot; align=left vAlign=middle&gt;&quot;
    .Write strMovePrevious
    .Write &quot;&lt;/th&gt;&lt;th &quot; &amp; strTHAttributes &amp; &quot; align=left vAlign=middle&gt;&quot;
    .Write &quot; &lt;span style=&quot;&quot;font-weight:normal;&quot;&quot;&gt;&amp;nbsp;Page:&lt;/span&gt; &quot;
    .Write &quot;&lt;/th&gt;&lt;th &quot; &amp; strTHAttributes &amp; &quot; align=left vAlign=middle&gt;&quot;

   '--- select page #
if intTotalPages &gt; 1 then
                .Write &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;frmOrderBy&quot;&quot; value=&quot; &amp; strSort &amp; &quot;&gt;&quot;
                .Write &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;frmRecordsPerPage&quot;&quot; value=&quot; &amp; intPageSize &amp; &quot;&gt;&quot;
                .Write &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;frmKeyWords&quot;&quot; value=&quot;&quot;&quot; &amp; replace(strKeyWords, &quot; &quot;, &quot;+&quot;) &amp; &quot;&quot;&quot;&gt;&quot;
                .Write &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;frmMode&quot;&quot; value=&quot; &amp; TheMode &amp; &quot;&gt;&quot;
                .Write &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;Table&quot;&quot; value=&quot; &amp; strDbTable &amp; &quot;&gt;&quot;
                .Write &quot;&amp;nbsp;&lt;select name=&quot;&quot;PageNbr&quot;&quot; onchange=&quot;&quot;SelectPageBottom()&quot;&quot;&gt;&quot;
        for i = 1 to intTotalPages
             if CStr(i) = CStr(intCurrentPage) Then sele = &quot; selected style=&quot;&quot;color:#F00000;&quot;&quot;&quot; Else sele = &quot; style=&quot;&quot;color:black;&quot;&quot;&quot; End if
             .Write &quot;&lt;option value=&quot; &amp; CStr(i) &amp; sele &amp; &quot;&gt; &amp;nbsp;&quot; &amp; CStr(i) &amp; &quot;&amp;nbsp; &lt;/option&gt;&quot;
        next
             .Write &quot;&lt;/select&gt;&amp;nbsp;&quot;

             .Write &quot;&lt;/th&gt;&lt;th &quot; &amp; strTHAttributes &amp; &quot; align=left vAlign=middle style=&quot;&quot;font-weight:normal;&quot;&quot;&gt;&quot;
             .Write &quot;of &quot; &amp; intTotalPages &amp; &quot;&amp;nbsp;&quot;
    .Write &quot;&lt;/th&gt;&lt;th &quot; &amp; strTHAttributes &amp; &quot; align=left vAlign=middle&gt;&quot;
    .Write strMoveNext &amp; &quot; &quot;
    .Write strMoveLast
	Else '--- there is only one page
    .Write &quot; 1 &quot;
	End if
        .Write &quot;&lt;/th&gt;&lt;/form&gt;&quot;

        '--- select records per page
        .Write &quot;&lt;/th&gt;&lt;/form&gt;&lt;form action=&quot;&quot;&quot;&quot; method=&quot;&quot;post&quot;&quot; name=&quot;&quot;frmRPP&quot;&quot;&gt;&lt;th &quot; &amp; strTHAttributes &amp; &quot; align=left vAlign=middle&gt;&quot;
        .Write &quot;&amp;nbsp;&amp;nbsp;-&amp;nbsp;&amp;nbsp;&lt;span style=&quot;&quot;font-weight:normal;&quot;&quot;&gt;Records/Pagina:&lt;/span&gt; &amp;nbsp;&quot;
        .Write &quot;&lt;/th&gt;&lt;th &quot; &amp; strTHAttributes &amp; &quot; align=left vAlign=middle&gt;&quot;
        .Write &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;fKeyWords&quot;&quot; value=&quot;&quot;&quot; &amp; replace(strKeyWords, &quot; &quot;, &quot;+&quot;) &amp; &quot;&quot;&quot;&gt;&quot;
        .Write &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;fOrderBy&quot;&quot; value=&quot;&quot;&quot; &amp; strSort &amp; &quot;&quot;&quot;&gt;&quot;
        .Write &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;fMode&quot;&quot; value=&quot; &amp; TheMode &amp; &quot;&gt;&quot;
                .Write &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;Table&quot;&quot; value=&quot; &amp; strDbTable &amp; &quot;&gt;&quot;
        .Write &quot;&lt;select name=&quot;&quot;RPP&quot;&quot; class=&quot;&quot;inputbox&quot;&quot; onchange=&quot;&quot;SelectRecordsPerPageBottom()&quot;&quot;&gt;&quot;

        If intTotalRecords &gt; 10 Then
                    If intPageSize = 10 then sele1 = &quot; SELECTED style=&quot;&quot;color:#F00000;&quot;&quot;&quot; else sele1 = &quot; style=&quot;&quot;color:black;&quot;&quot;&quot; End if
                .Write &quot;&lt;option value=&quot;&quot;10&quot;&quot;&quot; &amp; sele1 &amp; &quot;&gt; 10 &lt;/option&gt;&quot;
        End if

        If intTotalRecords &gt; 25 Then
                If intPageSize = 25 then sele1 = &quot; SELECTED style=&quot;&quot;color:#F00000;&quot;&quot;&quot; else sele1 = &quot; style=&quot;&quot;color:black;&quot;&quot;&quot; End if
                .Write &quot;&lt;option value=&quot;&quot;25&quot;&quot;&quot; &amp; sele1 &amp; &quot;&gt; 25 &lt;/option&gt;&quot;
        End if

        If intTotalRecords &gt; 50 Then
                If intPageSize = 50 then sele1 = &quot; SELECTED style=&quot;&quot;color:#F00000;&quot;&quot;&quot; else sele1 = &quot; style=&quot;&quot;color:black;&quot;&quot;&quot; End if
                .Write &quot;&lt;option value=&quot;&quot;50&quot;&quot;&quot; &amp; sele1 &amp; &quot;&gt; 50 &lt;/option&gt;&quot;
        End if

        If intPageSize &lt;&gt; 10 AND intPageSize &lt;&gt; 25 AND intPageSize &lt;&gt; 50 then sele1 = &quot; SELECTED style=&quot;&quot;color:#F00000;&quot;&quot;&quot; else sele1 = &quot; style=&quot;&quot;color:black;&quot;&quot;&quot; End if
        .Write &quot;&lt;option value=&quot;&quot;all&quot;&quot;&quot; &amp; sele1 &amp; &quot;&gt; TUTTI &lt;/option&gt;&quot;
        .Write &quot;&lt;/select&gt;&quot;
        .Write &quot;&lt;/th&gt;&lt;/form&gt;&lt;th &quot; &amp; strTHAttributes &amp; &quot; align=left vAlign=middle&gt;&quot;

        If Cint(intPageSize) &gt; 1 Then
                .Write &quot;&amp;nbsp;&lt;span style=&quot;&quot;font-weight:normal;&quot;&quot;&gt; - ( Records &lt;b&gt;&quot; &amp; intStart &amp;_
                 &quot;&lt;/b&gt; di &lt;b&gt;&quot; &amp; intFinish &amp; &quot;&lt;/b&gt; di &lt;b&gt;&quot; &amp; intTotalRecords &amp; &quot;&lt;/b&gt; totali )&lt;/span&gt;&quot;
        End if

        .Write &quot;&lt;/th&gt;&lt;/tr&gt;&lt;/table&gt;&lt;/td&gt;&lt;/tr&gt;&lt;/table&gt;&quot;
	End With
End if

        if RS.State = &amp;H00000001 then '---its open
                RS.Close
                set RS = nothing
                set objConn = nothing
        end if

        '--- Search Box ----------------------------------------------
	With Response
                .Write &quot;&lt;span style=&quot;&quot;font-size:1px;&quot;&quot;&gt;&amp;nbsp;&lt;/span&gt;&quot;
        .Write &quot;&lt;table border=0 CellSpacing=2 CellPadding=0 style='border:solid 1px #999999;'&gt;&quot;
        '--- Frame description ------------------
	If Description Then
                .Write &quot;&lt;tr&gt;&lt;td bgcolor=#FFFFFF &quot; &amp; strTRAttributes &amp; &quot; colspan=9 align=center vAlign=top&gt;&quot;
        If Cint(intPageSize) &gt; 1 Then
                        if instr(strSort, &quot;desc&quot;) then
                                Sorting = &quot;&lt;b&gt;&quot; &amp; Replace(strSort, &quot;desc&quot;, &quot;&quot;) &amp; &quot;&lt;/b&gt; Decrescente&quot;
                        Else
                                Sorting = &quot;&lt;b&gt;&quot; &amp; strSort &amp; &quot;&lt;/b&gt; Crescente&quot;
                        End if
                If intPageSize = intTotalRecords Then Rpp = &quot;All&quot; Else        Rpp = intPageSize End if
                .Write &quot;&lt;span style=&quot;&quot;font-weight:normal;&quot;&quot; align=center&gt;&quot;
                .Write &quot;&amp;nbsp;( Pagine Totali: &lt;b&gt;&quot; &amp; intTotalPages &amp; &quot;&lt;/b&gt; - visualizza i record &lt;b&gt;&quot; &amp; intStart &amp; &quot;&lt;/b&gt; di &lt;b&gt;&quot; &amp; intFinish &amp;_
                 &quot;&lt;/b&gt; di &lt;b&gt;&quot; &amp; intTotalRecords &amp; &quot;&lt;/b&gt; &quot;
                .Write &quot; - Records/Pagina: &lt;b&gt;&quot; &amp; Rpp &amp; &quot;&lt;/b&gt; - Ordina campo: &quot; &amp; Sorting &amp; &quot; )&lt;/span&gt;&amp;nbsp;&quot;
                .Write &quot;&amp;nbsp;&lt;/td&gt;&lt;/tr&gt;&quot;
                If SearchBox AND Description Then .write &quot;&lt;tr style=&quot;&quot;border-bottom: 1px solid #999999;&quot;&quot;&gt;&lt;td bgcolor=#999999 colspan=9&gt;&lt;/td&gt;&lt;/tr&gt;&quot;
        End if
	End if
	If SearchBox Then
        .Write &quot;&lt;tr &quot; &amp; strTRAttributes &amp; &quot;&gt;&lt;FORM name=frmSearch action=&quot;&quot;&quot;&quot; method=GET&gt;&quot;
        .Write &quot;&lt;td &quot; &amp; strTRAttributes &amp; &quot; align=right&gt;&amp;nbsp;&lt;b&gt;Ricerca&lt;/b&gt; parola(e):&amp;nbsp;&lt;/td&gt;&quot;
        .Write &quot;&lt;td&gt;&lt;INPUT onFocus=clearfield() type=text name=strKeyWords value=&quot;&quot;&quot; &amp; request(&quot;strKeyWords&quot;) &amp; &quot;&quot;&quot; class=tflat size=20&gt;&quot; &amp; msg &amp; &quot;&lt;/td&gt;&quot;
        .Write &quot;&lt;td &quot; &amp; strTRAttributes &amp; &quot;&gt;&lt;INPUT type=submit value='RICERCA' style=&quot;&quot;color:black;font-weight:bold;text-decoration:none;background-color:#D1E0FD;border: solid 1px navy;CURSOR:HAND;WIDTH:60;&quot;&quot;&quot;
        .Write &quot;        onMouseover=&quot;&quot;this.style.color='#4D6185'; this.style.background='#DCECFD'; return true;&quot;&quot;&quot;
        .Write &quot;        onMouseout=&quot;&quot;this.style.color='black'; this.style.background='#D1E0FD'; return true;&quot;&quot;&quot;
        .Write &quot;        NAME='button' TITLE=' Ricerca parole in archivio '&gt;&lt;/td&gt;&quot;
        .Write &quot;&lt;td &quot; &amp; strTRAttributes &amp; &quot;&gt;&amp;nbsp;&lt;input type=radio name=mode value=OR&quot;
                if Themode = &quot;&quot; OR TheMode = &quot;OR&quot; Then .write &quot; CONTROLLATI&quot; End if
        .write  &quot; style=&quot;&quot;cursor:hand;&quot;&quot;&gt;&lt;/td&gt;&lt;td &quot; &amp; strTRAttributes &amp; &quot;&gt;Ogni parola&amp;nbsp;&amp;nbsp;&quot;
        .Write &quot;&lt;/td&gt;&lt;td &quot; &amp; strTRAttributes &amp; &quot;&gt;&lt;input type=radio name=mode value=AND&quot;
                if Themode = &quot;AND&quot; Then .write &quot; Controllati&quot; End if
        .Write &quot; style=&quot;&quot;cursor:hand;&quot;&quot;&gt;&lt;/td&gt;&lt;td &quot; &amp; strTRAttributes &amp; &quot;&gt;Tutte le parole&amp;nbsp;&amp;nbsp;&lt;/td&gt;&quot;
        .write &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;table&quot;&quot; value=&quot;&quot;&quot; &amp; strDbTable &amp; &quot;&quot;&quot;&gt;&lt;/FORM&gt;&quot;

        .Write &quot;&lt;form method=&quot;&quot;post&quot;&quot;&gt;&lt;td &quot; &amp; strTRAttributes &amp; &quot;&gt;&quot;
        .write &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;table&quot;&quot; value=&quot;&quot;&quot; &amp; strDbTable &amp; &quot;&quot;&quot;&gt;&quot;
        .Write &quot;&lt;INPUT TYPE=submit style=&quot;&quot;color:#black;font-weight:bold;text-decoration:none;background-color:#D1E0FD;border: solid 1px navy;CURSOR:HAND;&quot;&quot; &quot;
        .Write &quot;        onMouseover=&quot;&quot;this.style.color='#4D6185'; this.style.background='#DCECFD'; return true;&quot;&quot;&quot;
        .Write &quot;        onMouseout=&quot;&quot;this.style.color='black'; this.style.background='#D1E0FD'; return true;&quot;&quot;&quot;
        .Write &quot; VALUE=&quot;&quot; SQL &quot;&quot; TITLE=&quot;&quot; Toggle SQL debugging window &quot;&quot;&gt;&quot;
        .write &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;dSQL&quot;&quot; value=&quot;&quot;SQL&quot;&quot;&gt;&quot;
        .Write &quot;&amp;nbsp;&lt;/td&gt;&lt;/form&gt;&quot;
        .Write &quot;&lt;/tr&gt;&quot;

  		if strKeyWords &lt;&gt; &quot;&quot; and not bnorec then

        '--- show search result and words find -------------
        .Write &quot;&lt;tr&gt;&lt;td bgcolor=#999999 colspan=9&gt;&lt;/td&gt;&lt;/tr&gt;&quot;
        .Write &quot;&lt;form action=&quot;&quot;&quot;&quot; id=&quot;&quot;f&quot;&quot; onsubmit=&quot;&quot;return hi(this);&quot;&quot; name=frmFind&gt;&quot;
        .Write &quot;&lt;tr &quot; &amp; strTRAttributes &amp; &quot;&gt;&lt;td nowrap &quot; &amp; strTRAttributes &amp; &quot; align=right&gt;&quot;
        .Write &quot;&amp;nbsp;&lt;b&gt;Cerca&lt;/b&gt; in questa pagina:&amp;nbsp;&lt;/td&gt;&lt;td &quot; &amp; strTRAttributes &amp; &quot;&gt;&quot;
        .Write &quot;&lt;input onFocus=clearfieldfind() name='q' type='text' class='tflat' value=&quot;&quot;&quot; &amp; request(&quot;strKeyWords&quot;) &amp; &quot;&quot;&quot; style=&quot;&quot;font-weight:bold;&quot;&quot; size=20&gt;&lt;/td&gt;&quot;
        .Write &quot;&lt;td &quot; &amp; strTRAttributes &amp; &quot;&gt;&lt;INPUT type=submit value='CERCA' style=&quot;&quot;color:black;font-weight:bold;text-decoration:none;background-color:#D1E0FD;border: solid 1px navy;CURSOR:HAND;WIDTH:60;&quot;&quot;&quot;
        .Write &quot;        onMouseover=&quot;&quot;this.style.color='#4D6185'; this.style.background='#DCECFD'; return true;&quot;&quot;&quot;
        .Write &quot;        onMouseout=&quot;&quot;this.style.color='black'; this.style.background='#D1E0FD'; return true;&quot;&quot;&quot;
        .Write &quot;        NAME='find' TITLE=' Trova le parole in questa pagina ' ACCESSKEY=&quot;&quot;s&quot;&quot;&gt;&lt;/td&gt;&quot;
        .Write &quot;&lt;td &quot; &amp; strTRAttributes &amp; &quot; align=center valign=middle&gt;&quot;
        .Write &quot;&lt;input type='radio' id='phrase' name='phrase'&gt;&quot;
        .Write &quot;&lt;/td&gt;&lt;td &quot; &amp; strTRAttributes &amp; &quot;&gt;Frase&lt;/td&gt;&quot;
        .Write &quot;&lt;td &quot; &amp; strTRAttributes &amp; &quot;&gt;&quot;
        .Write &quot;&lt;input type='radio' id='cases' name='cases'&gt;&quot;
        .Write &quot;&lt;/td&gt;&lt;td &quot; &amp; strTRAttributes &amp; &quot;&gt;MAIUSCOLO-minuscolo&amp;nbsp;&quot;
        .Write &quot;&lt;input type='hidden' id='regex' name='regex' checked&gt;&quot;
        .Write &quot;&lt;/td&gt;&lt;/FORM&gt;&lt;/tr&gt;&quot;
 		End if
	End if
        .write &quot;&lt;/table&gt;&quot;

'---- Debug SQL -------
If DebugSQL Then
'                .Write &quot;&lt;span style=&quot;&quot;font-size:1px;&quot;&quot;&gt;&amp;nbsp;&lt;/span&gt;&quot;
'                .Write &quot;&lt;table border=0 cellspacing=0 cellpadding=3 style=&quot;&quot;border: 1 black solid;&quot;&quot; style='font-family:Verdana;font-size:7pt;color:NAVY;'&gt;&lt;tr&gt;&lt;td vAlign=top&gt;&quot;
'                .Write  &quot;&lt;b&gt;SQL Command:&lt;/b&gt; &quot;&quot;&quot; &amp; strSQLString &amp; &quot;&quot;&quot;&quot;
'                .Write &quot;&lt;/td&gt;&lt;/tr&gt;&lt;/table&gt;&quot;

'---- mystrSQL ---------------------------------
                Dim strSQLTemp
                strSQLTemp = Trim(replace(strSQLString, &quot;SELECT * FROM &quot; &amp; strdbTable &amp; &quot;&quot;, &quot;&quot;))
                If len(strSQLTemp) = 0 Then strSQLTemp = request.querystring(&quot;mystrSQL&quot;)
                .Write &quot;&lt;span style=&quot;&quot;font-size:1px;&quot;&quot;&gt;&amp;nbsp;&lt;/span&gt;&quot;
                .Write &quot;&lt;table border=0 CellSpacing=2 CellPadding=0 style='border:solid 1px #999999;'&gt;&quot;
                .Write &quot;&lt;tr &quot; &amp; strTRAttributes &amp; &quot;&gt;&lt;FORM name=mySQLstring action=&quot;&quot;&quot;&quot; method=GET&gt;&quot;
                .Write &quot;&lt;td &quot; &amp; strTRAttributes &amp; &quot; nowrap valign=top align=right colspan=2&gt;&amp;nbsp;&lt;b style=&quot;&quot;color:crimson;&quot;&quot;&gt;SELECT * FROM &quot; &amp; strdbTable &amp; &quot;&amp;nbsp;&lt;/b&gt;&lt;br&gt;&quot;
                .Write &quot;&lt;/td&gt;&lt;td rowspan=3&gt;&lt;textarea name=mystrSQL class=tflat cols=90 rows=6&gt;&quot; &amp; strSQLTemp &amp; &quot;&lt;/textarea&gt;&lt;/td&gt;&lt;/tr&gt;&quot;
                .Write &quot;&lt;tr&gt;&lt;td colspan=2 &quot; &amp; strTRAttributes &amp; &quot; align=right&gt;Enter or modify&amp;nbsp;&lt;br&gt;the &lt;b&gt;SQL&lt;/b&gt; query:&amp;nbsp;&lt;br&gt;&lt;/td&gt;&lt;/tr&gt;&quot;

                .Write &quot;&lt;tr&gt;&lt;td align=right valign=top style=&quot;&quot;padding-top:2px;&quot;&quot;&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&quot;

                .Write &quot;&lt;a href=&quot;&quot;&quot; &amp; strPageName &amp; &quot;?table=&quot;&amp; strDbTable &amp;&quot;&amp;fieldSQL=reset&quot;&quot; style=&quot;&quot;color:&quot;&amp;sResetColor&amp;&quot;;font-weight:bold;text-decoration:none;background-color:&quot;&amp;sResetBGColor&amp;&quot;;CURSOR:HAND;border:solid 1px navy;WIDTH:43;padding-top:1px;padding-bottom:2px;&quot;&quot;&quot;
                .Write &quot;        onMouseover=&quot;&quot;this.style.color='#4D6185'; this.style.background='#DCECFD'; return true;&quot;&quot;&quot;
                .Write &quot;        onMouseout=&quot;&quot;this.style.color='&quot;&amp;sResetColor&amp;&quot;'; this.style.background='&quot;&amp;sResetBGColor&amp;&quot;'; return true;&quot;&quot;&quot;
                 .Write &quot; title=&quot;&quot; AZZERA FILTRI E QUERY &quot;&quot;&gt;&amp;nbsp;RESET&amp;nbsp;&lt;/a&gt;&quot;

                .Write &quot;&lt;/td&gt;&lt;td valign=top align=right &quot; &amp; strTRAttributes &amp; &quot;&gt;&quot;

                .Write &quot;&lt;INPUT type=submit value='QUERY' style=&quot;&quot;color:black;font-weight:bold;text-decoration:none;background-color:#D1E0FD;border: solid 1px navy;CURSOR:HAND;WIDTH:43;&quot;&quot;&quot;
                .Write &quot;        onMouseover=&quot;&quot;this.style.color='#4D6185'; this.style.background='#DCECFD'; return true;&quot;&quot;&quot;
                .Write &quot;        onMouseout=&quot;&quot;this.style.color='black'; this.style.background='#D1E0FD'; return true;&quot;&quot;&quot;
                .Write &quot;        NAME='button' TITLE=' Invia la tua Query '&gt;&amp;nbsp;&quot;

                .Write &quot;&lt;/td&gt;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;table&quot;&quot; value=&quot;&quot;&quot; &amp; strDbTable &amp; &quot;&quot;&quot;&gt;&lt;/FORM&gt;&lt;/tr&gt;&lt;/table&gt;&quot;
End if

        .Write &quot;&lt;/td&gt;&lt;/tr&gt;&lt;/table&gt;&quot;

end with

End function


'----------------------------------------------------------------------
Sub dbedit()
        W &quot;&lt;Style type=&quot;&quot;text/css&quot;&quot;&gt;&quot;
        W &quot;&lt;!--&quot;
        W &quot;TR, TD {Font-family:Verdana;font-weight:normal;font-size:10px;color:black;}&quot;
        W &quot;select {font-family:Verdana, Tahoma;font-size:10px;color:#000066;border-style:solid;border-color:#0066CC;background-color: #E0E0E0;}&quot;
        W &quot;input {font-family:Verdana, Tahoma;font-size:10px;color:#000066;padding-left:3px;padding-right:3px;}&quot;
        W &quot;textarea {font-family:Verdana, Tahoma;font-size:10px;color:#000066;padding-left:3px;padding-right:3px;}&quot;
        W &quot;//--&gt;&quot;
        W &quot;&lt;/style&gt;&quot;
' ----- Remember the referer page ---
If len(Request.QueryString(&quot;url&quot;)) &gt; 0 Then
        Session(&quot;referer&quot;) = Session(&quot;basereferer&quot;) &amp; &quot;?table=&quot; &amp; Request.QueryString(&quot;table&quot;)
End if
If len(Request.QueryString(&quot;strdbtable&quot;)) &gt; 0 Then
        Session(&quot;TABLE&quot;) = Request.QueryString(&quot;strdbtable&quot;)
End if
If len(Request.QueryString(&quot;strdbsource&quot;)) &gt; 0 Then
        Session(&quot;Source&quot;) = Request.QueryString(&quot;strdbsource&quot;)
End if
If len(Request.QueryString(&quot;strDefaultSort&quot;)) &gt; 0 Then
        Session(&quot;PRIMARYKEY&quot;) = Replace(Request.QueryString(&quot;strDefaultSort&quot;), DefaultSort, &quot;&quot;)
End if
        Set objRS = Server.CreateObject(&quot;ADODB.Recordset&quot;)

w &quot;&lt;TABLE cellSpacing=0 cellPadding=4 border=0 align=center style='border:solid 1px #999999;' bgcolor=white&gt;&lt;TBODY&gt;&lt;TR&gt;&lt;td vAlign=top&gt;&quot;
w &quot;&lt;table border=0 cellpadding=0 cellspacing=0 align=center&gt;&lt;tr&gt;&lt;td&gt;&quot;

  Set objConn = Server.CreateObject(&quot;ADODB.Connection&quot;)
        objConn.Open dsn

Select Case Request.QueryString(&quot;action&quot;)
        Case &quot;edit&quot;
                Session(&quot;queryS&quot;) = Request.Querystring
                w &quot;&lt;div style=&quot;&quot;background-color:yellow;&quot;&quot;&gt;&quot; &amp; Session(&quot;msg&quot;) &amp; &quot;&lt;/div&gt;&quot;
                Call EditField ()
        Case &quot;add&quot;
                Session(&quot;queryS&quot;) = Request.Querystring
                w &quot;&lt;div style=&quot;&quot;background-color:yellow;&quot;&quot;&gt;&quot; &amp; Session(&quot;msg&quot;) &amp; &quot;&lt;/div&gt;&quot;
                Call AddField ()
        Case &quot;delete&quot;
                Session(&quot;queryS&quot;) = Request.Querystring
                w &quot;&lt;div style=&quot;&quot;background-color:yellow;&quot;&quot;&gt;&quot; &amp; Session(&quot;msg&quot;) &amp; &quot;&lt;/div&gt;&quot;
                Call DeleteField ()
        Case &quot;exe&quot;
                If Request.QueryString(&quot;do&quot;) = &quot;doedit&quot; Then
                        Call DoEdit ()
                ElseIf Request.QueryString(&quot;do&quot;) = &quot;doadd&quot; Then
                        Call DoAdd ()
                ElseIf Request.QueryString(&quot;do&quot;) = &quot;dodelete&quot; Then
                        Call DoDelete ()
                End if
End Select
        objConn.Close
        Set objConn = Nothing
w &quot;&lt;/td&gt;&lt;/tr&gt;&lt;/table&gt;&quot;
w &quot;&lt;/td&gt;&lt;/tr&gt;&lt;/table&gt;&quot;
End sub
''----------------------------------------------------------------------
Sub EditField ()
		Dim cspan, varformnum, strname
		Dim FieldCounter, field, bgcolor
		Dim bSelTrue, bSelFalse
		SQL2 = &quot;SELECT * FROM &quot; &amp; Session(&quot;TABLE&quot;) &amp; &quot; WHERE &quot; &amp; Session(&quot;PRIMARYKEY&quot;) &amp; &quot; LIKE ('%&quot; &amp; request.querystring(&quot;member&quot;) &amp; &quot;%')&quot;
		objRS.Open SQL2, objConn, 1, 3
		w &quot;&lt;table border=0 cellpadding=4 cellspacing=0 align=center&gt;&quot;

		if Request(&quot;sft&quot;) = &quot;ok&quot; Then
			If Session(&quot;bShowFieldType&quot;) = False Then Session(&quot;bShowFieldType&quot;) = True else Session(&quot;bShowFieldType&quot;) = False end if
			If ISNULL(Session(&quot;bShowFieldType&quot;)) Then Session(&quot;bShowFieldType&quot;) = bShowFieldType else bShowFieldType = Session(&quot;bShowFieldType&quot;) end if
		end if
			If Session(&quot;bShowFieldType&quot;) then cspan = 4 else cspan=2
				w &quot;&lt;FORM name=&quot;&quot;frmShowFieldType&quot;&quot; action=&quot;&quot;?&quot;&amp;Request.querystring&amp;&quot;&quot;&quot; method=POST&gt;&quot;
				w &quot;&lt;tr bgcolor=white&gt;&lt;td colspan=&quot; &amp; cspan &amp; &quot; align=center&gt;&lt;b&gt;Modifica record nella tabella: &quot;&quot;&quot; &amp; Session(&quot;TABLE&quot;) &amp; &quot;&quot;&quot;&lt;/b&gt;&quot;
				w &quot;&lt;input type=&quot;&quot;image&quot;&quot; src=&quot;&quot;&quot; &amp; strimgDir &amp; &quot;definition.gif&quot;&quot; height=&quot;&quot;14&quot;&quot; width=&quot;&quot;15&quot;&quot; align=&quot;&quot;absmiddle&quot;&quot; alt=&quot;&quot;Alterna campo di definizione visualizzazione &quot;&quot; border=0 style=&quot;&quot;border:none;cursor:hand;&quot;&quot; value=&quot;&quot;ok&quot;&quot; onClick=&quot;&quot;this.form.submit();&quot;&quot;&gt;&quot;
				w &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;sft&quot;&quot; value=&quot;&quot;ok&quot;&quot;&gt;&quot;

				w &quot;&lt;/td&gt;&lt;/tr&gt;&quot;
				w &quot;&lt;/form&gt;&quot;

            w &quot;&lt;form action=&quot;&quot;&quot; &amp; Request.Servervariables(&quot;SCRIPT_NAME&quot;) &amp; &quot;?action=exe&amp;do=doedit&quot;&quot; Method=&quot;&quot;Post&quot;&quot; name=&quot;&quot;doEditField&quot;&quot;&gt;&quot;
             FieldCounter = 1
        For Each field in objRS.Fields
                        bgcolor = &quot;#E0E0E0&quot;
                        If FieldCounter Mod 2 = 0 Then bgcolor = &quot;#F0F0F0&quot;
                        If Instr(Session(&quot;msg&quot;), field.name) &gt; 0 Then bgcolor = &quot;#FF0000&quot;
                        w &quot;&lt;TR bgcolor=&quot; &amp; bgcolor &amp; &quot;&gt;&lt;TD align=right&gt;&lt;b&gt;&quot; &amp; Trim(GetColDescription(field.name)) &amp; &quot;&lt;/b&gt;&amp;nbsp;&lt;/TD&gt;&lt;TD&gt;&quot;
               If Session(&quot;bShowFieldType&quot;) then
                         w GetTypeString(field.type) &amp; &quot;&amp;nbsp;&lt;/TD&gt;&lt;TD&gt;&quot;
                       w GetAttributesString(field.type) &amp; &quot;&amp;nbsp;&lt;/TD&gt;&lt;TD&gt;&quot;
                End if

        strname = field.name
        varformnum = &quot;1&quot;
                If NOT IsPrimaryKey_inDBSchema(field.name, Session(&quot;TABLE&quot;)) Then
                        if IsExcluded(field.type) OR field.name = Session(&quot;PRIMARYKEY&quot;) then
                                        if field.type = adLongVarBinary then
                                                w &quot;&lt;img src=&quot;&quot;&quot; &amp; strimgDir &amp; &quot;no.gif&quot;&quot; width=16 height=16 border=0 align=absmiddle alt=&quot;&quot; Ccampo dati Binario&quot;&quot;&gt;&quot;
                                        else
                                                w Trim(objRS(field.name))
                                        end if
                        else
                                if (field.type = adLongVarChar) or (field.type = adLongVarWChar) then
                                        ' MEMO -&gt; TEXTAREA
                                        w &quot;&lt;textarea name=&quot;&quot;&quot; &amp; field.name &amp; &quot;&quot;&quot; cols=60 rows=5&gt;&quot; &amp; objRS(field.name) &amp; &quot;&lt;/textarea&gt;&quot;
														w &quot;&amp;nbsp;&lt;a href=&quot;&quot;#&quot;&quot; onclick=&quot;&quot;javascript:window.open('&quot; &amp; strIncPath &amp; &quot;ZoomText.asp?CallingForm=&quot; &amp; varformnum &amp; &quot;&amp;amp;TextField=&quot; &amp; server.urlencode(strName) &amp; _
														&quot;', 'zoomtext','height=400,width=600,scrollbars=yes,resizable=yes');return false&quot;&quot;&gt;&lt;img alt=&quot;&quot; Expand and edit text &quot;&quot; SRC=&quot;&quot;&quot; &amp; strIncPath &amp; &quot;images/u_Edit.gif&quot;&quot; border=0 width=13 height=13&gt;&lt;/a&gt;&quot;
                               elseif (field.type = adBoolean) then
                                        ' -&gt; COMBO
                                        bSelTrue  = &quot;&quot;
                                        bSelFalse = &quot;&quot;
                                                if field.value = true then
                                                        bSelTrue = &quot; selected&quot;
                                                else
                                                        bSelFalse = &quot; selected&quot;
                                                end if
                                        w &quot;&lt;select name=&quot;&quot;&quot; &amp; field.name &amp; &quot;&quot;&quot; class=inputbox&gt;&quot;
                                        w &quot;&lt;option&quot; &amp; bSelTrue &amp; &quot;&gt;&quot; &amp; CStr(True)
                                        w &quot;&lt;option&quot; &amp; bSelFalse &amp; &quot;&gt;&quot; &amp; CStr(False)
                                        w &quot;&lt;/select&gt;&quot;
                                else
                                        ' -&gt; INPUT
                                                        w &quot;&lt;input type=&quot;&quot;text&quot;&quot; name=&quot;&quot;&quot; &amp; field.name &amp; &quot;&quot;&quot; class=inputbox maxlength=255 size=60 value=&quot;&quot;&quot; &amp; objRS(field.name) &amp; &quot;&quot;&quot;&gt;&quot;
                                end if
                        end if
                Else
                        w &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;Member&quot;&quot; value=&quot;&quot;&quot; &amp; objRS(field.name) &amp; &quot;&quot;&quot;&gt;&quot;
                        w Trim(objRS(field.name))
                End if
                        If Instr(Session(&quot;msg&quot;), field.name) &gt; 0 Then w &quot;&lt;/td&gt;&lt;/tr&gt;&lt;TR bgcolor=&quot; &amp; bgcolor &amp; &quot;&gt;&lt;TD colspan=2 style=&quot;&quot;background-color:#ffffff;border: solid 2px red;&quot;&quot;&gt;&quot; &amp; Session(&quot;msg&quot;)
                        w &quot;&lt;/TD&gt;&lt;/TR&gt;&quot;
                        FieldCounter = FieldCounter + 1
        Next
        w &quot;&lt;tr bgcolor=white&gt;&lt;td align=center colspan=&quot; &amp; cspan &amp; &quot; valign=middle&gt;&quot;
        w &quot;&lt;input type=&quot;&quot;submit&quot;&quot; name=&quot;&quot;Submit&quot;&quot; value=&quot;&quot; Aggiorna Record &quot;&quot; style=&quot;&quot;color:black;font-weight:bold;text-decoration:none;background-color:#D1E0FD;border: solid 1px navy;CURSOR:HAND;WIDTH:120;&quot;&quot;&quot;
        W &quot;        onMouseover=&quot;&quot;this.style.color='#4D6185'; this.style.background='#DCECFD'; return true;&quot;&quot;&quot;
        W &quot;        onMouseout=&quot;&quot;this.style.color='black'; this.style.background='#D1E0FD'; return true;&quot;&quot;&gt;&quot;
        w &quot;&amp;nbsp;&amp;nbsp;&lt;a href=&quot;&quot;&quot;&amp;Session(&quot;referer&quot;)&amp;&quot;&quot;&quot; style=&quot;&quot;color:black;font-weight:bold;text-decoration:none;background-color:#D1E0FD;border: solid 1px navy;CURSOR:HAND;&quot;&quot;&quot;
        W &quot;        onMouseover=&quot;&quot;this.style.color='#4D6185'; this.style.background='#DCECFD'; return true;&quot;&quot;&quot;
        W &quot;        onMouseout=&quot;&quot;this.style.color='black'; this.style.background='#D1E0FD'; return true;&quot;&quot;&gt;&amp;nbsp;&amp;nbsp;Esci&amp;nbsp;&amp;nbsp;&lt;/a&gt;&quot;
        w &quot;&lt;/td&gt;&lt;/tr&gt;&lt;/form&gt;&lt;/table&gt;&quot;
        objRS.Close
        Set objRS = Nothing
End Sub '-- EditField
''----------------------------------------------------------------------
Sub DoEdit ()
        objRS.Open Session(&quot;TABLE&quot;), objConn, 1, 3
                if instr(Request.Form(&quot;Member&quot;), &quot;,&quot;) &gt; 0 then
                        w &quot;La Tabella: &quot; &amp; Session(&quot;PRIMARYKEY&quot;) &amp; &quot; ha piÃ¹ di una chiave primaria, non puÃ² essere modificato &lt;br&gt;&quot;
                        w &quot;&lt;div align=center&gt;&lt;INPUT TYPE=BUTTON class=&quot;&quot;button&quot;&quot; &quot;&amp; _
                        &quot;onClick=&quot;&quot;location.href='&quot;&amp;Session(&quot;referer&quot;)&amp;&quot;'&quot;&quot; &quot;&amp; _
                        &quot;NAME=&quot;&quot;button1&quot;&quot; VALUE=&quot;&quot; Exit &quot;&quot; TITLE=&quot;&quot; Esci &quot;&quot;&gt;&lt;/div&gt;&quot;
                        exit sub
                end if
        On error resume next
                objRS.Find Session(&quot;PRIMARYKEY&quot;) &amp; &quot;='&quot; &amp; Request.Form(&quot;Member&quot;) &amp; &quot;'&quot;
                        Call ExecFieldUpdate ()
                objRS.Update
                        If Err.number &lt;&gt; 0 Then
                                Session(&quot;msg&quot;) = &quot;&lt;b style=&quot;&quot;color:red;font-size:12px;&quot;&quot;&gt;&amp;nbsp;ERROR&lt;/b&gt; : &quot; &amp; Err.description
                        Else
                                Session(&quot;msg&quot;) = &quot;&lt;b style=&quot;&quot;color:red;font-size:12px;&quot;&quot;&gt;&amp;nbsp;Record N.&quot; &amp; Request.Form(&quot;member&quot;) &amp; &quot; Ã¨ stato aggiornato. &lt;/b&gt;&quot;
                        End if
                objRS.Close
                Set objRS = Nothing
        If Err.number &lt;&gt; 0 Then
                Response.redirect Request.Servervariables(&quot;SCRIPT_NAME&quot;) &amp; &quot;?&quot; &amp; Session(&quot;queryS&quot;)
        Else
                Response.redirect Session(&quot;referer&quot;)
        End if
        On error goto 0
End Sub '--- Doedit
''----------------------------------------------------------------------
Sub AddField ()
        Dim varformnum, strname, cspan
        Dim FieldCounter, field, bgcolor, UCfield
        Dim bSelTrue, bSelFalse
        SQL2 = &quot;SELECT * FROM &quot; &amp; Session(&quot;TABLE&quot;)
        objRS.Open SQL2, objConn, 1, 3
        w &quot;&lt;table border=0 cellpadding=4 cellspacing=0 align=center&gt;&quot;
        If bShowFieldType then cspan = 4 else cspan=2
        if Request(&quot;sft&quot;) = &quot;ok&quot; Then
              If Session(&quot;bShowFieldType&quot;) = False Then Session(&quot;bShowFieldType&quot;) = True else Session(&quot;bShowFieldType&quot;) = False end if
       		  If ISNULL(Session(&quot;bShowFieldType&quot;)) Then Session(&quot;bShowFieldType&quot;) = bShowFieldType else bShowFieldType = Session(&quot;bShowFieldType&quot;) end if
       end if
        If Session(&quot;bShowFieldType&quot;) then cspan = 4 else cspan=2
            w &quot;&lt;FORM name=&quot;&quot;frmShowFieldType&quot;&quot; action=&quot;&quot;?&quot;&amp;Request.querystring&amp;&quot;&quot;&quot; method=POST&gt;&quot;
            w &quot;&lt;tr bgcolor=white&gt;&lt;td colspan=&quot; &amp; cspan &amp; &quot; align=center&gt;&lt;b&gt;Aggiungi record nella tabella: &quot;&quot;&quot; &amp; Session(&quot;TABLE&quot;) &amp; &quot;&quot;&quot;&lt;/b&gt;&quot;
            w &quot;&lt;input type=&quot;&quot;image&quot;&quot; src=&quot;&quot;&quot; &amp; strimgDir &amp; &quot;definition.gif&quot;&quot; height=&quot;&quot;14&quot;&quot; width=&quot;&quot;15&quot;&quot; align=&quot;&quot;absmiddle&quot;&quot; alt=&quot;&quot; Alterna campo di definizione visualizzazione &quot;&quot; border=0 style=&quot;&quot;border:none;cursor:hand;&quot;&quot; value=&quot;&quot;ok&quot;&quot; onClick=&quot;&quot;this.form.submit();&quot;&quot;&gt;&quot;
            w &quot;&lt;input type=&quot;&quot;hidden&quot;&quot; name=&quot;&quot;sft&quot;&quot; value=&quot;&quot;ok&quot;&quot;&gt;&quot;

				W &quot;&lt;/td&gt;&lt;/tr&gt;&quot;
             w &quot;&lt;/form&gt;&quot;

        w &quot;&lt;form action=&quot;&quot;&quot; &amp; Request.Servervariables(&quot;SCRIPT_NAME&quot;) &amp; &quot;?action=exe&amp;do=doadd&quot;&quot; Method=&quot;&quot;Post&quot;&quot;&gt;&quot;
       FieldCounter = 1
        If NOT objRS.EOF Then objRS.movelast
        For Each field in objRS.Fields
                        bgcolor = &quot;#E0E0E0&quot;
                        If FieldCounter Mod 2 = 0 Then bgcolor = &quot;#F0F0F0&quot;
                        If Instr(Session(&quot;msg&quot;), field.name) &gt; 0 Then bgcolor = &quot;#FF0000&quot;
                        w &quot;&lt;TR bgcolor=&quot; &amp; bgcolor &amp; &quot;&gt;&lt;TD align=right&gt;&lt;b&gt;&quot; &amp; Trim(GetColDescription(field.name)) &amp; &quot;&lt;/b&gt;&amp;nbsp;&lt;/TD&gt;&lt;TD&gt;&quot;
                        If bShowFieldType then
                               w GetTypeString(field.type) &amp; &quot;&amp;nbsp;&lt;/TD&gt;&lt;TD&gt;&quot;  
                             w GetAttributesString(field.type) &amp; &quot;&amp;nbsp;&lt;/TD&gt;&lt;TD&gt;&quot;
                        End if
                        strname = field.name
                        varformnum = &quot;1&quot;
                if IsExcluded(field.type) OR field.name = Session(&quot;PRIMARYKEY&quot;) then
                        if (field.type = adLongVarWChar) then
                                w Trim(objRS(field.name)) + 1
                        end if
                else
                        if (field.type = adLongVarChar) or (field.type = adLongVarWChar) then
                                ' -&gt; MEMO -&gt; TEXTAREA
                                w &quot;&lt;textarea name=&quot;&quot;&quot; &amp; field.name &amp; &quot;&quot;&quot; cols=60 rows=5&gt;&lt;/textarea&gt;&quot;
                                w &quot;&amp;nbsp;&lt;a href=&quot;&quot;#&quot;&quot; onclick=&quot;&quot;javascript:window.open('&quot; &amp; strIncPath &amp; &quot;ZoomText.asp?CallingForm=&quot; &amp; varformnum &amp; &quot;&amp;amp;TextField=&quot; &amp; server.urlencode(strName) &amp; _
                                &quot;', 'zoomtext','height=400,width=600,scrollbars=yes');return false&quot;&quot;&gt;&lt;img alt=&quot;&quot; Espandere e modificare il testo &quot;&quot; SRC=&quot;&quot;&quot; &amp; strIncPath &amp; &quot;images/u_Edit.gif&quot;&quot; border=0 width=13 height=13&gt;&lt;/a&gt;&quot;
                        elseif (field.type = adBoolean) then
                                ' -&gt; COMBO
                                w &quot;&lt;select name=&quot;&quot;&quot; &amp; field.name &amp; &quot;&quot;&quot; class=inputbox&gt;&quot;
                                w &quot;&lt;option&quot; &amp; bSelFalse &amp; &quot;&gt;&quot; &amp; CStr(False)
                                w &quot;&lt;option&quot; &amp; bSelTrue &amp; &quot;&gt;&quot; &amp; CStr(True)
                                w &quot;&lt;/select&gt;&quot;
                        else
                                ' -&gt; INPUT
                                w &quot;&lt;input type=&quot;&quot;text&quot;&quot; name=&quot;&quot;&quot; &amp; field.name &amp; &quot;&quot;&quot; class=inputbox maxlength=255 size=60&gt;&quot;
                        end if
                end if
                        If Instr(Session(&quot;msg&quot;), field.name) &gt; 0 Then w &quot;&lt;/td&gt;&lt;/tr&gt;&lt;TR bgcolor=&quot; &amp; bgcolor &amp; &quot;&gt;&lt;TD colspan=2 style=&quot;&quot;background-color:#ffffff;border: solid 2px red;&quot;&quot;&gt;&quot; &amp; Session(&quot;msg&quot;)
                        w &quot;&lt;/TD&gt;&lt;/TR&gt;&quot;
                        FieldCounter = FieldCounter + 1
        Next
        w &quot;&lt;tr bgcolor=white&gt;&lt;td align=center colspan=&quot; &amp; cspan &amp; &quot; valign=middle&gt;&quot;
        w &quot;&lt;input type=&quot;&quot;submit&quot;&quot; name=&quot;&quot;Submit&quot;&quot; value=&quot;&quot; Aggiungi Record &quot;&quot; style=&quot;&quot;color:black;font-weight:bold;text-decoration:none;background-color:#D1E0FD;border: solid 1px navy;CURSOR:HAND;WIDTH:120;&quot;&quot;&quot;
        W &quot;        onMouseover=&quot;&quot;this.style.color='#4D6185'; this.style.background='#DCECFD'; return true;&quot;&quot;&quot;
        W &quot;        onMouseout=&quot;&quot;this.style.color='black'; this.style.background='#D1E0FD'; return true;&quot;&quot;&gt;&quot;
        w &quot;&amp;nbsp;&amp;nbsp;&lt;a href=&quot;&quot;&quot;&amp;Session(&quot;referer&quot;)&amp;&quot;&quot;&quot; style=&quot;&quot;color:black;font-weight:bold;text-decoration:none;background-color:#D1E0FD;border: solid 1px navy;CURSOR:HAND;&quot;&quot;&quot;
        W &quot;        onMouseover=&quot;&quot;this.style.color='#4D6185'; this.style.background='#DCECFD'; return true;&quot;&quot;&quot;
        W &quot;        onMouseout=&quot;&quot;this.style.color='black'; this.style.background='#D1E0FD'; return true;&quot;&quot;&gt;&amp;nbsp;&amp;nbsp;Esci&amp;nbsp;&amp;nbsp;&lt;/a&gt;&quot;
        w &quot;&lt;/td&gt;&lt;/tr&gt;&lt;/form&gt;&lt;/table&gt;&quot;
        objRS.Close
        Set objRS = Nothing
End Sub '--- Addfield
''----------------------------------------------------------------------
Sub DoAdd ()
        On error resume next
                SQL2 = &quot;SELECT * FROM &quot; &amp; Session(&quot;TABLE&quot;)
                objRS.Open SQL2, objConn, 1, 3
                objRS.AddNew
                        Call ExecFieldUpdate ()
                objRS.Update
                        If Err.number &lt;&gt; 0 Then
                                Session(&quot;msg&quot;) = &quot;&lt;b style=&quot;&quot;color:red;font-size:12px;&quot;&quot;&gt;ERRORE&lt;/b&gt; : &quot; &amp; Err.description
                        Else
                                Session(&quot;msg&quot;) = &quot;&lt;b style=&quot;&quot;color:red;font-size:12px;&quot;&quot;&gt;Il record Ã¨ stato aggiunto.&lt;/b&gt;&quot;
                        End if
                objRS.Close
                Set objRS = Nothing
                If Err.number &lt;&gt; 0 Then
                        Response.redirect Request.Servervariables(&quot;SCRIPT_NAME&quot;) &amp; &quot;?&quot; &amp; Session(&quot;queryS&quot;)
                Else
                        Response.redirect Session(&quot;referer&quot;)
                End if
        On error goto 0
End Sub '--- DoAdd
''----------------------------------------------------------------------
Sub DeleteField ()
        Dim Field
        SQL2 = &quot;SELECT * FROM &quot; &amp; Session(&quot;TABLE&quot;) &amp; &quot; WHERE &quot; &amp; Session(&quot;PRIMARYKEY&quot;) &amp; &quot; LIKE ('%&quot; &amp; request.querystring(&quot;member&quot;) &amp; &quot;%')&quot;
        objRS.Open SQL2, objConn, 1, 3
                        w &quot;&lt;table border=0 cellpadding=2 cellspacing=0 align=center bgcolor=white&gt;&lt;tr&gt;&lt;td width=&quot;&quot;100%&quot;&quot; align=center&gt;&lt;br&gt;&quot;
                        w &quot;Are you shure to delete record # &lt;b&gt;&quot; &amp; objRS(Session(&quot;PRIMARYKEY&quot;)) &amp; &quot;&lt;/b&gt; ?&lt;br&gt;&lt;p&gt;&quot;
                        w &quot;&lt;table border=0 cellpadding=2 cellspacing=1 align=center bgcolor=#FFFFFF style='border:solid 1px #999999;'&gt;&lt;tr&gt;&quot;
                                For each Field in objRS.Fields
                                                w &quot;&lt;td align=center bgcolor=#385C8E&gt;&lt;b style=&quot;&quot;color:white;&quot;&quot;&gt;&quot; &amp; GetColDescription(field.name) &amp; &quot;&lt;/b&gt;&lt;/td&gt;&quot;
                                Next
                                w &quot;&lt;/tr&gt;&lt;tr&gt;&quot;
                                        For each Field in objRS.Fields
                                        if NOT IsExcluded(field.type) then
                                                        w &quot;&lt;td align=center bgcolor=#E0E0E0&gt;&quot; &amp; Field &amp; &quot;&lt;/td&gt;&quot;
                                        else
                                                if field.type = adLongVarBinary then
                                                        w &quot;&lt;td align=center bgcolor=#E0E0E0&gt;&lt;img src=&quot;&quot;&quot; &amp; strimgDir &amp; &quot;no.gif&quot;&quot; width=16 height=16 border=0 align=absmiddle alt=&quot;&quot; Campo dati Binario &quot;&quot;&gt;&lt;/td&gt;&quot;
                                                else
                                                        w &quot;&lt;td align=center bgcolor=#E0E0E0&gt;&amp;nbsp;&lt;/td&gt;&quot;
                                                end if
                                        end if
                                Next
                w &quot;&lt;/tr&gt;&lt;/table&gt;&lt;br&gt;&quot;
                w &quot;&lt;a href=&quot;&quot;&quot; &amp; Request.Servervariables(&quot;SCRIPT_NAME&quot;) &amp; &quot;?action=exe&amp;do=dodelete&amp;member=&quot; &amp; objRS(Session(&quot;PRIMARYKEY&quot;)) &amp; &quot;&quot;&quot; style=&quot;&quot;color:black;font-weight:bold;text-decoration:none;background-color:#D1E0FD;border: solid 1px navy;CURSOR:HAND;WIDTH:120;padding-bottom:1px;padding-top:1px&quot;&quot;&quot;
                W &quot;        onMouseover=&quot;&quot;this.style.color='#4D6185'; this.style.background='#DCECFD'; return true;&quot;&quot;&quot;
                W &quot;        onMouseout=&quot;&quot;this.style.color='black'; this.style.background='#D1E0FD'; return true;&quot;&quot;&gt;&quot;
                W &quot;&lt;b&gt;&amp;nbsp;Cancello !&amp;nbsp;&lt;/b&gt;&lt;/a&gt;&amp;nbsp;&amp;nbsp;&quot;
                w &quot;&lt;a href=&quot;&quot;&quot;&amp;Session(&quot;referer&quot;)&amp;&quot;&quot;&quot; style=&quot;&quot;color:black;font-weight:bold;text-decoration:none;background-color:#D1E0FD;border: solid 1px navy;CURSOR:HAND;WIDTH:60;padding-top:1px;padding-bottom:1px;&quot;&quot;&quot;
                W &quot;        onMouseover=&quot;&quot;this.style.color='#4D6185'; this.style.background='#DCECFD'; return true;&quot;&quot;&quot;
                W &quot;        onMouseout=&quot;&quot;this.style.color='black'; this.style.background='#D1E0FD'; return true;&quot;&quot;&gt;&quot;
                W &quot;&amp;nbsp;Esci&amp;nbsp;&lt;/a&gt;&lt;br&gt;&quot;
                w &quot;&lt;/font&gt;&lt;/td&gt;&lt;/tr&gt;&lt;/table&gt;&quot;
        objRS.Close
        Set objRS = Nothing
End Sub '--- DeleteField
''----------------------------------------------------------------------
Sub DoDelete ()
        On error resume next
        SQL2 = &quot;DELETE FROM &quot; &amp; Session(&quot;TABLE&quot;) &amp; &quot; WHERE &quot; &amp; Session(&quot;PRIMARYKEY&quot;) &amp; &quot; LIKE ('%&quot; &amp; request.querystring(&quot;member&quot;) &amp; &quot;%')&quot;
        Set objRS = objConn.Execute(SQL2)
        If Err.number &lt;&gt; 0 Then
                Session(&quot;msg&quot;) = &quot;&lt;b style=&quot;&quot;color:red;font-size:12px;&quot;&quot;&gt;ERRORE&lt;/b&gt; : &quot; &amp; Err.description
                Response.redirect Request.Servervariables(&quot;SCRIPT_NAME&quot;) &amp; &quot;?&quot; &amp; Session(&quot;queryS&quot;)
        Else
                Session(&quot;msg&quot;) = &quot;&lt;b style=&quot;&quot;color:red;font-size:12px;&quot;&quot;&gt;Il Record Ã¨ stato rimosso.&lt;/b&gt;&quot;
                Response.redirect Session(&quot;referer&quot;)
        End if
        On error goto 0
End Sub '--- DoDelete
''----------------------------------------------------------------------
Private Sub ExecFieldUpdate ()
On error resume next
Dim Field, Item
        For each Field in Request.Form
                For each Item in objRS.Fields
                        If lcase(Item.name) = lcase(Field) Then
                                Select Case Item.Type
                                        Case 3 '&quot;adInteger&quot;
                                                If isnumeric(request.form(Field)) then
                                                        objRS.Fields(Field) = Int(request.form(Field))
                                                Else
                                                        objRS.Fields(Field) = 0
                                                End if
                                        Case 11 '&quot;adBoolean&quot;
                                                objRS.Fields(Field) = CBool(request.form(Field))
                                        Case 7, 133 '&quot;adDate&quot;, &quot;adDBDate&quot;
                                                If IsDate(Request.Form(Field)) Then
                                                        objRS.Fields(Field) = dataDB(request.form(Field))
                                                End if
                                        Case Else
                                                objRS.Fields(Field) = Request.Form(Field)
                                End Select
                        End if
                Next
        Next
        If Err.number &lt;&gt; 0 Then
                Session(&quot;msg&quot;) = &quot;&lt;b style=&quot;&quot;color:red;font-size:12px;&quot;&quot;&gt;ERRORE&lt;/b&gt; : &quot; &amp; Err.description
        End if
End Sub '--- ExecFieldUpdate
''----------------------------------------------------------------------
Private Function IsPrimaryKey_inDBSchema ( sField , sTable )
'' Checks if the given field is defined in db schema
                Dim bReturn
                bReturn = False
                Dim rsSchema
                Set rsSchema = Server.CreateObject(&quot;ADODB.Recordset&quot;)
                rsSchema.CursorType = 2 'adOpenDynamic
                Set rsSchema = objConn.openSchema(12) '(adSchemaIndexes)
                do while (not rsSchema.EOF) and (not bReturn)
                        if LCase(rsSchema(&quot;TABLE_NAME&quot;)) = LCase(sTable) then
                                if LCase(rsSchema(&quot;COLUMN_NAME&quot;)) = LCase(sField) then
                                        if rsSchema(&quot;PRIMARY_KEY&quot;) then
                                                bReturn = True
                                        end if
                                end if
                        end if
                        rsSchema.MoveNext
                loop
                rsSchema.Close
                Set rsSchema = Nothing
                IsPrimaryKey_inDBSchema = bReturn
End Function '--- IsPrimaryKey_inDBSchema
''----------------------------------------------------------------------
Private Function dataDB(varDate)
        Dim myYear
        Dim myDay
        Dim myMonth
                vardate=CDate(varDate)
                myYear = Year(varDate)
                myDay = Day(varDate)
                myMonth = Month(varDate)
        datadb = myYear &amp; &quot;/&quot;&amp; myMonth &amp; &quot;/&quot; &amp; myday
End Function '--- dataDB
'--------------------------------------------------------------------
%&gt;
</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5CDBList%2DBuoni%2DSpesa">Íàçàä</a>]