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"> </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>
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"> </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>