Kun en banner på siden ?????

Hej
Denne kode viser 2 bannere på samme side. Hvordan skal den se ud hvis der kun ønskes 1 banner på siden istedet. Jeg har prøvet i 4 timer på at løse problemet uden videre held.

Er der nogen der kan hjælpe ??

Sådan ser koden ud:


<%dim rs, sql, record, ialt, randnum1, randnum2, i

  Set Rs = Server.CreateObject(\"ADODB.Connection\")
  Rs.Open strBanner \'strBanner angiver databaseadgangen

  Sql = \"Select count(*) as Found from T_Banner\"
  Set Record =  Rs.Execute(Sql)

  Ialt = Record(\"found\")

if ialt>=2 then

do while Randnum1=Randnum2
Randomize
RandNum1 = Int(Rnd * Ialt) + 1
RandNum2 = Int(Rnd * Ialt) + 1
loop

  Sql = \"Select * from T_Banner\"
  Set Record =  Rs.Execute(Sql)


response.write \"<center>\"
response.write \"<table border=\'0\' cellpadding=\'5\' cellspacing=\'0\' width=\'600\'>\"
response.write \"<tr>\"
response.write \"<td width=\'300\' align=\'center\'>\"


      Record.MoveFirst
      Record.Move RandNum1 - 1
      if Record(\"link\")<>\"\" then
      Response.Write \"<a href=\'bannerclick.asp?id=\" & Record(\"id\") & \"\' target=\'_blank\'><img src=\'images/\" & Record(\"banner\") & \"\' alt=\'\" & Record(\"info\") & \"\' border=\'0\' height=\'\" & Record(\"hoejde\") &\"\' width=\'\" & Record(\"bredde\") &\"\'></a>\"
else
Response.Write \"<img src=\'images/\" & Record(\"banner\") & \"\' alt=\'\" & Record(\"info\") & \"\' border=\'0\' height=\'\" & Record(\"hoejde\") &\"\' width=\'\" & Record(\"bredde\") &\"\'>\"
end if

dim objfso, objlogfile, filnavn

filnavn=\"\"
filnavn= filnavn & Server.MapPath(\"bannerlog.txt\")
set objfso=createobject(\"scripting.filesystemobject\")
set objlogfile=objfso.opentextfile(filnavn,8)
objlogfile.writeline(date() & \";\" & time() & \";\" & record(\"firmanavn\"))

response.write \"</td>\"
response.write \"<td width=\'300\' align=\'center\'>\"


      Record.MoveFirst
      Record.Move RandNum2 - 1
            if Record(\"link\")<>\"\" then
            Response.Write \"<a href=\'bannerclick.asp?id=\" & Record(\"id\") & \"\' target=\'_blank\'><img src=\'images/\" & Record(\"banner\") & \"\' alt=\'\" & Record(\"info\") & \"\' border=\'0\' height=\'\" & Record(\"hoejde\") &\"\' width=\'\" & Record(\"bredde\") &\"\'></a>\"
      else
      Response.Write \"<img src=\'images/\" & Record(\"banner\") & \"\' alt=\'\" & Record(\"info\") & \"\' border=\'0\' height=\'\" & Record(\"hoejde\") &\"\' width=\'\" & Record(\"bredde\") &\"\'>\"
end if

objlogfile.writeline(date() & \";\" & time() & \";\" & record(\"firmanavn\"))
objlogfile.close


response.write \"</td>\"
response.write \"</tr>\"
response.write \"</table>\"
response.write \"</center>\"
\'oprydning
Record.close
set Record=Nothing
Rs.close
set RS=Nothing
end if
%>