Rengøring...

Hej..

Jeg har en bannerfunktion, som oprindeligt skulle vise 2 bannere ved siden af hinanden, men da jeg kun skulle bruge et af gangen fjernede jeg noget kode - og den virker fint nok..

Men da jeg ikke er den store asp programør ville jeg høre om der er nogen der kan fjerne det kode som ikke er nødvendigt længere og som jeg ikke selv har fjernet???

---

<%

  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)

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

  else
  Response.Write \"<img src=\'banner/images/\" & Record(\"banner\") & \"\' alt=\'\" & Record(\"info\") & \"\' border=\'0\' height=\'\" & Record(\"hoejde\") &\"\' width=\'\" & Record(\"bredde\") &\"\'>\"
  end if

  dim objfso, objlogfile, filnavn
  filnavn=\"\"
  filnavn= filnavn & \"d:\\home\\domain\\db\\bannerlog.txt\"
  set objfso=createobject(\"scripting.filesystemobject\")
  set objlogfile=objfso.opentextfile(filnavn,8)
  objlogfile.writeline(date() & \";\" & time() & \";\" & record(\"firmanavn\"))

  \'oprydning
  Record.close
  set Record=Nothing
  Rs.close
  set RS=Nothing
  end if

%>

---