Her er kildekoden for "redigere.asp" den er den fil som findes i admin modulet som du/i kan se er der nederst i koden et link til "oversigt.asp" - filen der mangler...
<% Session.LCID =1030 %>
<!-- INFO -->
<!-- Lavet af: Steffan Jensen -->
<!-- hjemmeside:
http://www.web-grafik.dk -->
<!--- INFO -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Skovbakken Fodbold | Nyhedssystem ver 1.0 | REDIGER</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="
http://www.skovbakken.dk/fodbold/css_news/style.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="50%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td bgcolor="#6C0000" height="17"> <font color="#FFFFFF"><b>Admin-System</b></font></td>
</tr>
<tr>
<td></td>
</tr>
</table>
<table width="50%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td colspan="2">
<%
if session("login") = "" Then
Response.redirect("login.asp")
end if
%>
</td>
</tr>
<tr>
<td colspan="2"> </td>
</tr>
<tr>
<td width="20%" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="15"><img src="../img/pil.jpg" width="10" height="8"><a href="tilfoj.asp">
Tilføj Artikel</a></td>
</tr>
<tr>
<td height="15"><img src="../img/pil.jpg" width="10" height="8"><a href="redigere.asp">
Redigere/Slet</a></td>
</tr>
<tr>
<td height="15"><img src="../img/pil.jpg" width="10" height="8"><a href="kommentare.asp">
Kommentare</a></td>
</tr>
<tr>
<td height="15"><img src="../img/pil.jpg" width="10" height="8"><a href="stats.asp">
Stats</a></td>
</tr>
<tr>
<td height="15"><img src="../img/pil.jpg" width="10" height="8"><a href="logoff.asp">
Logaf</a></td>
</tr>
<tr>
<td height="15"> </td>
</tr>
<tr>
<td height="15"> </td>
</tr>
<tr>
<td height="15"> </td>
</tr>
<tr>
<td height="15"> </td>
</tr>
<tr>
<td height="15"> </td>
</tr>
</table></td>
<td width="86%" valign="top"><div align="center">
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT overskrift, dato, id, skrevet FROM tabel"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../db/jittytre.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 7
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
Do While Not rs.EOF And intRecCount > 0
response.write("<table border=0 width=500>")
response.write("<tr><td width=30>")
response.write("<a href=ret_artikel.asp?id=")
response.Write(rs("id"))
response.write(">")
response.write("<img src=""../img/admin/zoom.gif"" width=""22"" height=""22"" border=""0"" alt="""">" & "</a>" & " ")
response.write("</td><td width=200>")
response.Write("" & rs("overskrift") & "" & "<br>")
response.write("</td><td width=""30"">")
response.write("<a href=""slet_artikel.asp?id=")
response.Write(rs("id"))
response.write(""">")
response.write("<img src=""../img/admin/slet.gif"" width=""22"" height=""22"" border=""0"" alt="""">" & "</a>" & " ")
response.write("</td></tr>")
response.write("</table>")
response.write("<table border=0 width=500>")
response.write("<tr><td height=1 bgcolor=#E9E9E9>")
response.write(" ")
response.write("</td></tr>")
response.write("</table>")
intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
Response.Write "<a href=oversigt.asp?page=" & intNum & ">" & intNum & "</a> "
Next
Response.Write "<p>"
If Clng(intPage) > 1 Then
Response.Write "<a href=oversigt.asp?page=" & intPage - 1 & "><<</a>"
Else
Response.Write "<<"
End If
Response.Write " "
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=oversigt.asp?page=" & intPage + 1 & ">>></a> "
Else
Response.Write ">>"
End If
%>
</div></td>
</tr>
</table>
</body>
</html>
Her er kildekoden til default.asp - i hovedmodulet, altså den side der er vist først på
www.skovbakken.dk/fodbold <% Session.LCID =1030 %>
<!-- INFO -->
<!-- Lavet af: Steffan Jensen -->
<!-- hjemmeside:
http://www.web-grafik.dk -->
<!--- INFO -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Skovbakken Fodbold | Nyhedssystem ver 1.0</title>
<meta name="Generator" content="Stone's WebWriter 4">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="
http://www.skovbakken.dk/fodbold/css_news/style.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="354" border="0" cellspacing="0" cellpadding="0" align="left">
<tr>
<td width="354">
<% dim rs, SQLstringK, Record, sngGns %>
<% intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("db/jittytre.mdb")
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT overskrift, indledning, id, skrevet, dato FROM tabel order by dato DESC"
rs.Open strSQL, connection, 1, 3
If Not (rs.BOF Or rs.EOF) Then
rs.PageSize = 6
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Do While Not rs.EOF And intRecCount > 0
strSQL = "SELECT COUNT(id) as found FROM produkt WHERE Category = " & rs("id") & ""
Set record = Connection.Execute(strSQL)
Ialt = Record("found")
response.write("<table width=""399"" border=""0"" cellspacing=""0"" cellpadding=""0"">")
response.write("<tr>")
response.write("<td width=""397"">")
response.write("<table width=""383"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"">")
response.write("<tr><td height=""12""><img src=""img/pil.gif"" alt="""">" & " ")
response.write("<a href=vis_nyhed.asp?id=")
response.Write(rs("id"))
response.write(">")
response.Write("<font size=""2""><b>" & rs("overskrift") & " </b></font></a>")
response.write("</td>")
response.write("</tr>")
response.write("<tr><td height=""2"">")
response.write("</td></tr>")
response.write("</table>")
response.write("<table width=""383"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"">")
response.write("<tr><td>")
response.Write(rs("indledning"))
response.write("</td>")
response.write("</tr><tr><td height=""2"">")
response.write("</td></tr><tr><td>")
response.write(""& rs("dato") & " ")
response.write("| ")
response.write(""& rs("skrevet") & " | ")
response.write("</td>")
response.write("</tr><tr><td height=""2"">")
response.write("</td></tr><tr>")
response.write("<td height=""4"">")
response.write("</td></tr>")
response.write("</table>")
response.write("</td>")
response.write("</tr>")
response.write("</table>")
intRecCount = intRecCount - 1
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing
Response.Write "<p> "
For intNum = 1 To intPageCount
Next
Response.Write "<p>"
If Clng(intPage) > 1 Then
Else
End If
Response.Write " "
If Clng(intPage) < Clng(intPageCount) Then
Else
End If
%>
</td>
</tr>
</table>
</body>
</html>
Er det de rigtige kildekoder?? der er jo en del filer i selve scriptet...
