Jeg tror ikke at det er det som er årsagen, da jeg jo godt kan få forbindelse til min db, hvis jeg bare ikke trykke på mit print link.
Jeg smider koden til mine sider, håber at det kan hjælpe lidt.
Jeg har prøvet at forenkle dem lidt for at de ikke skulle fylde for meget.
Side1:
<!--#include file="dbforb.asp"-->
<%
dim emne
emne = request.querystring("emne")
Select case emne
case "tekst1"
tekst = "tekst1"
case "tekst2"
tekst = "tekst2"
End Select
set rs = server.createobject("adodb.recordset")
sql = "select Tekst from T_Tekst where Emne = '" & tekst & "'"
rs.open sql, conn
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000" topmargin="1">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="595%">
<tr>
<td valign="top" align="left" height="220"><iframe width="100%" height="100%" src="<%=tekst%>" frameborder="0"></iframe></td>
</tr>
<tr>
<td valign="top" align="left" height="30"><br>
<a href="side2.asp?print=<%=request.querystring("emne")%>" target="_blank"><img src="billeder/printicon.gif" width="23" height="19" alt="Udskriv tekst" border="0"></a></td>
</tr>
</table>
</td>
<td width="244" align="right"><br><% if emne = "tekst1" then %><img src="billeder/link_blaa_web_valgt.gif" width="184" height="18" alt="" border="0"><% else %><a href="side1.asp?emne=tekst1" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('link_web','','billeder/link_blaa_web.gif',1)"><img name="link_dream" border="0" src="billeder/link_graa_web.gif" width="184" height="18"></a><% end if %></td>
</tr>
<tr valign="top">
<td width="244" align="right"><% if emne = "tekst2" then %><img src="billeder/link_blaa_dream_valgt.gif" width="184" height="18" alt="" border="0"><% else %><a href="side1.asp?emne=dream" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('link_dream','','billeder/link_blaa_dream.gif',1)"><img name="link_dream" border="0" src="billeder/link_graa_dream.gif" width="184" height="18"></a><% end if %>
</td>
</tr>
</table>
</body>
</html>
<%
rs.close
Set rs = Nothing
Conn.Close
Set Conn = Nothing
%>
Side2:
<%
dim print
print = request.querystring("print")
%>
<html>
<head>
<title>Untitled</title>
</head>
<body>
<%
Select case print
case "tekst1"
%>
<!--#include file="tekst1.asp"-->
<%
case "tekst2"
%>
<!--#include file="tekst2.asp"-->
<%
End Select
%>
</body>
</html>
tekst1.asp:
<!--#include file="../dbforb.asp"-->
<%
set rsTekst = server.createobject("adodb.recordset")
sql = "select * from T_Tekst where Emne = 'Tekst1'"
rsTekst.open sql, conn
%>
<html>
<head>
<title>Untitled</title>
<Style>
BODY{
scrollbar-3dlight-color: #BEDFFF;
scrollbar-arrow-color: #BEDFFF;
scrollbar-darkshadow-color: #FFFFFF;
scrollbar-face-color: #FFFFFF;
scrollbar-highlight-color: #FFFFFF;
scrollbar-shadow-color: #BEDFFF;
}
</STYLE>
</head>
<body>
<font size="1" face="verdana"><strong><%=rsTekst("Emne")%></strong><br>
<%=Replace(rsTekst("Tekst")&"",vbcrlf,"<br>")%>
</body>
</html>
