sideskift på side
Hejsa..Jeg er igang med at ligge alle mine koder ind i en database, så jeg kan redigere i dem online..
For at lave sideskift har jeg lavet i min database:
id = Autonummerering
sidenavn = tekst
indhold = notat
Så har jeg lavet en visprofil.asp der ser sådan ud:
<!-- #include file="conn.asp" -->
<%
id = request.querystring("id")
Set cms = Server.CreateObject("ADODB.Recordset")
cms.Open "SELECT * FROM CMS WHERE sidenavn like'" & id & "'" ,database
%>
<html>
<head>
<title><%= cms.Fields("sidenavn")%></title>
<link rel="stylesheet" type="text/css" href="inklude/tekst.css">
<link rel="stylesheet" type="text/css" href="inklude/visprofil.css">
</head>
<body>
<% While NOT cms.EOF %>
<p>
<%= cms.Fields("indhold")%>
</p>
<% cms.MoveNext
Wend %>
</body>
</html>
Jeg har så en gammel sideskift's kode der ser sådan ud:
<%
pageid=lcase(request.querystring("content"))
if pageid = "" THEN
pageid = "page/forside"
End if
Set oFS = Server.CreateObject("Scripting.FileSystemObject")
if oFS.FileExists(Server.MapPath(pageid & ".asp")) = True Then
server.execute pageid & ".asp"
else
if oFS.FileExists(Server.MapPath("page/error/404.asp")) = True Then
server.execute "page/error/404.asp"
else
Response.Write "<h1>404 Error</h1>"
Response.Write "<p>Siden er desværre nede lige nu. Hvis problemet fortsætter, så send venligst en mail til os.</p>"
end if
end if
%>
Det virker hvis jeg kalder mit link sådan:
a href="default.asp?content=visprofil&id=forside"
a href="default.asp?content=visprofil&id=profil"
osv..
er der ikke en måde man kan forkorte denne kode på, så mine link kun skal se sådan ud:
a href="default.asp?id=forside"
