Inserimento nuovi utenti nel DB

[David_pop]

Salve, sto cercando di automatizzare un form per nuovi utenti, cosi che immettendo i dati online dal sito, questi automaticamente vadano con nuova ID sul database. Ma non mi inserisce alcun dato, pur non dando errore. Ho utilizzato una pagina "iscrizione" questa:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim Conn,Rs2, RS,rs3
set conn = server.createObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/e_dbx.mdb")
Set Rs = Server.CreateObject("ADODB.Recordset")
Set Rs2 = Server.CreateObject("ADODB.Recordset")
Set Rs3 = Server.CreateObject("ADODB.Recordset")
sql = "select * from CLIENTI"
rs3.open sql, conn
idutente=rs3("ID")
rs3.close
%>
.... poi vi è il form che inzia cosi:
<form method="post" name="modulo">
<input type="hidden" name="idutente" id="idutente" value="<%=idutente%>">

[maximum]

Il codice che hai postato fa una query ed istanzia 3 recordset.
Non c'entra nulla con l'inserimento utenti nel DB.

[David_pop]

ah.. bene! Come posso fare allora? sai?

[maximum]

1) Fai un form così, in una pagina di nome regUtente.asp:

<form name="registrazione" method="post" action="registra.asp">
   Nome: <input type="text" size="30" name="nome">

   Cognome: <input type="text" size="30" name="cognome">

   E-mail: <input type="text" size="30" name="email">

   Nickname: <input type="text" size="30" name="nickname">

   <input type="submit" value="Registra">
   <input type="reset" value="Cancella">
</form>

2)Prepara la pagina registra.asp così:

<%
'recuperi i valori digitati nei campi
nome = trim(request.form("nome"))
cognome = trim(request.form("cognome"))
email = trim(request.form("email"))
nickname = trim(request.form("nickname"))

if len(nome) > 0 and len(cognome) > 0 and len(email) > 0 and len(nickname) > 0 then

   sql = "INSERT INTO tabella(colonna1, colonna2, colonna3, colonna4) VALUES('" & nome & "', '" & cognome & "', '" & email & "', '" & nick & "')"

   objConn.execute(sql)

end if
%>

Dove "objConn" sarà la tua connessione che avrai opportunamente istanziato.

P.S.:Scusa se te lo faccio notare, ma quello che hai chiesto e quello che ti ho postato qua, sono i fondamenti di ASP, in merito all'inserimento dati su DB, non sarebbe il caso da parte tua, di scaricare o comprare o consultare online un bel manuale ASP per realizzare quello che desideri?
Se poi sorgono difficoltà, allora puoi sottoporre qui le problematiche...

Io lo dico per te, perchè provando tu a scrivere il codice impari prima e capisci meglio.

[David_pop]

beh avevo tralasciato un comando e una pagina, quella dell'"inserimento utenti":

<%@LANGUAGE="VBSCRIPT"%>
<%
function raddoppiaapostrofi(p)
out = p
pos = InStr(out, "'")
While pos > 0
out = Mid(out, 1, pos) & "'" & Mid(out, pos + 1)
pos = InStr(pos + 2, out, "'")
Wend
raddoppiaapostrofi = out
end function

'apro la connessione al database
set conn = server.createObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/e_dbx.mdb")

'creo la mia query di inserimento
sql="insert into Clienti"
sql=sql&" ( nome_utente, cognome_utente, indirizzo_utente, localita_utente, cap_utente, provincia_utente, telefono_utente, email_utente, cfisc_utente, qualifica_utente, societa, presidente_soc, piva_soc, indirizzo_soc, localita_soc, provincia_soc, sito_soc, email_soc)"
sql= sql&" values('"&raddoppiaapostrofi(request.form("nome_ut ente"))&"', '"&raddoppiaapostrofi(Request.form("cognome_utente "))&"', '"&raddoppiaapostrofi(Request.form("indirizzo_uten te"))&"', '"&raddoppiaapostrofi(Request.form("localita_utent e"))&"','"&raddoppiaapostrofi(Request.form("provin cia_utente"))&"', '"&raddoppiaapostrofi(Request.form("telefono_utent e"))&"', '"&raddoppiaapostrofi(Request.form("email_utente") )&"', '"&raddoppiaapostrofi(Request.form("cellulare"))&" ','"&raddoppiaapostrofi(Request.form("email"))&"' , '"&raddoppiaapostrofi(Request.form("website"))& "' , '"&raddoppiaapostrofi(Request.form("oggetto"))& "', '"&raddoppiaapostrofi(Request.form("annotazioni")) &"', '"&raddoppiaapostrofi(Request.form("ragione_social e"))&"')"
'Response.write(sql)
e_dbx.Execute(sql)
sql2 = "SELECT ID FROM Clienti ORDER BY ID DESC"
Set Rs = e_dbx.Execute(sql2)
If Not Rs.EOF Then
'leggiamo l'ultimo ID...
id= Rs("ID")
End If
Rs.Close
Set Rs = Nothing
sql3="insert into Clienti (ID) values ("&id&", "&request.form("ID")&")"
'Response.write(sql3)
e_dbx.Execute(sql3)
Response.redirect("cartella_elenco.asp")
%>
<html>
<head>
<title>Pagina di validazione inserimento</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="../database/stile.css" rel="stylesheet" type="text/css">
</head>

<body link="#223c86" vlink="#223c86" alink="#223c86">
</body>
</html>
<%
e_dbx.close()
set e_dbx = nothing
%>

[maximum]

La pagina di sopra chi la richiama?
Il tuo form?

<form method="post" name="modulo">

Se è così, occhio che manca la action:

<form method="post" name="modulo" action="nome_della_pagina_che_esegue_la_insert.asp">

[David_pop]

L'ho messa la action... ma il form invia e nel db non compare nessun nuovo record..

[maximum]

Procedi in debug al solito: fatti stampare la query e posta qui il risultato.

<%@LANGUAGE="VBSCRIPT"%> 
<% 
function raddoppiaapostrofi(p) 
out = p 
pos = InStr(out, "'") 
While pos > 0 
out = Mid(out, 1, pos) & "'" & Mid(out, pos + 1) 
pos = InStr(pos + 2, out, "'") 
Wend 
raddoppiaapostrofi = out 
end function 

'apro la connessione al database 
set conn = server.createObject("ADODB.Connection") 
conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/e_dbx.mdb") 

'creo la mia query di inserimento 
sql="insert into Clienti" 
sql=sql&" ( nome_utente, cognome_utente, indirizzo_utente, localita_utente, cap_utente, provincia_utente, telefono_utente, email_utente, cfisc_utente, qualifica_utente, societa, presidente_soc, piva_soc, indirizzo_soc, localita_soc, provincia_soc, sito_soc, email_soc)" 
sql= sql & " values('"&raddoppiaapostrofi(request.form("nome_utente"))&"', '"&raddoppiaapostrofi(Request.form("cognome_utente"))&"', '"&raddoppiaapostrofi(Request.form("indirizzo_utente"))&"', '"&raddoppiaapostrofi(Request.form("localita_utente"))&"','"&raddoppiaapostrofi(Request.form("provincia_utente"))&"', '"&raddoppiaapostrofi(Request.form("telefono_utente"))&"', '"&raddoppiaapostrofi(Request.form("email_utente"))&"', '"&raddoppiaapostrofi(Request.form("cellulare"))&"','"&raddoppiaapostrofi(Request.form("email"))&"', '"&raddoppiaapostrofi(Request.form("website"))&"' , '"&raddoppiaapostrofi(Request.form("oggetto"))&"', '"&raddoppiaapostrofi(Request.form("annotazioni"))&"', '"&raddoppiaapostrofi(Request.form("ragione_sociale"))&"')" 
Response.write(sql) 
Response.end   
e_dbx.Execute(sql) 
sql2 = "SELECT ID FROM Clienti ORDER BY ID DESC" 
Set Rs = e_dbx.Execute(sql2) 
If Not Rs.EOF Then 
'leggiamo l'ultimo ID... 
id= Rs("ID") 
End If 
Rs.Close 
Set Rs = Nothing 
sql3="insert into Clienti (ID) values ("&id&", "&request.form("ID")&")" 
'Response.write(sql3) 
e_dbx.Execute(sql3) 
Response.redirect("cartella_elenco.asp") 
%> 
<html> 
<head> 
<title>Pagina di validazione inserimento</title> 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> 
<link href="../database/stile.css" rel="stylesheet" type="text/css"> 
</head> 

<body link="#223c86" vlink="#223c86" alink="#223c86"> 
</body> 
</html> 
<% 
e_dbx.close() 
set e_dbx = nothing 
%>

[David_pop]

questo viene postato..

insert into Rubrica ( nome_utente, cognome_utente, indirizzo_utente, localita_utente, cap_utente, provincia_utente, telefono_utente, email_utente, cfisc_utente, qualifica_utente, societa, presidente_soc, piva_soc, indirizzo_soc, localita_soc, provincia_soc, sito_soc, email_soc) values('sdfsfsdf', 'sdfsdfs', 'dfsdfsdf', 'sdfsd','fsdfsdfs', 'sfsfsdf', 'sdfsf@linfsdfer.it', '','', '' , '', '', '')

[Roby_72]

Hai 16 campi e cerchi di inserire 13 valori...

Roby