ho realizzato questo menù a tendina in una form di ricerca .
in pratica sono due campi il secondo si aggiorna in base alla scelta fatta nel primo e fin quì tutto ok
la domanda è come faccio a mantenere la scelta fatta all'interno del primo campo?
quando io effettuo una selezione il secondo si aggiorna ma sul primo la scelta sparisce invece io voglio che resti ancora visibile

ecco il link per capire : .....roma122.it/AreaDownload/cerca.asp

<table width="273" border="1" align="center">
  <tr>
    <td width="155">Categoria</td>
    <td width="102">      <form action="cerca.asp" method="get" name="cerca" id="cerca">
          <select name="Sel_cat" id="Sel_cat" onchange="submit()">
            <option value="value">--</option>
            <%
While (NOT categoria.EOF)
%>
            <option value="<%=(categoria.Fields.Item("codifica").Value)%>"><%=(categoria.Fields.Item("Categoria").Value)%></option>
            <%
  categoria.MoveNext()
Wend
If (categoria.CursorType > 0) Then
  categoria.MoveFirst
Else
  categoria.Requery
End If
%>
          </select>
                    </form></td>
  </tr>
  <tr>
    <td><p>Sub Categoria </p></td>
    <td><select name="sel_subCat" id="sel_subCat">
      <%
While (NOT SubCategoria.EOF)
%>
      <option value="<%=(SubCategoria.Fields.Item("SubCateg").Value)%>" <%If (Not isNull((SubCategoria.Fields.Item("SubCateg").Value))) Then If (CStr(SubCategoria.Fields.Item("SubCateg").Value) = CStr((SubCategoria.Fields.Item("SubCateg").Value))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(SubCategoria.Fields.Item("SubCateg").Value)%></option>
      <%
  SubCategoria.MoveNext()
Wend
If (SubCategoria.CursorType > 0) Then
  SubCategoria.MoveFirst
Else
  SubCategoria.Requery
End If
%>
    </select></td>
  </tr>
</table>

FATTO

<td><select name="select" onChange="vai(this)">
             <option selected>Seleziona Inserimento</option> 
            <option value="../AreaDownload/ins_categoria.asp">Inserimento Categoria</option>
            <option value="../AreaDownload/ins_subCat.asp">Inserimento SubCategoria</option>
          </select>
        </form></td>
        </tr>
    </table></td>
    <script language="Javascript">
function vai(obj) {
    var index=obj.selectedIndex;
    var url=obj.options[index].value;
    if (url!="") window.open(url, 'nome_finestra', 'toolbar=yes, location=yes, directories=yes, status=yes, menubar=yes, scrollbars=yes, resizable=yes, width=500, height=500');    
}
</script>    

ho questo menù di collegamento a due altre pagine come faccio a fargli aprirle in una nuova finestra di dimensioni più piccole e non al posto della principale come fa ora ?

<form name="form1">
          <select name="menu1" onChange="MM_jumpMenu('parent',this,0)">
            <option value="../AreaDownload/ins_categoria.asp">Inserimento Categoria</option>
            <option value="../AreaDownload/ins_subCat.asp" selected>Inserimento SubCategoria</option>
          </select>

Risoltoooooooooo
se volete pulire la discussione per renderla più agevole penso possa diventare utile a tutti

grazie

 <% 
'######### Funzione che cerca la dim del file ########  dimensione file  ########
Function GetFileSize(filepath)
  Dim fso, f
  Set fso = Server.CreateObject("Scripting.FileSystemObject")
  Set f = fso.GetFile(filepath)
  Response.Write(FormatNumber(f.Size/1024, 2)&" Kb")
  Set f = nothing
  Set fso = nothing
End Function
'######### FINE  ########
While ((Repeat1__numRows <> 0) AND (NOT Estrai.EOF)) 
%>
  <tr>
    
    <th scope="row"><a href="public/download/<%=Estrai.Fields.Item("NomeFile").Value%>"><%=(Estrai.Fields.Item("NomeFile").Value)%></a></th>
    <td><%=(Estrai.Fields.Item("DataFile").Value)%>
    <td><%=(Estrai.Fields.Item("Data").Value)%></td>
    <td><%=(Estrai.Fields.Item("Categoria").Value)%></td>
    <td><%
    
    
'######### percorso per rendere la funzione dinamica   ########
Dim fname, fpath
fname = "/public/download/" + Estrai.Fields.Item("NomeFile").Value
fpath = Server.MapPath(fname)
GetFileSize(fpath)
'fine 

nel senso che se io scrivo il percorso esatto funziona se inserisco

fname = "public/download<%=Estrai.Fields.Item("NomeFile").Value%>"

non va ....
quindi come gli indico il percoro relativo alla posizione del file da calcolare ?

No infatti......

il problema è che non so come rendere dinamica quello script

mi dà l'errore .
se gli metto il percorso singolo mi restituisce

/public/download/q.txt

ti spiego se inserisco il codice fuori della tabella con la queri funziona

roma122.it/AreaDownload/sommario.asp

quarga ora

se lo metto nella posizione affianco al file mi da l'errore di prima

icrosoft VBScript compilation error '800a0411' Name redefined
/AreaDownload/sommario.asp, line 75
Dim fname, fpath
----^

hai msn si fa prima ?

non credo perchè se io quì

fname = "public/download<%=Estrai.Fields.Item("NomeFile").Value%>" 

il percorso diretto mi da la dimensione di quel file

è sul post sopra

grazie

mi avete abandonato ?????????

help !

Microsoft VBScript compilation error '800a03ea'
Syntax error
/AreaDownload/sommario.asp, line 58
Function GetFileSize(filepath)

^

lo ho modificato in questo modo ma mi da errore

'dimensione file 
Function GetFileSize(filepath)
  Dim fso, f
  Set fso = Server.CreateObject("Scripting.FileSystemObject")
  Set f = fso.GetFile(filepath)
  Response.Write("La dimensione del file è: ")
  Response.Write(FormatNumber(f.Size/1024, 2)&" Kb")
  Set f = nothing
  Set fso = nothing
End Function

Dim fname, fpath
fname = "public/download<%=Estrai.Fields.Item("NomeFile").Value%>"  
fpath = Server.MapPath(fname)
GetFileSize(fpath)
'fine 

riga 58

Function GetFileSize(filepath)

cambio idea per arrivare allo stesso risultato questo credo sia più semplice e più preciso :

con questa funzione leggo le dimensioni del file presente sul server :

<%
'dimensione file 
Function GetFileSize(filepath)
  Dim fso, f
  Set fso = Server.CreateObject("Scripting.FileSystemObject")
  Set f = fso.GetFile(filepath)
  Response.Write("La dimensione del file è: ")
  Response.Write(FormatNumber(f.Size/1024, 2)&" Kb")
  Set f = nothing
  Set fso = nothing
End Function

Dim fname, fpath
fname = "/public/download/q.txt"  'nome del file da controllare
fpath = Server.MapPath(fname)
GetFileSize(fpath)
'fine 
%>

```il problema è che in questo caso devo inserire il percorso e il nome del file 

fname = "/public/download/q.txt"

<%
While ((Repeat1__numRows <> 0) AND (NOT Estrai.EOF))
%>
<tr>
<th scope="row"><a href="public/download<%=Estrai.Fields.Item("NomeFile").Value%>"><%=(Estrai.Fields.Item("NomeFile").Value)%></a></th>
<td><%=(Estrai.Fields.Item("DataFile").Value)%></th>
<td><%=(Estrai.Fields.Item("Data").Value)%></td>
<td><%=(Estrai.Fields.Item("Categoria").Value)%></td>
<td><%=(Estrai.Fields.Item("Autore").Value)%>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Estrai.MoveNext()
Wend
%>

tipo questo che mi crea il link al file sul server nella tabella sopra riportata :

href="public/download<%=Estrai.Fields.Item("NomeFile").Value%>"><%=(Estrai.Fields.Item("NomeFile").Value)%></a></th>

non benissimo
se trovo il codice scritto riesco a modificare e a scrivere alcune funzioni la magior parte le creo con dreamweaver

.roma122.it/areadownload/update1.asp

dove lo inserisco ?
perdonami ma non sono espertissimo

questo è lo script di upload del file :

*** Pure ASP File Upload 2.1.4
Dim GP_uploadAction,UploadQueryString
PureUploadSetup
If (CStr(Request.QueryString("GP_upload")) <> "") Then
  Dim pau_thePath,pau_Extensions,pau_Form,pau_Redirect,pau_storeType,pau_sizeLimit,pau_nameConflict,pau_requireUpload,pau_minWidth,pau_minHeight,pau_maxWidth,pau_maxHeight,pau_saveWidth,pau_saveHeight,pau_timeout,pau_progressBar,pau_progressWidth,pau_progressHeight
  pau_thePath = """/public/Download"""
  pau_Extensions = ""
  pau_Form = "inserisci"
  pau_Redirect = ""
  pau_storeType = "file"
  pau_sizeLimit = ""
  pau_nameConflict = "error"
  pau_requireUpload = "true"
  pau_minWidth = ""
  pau_minHeight = "" 
  pau_maxWidth = ""
  pau_maxHeight = ""
  pau_saveWidth = ""
  pau_saveHeight = ""
  pau_timeout = "600"
  pau_progressBar = "fileCopyProgress.htm"
  pau_progressWidth = "300"
  pau_progressHeight = "100"
  
  Dim RequestBin, UploadRequest
  CheckPureUploadVersion 2.14
  ProcessUpload pau_thePath,pau_Extensions,pau_Redirect,pau_storeType,pau_sizeLimit,pau_nameConflict,pau_requireUpload,pau_minWidth,pau_minHeight,pau_maxWidth,pau_maxHeight,pau_saveWidth,pau_saveHeight,pau_timeout
end if

e questa è la form che inserisce i dati nel db:

<form ACTION="<%=MM_editAction%>" METHOD="POST" enctype="multipart/form-data" name="inserisci" id="inserisci" onSubmit="checkFileUpload(this,'',true,'','','','','','','');showProgressWindow('fileCopyProgress.htm',300,100);return document.MM_returnValue">
      <p>&nbsp;</p>
      <p>&nbsp;</p>
      <table width="560" border="0" align="center" bgcolor="#FFB709">
        <tr>
          <td width="160" class="menu-titolo">Nome file </td>
          <td colspan="5"><input name="NomeFile" type="file" id="NomeFile" onChange="checkOneFileUpload(this,'',true,'','','','','','','')"></td>
        </tr>
        <tr>
          <td class="menu-titolo">Descrizione </td>
          <td colspan="5" class="menu-titolo"><textarea name="commento" cols="50" id="commento"></textarea></td>
        </tr>
        <tr>
          <td class="menu-titolo">Tipo file </td>
          <td width="68" class="menu-titolo"><select name="tipoFile" id="tipoFile">
            <option value="zip">zip</option>
            <option value="pdf">pdf </option>
          </select></td>
          <td width="89" class="menu-titolo">Categoria</td>
          <td width="54" class="menu-titolo"><select name="categoria" id="categoria">
            <option value="documenti">documenti</option>
            <option value="tecniche scout">tecniche scout</option>
          </select></td>
          <td width="85" class="menu-titolo Stile1">Riservato</td>
          <td width="78" class="menu-titolo Stile1"><select name="riservato" id="riservato">
            <option value="si">si</option>
            <option value="no">no</option>
          </select></td>
        </tr>
        <tr>
          <td height="26">
            <div align="center" class="menu-titolo">
              <div align="left">data file 
              </div>
            </div></td>
          <td height="26"><input name="data" type="text" id="data"></td>
          <td height="26">Autore</td>
          <td height="26"><input name="autore" type="text" id="autore"></td>
          <td height="26">&nbsp;</td>
          <td height="26">&nbsp;</td>
        </tr>
        <tr>
          <td height="26" colspan="6"><div align="center">
            <input type="submit" name="Submit" value="Iserisci Documento In Archivio">
          </div></td>
        </tr>
      </table>
      <p>&nbsp;</p>
      <p>&nbsp;</p>

            <input type="hidden" name="MM_insert" value="inserisci">
    </form>

ma non c'è un modo per inserire la funzione in modo dinamico ?
** OggettoFile.Size
**

ho letto che questo è un modo per farlo ma non so come scrivere il codice ??

ecco facciamo in questo modo dagli uno sguardo :

img137.imageshack.us/img137/2038/immaginekk7.png

Mi presento sono pierantonio 34 anni faccio il chimico in un lab di anali si e ho una grande passione per l'informatica .
Sono sposato ed ho due bimbi adorabili di 4 e1 anno .
trovo questo forum, anche se lpo ho scoperto da poco molto interessante e pieno di risorse utilissime .
Mo auguro che la nostra convivenza sia duratura e profiqua

buon lavoro a tutti

mi potete abilitare no spam e sono coerente con argomenti del forum
lo frequento da poco ma mi sembra interessantissimo e non rovinerò il Vs lavoro .
Sono un perito chimico e lavoro in un laboratorio che fa analisi tipo RIS per capirsi .

sono moderatore di diversi forum e webmaster di diversi siti alcuni di gruppi SCOUT .

grazie della cortesia

buon lavoro a tutti