Alignment Query

<script  language="JavaScript">
<!-- Hide from older browsers...
//Function to open pop up window
function openWin(theURL,winName,features) {
   window.open(theURL,winName,features);
}
// -->
</script>
<%
Dim rsTopPostersMod
Dim strSQLTopPostersMod
Dim strTopPostersModCon
Dim adoTopPostersModCon
Dim strTopPosterUsername
Dim strTopPostersModForumPath
'The path to the forum
strTopPostersModForumPath = " "
'Database connection
'-----------------------------
'-----------------------------
'Default connection
strTopPostersModCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("admin/database/wwforum.mdb")
'Uncomment for a full phsyical path. Then change the path
'strTopPostersModCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:/yoursite/root/forum/admin/database/"
'Uncomment for a DSN connection
'strTopPostersModCon = "DSN=DSN_NAME"
'-----------------------------
'-----------------------------
Set adoTopPostersModCon = Server.CreateObject("ADODB.Connection")
adoTopPostersModCon.Open strTopPostersModCon
Set rsTopPostersMod = Server.CreateObject("ADODB.Recordset")
strSQLTopPostersMod = "SELECT TOP 5 tblAuthor.Author_ID, tblAuthor.Username, tblAuthor.No_of_posts FROM tblAuthor "
strSQLTopPostersMod = strSQLTopPostersMod & "ORDER BY tblAuthor.No_of_posts DESC;"
rsTopPostersMod.Open strSQLTopPostersMod, adoTopPostersModCon
Do WHILE NOT rsTopPostersMod.EOF
 If len(rsTopPostersMod("Username"))>18 then
  strTopPosterUsername = left(rsTopPostersMod("Username"),18)
 Else
  strTopPosterUsername = rsTopPostersMod("Username")
 End If
 Response.Write("<a href=""javascript:openWin('" & strTopPostersModForumPath & "pop_up_profile.asp?PF=" & rsTopPostersMod("Author_ID") & "','profile','toolbar=0,location=0,status=0,menubar=0,scrollbars=1,resizable=1,width=590,height=425' )"">" & strTopPosterUsername & "</a> (" & rsTopPostersMod("No_of_posts") & ")")
rsTopPostersMod.MoveNext
If NOT rsTopPostersMod.EOF Then Response.Write("<br>")
Loop
rsTopPostersMod.Close
Set rsTopPostersMod = Nothing
adoTopPostersModCon.Close
Set adoTopPostersModCon = Nothing
%>