hjælp til adm. side
en person, skal logge på med brugernavn + password, så kommer han/hun til denne side.retdp.asp Kunsten er det skal kun være denne bruges data som skal blive vist.
<!-- #include file="../databaseforbindelse.asp" -->
<%
'******insat**** + Jeg har sat testfejl foran alle dine request.form
'***************
function testfejl(felt)
felt=replace(felt,"'","''")
testfejl=felt
end function
'**************
'**************
Id = Request.Form ("id")
Tabelnavn = "dpinfo"
If Request.ServerVariables("CONTENT_LENGTH") <> 0 Then ' Opdatering
sql="update dpinfo set navn=""" & testfejl(request.form("adresse")) & """, postnr=""" & testfejl(request.form("postnr")) & """, tekst=""" & testfejl(request.form("tekst")) & """ where id=" & request.form("id")
conn.execute(sql)
response.redirect "../default.asp?emne=admin"
Else
Id = Request.QueryString ("id")
' ** Inserted by Jon Brohauge 2002/08/02
' ** Hvis der ikke er specificeret et id, så vis liste over alle nyheder sorteret efter dato, nyest først.
If Id = 0 Then
' ** Vis nyhedsliste
Set rs=Conn.Execute ("Select * from " & Tabelnavn & " WHERE emne LIKE '%link'")
%>
<body bgcolor="#C0C0C0">
<center>
<table cellspacing=0 border=0 cellspacing="0" cellpadding="5" width=320>
<td>
<b>OPLYSNINGER</b>
</td>
<td> </td>
</tr>
<%
If not(rs.bof or rs.eof) Then
while not(rs.eof)
%>
<tr>
<td>
<%=rs("navn")%> </td>
<td>
<font size=2 face=arial><a href="default.asp?emne=dpadmin&emne2=retdp&id=<%=rs("id")%>">Ret</a></font>
</td>
</tr>
<%
rs.movenext
wend
Else
Response.Write "Ingen Info at rette i"
End If
%>
</table>
</BODY>
</HTML>
<%
Else
' ** Vis valgte nyhed
Set rs=Conn.Execute ("Select * from " & Tabelnavn & " Where id=" & Id & "")
%>
<body bgcolor="#C0C0C0">
<center>
<Form Action=admin/retdp.asp 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="<%=rs("navn")%>"></td>
</tr>
<tr>
<td width="64">
adresse</td>
<td align=right width="236">
<input type="text" name="adresse" size="32" value="<%=rs("adresse")%>"></td>
</tr>
<tr>
<td width="64">
postnr</td>
<td align=right width="236">
<input type="text" name="postnr" size="32" value="<%=rs("postnr")%>"></td>
</tr>
<tr>
<td width="64">
tekst</td>
<td align=right width="236">
<textarea rows="12" name="tekst" cols="28"><%=rs("tekst")%></textarea></td>
</tr>
<tr>
<td colspan=2 width="310">
<Div Align=right><Input type="submit" Value="Ret"></div>
</td>
</tr>
</table>
<input type="hidden" name="id" value="<%=Id%>">
</form>
</BODY>
</HTML>
<%
End If
End If
%>
Men jeg får ingen data ind.
