Form questo sconosciuto!?!

[wertax]

Ciao a tutti, ho sempre visto in internet, dei questionari fatti con dei form...su + pagine, e con dei menu e delle zone del form che si vengono a creare a seconda della selezione fatta precedentemente!!

Io ho sviluppato un db in Access ora mi chiedevo come fare, con l'utilizzo di DreamWeaver Mx a sviluppare un form che si sviluppa su + pagine e che magari alla selezione di un flag crea una finestra per altre selezioni.


Ringrazio anticipatamente

Ps. non conoscete siti italiani con forum sul''utilizzo di questo programma Macromendia?

[99eros9]

tanto per capire,
ti riferisci a qualcosa di questo tipo? selezionando la categoria si visualizzano le relative sezioni...

http://www.webjob.it/links/default____1900.asp

o altro?

[wertax]

Esatto, nel mio caso, vorrei che alla selezione di una casella di controllo mi aprea altre caselle e campi di testo.

e vorrei spezzettare il form in + pagine essendo troppo lungo.. per stare in un'unica pag

Hai idee?

[99eros9]

Selezionando la casella puoi gestirne l'evento che va a caricare all'interno di un <iframe> la nuova pagina con il resto del form. Inviando il tutto, potrai recuperarne le informazioni dai vari frames anche con l'ausilio di istruzioni javascript del tipo
document.getElementById('id_iframe1').contentDocum ent.getElementById('id_iframe2').contentDocument.n omeForm.nomeCampo.value
che mantiene la compatibilità sia per explorer che netscape ed altri...

Per quanto riguarda il dividere l'inserimento in più forms su pagine diverse basta che al primo form fai un insert e negli altri degli update che vadano ad incidere nello stesso record della tabella.

[wertax]

Per quanto riguarda il dividere l'inserimento in più forms su pagine diverse basta che al primo form fai un insert e negli altri degli update che vadano ad incidere nello stesso record della tabella.

Mi chedo, se io utilizzo un contatore per il campo id del record...
come faccio ad indirizzare la prima pag verso la seconda (che necessita del campo id per andare sullo stesso record) passando il paramentro id? non essendo presente nella pagina?!?

Aiuto

[99eros9]

quì trovi l'esempio

[teorema55]

Se il valore dell'id non ce l'hai lo devi prima recuperare con una query

sql = "SELECT id FROM tabella WHERE condizione....."

Per passarlo ad un'altra pagina ci sono diverse opzioni:

- un campo hidden del tuo form
- all'interno dell'URL della pagina di destinazione, in una variabile

La seconda possibilità è data sia creando un form method="get", sia passando alla pagina di destinazione con un link tipo

Vai e passa la variabile

Nella pagina di destinazione avrai una istruzione per recuperare il valore, tipo

valore = request("var")

che in particolare sarà

valore = request.form("var")

se usi il primo metodo, e

valore = request.querystring("var")

nel secondo caso

[99eros9]

teo, meglio questa

SELECT @@identity FROM nome_tabella

[wertax]

Scusa la mia totale ignoranza ma mi da errore ovunque...!
questo è l'head della pagina

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
' *** Edit Operations: declare variables

Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd

Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId

Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i

MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Request.QueryString
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: set variables

If (CStr(Request("MM_insert")) = "form1") Then

  MM_editConnection = MM_connessione1_STRING
  MM_editTable = "T_cat"
  MM_editRedirectUrl = "prova1.asp"
  MM_fieldsStr  = "dat_iscrizione|value|compilatore|value|mail_compilatore|value|ragione_sociale|value|indirizzo_sede_oper|value|provincia|value|regione|value|tel|value|fax|value|p_iva|value|sito_web|value"
  MM_columnsStr = "dat_iscrizione|',none,NULL|compilatore|',none,''|mail_compilatore|',none,''|ragione_sociale|',none,''|indirizzo_sede_oper|',none,''|provincia|',none,''|regione|',none,''|tel|',none,''|fax|',none,''|p_iva|',none,''|sito_web|',none,''"

  ' create the MM_fields and MM_columns arrays
  MM_fields = Split(MM_fieldsStr, "|")
  MM_columns = Split(MM_columnsStr, "|")
  
  ' set the form values
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
  Next

  ' append the query string to the redirect URL
  If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
    If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
      MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
    Else
      MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
    End If
  End If

End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it

Dim MM_tableValues
Dim MM_dbValues

If (CStr(Request("MM_insert")) <> "") Then

  ' create the sql insert statement
  MM_tableValues = ""
  MM_dbValues = ""
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_formVal = MM_fields(MM_i+1)
    MM_typeArray = Split(MM_columns(MM_i+1),",")
    MM_delim = MM_typeArray(0)
    If (MM_delim = "none") Then MM_delim = ""
    MM_altVal = MM_typeArray(1)
    If (MM_altVal = "none") Then MM_altVal = ""
    MM_emptyVal = MM_typeArray(2)
    If (MM_emptyVal = "none") Then MM_emptyVal = ""
    If (MM_formVal = "") Then
      MM_formVal = MM_emptyVal
    Else
      If (MM_altVal <> "") Then
        MM_formVal = MM_altVal
      ElseIf (MM_delim = "'") Then  ' escape quotes
        MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
      Else
        MM_formVal = MM_delim + MM_formVal + MM_delim
      End If
    End If
    If (MM_i <> LBound(MM_fields)) Then
      MM_tableValues = MM_tableValues & ","
      MM_dbValues = MM_dbValues & ","
    End If
    MM_tableValues = MM_tableValues & MM_columns(MM_i)
    MM_dbValues = MM_dbValues & MM_formVal
  Next
  MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

  If (Not MM_abortEdit) Then
    ' execute the insert
    Set MM_editCmd = Server.CreateObject("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_editConnection
    MM_editCmd.CommandText = MM_editQuery
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close

    If (MM_editRedirectUrl <> "") Then
      Response.Redirect(MM_editRedirectUrl)
    End If
  End If

End If

%>

Scusa questo è il codice prelevato dal tuo link..

Sql = "SELECT @@identity FROM nome_tabella"
Set rs = conn.Execute(Sql)
      			 
last_id = rs(0)

[99eros9]

scusa, ma hai cambiato nome_tabella con il nome della tua tabella?

Sql = "SELECT @@identity FROM nome_tabella"



noto la dreamweaver-mania