Debat problem iframe
Hej..Nu har jeg prøvet i næsten 1 time at få den her lille dumme kode til at virke.
Jeg har en debat/nyhedsscript. Det skal i en iframe.
Jeg har lavet koden som skal ind i siden for at poste indholdet men den virker ikke:
-----------------------------------------------------------------
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/db/Debat.mdb")
Conn.Open DSN
strSQL = "Select * From Debat Where Id = " & Request.Querystring("id")
Set rs = Conn.Execute(strSQL)
Do
' Personens navn
strOverskrift = rs("Emne")
%>
<%= StrOverskrift %>
<%
rs.MoveNext
Loop While Not rs.EOF
Conn.Close
Set Conn = Nothing
%>
----------------------------------------------------------------
OG her er min iframe kode:
----------------------------------------------------------------
<iframe src="debat_vis_debat.asp?ID=<% Request.Querystring("id") %>"></iframe>
----------------------------------------------------------------
Og her er hele min kode som viser debatten
----------------------------------------------------------------
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/db/Debat.mdb")
Conn.Open DSN
strSQL = "Select * From Debat Where Id = " & Request.Querystring("id")
Set rs = Conn.Execute(strSQL)
Do
' Personens navn
strOverskrift = rs("Overskrift")
%>
<title>Leol.dk, Debat - <%= strOverskrift %></title>
<%
rs.MoveNext
Loop While Not rs.EOF
Conn.Close
Set Conn = Nothing
%>
<%
dim tema
tema = "reds"
if tema = "red" then
%>
<link href="http://style.leol.dk/css_red_tema.css" rel="stylesheet" type="text/css">
<%
else
%>
<link href="http://style.leol.dk/css2.css" rel="stylesheet" type="text/css">
<%
end if
%>
</head>
<%
if tema = "red" then
%>
<body background="http://images.leol.dk/BGT2.PNG">
<%
else
%>
<body background="http://images.leol.dk/BGT.PNG">
<%
end if
%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/db/Debat.mdb")
Conn.Open DSN
strSQL = "Select * From Debat Where Id = " & Request.Querystring("id")
Set rs = Conn.Execute(strSQL)
strForfatter = rs("Forfatter")
strBesked = rs("Emne")
strTid = rs("Tid")
strOverskrift = rs("Overskrift")
%>
<table border="1" cellpadding="0" cellspacing="0" width="100%" height="100%" >
<!-- MSTableType="layout" -->
<tr>
<td valign="top" colspan="2" height="40" background="http://images.leol.dk/debatf2.PNG">
<!-- MSCellType="ContentHead" -->
<center><h1 style="margin-bottom:0px;"><% response.write strOverskrift %></h1><i><font style="font-size:12px;"> Skrevet af <%= rs("Forfatter") %></font></i></center></td>
</tr>
<tr>
<td msopnltype="NavBody" rowspan="2" width="20%" background="http://images.leol.dk/debatf2.PNG">
<div style="width: 100%; height: 100%; border: 0px solid white;">
<%
Conn.Close
Set Conn = Nothing
dim Kommentare
Kommentare = Request.Querystring("id")
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/db/Debat.mdb")
Conn.Open DSN
Set rs = Conn.Execute("SELECT * From Kommentare WHERE DebatID = " & Request.Querystring("id") & " ORDER BY id desc")
while not rs.eof
strBesked = rs("Besked")
strBrugernavn = rs("Brugernavn")
strTid = rs("tid")
strLink = ("<a href='bruger.asp?id=" & rs("brugerID") & "' title='Se " & rs("Brugernavn") & "´s profil' style='width: 40%; background: ; border: 0px solid white; font-weight: normal;'>")
if strBrugernavn = "Gæst" then
strLink = ("<a href='opret.asp' title='Opret en bruger på www.leol.dk - Helt gratis:)' style='width: 40%; background: ; border: 0px solid white; font-weight: normal;'>")
Response.Write "<font style='font-size: 11px;'>" & strTid & " - <i>" & strlink & strBrugernavn & "</font></a></i><br>" & strBesked & "</font><br>"
else
Response.Write "<font style='font-size: 11px;'>" & strTid & " - " & strlink & strBrugernavn & "</font></a><br>" & strBesked & "</font><br>"
end if
rs.MoveNext
wend
Conn.Close
Set Conn = Nothing
%></div></td>
<td valign="top" height="465">
<iframe src="debat_vis_debat.asp?ID=<% Request.Querystring("id") %>"></iframe>
</tr>
<tr>
<td valign="top" height="120" width="80%">
<%
dim ID, Conn, DSN, strSQL, tid
ID = Request.Querystring("id")
tid = Time()
if Request.querystring("mode") = "save" then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/db/Debat.mdb")
Conn.Open DSN
strSQL = "Insert into Kommentare (Besked, DebatID, Brugernavn, BrugerID, Tid) values('"& replace(Request.Form("besked"),"'","''") &"', " & ID & ", '" & request.form("Brugernavn") & "', '" & request.form("BrugerID") & "', '" & tid & "')"
Conn.Execute(strSQL)
Conn.Close
Set Conn = Nothing
response.redirect("debat_vis.asp?id=" & ID)
end if
%>
<form action="debat_vis.asp?mode=save&id=<%= ID %>" method="post" style="margin-bottom: 0px;">
<%
if session("UserID") <> "" then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("/db/brugersystem.mdb")
set rs = Conn.execute("select * from bruger WHERE id=" & session("UserID") & "")
if NOT rs.EOF then
%>
<input type="hidden" name="BrugerID" value="<% response.write rs("Id") %>">
<%
end if
rs.close
set rs=nothing
Conn.close
set Conn=nothing
end if
%>
<%
If isEmpty(Session("UserID")) Then
%>
<input type="hidden" name="Brugernavn" value="Gæst" id="loginform">
<% else %>
<%
if session("UserID") <> "" then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("/db/brugersystem.mdb")
set rs = Conn.execute("select * from bruger WHERE id=" & session("UserID") & "")
if NOT rs.EOF then
%>
<input type="hidden" name="Brugernavn" id="loginform" value="<% response.write rs("Brugernavn") %>">
<%
end if
rs.close
set rs=nothing
Conn.close
set Conn=nothing
end if
%>
<% end if %>
<textarea name="besked" id="loginform" style="width: 100%; height: 90;"></textarea>
<input type="submit" value="Opret">
</form>
</td>
</tr>
</table>
</body>
</html>
-----------------------------------------------------------------
Håber nogle kan hjælpe mig
