bokse i rækker og koloner (boksmodelen)
Hej...jeg skal lave en adresse liste, med adresser fra en database...
min side er lavet med boksmodellen... men jeg kam bare ikke få l...et til at virke...
jeg skal have 3 poster i hver række... antalet af rækker er for så vidt lige meget men her sadt til 7...
Der er problemmer i både asp-koden og css'en...!
(tror jeg da i hvert fald)
Her er mit forslag...
<%
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM bruger"
rs.Open strSQL, strDSN, 1
If Not rs.EOF Then
rs.PageSize = 3
rs.AbsolutePage = intPage
intRecCount = rs.PageSize
intPageCount = rs.PageCount
Response.Write "<b>Side " & intPage & " af " & intPageCount & "</b><br />"
antalPrRow=3
Counter=0
Response.Write "<div class='table_line'>"
Do While Not rs.EOF And intRecCount > 0
Response.Write "<div class='fam_" & antalPrRow - 1 &"'>" & rs("netname") & "<br /><i>" & rs("adresse1")& "<br />" & rs("adresse2") & "<br />" & rs("post") & " " & rs("by") & "<br />" & rs("land") & "</i></div>"
Counter = Counter + 1
If Counter = antalPrRow then
'Response.write "<br /><br />"
Response.Write "</div><br /><br />"
Counter=0
end if
intRecCount = intRecCount - 1
Rs.MoveNext
loop
if Counter>0 then
for i=Counter to antalPrRow
next
Response.Write "<div class='fam_tom'> Tom</div>"
Response.Write "</div><br /><br />"
end if
end if
rs.Close
Set rs = Nothing
Response.Write "<br /><div class='table_line'>Gå til side "
For intNum = 1 To intPageCount
Response.Write "<a href='?side=familie&familie=familien&show=adresse&page=" & intNum & "'>" & intNum & "</a>"
Next
Response.Write "<br />"
If Clng(intPage) > 1 Then
Response.Write "<a href='?side=familie&familie=familien&show=adresse&page=" & intPage - 1 & "'><<</a>"
Else
Response.Write "<<"
End If
Response.Write " "
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href='?side=familie&familie=familien&show=adresse&page=" & intPage + 1 & "'>>></a>"
Else
Response.Write ">>"
End If
Response.Write "</div>"
%>
css'en:
.fam_1 {
position: relative;
width: 200px;
text-align: left;
}
.fam_2 {
position: relative;
width: 200px;
float: left;
text-align: left;
}
.fam_3 {
position: relative;
width: 200px;
text-align: left;
float: left;
}
.fam_tom {
position: relative;
width: 200px;
text-align: left;
float: left;
}
.table_line {
width: 600px;
position: relative;
}
Er der nogen der kan hjælpe...?
