Konverter et simpelt ASP opdateret site fra tabeller til Frames.
Jeg har lavet et simpelt ASP site der kan opdateres via et administrations modul. Sitet er oprindeligt lavet i Tabeller men jeg skal have det lavet i enten frames nu eller lave en inline frame hvor det dynamiske indhold kan vises. Det er et simpelt frameset med menu i venstre side, top banner og indholdsdelen i midten. Jeg har lavet framesettet, men kan ikke få mine dynamiske sider til at virke. Den henter simpelthen ikke page?id som den skal. Jeg håber at jeg har forklaret mig rigtigt, men her er koden og 50 point til den der kan komme med en let løsning.Her er min frameset fil:
<%@language="VBScript"%>
<!--#include file="conn.asp"-->
<%
Response.buffer = True
if request.querystring("page_id") = "" then
'Dette lille stunt bruges hvis siden hentes uden et id
'Siden hentes igen med det laveste id fra databasen
'Dette er smart, da man jo ikke kan gå ud fra at ID 1 stadig eksisterer i databasen
sql = "select MIN(page_id) as MIN_ID from pages"
set minRS = conn.execute(sql)
page_id = minRS("MIN_ID")
minRS.Close
Set minRS = Nothing
response.redirect "default.asp?page_id=" & page_id
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Untitled</title>
</head>
<!-- frames -->
<frameset cols="20%,*">
<frame name="menu" src="C:\Inetpub\wwwroot\sky\menu.asp" marginwidth="1" marginheight="1" scrolling="no" frameborder="0" noresize>
<frameset rows="31%,*">
<frame name="topbar" src="C:\Inetpub\wwwroot\sky\topbar.html" marginwidth="10" marginheight="10" scrolling="no" frameborder="0" noresize>
<frame name="content" src="C:\Inetpub\wwwroot\sky\content.asp?<%request.querystring("page_id")%>" marginwidth="10" marginheight="10" scrolling="auto" frameborder="0">
</frameset>
</frameset>
<body>
</body>
</html>
og min indholds fil:
<%@language="VBScript"%>
<!--#include file="conn.asp"-->
<html>
<head>
</head>
<body text="#000000" vLink="#666666" aLink="#000000" bgColor="#669999" leftMargin="0" topMargin="0" marginwidth="0" marginheight="0">
<table width="630" border="0" cellspacing="0" cellpadding="0" bgcolor="#ffffff">
<tr>
<td width="630" align="right" valign="top" bgcolor="#000000">
<p align="center">
<%
page_id = request.querystring("page_id")
select case page_id
case 9,10,16,29,30 'Sæt alle de ID numre ind her som bruger den alm. kode
%>
<!-- #include file = "main.asp" -->
<%
case 11,12,13,17,18,20 'En anden side som du vil have til at tage noget speciel kode
%>
<!-- #include file = "energywork.asp" -->
<%
case 22 'En anden side som du vil have til at tage noget speciel kode
%>
<!-- #include file = "taoist.asp" -->
<%
case 23 'En anden side som du vil have til at tage noget speciel kode
%>
<!-- #include file = "tantra.asp" -->
<%
case 24 'En anden side som du vil have til at tage noget speciel kode
%>
<!-- #include file = "bodywork.asp" -->
<%
case 25 'En anden side som du vil have til at tage noget speciel kode
%>
<!-- #include file = "sound.asp" -->
<%
case 26 'En anden side som du vil have til at tage noget speciel kode
%>
<!-- #include file = "light.asp" -->
<%
case 27 'En anden side som du vil have til at tage noget speciel kode
%>
<!-- #include file = "lisa.asp" -->
<%
case 28 'En anden side som du vil have til at tage noget speciel kode
%>
<!-- #include file = "karla.asp" -->
<%
case 30 'En anden side som du vil have til at tage noget speciel kode
%>
<!-- #include file = "address.asp" -->
<%
case 21,22,24,25,26 'En anden side som du vil have til at tage noget speciel kode
%>
<!-- #include file = "guides.asp" -->
<%
end select
%></P>
</td>
</tr>
</table>
</BODY>
</HTML>
<%
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
Mit problem er først og fremmest at jeg ikke kan få framesettet til at læse page_id og vise indholdet i framen.
Jeg kan også sende de oprindelige filer som er bygget op i tabeller hvis det er lettere. På forhånd tak for hjælpen.
