[ASP] Inserire dati in un database

Alasque

Nuovo Utente
7 Mar 2017
1
0
1
58
Ciao a tutti,

sto cercando di utilizzare uno script trovato all'indirizzo https://www.mrw.it/asp/inserire-dati-database_6443.html

Ho un db access che si chiama Utenti con una tabella che si chiama Utenti
in una pagina .asp ho inserito il form che punta a scrivi_db.asp
ma quando comando l'invio dati non succede niente.
c'è qualcuno che mi può aiutare?

Allego i miei scripts

Grazie

ins_contatti.asp:

<form method="POST" action="scrivi_db.asp">
<p class="Capitolo">I campi non possono essere vuoti<br>
</p>
</form></div></td>
</tr>
<tr>
<td height="160" valign="top">
<p align="center" class="Testo">&nbsp;</p>
<p align="center" class="Testo">Cognome:</p>
<p align="center" class="Testo">
<input name="cognome" type="text" size="50" />
</p>
<p align="center" class="Testo">Nome: </p>
<p align="center" class="Testo">
<input name="nome" type="text" size="50" />
</p>
<p align="center" class="Testo">Sesso (F o M):</p>
<p align="center" class="Testo">
<input name="sesso" type="text" size="2" />
</p>
<p align="center" class="Testo">
Telefono:</p>
<p align="center" class="Testo">
<input type="text" name="telefono" />
</p>
<p align="center" class="Testo">
E-mail:</p>
<p align="center" class="Testo">
<input name="email" type="text" size="50" />
</p>
<p align="center" class="Testo">
Messaggio (Max 200 caratteri):</p>
<p align="center" class="Testo">
<textarea name="messaggio" cols="50" rows="5" id="messaggio"></textarea>
</p>
<p align="center" class="Testo"><div align="center" class="lpInfimoNero">
<blockquote>
<blockquote>
<blockquote>
<p class="lpPiccoloNero"><strong>
<input name="privacy" type="checkbox" id="privacy" value="Ok" checked="checked" />
Ho letto e ACCETTO la <a href="https://www.iubenda.com/privacy-policy/814989" target="_blank">Privacy Policy</a> di questo sito (Devi accettare per proseguire) </strong></p>
</blockquote>
</blockquote>
</blockquote>
</div> </p>
<p align="center" class="Testo">
<input type="submit" class="Capitolo" value="Invia Dati" />

scrivi_db.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!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>
<%

' Recuperiamo i dati dal form

dim strNome

strNome = request.form("nome")

dim strCognome

strCognome = request.form("cognome")

dim strSesso

strSesso = request.form("sesso")

dim strTel

strTel = request.form("telefono")

dim strEmail

strEmail = request.form("email")

dim strMessaggio

strMessaggio = request.form("messaggio")

dim strPrivacy

strPrivacy = request.form("privacy")

' Verifichiamo che i campi non siano vuoti...

If strNome <> "" and strCognome <> "" and strSesso <> "" and strTel <> "" and strEmail <> "" and strMessaggio <> "" and strPrivacy <> "" Then

' Se i campi NON sono vuoti procediamo...


' Connessione al DB

myDB = "/mdb-database/Utenti.mdb"
Set conn = Server.CreateObject("ADODB.Connection")

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(myDB)

' Lavoriamo sul Recordset

Dim rs

Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open "UTENTI", conn, 3, 3

rs.addnew

rs("nome") = strNome

rs("cognome") = strCognome

rs("sesso") = strSesso

rs("telefono") = strTel

rs("email") = strEmail

rs("messaggio") = strMessaggio

rs("privacy") = strPrivacy

rs.update

' Chiusura del database

rs.Close

set rs = Nothing

conn.Close

set conn = Nothing

' Risposta a video di conferma

response.write "Scrittura avvenuta correttamente!"

' Se i campi SONO vuoti...

Else

response.write "Errore! Nessun campo può essere vuoto!"

' Chiudiamo la condizione IF

End If

%>

</body>
</html>
 

Paolo69

Moderatore
Membro dello Staff
MOD
18 Feb 2010
555
13
18
Italy
www.caprioli.info
Intanto nel codice ins_contatti.asp ho trovato un errore nel tag FORM, in pratica lo chiudi appena dopo l'apertura, codice corretto ed alleggerito:
Codice:
<form method="POST" action="scrivi_db.asp">
<p>* I campi non possono essere vuoti</p>
<p>Cognome: <input name="cognome" type="text" size="50" /></p>
<p>Nome: <input name="nome" type="text" size="50" /></p>
<p>Sesso: <input type="radio" name="sesso" value="M" > M <input type="radio" name="sesso" value="F" > F</p>
<p>Telefono: <input type="text" name="telefono" /></p>
<p>E-mail: <input name="email" type="text" size="50" /></p>
<p>Messaggio (Max 200 caratteri):</p>
<p><textarea name="messaggio" cols="50" rows="5" id="messaggio"></textarea></p>
<p><input name="privacy" type="checkbox" id="privacy" value="Ok" checked="checked" />&nbsp;Ho letto e ACCETTO la <a href="https://www.iubenda.com/privacy-policy/814989" target="_blank">Privacy Policy</a> di questo sito (Devi accettare per proseguire) </strong></p>
<p><input type="submit" class="Capitolo" value="Invia Dati" /></p>
</form>
 
Discussioni simili
Autore Titolo Forum Risposte Data
M Inserire in text Html valore variabile asp Classic ASP 3
M [ASP.NET/C#]Inserire percorso immagine in un database access ASP.NET 1
I asp | includere un file, indirizzo depositato in un db Classic ASP 0
Paolo69 Risolto reCAPTCHA v2 per ASP Classic ASP 0
P lanciare script asp (o php) da jquery Javascript 1
L Modifica file upload in ASP Classic ASP 2
felino ASP.net MVC: Exception e chiamata AJAX ASP.NET 1
W Rinominare Documenti Con Form Asp Classic ASP 9
G Registrazione utente su pagina asp Classic ASP 14
R Sviluppatore ASP.NET Offerte e Richieste di Lavoro e/o Collaborazione 0
seranto [ASP] Controllare il testo inserito in Textarea Classic ASP 6
F classic asp popolare combo box javascript Presentati al Forum 1
P Passagio dati complessi tra una ASP.NET webapi e Angular ASP.NET 1
A [ASP.Net] Gestire il profilo ADMIN in un progetto ASP NET e pattern MVC ASP.NET 0
P [ASP.Net] Problema ERR_INCOMPLETE_CHUNKED_ENCODING 206 (Partial Content) con Font ASP.NET 4
A [ASP] Confronto tra dati Form e DB Classic ASP 2
A Mantenere la validazione reindirizzandoci su un secondo sito WEb. (ASP.NET) ASP.NET 0
StephenSoftware [ASP.Net] Pagina Master ed eventi... ASP.NET 0
K [ASP] Visualizzare nome del file selezionato Classic ASP 3
S [ASP] rubrica telefonica Classic ASP 2
M MySQL e classic ASP Classic ASP 5
D [ASP] Eliminare gli zeri che nn servono Classic ASP 1
G [ASP] Ciclare i valori di 2 array Classic ASP 2
S [RISOLTO] aggiorna tabella da select option asp classic Classic ASP 7
S elimina record sql asp classic Classic ASP 5
D [ASP] Autocomplete cerca su 2 campi del db Classic ASP 1
D [ASP] Leggere Campo decimal MYSQL Classic ASP 1
S [ASP] SALVARE VALORE SELECT OPTION SU CAMPO TABELLA ACCESS Classic ASP 9
NuviaSoftware [Retribuito] [Cerco] Programmatore ambienti ASP.NET,. Net Azure web apps, Javascript Offerte e Richieste di Lavoro e/o Collaborazione 0
D [ASP] scaricare articoli Classic ASP 8
D [ASP] Mysql insert e update Classic ASP 2
V [ASP.Net] avento keydown crh13 enter ASP.NET 0
A [ASP.Net] Dropdownlist ASP.NET 0
S [ASP.Net] [ASP] Upload Image ASP.NET 6
V Ricevere messaggi email certificata con CDO o altro oggetto in ASP Classic ASP 0
A [ASP] query wish list Classic ASP 3
riminese77 [ASP.Net] Popup Bootstrap in datagrid ASP.NET 0
D [ASP] si può fare? Classic ASP 29
D [ASP] ordinamento query Classic ASP 2
M [ASP] Upload file da form controllo Classic ASP 5
S SQL, ACCESS & ASP CLASSIC - QUERY Classic ASP 3
G [ASP] Incrementare un valore on the fly su selezione select Classic ASP 3
K [ASP.Net] Realizzazione menu a tendina dipendenti ASP.NET 1
Tommy03 Aprire un file .asp nel browser Classic ASP 5
E [ASP.Net] Access 2016 ? Non si usa Microsoft Jet 4.0 ma Engine 2016 o 2010. Non va ! ASP.NET 2
D csrf : Cross Site Request Forgery in classic asp Classic ASP 0
D [ASP] Motore di ricerca interno su 2 tabelle Classic ASP 3
M [ASP.Net] [ASP] geoblocking e web.config ASP.NET 3
N Cerco sviluppatore ASP per aggiornamento sito e-commerce esistente Offerte e Richieste di Lavoro e/o Collaborazione 0
D prima prova con ASP... dove sbaglio? Classic ASP 13

Discussioni simili