Nej - det virker stadig ikke - desværre!!!!!!
Du får lige koden på selve gallery siden:
<% side = "Gallery" %>
<!-- #include file="count-script.txt" -->
<% response.buffer = true
set conn=server.createobject("adodb.connection")
cnpath="DBQ=" & server.mappath("data/gallery.mdb")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath
on error resume next
set rstest=server.CreateObject("ADODB.Recordset")
rstest.open "SELECT * FROM pictures ",conn
test = 0
do while not rstest.eof
test = test + 1
rstest.movenext
loop
if test < 1 then msg ="<TD VALIGN='top' COLSPAN='7'><FONT FACE='arial, helvetica, verdana' COLOR='#000000' SIZE='2'>Der er ingen produkter oprettet endnu</FONT></TD>" end if
%>
<% response.buffer = true
set conn1=server.createobject("adodb.connection")
cnpath="DBQ=" & server.mappath("nyheder/database/main.mdb")
conn1.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath
%>
<HTML><HEAD><TITLE>:: Bon Vitalis :: Dogue de Bordeaux</TITLE>
<link rel="stylesheet" href="bon.css" type="text/css">
<script language="JavaScript">
<!--
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
// -->
function MM_swapImgRestore() { //v3.0
var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}
//-->
</script>
<meta http-equiv="pragma" content="no-cache">
<meta http-equiv="cache-control" content="no-store">
</HEAD>
<BODY bgColor=#9dacbb leftmargin="0" topmargin="0">
<CENTER>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
<tr>
<td align="center" valign="middle">
<table cellspacing=0 cellpadding=0 width=750 border=0>
<tbody>
<tr valign=top>
<td align=middle>
<table cellspacing=0 cellpadding=0 width=750 bgcolor=#43607e border=0>
<tbody></tbody>
</table>
<table cellspacing=0 cellpadding=0 width=750 bgcolor=#43607e border=0>
<tbody>
<tr>
<td align="left" valign="middle" colspan=3>
<!--#include file="topmenu.htm" -->
</td>
<td align=right width=173><img src="logo3.gif" width="173" height="42"></td>
</tr>
</tbody>
</table>
<!-- insertTopMenu slut -->
<!-- insertPicture begynd -->
<table cellspacing=0 cellpadding=0 width=750 bgcolor=#43607e border=0>
<tbody>
<tr>
<td width=750 bgcolor=#43607e><img height=1
src="blank.gif"
width=750 border=0></td>
</tr>
<tr height="75">
<script>
billeder = new Array("images/gal-back.jpg","images/gal-back1.jpg","images/gal-back2.jpg","images/gal-back3.jpg");
tilf = Math.floor(Math.random() * billeder.length);
document.write("<td background='" + billeder[tilf] + "'>");
</script>
</tbody>
</table>
<!-- insertPicture slut -->
<!--
********************************************************************************************
**********************************************************************************************
************* T E X T ***********************************************************
*********************************************************************************************
**********************************************************************************************
-->
<table id=TABLE1 cellspacing=0 cellpadding=0 width=750 bgcolor=#43607e
border=0>
<tbody>
<tr>
<td bgcolor=6d87a0><img height=10
src="blank.gif"
width=33 border=0></td>
<td bgcolor=#ffffff></td>
<td bgcolor=#ffffff colspan=4></td>
</tr>
<tr valign=top>
<td bgcolor=6d87a0 width="200" height="300" align="center">
<table width="180" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<!------- Gallery -------->
<%
set rs=server.CreateObject("ADODB.Recordset")
rs.open "SELECT * FROM pictures where aktiv='Y' order by overskrift ASC ",conn
%> <%
f = 0
farve = "#6d87a0"
do while not rs.eof %> </td>
</tr>
<tr>
<td height="20"> <a href="#nowhere" onClick="image=window.open('gallerymain.asp?image=<% =rs("Billede1") %>&ID=<% =rs("id") %>','test','width=685,height=600,scrollbars')" >
<font color="#FFFFFF">
<% =rs("overskrift") %>
</font> </a><br> </td>
</tr>
<tr>
<td height="1" bgcolor="#99CC00"></td>
</tr>
<%
f = f + 1
if (f MOD 2) then farve = "#6d87a0" end if
if (f MOD 2)- 1 then farve = "#eeeeee" end if
rs.movenext
loop %>
