Hvordan får jeg \"replikkerne\" til at komme fra neden under hinanden i stedet for oven på?

Jeg har via en Source Code, konstrueret en Chat, der sådan set virker fint nok. Jeg har bare placeret \"skrivlinien\" forneden i stedet som anbefalet for oven, og nu ser det altså forkert ud, når \"replikkerne\" kommer. Jeg har brugt en valign = \"bottom\", og så kommer teksten da også ned, men stadig skubber den den forkerte vej.

Jeg tror der skal ændres i ASP\'en, men kan ikke lide selv finde ud af netop det...

Kode til login siden

<% Response.Buffer = true %>
<% If trim(Request.Form(\"name\")) = \"\" Then %>
<center>
<b>
<font face=\"tahoma\" size=\"2\" color=\"#000000\">
-- velkommen til bjerget chat --
</b>
<br><br>
Dette er stedet, hvor du kan chatte med dine gamle Bjerget kammerater.
Dem du delte både glæde og sorger med, i det bedste og mest værdifulde år, hele dit liv!
<br><br>
Alt hvad du skal gøre er at indtaste dit navn og årgang, så er du på!
<center><form action=\"default.asp?vis=chat\" method=\"POST\">
    <p><b>Dit navn: <input type=\"text\" size=\"20\" name=\"Name\"></p></b>
    <p><b>Din årgang: <select name=\"start\" value=\"- År -\"></b>
  <option value=\"-Aldrig\">Startår</option>
  <option value=\"77\">1977</option>
  <option value=\"78\">1978</option>
  <option value=\"79\">1979</option>
  <option value=\"80\">1980</option>
  <option value=\"81\">1981</option>
  <option value=\"82\">1982</option>
  <option value=\"83\">1983</option>
  <option value=\"84\">1984</option>
  <option value=\"85\">1985</option>
  <option value=\"86\">1986</option>
  <option value=\"87\">1987</option>
  <option value=\"88\">1988</option>
  <option value=\"89\">1989</option>
  <option value=\"90\">1990</option>
  <option value=\"91\">1991</option>
  <option value=\"92\">1992</option>
  <option value=\"93\">1993</option>
  <option value=\"94\">1994</option>
  <option value=\"95\">1995</option>
  <option value=\"96\">1996</option>
  <option value=\"97\">1997</option>
  <option value=\"98\">1998</option>
  <option value=\"99\">1999</option>
  <option value=\"00\">2000</option>
  <option value=\"01\">2001</option>
</select>
-
<select name=\"slut\" value=\"- År -\">
  <option value=\"\">Slutår</option>
  <option value=\"77\">1977</option>
  <option value=\"78\">1978</option>
  <option value=\"79\">1979</option>
  <option value=\"80\">1980</option>
  <option value=\"81\">1981</option>
  <option value=\"82\">1982</option>
  <option value=\"83\">1983</option>
  <option value=\"84\">1984</option>
  <option value=\"85\">1985</option>
  <option value=\"86\">1986</option>
  <option value=\"87\">1987</option>
  <option value=\"88\">1988</option>
  <option value=\"89\">1989</option>
  <option value=\"90\">1990</option>
  <option value=\"91\">1991</option>
  <option value=\"92\">1992</option>
  <option value=\"93\">1993</option>
  <option value=\"94\">1994</option>
  <option value=\"95\">1995</option>
  <option value=\"96\">1996</option>
  <option value=\"97\">1997</option>
  <option value=\"98\">1998</option>
  <option value=\"99\">1999</option>
  <option value=\"00\">2000</option>
  <option value=\"01\">2001</option>
</select>
<br><br><br>
<input type=\"submit\" name=\"Submit\"value=\"Bjerget Chat Rules!\">
</form></center>

<%
Else
  Dim users, refresh
  Session(\"name\") = Request.Form(\"name\")
  Session(\"start\") = Request.Form(\"start\")
  Session(\"slut\") = Request.Form(\"slut\")
 
  If Application(\"NumUsers\") = 0 Then
      \' Initialize (or re-initialize) the user list
      \' and the conversation
      ReDim temp1(50)
      ReDim temp2(50)
      Application(\"users\") = temp1
      Application(\"refresh\") = temp2
  End If

  \' Retrieve the application arrays
  users = Application(\"users\")
  refresh = Application(\"refresh\")

  \' Find an empty spot and add the new user
  Dim i
  For i = 1 To 50
      If users(i) = \"\" Then
          users(i) = Session(\"name\")
          refresh(i) = time
          Application.Lock
          Application(\"NumUsers\") = Application(\"NumUsers\") + 1
          Application.Unlock
          Exit For
      End If
  Next
  If i = 51 Then Response.Redirect \"default.asp?vis=toomany\"

  \' Put the arrays back in the application vars
  Application.Lock
  Application(\"users\") = users
  Application(\"refresh\") = refresh
  Application.Unlock

  If not IsEmpty(Application(\"conversation\")) Then
      Application.Lock
      Application(\"conversation\") = \"<b><i>\" & Session(\"name\") & \" [\" & Session(\"start\") & \"-\" &_
            session(\"slut\") & \"]\" & \" har tilsluttet sig fællesskabet</b></i><br>\" & Application(\"conversation\")
      Application.Unlock
  End If
  Response.Redirect \"chat_main.asp\"
End If
%>
</font>
</body>


Kode til Chatmain siden - den med designet

<html>
<head>
<title>Bjerget Chat</title>

</head>
<body bottommargin=\"26\" vlink=#000000 link=#000000 topmargin=\"26\" rightmargin=\"0\" leftmargin=\"0\" bgcolor=#A6B6CF background=\"gfx\\bg.gif\"background=\"gfx\\bg.gif\">
<table width=\"100%\" height=\"100%\" cellspacing=0 cellpadding=0 bgcolor=#A6B6CF background=\"gfx\\bg.gif\">
<tr>
  <td>

<table width=780 border=0 cellpadding=0 cellspacing=0 align=\"center\" valign=\"middle\">
<tr>
  <td>
  <img src=\"gfx\\vtop.gif\" width=203 height=242></td>
  <td background= \"gfx\\htop.gif\" width=577 height=242></td>
</tr>
<tr>
  <td rowspan=2><iframe src=\"chat_online.asp\" width=203 height=308 scrolling=\"Auto\" marginheight=\"0\" frameborder=\"0\" marginwidth=\"0\"></iframe></td>
  <td><iframe src=\"chat_show.asp\" width=577 height=226 scrolling=\"Auto\" marginheight=\"0\" frameborder=\"0\" marginwidth=\"0\"></iframe></td>
</tr>
<tr>
  <td background=\"gfx/write.gif\" width=577 height=82>
    <iframe src=\"chat_say.asp\" width=577 height=82 scrolling=\"No\" marginheight=\"0\" frameborder=\"0\" marginwidth=\"0\"></iframe>
  </td>
</tr>
</table>

</td>
</tr>    
</table> 
</body>
</html>

Kode til say-framen

<%
If trim(Request.Form(\"say\")) <> \"\" Then
  Application.Lock
  Application(\"conversation\") = \"<b>\" & Session(\"name\") & \" [\" & Session(\"start\") & \"-\" & session(\"slut\") & \"]\" &\": </b>\" & _
      Request.Form(\"say\") & \"<br>\" & Application(\"conversation\")
  Application.Unlock
End If
%>

<body onload=\"document.form1.Say.focus()\">

<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
  <td width=\"100%\" height=82 valign=\"middle\" background=\"gfx\\write.gif\">
<form action=\"chat_say.asp\" method=\"POST\" name=\"form1\">
    <input type=\"text\" size=\"52\" name=\"Say\">
    <input type=\"submit\" name=\"Submit\" value=\"Skriv\">
</form>
</td>
</table>

</body>

Kode til Online-framen

<% Option Explicit %>
<html>
<head>
<meta http-equiv=\"refresh\" content=\"10\">
</head>
<body background=\"gfx\\online.gif\">
<table cellspacing=\"0\" cellpadding=\"0\" border=\"0\">
<tr>
  <td width=\"30\"></td>
  <td width=\"173\"><font face=\"Tahoma\" size=\"2\" color=\"#000000\">
<%
Dim Userlist, Datelist, i, num, users, refresh

\' Retrieve application arrays
users = Application(\"users\")
refresh = Application(\"refresh\")

\' Find current user and update his refresh time
For i = 1 To 50
  If users(i) = Session(\"name\") Then
      refresh(i) = Time
      Exit For
  End If
Next

\' Has ANYONE been gone more than 20 seconds?
For i = 1 To 50
  If users(i) <> \"\" Then
      If DateDiff(\"s\",refresh(i), Time) > 30 Then
        Application(\"conversation\") = \"<b><i>\" & users(i) & \" [\" & Session(\"start\") & \"-\" &_
            session(\"slut\") & \"]\" &_
            \" har forladt fællesskabet</b></i><br>\" & Application(\"conversation\")
        users(i) = \"\"
        Application(\"NumUsers\") = Application(\"NumUsers\") - 1
      End If
  End If
Next
Application.Lock
Application(\"users\") = users
Application(\"refresh\") = refresh
Application.Unlock
%>
<b>Antal Personer <%=Application(\"NumUsers\")%></b><br>
<%
For i = 1 To 50
  If users(i)<> \"\" Then
      Response.Write users(i) & \" [\" & Session(\"start\") & \"-\" &_
            session(\"slut\") & \"]\" & \"<br>\"
  End If
Next
%>
</td>
</tr>
<tr valign=\"bottom\" align=\"center\">
<td align=center colspan=2 height=40>
<a href=\"default.asp?vis=chat\" target=\"_parent\"><img src=\"gfx/knap.gif\" width=\"57\" height=\"26\" border=\"0\" alt=\"\" align=\"absmiddle\"></a>
</font>
</td>
</tr>
</table>
</body>
</html>

Kode til \"replik\"- framen

<html>
<head>
<meta http-equiv=\"refresh\" content=\"3\">
</head>
<body bottommargin=\"0\" vlink=#000000 link=#000000 topmargin=\"0\" rightmargin=\"0\" leftmargin=\"0\">
<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
  <td width=\"100%\" height=226 valign=\"bottom\" background=\"gfx\\main.gif\">
<font face=\"Tahoma\" size=\"2\" color=\"#000000\">
<%
Dim convo
convo = Application(\"conversation\")
If Len(convo) > 2000 Then
  convo = Left(convo, 2000)
If Len(convo) < 1 then convo = \"Velkommen til Bjerget Chat, du elev fra \"
  Application.Lock
  Application(\"conversation\") = convo
  Application.Unlock
End If
%>
<br>
<%
Response.Write convo
%>
</font>
  </td>
</table>


</body>
</html>

Kode til toomany-siden

<HTML>
<BODY>
<font face=\"Tahoma\" size=\"2\" color=\"#000000\">Desværre, er der for mange glade Bjergetfolk, der prøver at komme til at chatte. Prøv venligst senere<p>
<a href=default.asp?vis=chat>Log ind igen!</a></font>
</BODY>
</HTML>

Prøv at hjælpe....er det kompliseret udlodder jeg flere point!

Chatten kan ses på

http://www16.brinkster.com/fenderfreak/default.asp?vis=chat