Hjælp til redigerinfo.asp script
jeg har dette script, hvor brugere kan rette i sine oplysninger, samt administrator også kan ændre i brugerens oplysniger.for at blive vist på hjemmesiden, sætter Admin, flueben i feltet synling, som er nederst på dette script, KUN admin kan se dette felt.
Problemet er, når en brugerer er inde og rettet i sine oplysninger, forsvinder fluebenet i feltet synligt og admin skal ind igen og vinge brugeren til. Hvordan ungåes det??
redigerinfo.asp
<%
'option explicit
response.buffer = true
' Hvis man ikke er logget ind, skal man ikke kunne se denne side
if session("id") = "" then response.redirect "../default.asp?emne=login"
%>
<!-- #include file="../databaseforbindelse.asp" -->
<!-- #include file="headerinfo.asp" -->
<!-- HUSK DOCTYPE -->
<html>
<head>
<title>Rediger info</title>
</head>
<body>
<%
function fixtegn(s)
fixtegn = replace(s, "'", "''")
end function
dim opdateret
opdateret = ""
dim brugerid
brugerid = CInt(session("id"))
'dim isAdmin, isSynlig
isAdmin = false
isSynlig = ""
if request.querystring("mode") = "admin" then
if session("status") <> "admin" then
response.redirect "../default.asp?emne=login"
else
brugerid = request.querystring("id")
isAdmin = true
end if
end if
'dim conn, dsn, rs, sql
'Set Conn = Server.CreateObject("ADODB.Connection")
'DSN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("./db/brugerinfo.mdb")
'Conn.Open DSN
if request.servervariables("request_method") = "POST" then
' der skal opdateres
navn = fixtegn(request.form("navn"))
adresse = fixtegn(request.form("adresse"))
postnr = fixtegn(request.form("postnr"))
city = fixtegn(request.form("city"))
tlf = fixtegn(request.form("tlf"))
mobil = fixtegn(request.form("mobil"))
email = fixtegn(request.form("email"))
web = fixtegn(request.form("web"))
sted = fixtegn(request.form("sted"))
lp = fixtegn(request.form("lp"))
nyd = fixtegn(request.form("nyd"))
pic1 = fixtegn(request.form("pic1"))
pic2 = fixtegn(request.form("pic2"))
pic3 = fixtegn(request.form("pic3"))
tekst = fixtegn(request.form("tekst"))
brugernavn = fixtegn(request.form("brugernavn"))
kodeord = fixtegn(request.form("kodeord"))
dim sqlSynlig
sqlSynlig = "0"
if request.form("synlig") <> "" then sqlSynlig = "1"
sql = "update tblBrugerInfo set "
sql = sql & "navn = '" & navn & "', "
sql = sql & "adresse = '" & adresse & "', "
sql = sql & "postnr = '" & postnr & "', "
sql = sql & "city = '" & city & "', "
sql = sql & "tlf = '" & tlf & "', "
sql = sql & "mobil = '" & mobil & "', "
sql = sql & "email = '" & email & "', "
sql = sql & "web = '" & web & "', "
sql = sql & "sted = '" & sted & "', "
sql = sql & "lp = '" & lp & "', "
sql = sql & "nyd = '" & nyd & "', "
sql = sql & "pic1 = '" & pic1 & "', "
sql = sql & "pic2 = '" & pic2 & "', "
sql = sql & "pic3 = '" & pic3 & "', "
sql = sql & "tekst = '" & tekst & "', "
sql = sql & "brugernavn = '" & brugernavn & "', "
sql = sql & "kodeord = '" & kodeord & "', "
sql = sql & "synlig = " & sqlSynlig & " "
sql = sql & "where id = " & brugerid
conn.execute(sql)
opdateret = "<br><b>Profilen er nu opdateret</b>"
response.redirect "../default.asp?emne=admin"
end if
' der skal hentes
'dim fejl
fejl = false
sql = "select * from tblBrugerInfo where id = " & brugerid
set rs = conn.execute(sql)
dim navn, adresse, postnr, city, tlf, mobil, email, web, sted, lp, nyd, pic1, pic2, pic3, tekst
if not rs.eof then
navn = "" & rs("navn")
adresse = "" & rs("adresse")
postnr = "" & rs("postnr")
city = "" & rs("city")
tlf = "" & rs("tlf")
mobil = "" & rs("mobil")
email = "" & rs("email")
web = "" & rs("web")
sted = "" & rs("sted")
lp = "" & rs("lp")
nyd = "" & rs("nyd")
pic1 = "" & rs("pic1")
pic2 = "" & rs("pic2")
pic3 = "" & rs("pic3")
tekst = "" & rs("tekst")
brugernavn = "" & rs("brugernavn")
kodeord = "" & rs("kodeord")
if isAdmin then
if CBool(rs("synlig")) then isSynlig = " checked"
end if
else
fejl = true
end if
Conn.Close
set rs = nothing
Set Conn = Nothing
if fejl = true then response.redirect "login.asp"
%>
<center>
<Form Action="admin/redigerinfo.asp<% if request.querystring <> "" then response.write "?" & request.querystring%>" method="post">
<table cellspacing=0 border=0 cellspacing="0" cellpadding="5" width=320>
<tr>
<td colspan=2 height=20 width="310">
<b>aRet Oplysninger:</b>
</td>
</tr>
<tr>
<td width="64">
Navn</td>
<td align=right width="236">
<input type="text" name="navn" size="32" value="<%=navn%>"></td>
</tr>
<tr>
<td width="64">
Adresse</td>
<td align=right width="236">
<input type="text" name="adresse" size="32" value="<%=adresse%>"></td>
</tr>
<tr>
<td width="64">
Postnr</td>
<td align=right width="236">
<input type="text" name="postnr" size="32" value="<%=postnr%>"></td>
</tr>
<tr>
<td width="64">
By</td>
<td align=right width="236">
<input type="text" name="city" size="32" value="<%=city%>"></td>
</tr>
<tr>
<td width="64">
Tlf</td>
<td align=right width="236">
<input type="text" name="tlf" size="32" value="<%=tlf%>"></td>
</tr>
<tr>
<td width="64">
Mobil</td>
<td align=right width="236">
<input type="text" name="mobil" size="32" value="<%=mobil%>"></td>
</tr>
<tr>
<td width="64">
Email</td>
<td align=right width="236">
<input type="text" name="email" size="32" value="<%=email%>"></td>
</tr>
<tr>
<td width="64">
Web</td>
<td align=right width="236">
<input type="text" name="web" size="32" value="<%=web%>"></td>
</tr>
<tr>
<td width="64">
Sted</td>
<td align=right width="236">
<input type="text" name="sted" size="32" value="<%=sted%>"></td>
</tr>
<tr>
<td width="64">
Lp</td>
<td align=right width="236">
<input type="text" name="lp" size="32" value="<%=lp%>"></td>
</tr>
<tr>
<td width="64">
Nyd</td>
<td align=right width="236">
<input type="text" name="nyd" size="32" value="<%=nyd%>"></td>
</tr>
<tr>
<td width="64">
Pic1</td>
<td align=right width="236">
<input type="text" name="pic1" size="32" value="<%=pic1%>"></td>
</tr>
<tr>
<td width="64">
Pic2</td>
<td align=right width="236">
<input type="text" name="pic2" size="32" value="<%=pic2%>"></td>
</tr>
<tr>
<td width="64">
Pic3</td>
<td align=right width="236">
<input type="text" name="pic3" size="32" value="<%=pic3%>"></td>
</tr>
<tr>
<td width="64">
tekst</td>
<td align=right width="236">
<textarea rows="12" name="tekst" cols="28"><%=tekst%></textarea></td>
</tr>
<tr>
<td width="64">
Brugernavn</td>
<td align=right width="236">
<input type="text" name="brugernavn" size="32" value="<%=brugernavn%>"></td>
</tr>
<tr>
<td width="64">
Kodeord</td>
<td align=right width="236">
<input type="text" name="kodeord" size="32" value="<%=kodeord%>"></td>
</tr>
<% if isAdmin then %>
<tr>
<td colspan=2 width="310">
<Div Align=right>Synlig:
<Input type="checkbox" name="synlig"<%=isSynlig%> value="ON"></div>
</td>
</tr>
<% end if %>
<tr>
<td colspan=2 width="310">
<Div Align=right><Input type="submit" Value="Ret"></div>
</td>
</tr>
</table>
</form>
<%=opdateret%>
</BODY>
</HTML>
