Visualizzazione dei risultati da 1 a 5 su 5
  1. #1

    parametri nel redirect ??!!!

    Ciao a tutti, io recupero queste informazioni dal form e dopo averle inserite devo creare una tabella access (tramite il file nuova tabella.asp che deve ricevere il nome della tabella da creare) passando come paramentro la scritta uomini_ + il contenuto della variabile cliente, che diventa il nome della tabella nuova.
    il mio problema e' che non riesco a scrivere il redirect con il parametro.......

    codice:
    
    <%
    cliente=Request.Form("cliente") 
    password=Request.Form("password")
    url=Request.Form("cliente")
    url= url + "/" + url +".asp"
    
    
    SQL = "INSERT INTO clienti (cliente,password,url)"
    SQL = SQL&"VALUES('"&cliente&"','"&password&"','"&url&"')"
    Conn.Execute(SQL)
    
    
    //response.redirect (request.form("url"))
    response.redirect "nuova_tabella.asp?crea=uomini_"<%=cliente%> 
    %>
    ho visto che si puo' fare, es:
    response.redirect "index.asp?menu=1"
    ma qui so che e' il parametro e' fisso io invece dev orecuperarl odal form....

    un'altra cosa io creo la tabella via asp ,ma ovviamente me la crea vuota, come faccio a creare al volo anche i campi (ID, ruolo, url)?


    grazie a tutti.....

    -Nextart.it Graphic Solutions

  2. #2

    Re: parametri nel redirect ??!!!

    codice:
    
    <%
    cliente=Request.Form("cliente") 
    password=Request.Form("password")
    url=Request.Form("cliente")
    url= url + "/" + url +".asp"
    
    
    SQL = "INSERT INTO clienti (cliente,password,url)"
    SQL = SQL&"VALUES('"&cliente&"','"&password&"','"&url&"')"
    Conn.Execute(SQL)
    
    
    //response.redirect (request.form("url"))
    response.redirect "nuova_tabella.asp?crea=uomini_" & cliente 
    %>
    EX Mentecatto - succube della Honda
    Le mie foto|HONDA CLUB ITALIA!|DARTH LEGNANZ!

  3. #3
    perfetto, grazie mille!!!



    per la seconda questione mi sai consigliare qualcosa?

    io creo la tabella via asp ,ma ovviamente me la crea vuota, come faccio a creare al volo anche i campi (ID, ruolo, url)?




    grazie
    -Nextart.it Graphic Solutions

  4. #4

  5. #5
    ok, ma io uso questo script per creare la tabella, solo che mi crea la tabella in access senza i campi
    codice:
    <%@ Language=VBScript%>
    <%
    'Impostiamo la dichiarazione obbligatoria delle variabili
    Option Explicit
    
    '::Crea nuova tabella
    Sub CreateTableX(sActiveConnection, sTableName)
    
      'in caso di errore prosegui lo script
      On Error Resume Next
    
      'dichiaro due variabili di comodo
      Dim sError, sDBName
    
      'creo gli oggetti ADOX Catalog e Table
      Dim objCatalog, objTable
    
      Set objCatalog = server.createobject("ADOX.Catalog")
      Set objTable = server.createobject("ADOX.Table")
    
      'attivo la connessione al db
      objCatalog.ActiveConnection = sActiveConnection
    
      'imposto il nome della nuova tabella
      objTable.Name = sTableName
    
      'aggiorno la tabella
      objCatalog.Tables.Append objTable
    
      'se si è verificato un errore err sarà diverso da zero
      If err <> 0 Then
        sError = "Descrizione: " & Err.Description & "
    " & VbCrLf
        sError = sError & "Errore numero: " & Err.Number & "
    " & VbCrLf
        sError = sError & "Source: " & Err.Source & "
    " & VbCrLf
        sError = sError & "SQLState: " & Err.SQLState & "
    " & VbCrLf
        sError = sError & "Native Error: " & Err.NativeError & "
    " & VbCrLf
        Response.Write sError
      Else
        'ricavo dalla stringa sActiveConnection il nome del db
        sDBName = Right(sActiveConnection, Len(sActiveConnection) - InStrRev(sActiveConnection, "\"))
    
        'confermo l'avvenuta creazione della tabella
        Response.Write "La tabella " & sTableName & " è stata creata correttamente nel"
        Response.Write " database " & sDBName
      End If
    
      'libero la memoria distruggendo gli oggetto Catalog e Table
      Set objTable = Nothing
      Set objCatalog = Nothing
    
    End Sub
    
    '::Principale
    Dim sDBPath
    Dim sConnection
    
    'specifico il percorso esatto ed il nome del db in cui inserire la nuova tabella
    sDBPath = "c:\inetpub\wwwroot\asp\esempi\adox.mdb"
    
    'imposto la stringa di connessione
    sConnection = "Provider=Microsoft.Jet.OLEDB.4.0; data source=" & sDBPath
    
    'richiamo la SUB che crea la nuova tabella
    Call CreateTableX(sConnection, "ADOXTable")
    %>
    le istruzioni del link che mi hai dato :
    CREATE TABLE tblCustomers
    (CustomerID INTEGER NOT NULL,
    [Last Name] TEXT(50) NOT NULL,
    [First Name] TEXT(50) NOT NULL,
    Phone TEXT(10),
    Email TEXT(50))

    mi crea sia la tabella che i campi ma come inserirlo nella pagina asp?

    grazie...

    -Nextart.it Graphic Solutions

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.