Hejsan! Har meckat ett tag nu med det här men får det inte att fungera :( Du sparar inte förändringaran till databasen. Vad heter ditt idfält? Har du sparat det i sessions variablerna? Okej, det heter "ID", det verkar inte fungera, för att den ändrar i alla t.ex adress fälten om du ändrar på en user. Vad innehåller Uppdatera ? Först (changeinst.asp) Du kan ju alltid skippa Programmering och bli biblotikarie. ;o) Uppdatera = "Select * From anv"Ändra info med session?
<--Först där man kan ändra (changeinst.asp)
<code>
<% Response.Buffer = True %>
<html>
<head>
<title>test</title>
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath("db/logg.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Visa = "SELECT * FROM anv"
RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic
%>
</head>
<body bgcolor="#FFFFFF">
<%
If NOT Session("user") = "user" Then
Response.Redirect "default.asp"
Else
%>
<font face="verdana" size="1">=Session("namn")%></font>
<hr>
<br>
<form name="form1" method="post" action="andranu.asp">
<p><b>Adress:</b>
<input type="text" name="adress" value="<%=Session("adress")%>">
<br>
<b>Postnummer:</b>
<input type="text" name="postnr" value="<%=Session("postnr")%>">
<br>
<b>Postort:</b>
<input type="text" name="postort" value="<%=Session("postort")%>">
<br>
<b>E-mail:</b>
<input type="text" name="email" value="<%=Session("email")%>">
<br>
<b>Telefonnummer:</b>
<input type="text" name="tele" value="<%=Session("tele")%>">
<br>
<input type="submit" name="Submit" value="Ändra">
</form>
<% RecSet.Close
Connect.Close %>
<hr>
<font face="verdana" size="1
</font>
<%
End If
%>
</body>
</html>
</code>
<--Sen själva ändringen i databasen (andranu.asp)
<code>
<html>
<!-- #include file="adovbs.inc" -->
<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath("db/logg.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Uppdatera = "Select * From anv"
RecSet.Open Uppdatera, Connect, adOpenStatic, adLockOptimistic
Session("adress") = Request.Form("adress")
Session("postnr") = Request.Form("postnr")
Session("postort") = Request.Form("adress")
Session("email") = Request.Form("email")
Session("tele") = Request.Form("tele")
RecSet.Update
RecSet.Close
Connect.Close
%>
<b>Dina inställningar är ändrade!</b>
</html>Sv: Ändra info med session?
<code>
<html>
<body>
<!-- #include file="adovbs.inc" -->
<%
Function SQLText(Value)
If Len(Value) > 0 Then
SQLText = "'" & Replace(Value, "'", "''") & "'"
Else
SQLText = "Null"
End If
End Function
Dim Connect
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath("db/logg.mdb")
Uppdatera = "UPDATE anv SET adress = " & SQLText(Request.Form("adress")) & ", " & vbCrLf & _
" postnr = " & SQLText(Request.Form("postnr")) & ", " & vbCrLf & _
" postort = " & SQLText(Request.Form("adress")) & ", " & vbCrLf & _
" email = " & SQLText(Request.Form("email")) & ", " & vbCrLf & _
" tele = " & SQLText(Request.Form("tele") & vbCrLf & _
"WHERE ID = " & Session("id")
Connect.Execute Uppdatera
Connect.Close
Set Connect = Nothing
Session("adress") = Request.Form("adress")
Session("postnr") = Request.Form("postnr")
Session("postort") = Request.Form("adress")
Session("email") = Request.Form("email")
Session("tele") = Request.Form("tele")
%>
Dina inställningar är ändrade!
</body>
</html> Sv: Ändra info med session?
Sv: Ändra info med session?
Skriv ut den med:
Response.Write Uppdatera Sv: Ändra info med session?
<code>
<% Response.Buffer = True %>
<html>
<head>
<title>test</title>
<LINK REL="stylesheet" HREF="style.css" TYPE="text/css">
</head>
<body bgcolor="#FFFFFF">
<%
If NOT Session("user") = "user" Then
Response.Redirect "default.asp"
Else
%>
<b><%=Session("namn")%></font>
<hr>
<br>
<form name="form1" method="post" action="changenow.asp">
<p><b>Adress:</b>
<input type="text" name="adress" value="<%=Session("adress")%>">
<br>
<b>Postnummer:</b>
<input type="text" name="postnr" value="<%=Session("postnr")%>">
<br>
<b>Postort:</b>
<input type="text" name="postort" value="<%=Session("postort")%>">
<br>
<b>E-mail:</b>
<input type="text" name="email" value="<%=Session("email")%>">
<br>
<b>Telefonnummer:</b>
<input type="text" name="tele" value="<%=Session("tele")%>">
<br>
<input type="submit" name="Submit" value="Ändra">
</form>
<hr>
<font face="verdana" size="1"><Tillbaka<br>
</font>
<%
End If
%>
</body>
</html>
</code>
sen (changenow.asp)
<code>
<html>
<!-- #include file="adovbs.inc" -->
<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source ="& Server.MapPath("db/logg.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Uppdatera = "Select * From anv"
RecSet.Open Uppdatera, Connect, adOpenStatic, adLockOptimistic
RecSet("adress") = Request.Form("adress")
RecSet("postnr") = Request.Form("postnr")
RecSet("postort") = Request.Form("adress")
RecSet("email") = Request.Form("email")
RecSet("tele") = Request.Form("tele")
RecSet.Update
RecSet.Close
Connect.Close %>
<b>Dina inställningar är ändrade!</b>
<p><Tillbaka</p>
</html>
</code>Sv: Ändra info med session?
Hur ser koden som loggar in användaren ut???????Sv: Ändra info med session?
får nog bli
Uppdatera = "Select * From anv Where användarnamn='" & Användarnamn & "'"