Visualizzazione dei risultati da 1 a 2 su 2
  1. #1
    Utente di HTML.it
    Registrato dal
    Jan 2013
    Messaggi
    15

    problemi con inserimento nuovo record

    salve a tutti!
    sto cercando di realizzare l'inserimento di un record nuovo in una tabella di database access utilizzando la procedura guidata di inserimento record di dreamweaver..... ho seguito tutte le istruzioni, ma quando ma quando clicco sul pulsante inserisci record mi restituisce una pagina di errore senza indicarmi l'errore
    cosa devo fare?

    ecco il codice:
    codice:
    <%@LANGUAGE="VBSCRIPT"%>
    
    <%
    Dim MM_editAction
    MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
    If (Request.QueryString <> "") Then
      MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
    End If
    
    ' boolean to abort record edit
    Dim MM_abortEdit
    MM_abortEdit = false
    %>
    <%
    If (CStr(Request("MM_insert")) = "form2") Then
      If (Not MM_abortEdit) Then
        ' execute the insert
        Dim MM_editCmd
    
        Set MM_editCmd = Server.CreateObject ("ADODB.Command")
        MM_editCmd.ActiveConnection = MM_NoiSub_STRING
        MM_editCmd.CommandText = "INSERT INTO articoli (descrizione, titolo) VALUES (?, ?)" 
        MM_editCmd.Prepared = true
        MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 255, Request.Form("descrizione")) ' adVarWChar
        MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 255, Request.Form("titolo")) ' adVarWChar
        MM_editCmd.Execute
        MM_editCmd.ActiveConnection.Close
    
        ' append the query string to the redirect URL
        Dim MM_editRedirectUrl
        MM_editRedirectUrl = "articoli.asp"
        If (Request.QueryString <> "") Then
          If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then
            MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
          Else
            MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
          End If
        End If
        Response.Redirect(MM_editRedirectUrl)
      End If
    End If
    %>
    <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
    <html xmlns="http://www.w3.org/1999/xhtml">
    <head>
    <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
    <title>Documento senza titolo</title>
    </head>
    
    <body>
    
    
    </p>
    <form action="<%=MM_editAction%>" method="get" name="form2" id="form2">
    <table align="center">
        <tr valign="baseline">
          <td nowrap="nowrap" align="right">Descrizione:</td>
          <td><input type="text" name="descrizione" value="" size="32" /></td>
        </tr>
        <tr valign="baseline">
          <td nowrap="nowrap" align="right">Titolo:</td>
          <td><input type="text" name="titolo" value="" size="32" /></td>
        </tr>
        <tr valign="baseline">
          <td nowrap="nowrap" align="right"></td>
          <td><input type="submit" value="Inserisci record" /></td>
        </tr>
      </table>
      <input type="hidden" name="MM_insert" value="form2" />
    </form>
    
    
    </p>
    
    
    </p>
    </body>
    </html>
    grazie!!!

  2. #2
    posta la stringa d'errore.

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 © 2026 vBulletin Solutions, Inc. All rights reserved.