Fotoalbum driller :-(
Jeg har fundet et fotoalbum på nettet som jeg har bygget lidt om. Problemet er at jeg ikke kan få billederne til være i 2 rækker med 3 billeder. Er der en der hjælpe mig :-)<!-- #include file="inc_dnsopen.asp" -->
<%
' HVIS MODE LIG "" LAVES STANDARD SIDE
'************************************
If Request.Querystring("mode") = "" Then
strKollonner = "2"
strWidth = "150"
strHeight = "100"
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>Fotoalbum</title>
<link rel="stylesheet" type="text/css" href="css.asp">
</head>
<body>
<style>
<!--
.billed { border:2px solid #000000; boarder="0"; solid }
-->
</style>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="450">
<tr>
<td width="100%">
</td>
</tr>
</table>
</center>
</div>
<div align="center">
<table border="0" cellspacing="0" cellpadding="2" style="border-collapse: collapse" width="529">
<tr class="generalTextBold">
<td align="left" valign="top">Der er 40 billeder i 6 kategorier</td>
</tr>
</table>
<table border="1" cellspacing="0" cellpadding="2" bordercolor="#990000" style="border-collapse: collapse">
<tr class="generalTextBold">
<td align="left" class="roedbg">Fotoalbum</td>
</tr>
<tr>
<td align="left" valign="top">
<table align="center">
<tr align="center" valign="top">
<td>
<tr>
<td class="billed" align="center" valign="top"><%
strAntal = 1
Do
Response.Write "<td align=""center""><a href=""default.asp?mode=showpic&kat=" & rskat("id") & """><img align=""center"" width=""150"" height=""100"" src=""" & rskat("url") & """ title=""" & rskat("beskrivelse") & """><font face='Verdana' size='2'><br>" & rskat("navn") & "</a></td>"
strAntal = strAntal+1
If strAntal = 3 Then
Response.Write "<tr></tr>"
strAntal = 0
End If
rskat.MoveNext
Loop While Not rskat.EOF
%></font>
</td>
</tr>
</table>
</td>
</tr>
<%
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
End If
End If
%>
