crei una pagina html con il form... che la invii a questa
<head>
<title></title>
</head>
<body bgcolor="#000000" text="#FFFFFF"><%@ Language=VBScript %>
<%
'errori
on error resume next
nick = Replace (Request.Form("nick"), "'", "''")
nome = Replace (Request.Form("nome"), "'", "''")
cognome = Replace (Request.Form("cognome"), "'", "''")
data_n = Request.Form("data_n")
data_i = Request.Form("data_i")
citta = Replace (Request.Form("citta"), "'", "''")
password= Replace (Request.Form("password1"), "'", "''")
password2= Replace (Request.Form("password2"), "'", "''")
icq = Replace (Request.Form("icq"), "'", "''")
mail = Replace (Request.Form("mail"), "'", "''")
'apertura connessione
dim cn
dim rs
set cn = server.CreateObject ("ADODB.connection")
set rs = server.CreateObject ("ADODB.recordset")
cn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mapPath("../mdb-database/t4ci.mdb")
'inserimento dati nel DB
dim sql1
sql1 = "select nick from membri where nick= '"&nick&"'"
rs.Open sql1, cn
if not rs.EOF then
Response.Write ("il nick è giù in uso")
elseif password = "" then
Response.Write ("immettere una password")
elseif mail = "" then
Response.Write ("immettere un'indirizzo e-mail valido")
elseif nome = "" then
Response.Write ("immettere un nome")
elseif cognome = "" then
Response.Write ("immettere un cognome")
elseif data_n = "" then
Response.Write ("immettere una data di nascita valida in formato gg/mm/aaaa")
elseif password = password2 then
'controllo dati immessi da parte dell'utente
%>
<p>
<p>
<p>
<div align="center">
<center>
<table border="0" width="40%" cellspacing="0" cellpadding="0">
<tr>
<td width="16%" background="images/table/upper_left.gif"> </td>
<td width="79%" background="images/table/upper_middle.gif"> </td>
<td width="5%" background="images/table/upper_right.gif"> </td>
</tr>
<tr>
<td width="16%" background="images/table/center_left.gif"> </td>
<td width="79%">
<div align="center">
<center>
<p>
<form action="reg.asp" method="post" >
<INPUT type="hidden" id=data_i name="data_i" value="<%=date()%>">
<table border="0" width="100%">
<tr>
<td width="50%">Nick:</td>
<td width="50%"><%= nick%> </td>
</tr>
<tr>
<td width="50%">Nome:</td>
<td width="50%"><%=nome%> </td>
</tr>
<tr>
<td width="50%">Cognome:</td>
<td width="50%"><%=cognome%> </td>
</tr>
<tr>
<td width="50%">Data di nascita:</td>
<td width="50%"><%=data_n%> </td>
</tr>
<tr>
<td width="50%">Città:</td>
<td width="50%"><%=citta%> </td>
</tr>
<tr>
<td width="50%">Password:</td>
<td width="50%"><%=password%> </td>
</tr>
<tr>
<td width="50%">ICQ:</td>
<td width="50%"><%=icq%> </td>
</tr>
<tr>
<td width="50%">E-mail</td>
<td width="50%"><%=mail%> </td>
</tr>
</table>
</form>
</center>
</div>
</td>
<td width="5%" background="images/table/center_right.gif"> </td>
</tr>
<tr>
<td width="16%" background="images/table/lower_left.gif"> </td>
<td width="79%" background="images/table/lower_middle.gif"> </td>
<td width="5%" background="images/table/lower_right.gif"> </td>
</tr>
</table>
</center>
</div>
<%
rs.Close
'inserimento dati nel db
dim sql
sql ="insert into membri(nick, nome, cognome, data_n, data_i, citta, password, icq, mail)values ('"&nick&"', '"&nome&"', '"&cognome&"', '"&data_n&"', '"&data_i&"', '"&citta&"', '"&password&"', '"&icq&"', '"&mail&"');"
rs.Open sql
if err.number = 0 then
Response.Write ("registrazione avvenuta")
else
%>
c'è stato un problema con la registrazione <br> contattare <a href="mailto: 99killer@ctonet.it">Killer99</a>
<%
end if
else
Response.Write ("password immessa non corrisponde controllare")
end if
%>
in questa pagina hai:
controllo che ci siano tutti i dati inseriti e siano "validi"
(manca solo il controllo dalla mail.. che mi sono scordato di inserirlo.. e ora non ricordo il comando... :( )
poi la visualizzazione dei dati inserirti, e se non ci sono stati errori mentre te li visualizza li inserisce nel DB.
In caso tu volessi far vadere prima questi dati e poi inviarli tramite un'ennesimo submit al db (giro troppo lungo ti conviene creare un'area di update) dovresti fare un form, che invia o alla stessa pagina o ad un'altra pagina e mettergli il codice
sql = inser into ......
Ah, Jedis! I had no ideas! What can i do for you, honored Jedis?
I'm not Jedi. I'm a guy with a lighsaber and a few questions.
