Give Bruger besked når man er synlig på hjemmesiden
Jeg har lavet denne hjemmeside www.alledeprivatedagplejere.dkHer kan man som dagplejere tilmelde sig denne side, når webmaster har godkent brugeren bliver dagplejeren synlig på siden.
NU kunne jeg godt tænke mig at når webmaster sættter en flueben i redigerinfo.asp og klikker på ret, så sendes der en besked til brugeren, at brugeren er synlig på hjemmesiden, det skal virker med jmail.
beskeden som brugeren får skal se således ud.
Hej "brugerens navn"
Du er nu synlig på siden www.alledeprivatedagplejere.dk
Dit brugernavn og password er følgende når du skal ind og ændre på siden.
Med venlig hilsen
min redigerinfo.asp ser således ud.
<%
'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>Ret 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>
<%else%>
<tr>
<td colspan=2 width="310">
<Input type="hidden" name="synlig"<%=isSynlig%> value="ON">
</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>
sætter gerne flere points af, hvis det er muligt.
Hvem kan hjælpe mig, aner ikke hvordan det skal se ud.
