Torna al Thread
[CODE]
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="utf-8" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.Oledb" %>
<script runat="server">
Sub Page_Load(Source as Object, E as EventArgs)
End Sub
Sub AggiornaDati(Source as Object, E as EventArgs)
Dim cn
Dim str
Dim cmd
Dim nome = Request.Form("TextBox1")
Dim razza = Request.Form("CheckBox1")
Dim email = Request.Form("TextBox2")
Dim password = Request.Form("TextBox3")
Dim corporazioni = ""
Dim compleanno = ""
Dim lavoro = ""
dim soldi = ""
dim punti =""
dim foto =""
dim banca =""
dim storia = ""
dim salute = "100/100"
dim registrazione = ""
dim uscita = ""
dim attivazione ="0"
dim ip = ""
dim data = Now()
Dim nl = Request.Form("CheckBox4")
Try
cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\www\gdr\mdb-database\land.mdb;")
cn.Open()
str = "insert into tbl_utenti"
str = str &"nome,"
str = str &"password,"
str = str & "email,"
str = str & "razza,"
str = str & "compleanno,"
str = str & "lavoro,"
str = str & "corporazioni,"
str = str & "salute,"
str = str & "punti,"
str = str & "soldi,"
str = str & "banca,"
str = str & "storia,"
str = str & "foto,"
str = str & "registrazione,"
str = str & "uscita,"
str = str & "newsletter,"
str = str & "attivazione,"
str = str & "ip,"
str = str & "data,values("
str = str & "'" & nome & "','"
str = str & "'" & password & "','"
str = str & "'" & email & "',"
str = str & "'" & razza & "',"
str = str & "'" & compleanno & "','"
str = str & "'" & lavoro & "','"
str = str & "'" & corporazioni & "','"
str = str & "'" & salute & "','"
str = str & "'" & punti & "','"
str = str & "'" & soldi & "','"
str = str & "'" & banca & "','"
str = str & "'" & storia & "','"
str = str & "'" & foto & "','"
str = str & "'" & registrazione & "','"
str = str & "'" & uscita & "','"
str = str & "'" & nl & "','"
str = str & "'" & attivazione & "','"
str = str & "'" & ip & "','"
str = str & "'" & data & "')"
cmd = New OleDbCommand(str, cn)
cmd.ExecuteNonQuery()
Catch
cn.Close()
End Try
Label1.Text = "Database now updated"
End Sub
</script>
<!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>Registrazione Personaggio</title>
</head>
<body>
<form action="registrazione.aspx" method="post" name="personaggio" id="personaggio" runat="server">
<table width="731" border="0" align="center">
<tr>
<td colspan="4" align="center" valign="middle">Registrazione del personaggio</td>
</tr>
<tr>
<td width="168" align="center" valign="middle">Nome Personaggio</td>
<td colspan="3" align="left" valign="middle"><asp:TextBox ID="TextBox1" TextMode="SingleLine" runat="server" /></td>
</tr>
<tr>
<td align="center" valign="middle">Razza</td>
<td width="165" align="left" valign="middle">Bianco <br />
<asp:CheckBox ID="CheckBox1" runat="server" /></td>
<td width="182" align="left" valign="middle">Mulatto<br />
<asp:CheckBox ID="CheckBox2" runat="server" /></td>
<td width="198" align="left" valign="middle">Nero
<br />
<asp:CheckBox ID="CheckBox3" runat="server" /></td>
</tr>
<tr>
<td align="center" valign="middle">email</td>
<td colspan="3" align="left" valign="middle"><asp:TextBox ID="TextBox2" TextMode="SingleLine" runat="server" /></td>
</tr>
<tr>
<td align="center" valign="middle">Password</td>
<td colspan="3" align="left" valign="middle"><asp:TextBox ID="TextBox3" TextMode="SingleLine" runat="server" /></td>
</tr>
<tr>
<td align="center" valign="middle">Iscriviti alla Newsletter</td>
<td colspan="3" align="left" valign="middle"><asp:CheckBox ID="CheckBox4" runat="server" /></td>
</tr>
<tr>
<td align="center" valign="middle"> </td>
<td colspan="3" align="left" valign="middle"> </td>
</tr>
<tr>
<td align="center" valign="middle">Accetta creazione personaggio</td>
<td colspan="3" align="left" valign="middle"><asp:Button ID="Button1" Text="Crea Personaggio" runat="server" onClick="AggiornaDati"/></td>
</tr>
</table>
</form>
<asp:Label ID="label1" runat="server"></asp:Label>
</body>
</html>
[/CODE]