Ok. Så virker det. Men... ;-)
Jeg skal bruge det til den edit.asp fil du hjalp mig med at lave her
http://www.eksperten.dk/spm/707174Det skal erstatte den linie der hedder -> News: <input type="text" name="News" value="<%=News%>">
Problemet er nu at når jeg trykker på "opdater" sker der ikke noget...
Mit komplette script ser nu sådan ud :
--------------------------------------------
<%
if request.querystring("id") <> "" then
if request.querystring("act") = "save" then
%>
<!-- #include file="ADOVBS.inc" -->
<%
Set rsSave = Server.CreateObject("ADODB.RecordSet")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../../DATABASER/login.mdb")
rsSave.open "Users", strDSN, adOpenDynamic, adLockOptimistic, adCmdTable
rsSave.find "UserID=" & request.querystring("id") & ""
rsSave("LastName") = request.form("Lastname")
rsSave("FirstName") = request.form("Firstname")
rsSave("Username") = request.form("Username")
rsSave("Admin") = request.form("Admin")
rsSave("MON") = request.form("MON")
rsSave("News") = request.form("News")
rsSave.update
rsSave.close
set rsSave = Nothing
response.redirect "vis_brugere.asp"
end if
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../../DATABASER/login.mdb")
Conn.Open DSN
strSQL = "Select * From Users WHERE UserID=" & request.querystring("id") & ""
Set rs = Conn.Execute(strSQL)
Lastname = rs("LastName")
Firstname = rs("FirstName")
Username = rs("Username")
Admin = rs("Admin")
MON = rs("MON")
News = rs("News")
rs.close
set rs=nothing
Conn.close
set Conn=nothing
%>
<html>
<head>
<title>EDIT <%=ucase(Firstname)%></title>
<meta name="Generator" content="Stone's WebWriter 4">
<link rel="stylesheet" type="text/css" href="../../STYLE/style.css">
</head>
<body background="../../IMAGES/startile.gif">
<form action="<%=request.servervariables("script_name")%>?act=save&id=<%=request.querystring("id")%>" method="post">
<div style="text-align:center">
<table border="0" width="500">
<tr>
<td>
<div style="text-align:center">
<table border="0">
<tr>
<td><font>Firstname:</font></td>
<td><input type="text" name="Firstname" value="<%=Firstname%>"></td>
</tr>
<tr>
<td><font>Lastname:</font></td>
<td><input type="text" name="Lastname" value="<%=Lastname%>"></td>
</tr>
<tr>
<td><font>Username:</font></td>
<td><input type="text" name="Username" value="<%=Username%>"></td>
</tr>
<tr>
<td><font>Status:</font></td>
<td>
<select size="1" name="Admin">
<option value="<%=Admin%>"<% if "" & lcase(Admin) & ""="user" then%> selected="selected"<%end if%>>user</option>
<option value="<%=Admin%>"<% if "" & lcase(Admin) & ""="mon" then%> selected="selected"<%end if%>>mon</option>
<option value="<%=Admin%>"<% if "" & lcase(Admin) & ""="admin" then%> selected="selected"<%end if%>>admin</option>
<option value="<%=Admin%>"<% if "" & lcase(Admin) & ""="superadmin" then%> selected="selected"<%end if%>>superadmin</option>
</select>
</td>
</tr>
<tr>
<td><font>MON:</font></td>
<td>
<select size="1" name="MON">
<option value="<%=MON%>"<% if "" & lcase(MON) & ""="nej" then%> selected="selected"<%end if%>>Nej</option>
<option value="<%=MON%>"<% if "" & lcase(MON) & ""="ja" then%> selected="selected"<%end if%>>Ja</option>
</select>
</td>
</tr>
<tr>
<td><font>News:</font></td>
<td>
<select size="1" name="News">
<option value="<%=News%>"<% if "" & lcase(News) & ""="nej" then%> selected="selected"<%end if%>>Nej</option>
<option value="<%=News%>"<% if "" & lcase(News) & ""="ja" then%> selected="selected"<%end if%>>Ja</option>
</select>
</td>
</tr>
</table>
<br><br>
<input type="submit" name="submit" value="opdater">
</div>
</td>
</tr>
</table>
</div>
</form>
</body>
</html>
<%
else
response.redirect "./"
end if
%>
Slettet bruger
Ny bruger
Nybegynder
Opret
Preview
