Table cell alignment

LaPluma · Aug 9, 2002

Hello

I have a page here:

http://www11.brinkster.com/stevehigham/db/planet/default.asp

I have downloaded it and been allowed to customise it, so that's what I'm trying to do.

You may notice that the page generated has some untidy table columns. For instance, under Replies the figure 0 should appear, and under Views, it should read 3.

I have tried manipulating the % quanities in the code pasted below, but the columns only shift slightly. The figures generated in the VB code don't appear directly under their headings.

I'm not sure what I'm doing wrong, but would appreciate some guidance.

Many thanks

LaPluma

<%Session.LCID = 2057%>
<html>
<head>
<title>Beginners Java Forum</title>

<style type="text/css">
A:link, A:visited { text-decoration: none; color: silver }
</style>
</head>

<body bgcolor="#006699">

Beginners Java Forum 
<%

dim currentpage
if request.querystring("currentpage&quot

= "" OR request.querystring("currentpage&quot

< 1 then
currentpage = 1
else
currentpage = request.querystring("currentpage&quot

end if
Session("currentpage&quot

=currentpage
set conn = Server.CreateObject("ADODB.connection&quot

sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("beginners.mdb&quot

& ";" & _
"Persist Security Info=False"
conn.Open(sConnection)
%>

<div align="center">
<table border="0" width="90%">
<tr><td width="70%">


<%

Response.Write WriteDate (Date)

Function Suffix(number)
SELECT CASE Number
CASE 1
temp = "st"
CASE 2
temp = "nd"
case 3
temp = "rd"
CASE ELSE
temp = "th"
END SELECT
Suffix = number & temp
End Function

Function WriteDate(theDate)
WriteDate = Suffix(Day(theDate)) & " " & Monthname(Month(theDate)) & " " & Year(theDate)
End Function

%>
</TD></tr></table>

<center><table border=1 bordercolor="FFFFFF" cellpadding="6" cellspacing ="0"><tr><td><a href='search.asp'>Search</a></td></tr></table></center>


<table><tr>
<td width="25%" align=left>
<%Set rsot = Server.CreateObject("ADODB.Recordset&quot

rsot.Open "SELECT * FROM board where threadP=0",conn, 3%>
<%response.write "Total Topics: "& rsot.recordcount &""%>
<% rsot.Close %>

</td>

<td width="20%" align="center">
<%Set rsott = Server.CreateObject("ADODB.Recordset&quot

rsott.Open "SELECT * FROM board",conn, 3%>
<%response.write "Total Posts: "& rsott.recordcount &""%>
<% rsott.Close %>

</td>
</tr>
</table>

</div>

<div align=center>

<table border=1 width=90% cellpadding=1 cellspacing=0>
<tr>
<td width=40%>Thread</td>
<td width=20%>Replies</td>
<td width=20%>Views</td>
<td width=20%>Recent post</td>
</tr>
</table>

</div>
<%
Set rsttrv = Server.CreateObject("ADODB.Recordset&quot

rsttrv.CursorLocation = 3 'set cursorlocation to aduserclient
rsttrv.CacheSize = 10 'cache the number of record to display per page into cache
rsttrv.Open "SELECT * FROM board WHERE ThreadP=0 ORDER BY msgID DESC", conn, 3

if rsttrv.EOF then Response.Write "No Post Yet"
rsttrv.PageSize = 10 'Set that each page will list 10 records

Dim TotalPages, TotalRecords
TotalPages = rsttrv.PageCount 'Pagecount calculates the number of pages needed based on 10 records per page
TotalRecords = rsttrv.RecordCount

if rsttrv.RecordCount > 0 then
rsttrv.AbsolutePage = currentpage 'the currentpage value will be the rs.Absolute value
end if

Dim count 'Counting variable for the recordset
count = 0
Do While Not rsttrv.EOF AND count < rsttrv.PageSize
%>
<div align=center>
<table border=0 width=85% cellpadding=0 cellspacing=0>
<tr>
<td width=40%><a href='view.asp?msgID=<%=rsttrv("msgID&quot

%>'><%=rsttrv("topic&quot

%></a>
<% msgID = rsttrv("msgid&quot

Set rsnay = Server.CreateObject("ADODB.Recordset&quot

rsnay.CacheSize = 10 'cache the number of record to display per page into cache
rsnay.PageSize = 10 'Set that each page will list 10 records
rsnay.Open "SELECT * FROM board WHERE ThreadID="&msgID&" ORDER BY msgID", conn, 3
TotalPage = rsnay.PageCount 'Pagecount calculates the number of pages needed based on 10 records per page
if TotalPage > 1 then
Response.Write ""
Response.Write "<< Page: "
Response.Write "<select name='whatever' onChange='window.location=this.options[this.selectedIndex].value'>"
Response.Write "<option value='view.asp?msgID="&msgID&"&seepage=1 SELECTED'> - 1 - </option>"
for i = 1 to TotalPage
Response.Write "<option value='view.asp?msgID="&msgID&"&seepage="&i&"'> - "&i&" - </option>"
next
Response.Write "</select>"
Response.Write " >>"
end if
%>
</td>
<td width=20% align=center>
<% if instr(rsttrv("email&quot

& "" , "@&quot

> 0 then %>
<a href='mailto:<%=trim(rsttrv("email&quot

)%>'><%=trim(rsttrv("name&quot

)%></a>
<%else%>
<%=rsttrv("name&quot

%>
<% end if %>
</td>
<%
Set rsr = Server.CreateObject("ADODB.Recordset&quot

rsr.Open "SELECT * FROM board WHERE ThreadID="&msgID&"AND ThreadP=1",conn, 3
%>
<td width=10% align=center><%=rsr.recordcount%></td>
<td width=10% align=center><%=rsttrv("count&quot

%></td>
<%
if rsr.recordcount <> 0 then
Set rslp = Server.CreateObject("ADODB.Recordset&quot

rslp.Open "SELECT * FROM board WHERE ThreadID="&msgID&" ORDER BY msgID",conn, 3
rslp.MoveLast
%>
<td width=10%><%=rslp("date&quot

%> by 
<% if instr(rslp("email&quot

& "" , "@&quot

> 0 then %>
<a href='mailto:<%=trim(rslp("email&quot

)%>'><%=trim(rslp("name&quot

)%></a>
<% else %>
<%=rslp("name&quot

%>
<% end if %>
</td>
<% else %>
<td width="20%"><%=rsttrv("date&quot

%></td>
<% end if %>
</tr></table>
</div>
<%
count = count + 1
rsttrv.MoveNext
Loop
%>
 

<a href="post.asp">Post New Topic</a>
 
 
<%
Response.Write "<div align=center>"
Response.Write "<table border=0 width=840>"
Response.Write "<tr>"
Response.Write "<td width=210>"
if rsttrv.RecordCount > 0 then
if currentpage > 1 then
Response.Write "<a href='default.asp?currentpage=1'>First</a>"
end if
end if
Response.Write "</td>"
Response.Write "<td width=210>"

if rsttrv.RecordCount > 0 then
if currentpage > 1 then
Response.Write "<a href='default.asp?currentpage=" & currentpage - 1 &"'><< Pervious</a>"
end if
end if

Response.Write "</td>"
Response.Write "<td width=210>"

if rsttrv.RecordCount > 0 then
if CInt(currentpage) <> CInt(TotalPages) then
Response.Write "<a href='default.asp?currentpage=" & currentpage + 1 &"'>Next >></a>"
end if
end if

Response.Write "</td>"
Response.Write "<td width=210>"

if rsttrv.RecordCount > 0 then
if CInt(currentpage) <> CInt(TotalPages) then
Response.Write "<a href='default.asp?currentpage=" & TotalPages &"'>Last</a>"
end if
end if

Response.Write "</td>"
Response.Write "</tr></table></div>"
%>
<%
if TotalPages > 1 then
Response.Write "<center>"
Response.Write ""
Response.Write "Page: "
Response.Write "<select name='whatever' onChange='window.location=this.options[this.selectedIndex].value'>"
Response.Write "<option value='default.asp?currentpage="&currentpage&" SELECTED'> - "&currentpage&" - </option>"
for i = 1 to TotalPages
if cStr(currentpage) <> cStr(i) then
Response.Write "<option value='default.asp?currentpage="&i&"'> - "&i&" - </option>"
end if
next
Response.Write "</select>"
Response.Write ""
Response.Write "</center>"

Response.Write ""
Response.Write ""
Response.Write("Page " & currentpage & " of " & TotalPages & "&quot

Response.Write ""
end if
%>
<%
conn.Close
Set conn = Nothing
%>
<center>
Developed by <a href='mailto:stevehigham2002@yahoo.co.uk'>Steve Higham</a>
</center>
</body>
</html>

prasadalone · Aug 10, 2002

hey your top table have width of 90%

and table below of it have width of 85%
set it to 90%

send me reply on sawantprasad2001@yahoo.com

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Table cell alignment

LaPluma

Programmer

prasadalone

Programmer

Similar threads

Part and Inventory Search

Sponsor