Er der en der kan hjælpe?
Jeg har fundet et fotoalbum på nettet som jeg har bygget lidt om. Nå man klikker på et billede ud for kategorien fx min ferie og kommer ind på siden med billeder fra min ferie vil jeg øverst på siden lave en tabel med billederne fra den enkelte kategori ovenover det billede der vises. samt lave "næste" om til Side 1 2 3 osv alt efter hvor mange billeder der er. Er der en der kan hjælpe mig med at lave det om jeg lidt usikker på hvordan jeg gør det.<!-- #include file="inc_dnsopen.asp" -->
<%
' HVIS MODE LIG "" LAVES STANDARD SIDE
'************************************
If Request.Querystring("mode") = "" Then
strKollonner = "3"
strWidth = "100"
strHeight = "70"
strSQLkat = "SELECT * FROM kategorier ORDER BY id"
Set rskat = Conn.Execute(strSQLkat)
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>[BILLED GALLERI]</title>
</head>
<body bgcolor="#FFFFFF" text="AA1A1D" link="AA1A1D" vlink="AA1A1D" alink="AA1A1D">
<table border="1" cellspacing="0" cellpadding="2" bordercolor="#990000" style="border-collapse: collapse"align="center">
<tr class="generalTextBold">
<td align="center"><FONT FACE="VERDANA" SIZE="2"><center><b>Fotoalbum</b></center></FONT></td>
</tr>
<tr>
<td align="center" valign="top">
<table align="center">
<tr align="center" valign="top">
<td>
<table width="145" border="0" cellspacing="1" cellpadding="0" bgcolor="#333333" height="120">
<tr>
<td align="center" valign="top">
<table width="100%" border="0" cellspacing="4" cellpadding="3" bgcolor="#F3F3F3" bordercolor="#111111" style="border-collapse: collapse">
<tr>
<td align="center" valign="middle">
<table border="0" cellspacing="0" cellpadding="0" bgcolor="#F3F3F3" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td class="billed" align="center" valign="top"><%
strAntal = 1
Do
Response.Write "<td align=""center"" width=""" & strWidth+10 & """ height=""" & strHeight+10 & """><a href=""default.asp?mode=showpic&kat=" & rskat("id") & """><img align=""center"" width=""100"" height=""70"" src=""" & rskat("url") & """ title=""" & rskat("beskrivelse") & """><font face='Verdana' size='2'><br>" & rskat("navn") & "</a></td>"
strAntal = strAntal+1
If strAntal = strKollonner Then
Response.Write "<tr></tr>"
strAntal = 1
End If
rskat.MoveNext
Loop While Not rskat.EOF
%></td>
</tr>
</table>
<%
End If
' HVIS MODE LIG "showpic" LAVES STANDARD SIDE
'************************************
If Request.Querystring("mode") = "showpic" Then
strSQLpic = "SELECT * FROM pic WHERE kategori = " & Request.Querystring("kat") & " ORDER BY visninger"
Set rspic = Conn.Execute(strSQLpic)
If rspic.EOF Then %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>[BILLED GALLERI]</title>
</head>
<body bgcolor="#FFFFFF" text="AA1A1D" link="AA1A1D" vlink="AA1A1D" alink="AA1A1D">
<table align="center" border="1" width="500">
<tr>
<td align="center"><h2>[BILLED GALLERI]</h2></td>
</tr>
<tr>
<td align="center">Der er desværre ingen billeder i denne kategori endnu!</td>
</tr>
</table>
</body>
</html>
<%
Else
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>[BILLED GALLERI]</title>
</head>
<body bgcolor="#FFFFFF" text="AA1A1D" link="AA1A1D" vlink="AA1A1D" alink="AA1A1D"><br>
(her)
<table border="0" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111"align="center">
<tr>
<td align="left" valign="top" bgcolor="#CCCCCC">
<table width="450" border="1" cellpadding="2" bordercolor="#000000" bgcolor="#F3F3F3" style="border-collapse: collapse">
<tr>
<td align="left" valign="middle" height="20"><font face='Verdana' size='2'><b>Set antal gange:</b>
<font color="#666666"><%=rspic("visninger")%></font></td>
</tr>
<tr>
<td align="center" colspan="2"> <table border="0" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td align="center" valign="middle" bgcolor="#CCCCCC"><img src="<%=rspic("url")%>"></td>
</tr>
</table>
</td>
</tr>
<tr class="generalText">
<td align="left" valign="middle" height="20" colspan="2"><b>
Beskrivelse:</b><font color="#666666"><font face='Verdana' size='2'><%=rspic("beskrivelse")%></font></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<a href="default.asp?mode=showpic&kat=<%=Request.Querystring("kat")%>">Næste</a>
<%
strAntalVisninger = rspic("visninger")+1
strUpdateAntalVisninger="UPDATE pic SET visninger = '" & strAntalVisninger & "' Where ID=" & rspic("id")
Conn.Execute(strUpdateAntalVisninger)
End If
End If
%>
<!-- #include file="inc_dnsclose.asp" -->
