Splejse 2 kildekoder sammen!

Jeg vil gerne have sat det her nyheds system ind på denne side!

Tingene skal sættes sammen så der på NYHEDS sider er design på!

Design:
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title></title></head>

<body bgcolor="#000000">

<div align="center">
  <center>
  <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#FFFFFF" width="500" id="AutoNumber1" height="545">
    <tr>
      <td width="100%" height="103"><img border="0" src="Logo.jpg" width="749" height="103"></td>
    </tr>
    <tr>
      <td width="100%" bgcolor="#808080" height="12">
      <p align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">
      <a href="index.asp"><font color="#FFFFFF">
      <applet code="fphover.class" codebase="./" width="80" height="20">
        <param name="textcolor" value="#FFFFFF">
        <param name="color" value="#808080">
        <param name="hovercolor" value="#FF0000">
        <param name="text" value="Nyheder">
        <param name="url" valuetype="ref" value="index.asp">
        <param name="effect" value="glow">
      </applet><applet code="fphover.class" codebase="./" width="83" height="20">
        <param name="textcolor" value="#FFFFFF">
        <param name="effect" value="glow">
        <param name="color" value="#808080">
        <param name="hovercolor" value="#FF0000">
        <param name="text" value="Information">
        <param name="url" valuetype="ref" value="info.asp">
      </applet></font></a></font><FONT
            face="Verdana, Arial, Helvetica, sans-serif" size=2
            link="#FFFFFF" color="#FFFFFF"> </font> <font face="Verdana, Arial, Helvetica, sans-serif" size="2">
      <a href="index.asp"><font color="#FFFFFF">
      <applet code="fphover.class" codebase="./" width="50" height="20">
        <param name="textcolor" value="#FFFFFF">
        <param name="effect" value="glow">
        <param name="color" value="#808080">
        <param name="hovercolor" value="#FF0000">
        <param name="text" value="Spil">
        <param name="url" valuetype="ref" value="Spil.asp">
      </applet><applet code="fphover.class" codebase="./" width="60" height="20">
        <param name="textcolor" value="#FFFFFF">
        <param name="effect" value="glow">
        <param name="color" value="#808080">
        <param name="hovercolor" value="#FF0000">
        <param name="text" value="Links">
        <param name="url" valuetype="ref" value="Links.asp">
      </applet><applet code="fphover.class" codebase="./" width="100" height="20">
        <param name="textcolor" value="#FFFFFF">
        <param name="effect" value="glow">
        <param name="color" value="#808080">
        <param name="hovercolor" value="#FF0000">
        <param name="text" value="Counter-Strike">
        <param name="url" valuetype="ref" value="CS.asp">
      </applet><applet code="fphover.class" codebase="./" width="80" height="20">
        <param name="textcolor" value="#FFFFFF">
        <param name="effect" value="glow">
        <param name="color" value="#808080">
        <param name="hovercolor" value="#FF0000">
        <param name="text" value="Tagwall">
        <param name="url" valuetype="ref" value="Tagwall.asp">
      </applet></font></a></font></td>
    </tr>
    <tr>
      <td width="100%" bgcolor="#000000" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF" height="426">
      <p align="left">
          <font color="#FFFFFF">Antal online brugere:</font><font color="#FF0000"> <%=Application("ActiveUsers")%>
      </font></p>
          <p align="center"><b><font color="#FFFFFF" face="Verdana" size="4">
          Nyheder</font></b></p>
          <p align="center"><font color="#FFFFFF" face="Verdana"><font size="2"><br>
          </font>
         
&nbsp;</font></p>
          <p align="center">
          &nbsp;</p>
         
      </td>
    </tr>
  </table>
  </center>
</div>
</body>
</html>


Nyhed!
<%
 
  'Åbn databasen
  Set conntemp = Server.CreateObject("ADODB.Connection")
  DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("db.mdb") & "; UID=Administrator; PWD="
  conntemp.open DSN
 
  response.write ""
  response.write ""
 
  mode=request("mode")

' ********************************* Tilføj nyhed
  if mode="news" and request("functions") = "add" then
    If Request.Form("Add") <> "" Then
      'Indsæt i databasen
      SQL = "INSERT INTO [Nyheder] (navn,mail,emne,kommentar) VALUES ('" & request("navn") & "', '" & request("mail") & "', '" & request("emne") & "', '" & request("kommentar") & "')"
      conntemp.execute(sql)
      response.write "<FONT face=""arial"" size=""2""><B>Nyheden er nu oprettet!, klik <a href=""default.asp""><B>her</B></a></FONT>"
    Else
      response.write "<FORM action=""default.asp?mode=news&functions=add"" method=""post""><FONT face=""arial"" size=""2"">"
      response.write "<B>Navn:<br></B><input name=""navn"" size=""35"" class=""oneline""><br><br>"
      response.write "<B>Email:<br></B><input name=""mail"" size=""35"" class=""oneline""><br><br>"
      response.write "<B>Emne:<br></B><input name=""emne"" size=""35"" class=""oneline""><br><br>"
      response.write "<B>Kommentar:<br></B><TEXTAREA name=""kommentar"" cols=""35"" rows=""8"" class=""box""></TEXTAREA><br><br>"
      response.write "<input type=""submit"" name=""add"" class=""box"" value=""OPRET NYHED""></FORM>"
      response.write "Bemærk at nyheden ikke vil blive vist før at den er blevet accepteret!!</FONT>"
    End if

' ********************************* Vis nyhed
  Elseif mode="news" and request("id") <> "" then
    sql = "SELECT * from Nyheder WHERE id="& request("id") &" "
    set rstemp = conntemp.execute(sql)
   
    'Hvis nyheden er accepteret
    if rstemp("vis") = true then
      response.write "<FONT face=""arial"" size=""2"">" & rstemp("emne") & " (<B>" & rstemp("dato") & "&nbsp;" & rstemp("tid") & "</B>)<br>"
      response.write "" & rstemp("kommentar") & ""
      response.write "<br><br>Af: <a href=""mailto:" & rstemp("mail") & """>" & rstemp("navn") & "</a></FONT>"
    'Hvis nyheden ikke er accepteret
    else
      response.write "<FONT face=""arial"" size=""2""><B>Denne nyhed kan ikke vises!!</B></FONT>"
    end if
    rstemp.close
   
' ********************************* Vis alle nyheder
  else
    sql = "SELECT * from [Nyheder] where vis=-1 ORDER BY dato desc,tid desc"
    set rstemp = conntemp.execute(sql)
    response.write "<FONT face=""arial"" size=""2""><B>Nyheder:</B><BR>"
    do while not (rstemp.eof or rstemp.bof)
      response.write "<a href=""default.asp?mode=news&id=" & rstemp("id") & """>" & rstemp("emne") & " <B>(" & rstemp("dato") & "&nbsp;" & rstemp("tid") & ")</B></a><br>"
    rstemp.movenext
    loop
    rstemp.close
    response.write ""
  end if

  response.write ""
  response.write ""
 
  'Luk databasen
  conntemp.close
  set conntemp=nothing

%>