Den er noget stor :D
Men her er den
---------------------------------------------------
<%Dim ID,opslag
id=Request.QueryString("ID")
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("../../db/artikel.mdb")
if request.querystring("knap")<>"Ret" then
SQLstringK="SELECT * FROM oversigt WHERE id="&id
SET opslag=Connection.Execute(SQLstringK)
else
SQLstringK="UPDATE oversigt SET overskrift='"&Request.QueryString("overskrift")&"', status='"&Request.QueryString("status")&"', skrevet='"&Request.QueryString("skrevet")&"', billede='"&Request.QueryString("billede")&"', key='"&Request.QueryString("key")&"', mini_tekst='"&Request.QueryString("mini_tekst")&"', beskrivelse='"&Request.QueryString("beskrivelse")&"' WHERE id="&id
Connection.Execute(SQLstringK)
response.buffer=true
response.clear
response.redirect "../default.asp"
response.end
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>PCFreek.dk - admin system</title>
<META NAME="author" CONTENT="Steffan Jensen">
<LINK REV="made" href="mailto:Webmaster@pcfreek.dk">
<META HTTP-EQUIV="Reply-to" CONTENT="Webmaster@pcfreek.dk">
<META NAME="Keywords" CONTENT="web, grafik, pc, freek, forside, nyheder, artikler, artikel, tutorials, links, redaktion, info, faq, kontakt, kategori">
<META NAME="Description" CONTENT="Et Dansk computer site med artikler, tutorials & links omkring pc området.">
<META NAME="Robots" CONTENT="ALL">
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="../../css/style.css" type="text/css" media="all" />
</head>
<body>
<table width="800" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="74">
<table width="97%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td><img src="../../img/logo2.jpg" width="144" height="56"></td>
</tr>
</table></td>
<td height="74"><div align="center">
<iframe src="
http://impdk.tradedoubler.com/imp/pool/iframe/33767/971763" width="468" height="60" frameborder="0" border="0" marginwidth="0" marginheight="0" scrolling="no"></iframe>
</div></td>
</tr>
<tr>
<td colspan="2" height="1" background="../../img/linje_vandret.jpg"></td>
</tr>
<tr>
<td width="18%" bgcolor="#F2F2F2" height="20"></td>
<td width="82%" bgcolor="#F2F2F2"><div align="right">
<table width="98%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td><div align="right">
| <a href="../default.asp">FORSIDE </a>
| <a href="../nyheder/default.asp">NYHEDER </a>
| <a href="default.asp">ARTIKLER </a>
| <a href="../tutorials/default.asp">TUTORIALS </a>
| <a href="../links/default.asp">LINKS </a>
| <a href="../partnere/default.asp">PARTNERE </a>
| <a href="../redaktion/default.asp">REDAKTION </a>
| <a href="../info/default.asp">INFO/FAQ </a>
| <a href="../kontakt/default.asp">KONTAKT </a>
|</div></td>
</table>
</div></td>
</tr>
<tr>
<td height="1" colspan="2" background="../../img/linje_vandret.jpg"></td>
</tr>
</table>
<table width="800" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="1"> </td>
<td width="1" rowspan="13" background="../../img/linje_lodret.jpg"></td>
<td> </td>
</tr>
<tr>
<td height="1"><b>Tutorials Kategorier:</b></td>
<td> <table width="93%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td><b>Admin:</b></td>
</tr>
</table></td>
</tr>
<tr>
<td height="1"> </td>
<td><b>
<%
if session("login") = "" Then
Response.redirect("../../login.asp")
end if
%>
</b></td>
</tr>
<tr>
<td height="1">
<%
Conn_String = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../../db/tutorials.mdb")
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open Conn_String
sql = "select * from cat order by ID"
set rs = Conn.Execute (sql)
%>
<div align="center">
<table border="0">
<%
Do while NOT rs.EOF
ColNum = 1
Do while ColNum < 3
%>
<tr class="style">
<TD WIDTH="250"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><a href="../../artikler_oversigt.asp?CatID=<%=rs("id")%>"><b><%=rs("cat")%></b></a></td>
</tr>
<tr>
<td width="74%" height="2"></td>
</tr>
<tr>
<td background="../../img/linje_vandret.jpg" height="1"></td>
</tr>
</table></TD>
<%
if NOT rs.EOF then
rs.MoveNext
end if
ColNum = ColNum + 1
if NOT rs.EOF then
%>
<TD WIDTH="250" ALIGN=LEFT VALIGN=middle> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><a href="../../artikler_oversigt.asp?CatID=<%=rs("id")%>"><b><%=rs("cat")%></b></a></td>
</tr>
<tr>
<td width="74%" height="2"></td>
</tr>
<tr>
<td background="../../img/linje_vandret.jpg" height="1"></td>
</tr>
</table></TD>
<%
end if
ColNum = ColNum + 1
Loop
%>
</TR>
<%
if NOT rs.EOF then
rs.MoveNext
end if
Loop
%>
</TABLE>
<% rs.close
Conn.Close
set Conn = nothing
%>
</div></td>
<td rowspan="10" valign="top"><table width="95%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<%if not opslag.eof then%>
<form method="GET" action="<%=request.servervariables("../SCRIPT_NAME")%>">
<table border="0" width="295" cellspacing="1" cellpadding="0" height="178" align="center">
<tr>
<td width="100%" valign="top"> <table width="100%" border="0" cellspacing="2" cellpadding="0">
<tr>
<td width="75%" valign="top" align="left"> <table width="100%" border="0" cellspacing="1" cellpadding="2">
<tr>
<td class="skrift" width="95" valign="top">Overskrift:</td>
<td width="183"> <input type="text" name="overskrift" size="30" class="input" value="<%=OPSLAG("overskrift")%>"></td>
</tr>
<tr>
<td>Skrevet:</td>
<td> <input name="skrevet" type="text" class="input" value="<%=OPSLAG("skrevet")%>" size="30">
</td>
</tr>
<tr>
<td>Status:</td>
<td> <input type="text" name="status" size="30" class="input" value="<%=OPSLAG("status")%>">
</td>
</tr>
<tr>
<td>Billede:</td>
<td> <input name="billede" type="text" class="input" size="30" value="<%=OPSLAG("billede")%>">
</td>
</tr>
<tr>
<td>Søgeord:</td>
<td> <input name="key" type="text" class="input" size="40" value="<%=OPSLAG("key")%>"></td>
</tr>
<tr>
<td valign="top">Mini Tekst:</td>
<td> <textarea name="mini_tekst" cols="80" rows="6" class="input"><%=OPSLAG("mini_tekst")%></textarea>
</td>
</tr>
<tr>
<td valign="top">Beskrivelse:</td>
<td> <textarea name="beskrivelse" cols="80" rows="20" class="input"><%=OPSLAG("beskrivelse")%></textarea>
</td>
</tr>
</table>
<input type="hidden" name="id" value="<%=opslag("id")%>">
<br> <input type="submit" value="Ret" name="knap" class="input">
<input type="reset" value="Nulstil" name="B2" class="input">
<%end if%>
<p><font color=#FFFFFF>
<input class="input" name="button2" type=button onClick=history.back(); value="< Tilbage">
</font></p></td>
</tr>
</table></td>
</tr>
</table>
</form>
<p> </p></td>
</tr>
<tr>
<td height="15"><div align="center"></div></td>
</tr>
<tr>
<td height="13"> </td>
</tr>
</table></td>
</tr>
<tr>
<td height="1"> </td>
</tr>
<tr>
<td><b>Links Kategorier:</b></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td>
<%
Conn_String = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../../db/link.mdb")
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open Conn_String
sql = "select * from cat order by ID"
set rs = Conn.Execute (sql)
%>
<div align="center">
<table border="0">
<%
Do while NOT rs.EOF
ColNum = 1
Do while ColNum < 3
%>
<tr class="style">
<TD WIDTH="250"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><a href="../../showlink.asp?CatID=<%=rs("id")%>"><b><%=rs("cat")%></b></a></td>
</tr>
<tr>
<td width="74%" height="2"></td>
</tr>
<tr>
<td background="img/linje_vandret.jpg" height="1"></td>
</tr>
</table></TD>
<%
if NOT rs.EOF then
rs.MoveNext
end if
ColNum = ColNum + 1
if NOT rs.EOF then
%>
<TD WIDTH="250" ALIGN=LEFT VALIGN=middle> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><a href="../../showlink.asp?CatID=<%=rs("id")%>"><b><%=rs("cat")%></b></a></td>
</tr>
<tr>
<td width="74%" height="2"></td>
</tr>
<tr>
<td background="img/linje_vandret.jpg" height="1"></td>
</tr>
</table></TD>
<%
end if
ColNum = ColNum + 1
Loop
%>
</TR>
<%
if NOT rs.EOF then
rs.MoveNext
end if
Loop
%>
</TABLE>
<% rs.close
Conn.Close
set Conn = nothing
%>
</div></td>
</tr>
<tr>
<td height="1"> </td>
</tr>
<tr>
<td height="1" background="../../img/linje_vandret.jpg"></td>
</tr>
<tr>
<td width="176"> </td>
</tr>
<tr>
<td><b>Reklame:</b></td>
</tr>
<tr valign="top">
<td><table width="91%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td height="20"> </td>
</tr>
<tr>
<td height="1" background="../../img/linje_vandret.jpg"></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td> <script language="JavaScript" src="
http://impdk.tradedoubler.com/imp/pool/js/36924/971763" charset="ISO-8859-1"></script>
</td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td height="1" background="../../img/linje_vandret.jpg"></td>
</tr>
</table></td>
</tr>
<tr>
<td height="1" colspan="3" background="../../img/linje_vandret.jpg"></td>
</tr>
<tr>
<td height="5" colspan="3"></td>
</tr>
<tr>
<td height="18" colspan="3" bgcolor="#F2F2F2"><div align="right">
<table width="98%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td><div align="right">Copyright 2003-2004 - Made by Steffan Jensen
::
www.web-grafik.dk</div></td> </tr>
</table>
</div></td>
</tr>
<tr>
<td height="5" colspan="3"></td>
</tr>
<tr>
<td height="1" colspan="3" background="../../img/linje_vandret.jpg"></td>
</tr>
</table>
</body>
</html>
