Salve a tutti. Vorrei sottoporvi un problema. Sono un autodidatta quindi scusate se magari non mi spiego bene ma cercherò di farlo il più chiaramente possibile!
Praticamente io ho creato un database in access che deve gestirmi una lista clienti: una tabella con vari campi (nome, cognome ecc) e varie query (inserisci, modifica, cancella).
Ora, vorrei, tramite una pagina html dove inserisco i dati, che essi vengano inseriti e memorizzati nel database che ho chiamato GestioneClienti.

Io ho creato una pagina col codice html e una pagina di connessione in asp che ora vi posto.
Non funziona in quanto appena clicco il bottone inserisci non parte nulla, nemmeno la if di controllo campi vuoti!

Questa è la pagina html:
<html>
<head><link rel="stylesheet" type="text/css" href="layout.css"></head>
<body>
<p>Prima di effettuare la prenotazione è necessario registrarsi</p>
<form action="inserimentoCliente.asp" method="post">
<div align="left">
Cognome:
<input type="text" name="Cognome">
<br>
Nome:
<input type="text" name="Nome">
<br>
Indirizzo:
<input type="text" name="Indirizzo">
<br>
N.Civico:
<input type="text" name="NCivico">
<br>
Città:
<input type="text" name="Città">
<br>
Data Nascita:
<input type="date" name="Data Nascita">
<br>
E-mail:
<input type="text" name="E-mail">
<br>
Telefono:
<input type="text" name="Telefono">
<br>
<input type="submit" value="conferma">
<input type="reset" value="annulla">
</div>
</form>
</body>
</html>

Mentre questa la pagina di connessione:
<%




dim strNome


strCognome = request.form("cognome")


dim strCognome


strNome = request.form("Nome")
dim strNome


strIndirizzo = request.form("Indirizzo")


dim strNCivico


strNome = request.form("Ncivico")


dim strCittà


strCognome = request.form("Città")


dim strDataNascita


strNome = request.form("Data nascita")


dim strEmail


strEmail = request.form("email")


dim strTelefono


strEmail = request.form("Telefono")




If strCognome <> "" and strNome <> "" and strIndirizzo <> "" and strNCivico <> "" and strCittà <> "" and strDataNascita <> "" and strEmail <> "" and strTelefono <> "" Then




myDB = "gestionclienti.mdb"
Set conn = Server.CreateObject("ADODB.Connection")


conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="C:\Users\Pc\Desktop




Dim rs


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


rs.Open "GestioneClienti.mdb", conn, 3, 3


rs.addnew


rs("Cognome") = strCognome


rs("Nome") = strNome


rs("Indirizzo") = strIndirizzo


rs("NCivico") = strNCivico


rs("Città") = strCittà


rs("Data Nascita") = strDatanascita


rs("email") = strEmail


rs.update




Chiusura del database


rs.Close


set rs = Nothing


conn.Close




set conn = Nothing




response.write "Scrittura avvenuta correttamente!"




Else


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

Se qualcuno puo darmi una mano, consigli e quant'altro ne sarei molto grato!!