Nada, mi da sempre dati non corretti, ti posto le 2 pagine
la pagina dove sono contenuti i dati che poi l'utente può modificare è questa
<%
IF Session("Loggato") = False and Session("Username") = "" then
Response.Redirect "index.asp"
End IF
%>
<html>
<head>
<title>Afterward</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="../css/city.css" rel="stylesheet" type="text/css">
</head>
<body class="gior">
<%
Username = Session("username")
Password = Session("password")
response.buffer= true
dim conn
dim Rs
url_DB = "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("/mdb-database/afterward.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open url_DB
Set Rs = Server.CreateObject("ADODB.Recordset")
RS.ActiveConnection = conn
SQL ="select * from afterward where username ='"&username&"'"
Set Rs=conn.execute(SQL)
if not rs.eof then
rs.MoveFirst
if password= Session("password") then
motto =RS("motto")
life =RS("life")
dati =RS("dati")
avatar =RS("avatar")
password = RS("password")
fisico = RS("fisico")
veicoli = RS("veicoli")
animali = RS("animali")
%>
<form action="cambia.asp" method="post" class="form"><table width="147" class="gior" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="32" valign="top">Motto</td>
<td width="115"><textarea name="motto" cols="40" rows="2"><%=motto%></textarea></td>
</tr>
<tr>
<td>Life</td>
<td><textarea name="life" cols="40" rows="2"><%=life%></textarea></td>
</tr>
<tr>
<td>Dati</td>
<td><textarea name="dati" cols="40" rows="2"><%=dati%></textarea></td>
</tr>
<tr>
<td>Avatar</td>
<td><input name="avatar" type="text" size="33" value="<%=avatar%>"></td>
</tr>
<tr>
<td>Password</td>
<td><input name="password" type="text" size="33" value="<%=password%>"></td>
</tr>
<tr>
<td>descrizione Fisica</td>
<td><textarea name="fisico" cols="40" rows="2"><%=fisico%></textarea></td>
</tr>
<tr>
<td>Veicoli</td>
<td><input name="veicoli" type="text" size="33" value="<%=veicoli%>"></td>
</tr>
<tr>
<td>Animali</td>
<td><input name="animali" type="text" size="33" value="<%=animali%>"></td>
</tr>
<tr>
<td><input name="Modifica" type="submit" class="forminvio"></td>
<td><input name="Reset" type="reset" class="forminvio"></td>
</tr>
</table>
</form>
<%
else 'password errata
response.write "Attenzione!Password o User non corretti! "
end if
else ' utente non trovato
response.write "Attenzione!Password o User non corretti! "
end if
%>Questo è ilform dove appaiono i dati che poi l'utente modifica e invia all'altra pagina
che il codice è sempre questo:
<%
IF Session("Loggato") = False and Session("Username") = "" then
Response.Redirect "index.asp"
End IF
%>
<html>
<head>
<title>Afterward</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="../css/city.css" rel="stylesheet" type="text/css">
</head>
<body class="gior">
<%
password = Replace(Request.Form("password"), "'", "''")
motto = Replace(Request.Form("motto"), "'", "''")
life = Replace(Request.Form("life"), "'", "''")
dati = Replace(Request.Form("dati"), "'", "''")
avatar = Replace(Request.Form("avatar"), "'", "''")
fisico = Replace(Request.Form("fisico"), "'", "''")
veicoli = Replace(Request.Form("veicoli"), "'", "''")
animali = Replace(Request.Form("animali"), "'", "''")
IF password <> "" and motto <> "" and life <> "" and dati <> "" and avatar <> "" and fisico <> "" and veicoli <> "" and animali <> "" then
url_DB = "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("/mdb-database/afterward.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open url_DB
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM afterward where username LIKE '" & session("username") & "' and password LIKE '" & password & "' and motto LIKE '" & motto & "' and life LIKE '" & life & "' and avatar LIKE '" & avatar & "' and fisico LIKE '" & fisico & "' and veicoli LIKE '" & veicoli & "' and animali LIKE '" & animali & "'"
RecSet.Open Sql, conn, 1, 3
If Not RecSet.Eof THEN
RecSet("password") = password
RecSet("motto") = motto
RecSet("life") = life
RecSet("dati") = dati
RecSet("avatar") = avatar
RecSet("fisico") =fisico
RecSet("veicoli") = veicoli
RecSet("animali") = animali
RecSet.Update
Esatti = si
Else
Esatti = no
End IF
RecSet.Close
Set RecSet= Nothing
conn.Close
Set conn = Nothing
If Esatti = True then
%>
Dati aggiornati
<%
else
%>
Dati nn corretti
<%
End IF
Else
%>
Compila tutti i campi correttamente
<%
End IF
%>
</body>
</html> grzie sempre
