So, hier kommt der komplette Code. Ich benutze asp, weil ich es benutzen SOLL! :-)
Jetz
zeigt es mir das erste Bild an, aber leider anstatt der 1 eine null und
die Buttons weiter und zurück sind nicht sochtbar und auch nicht
nutzbar (unsichtbar oder so mein ich..)
Danke für Deine Mühe! Ich weiß das zu schätzen! Gruß,
Jerg
!--#include file="tools.asp"-->
<%
OpenDB con, "Bilder"
SQL = "SELECT
fldID,fldBildKL,fldBildGR,fldBildText,fldBildBeschreibung,fldKategorie
FROM tblBilder ORDER BY fldID ASC"
Set rs = con.Execute(SQL)
%>
<html>
<head>
<title>Bilder</title>
<meta http-equiv="Content-Type"
content="text/html; charset=iso-8859-1">
<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_findObj(n, d) { //v4.0
var p,i,x; if(!d) d=document;
if((p=n.indexOf("?"))>0&&parent.frames.length)
{
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all)
x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++)
x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++)
x=MM_findObj(n,d.layers[i].document);
if(!x &&
document.getElementById) x=document.getElementById(n); return x;
}
//-->
</script>
</head>
<body bgcolor="#FFFFFF"
text="#000000">
<table width="80%"
border="0" cellspacing="0" cellpadding="0">
<tr align="center">
<td colspan="3"
bgcolor="#999999"><b><font face="Verdana,
Arial, Helvetica, sans-serif" size="2"
color="#FFFFFF">Bilder
(Klick auf das Bild um ein
größeres Bild zu sehen) </font></b></td>
</tr>
<tr>
<td width="10%"><b><font
face="Verdana, Arial, Helvetica, sans-serif"
size="2"></font></b></td>
<td>
<table width="100%"
border="0" cellspacing="0" cellpadding="0">
<%
dim BildNr
BildNr = Request (“BildNr”)
if BildNr=”” then BildNr=0
maxBildNr = rs.RecordCount-1
if BildNr>0 then
%><a href=”default_Test.asp?BildNr=<%= BildNr-1 %>”>zurück</a><%
end if
for i=0 to BildNr-1
rs.MoveNext
if BildNr>=maxBildNr then exit for
next
varBildKL = Trim(rs(“fldBildKL”))
varBildGR = Trim(rs(“fldBildGR”))
varBildText = Trim(rs(“fldBildText”))
varKategorie = Trim(rs(“fldKategorie”))
varBildBeschreibung =
Trim(rs(“fldBildBeschreibung”))
%>
<tr align="center">
<td width="33%"><b><font
face="Verdana, Arial, Helvetica, sans-serif" size="2">
<% = i %>
.)
<% = varKategorie %>
</font></b></td>
<td width="33%"><b><font
face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="javascript:;"
onclick="window.open('detailbild.asp?bild=<% = varBildGR
%>','Anzeige','titlebar=no,toolbar=no,status=no,menubar=no,resizeable=yes')"><img src="<% = varBildKL %>" width="135"
height="94" border="0" alt="mit Klick
Detailbild ansehen"></a></font></b></td>
<td width="33%"><b><font
face="Verdana, Arial, Helvetica, sans-serif" size="2">
<% = varBildText %>
<br>
<% = varBildText
%></a></font></b>
<b><font
face="Verdana, Arial, Helvetica, sans-serif" size="2">
<% =
varBildBeschreibung %>
</font></b></div>
</td>
</tr>
<% if BildNr<maxBildNr then
%><a href=”default_Test.asp?BildNr=<% =BildNr+1>”>weiter</a><%
end if
%>
</table>
<b><font face="Verdana,
Arial, Helvetica, sans-serif" size="2"></font></b></td>
<td width="10%"><b><font
face="Verdana, Arial, Helvetica, sans-serif"
size="2"></font></b></td>
</tr>
<tr align="right">
<td colspan="3"
bgcolor="#999999"><b><font face="Verdana,
Arial, Helvetica, sans-serif" size="1"
color="#FFFFFF"</font></b></td>
</tr>
</table>
</body>
</html>