hjælp mig lige med at finde fejl i disse ting

Jeg er igang med at lave et news system med databaser(Acess) kan du finde fejlen i de følgende filer ?
(index filen)
<% @language="VBScript"%>

<!--#include file="connect1.asp" -->

<%
Set news = Server.CreateObject("ADODB.Recordset")
news.Open "SELECT * FROM news ORDER BY dato", database
%>

<HTML>
<HEAD>
<LINK REL="STYLESHEET" TYPE="TEXT/CSS" HREF="css/style1.css">
<TITLE>Clan Total enzane Wankies</TITLE>
</HEAD>


<BODY>

<CENTER>
  <TABLE BORDER="1" BORDERCOLOR="003399" WIDTH="665" CELLSPACING="0">
  <TR WIDTH="100%">
    <TD background="logo.jpg" CLASS="MENU" HEIGHT="70" VALIGN="BOTTOM">
                                    <FONT COLOR="WHITE" SIZE="1" CLASS="MENU">-&nbsp;<A HREF="index.asp" CLASS="MENU">NEWS</A>&nbsp;-</FONT>
                                    <FONT COLOR="WHITE" SIZE="1" CLASS="MENU"><A HREF="about.htm" CLASS="MENU">ABOUT</A>&nbsp;-</font>
                                    <FONT COLOR="WHITE" SIZE="1" CLASS="MENU"><A HREF="members.htm" CLASS="MENU">MEMBERS</A>&nbsp;-</font>
                                    <FONT COLOR="WHITE" SIZE="1" CLASS="MENU"><A HREF="wars.htm" CLASS="MENU">WARS</A>&nbsp;-</font>
                                    <FONT COLOR="WHITE" SIZE="1" CLASS="MENU"><A HREF="contact.htm" CLASS="MENU">CONTACT</A>&nbsp;-</font>
                                    <FONT COLOR="WHITE" SIZE="1" CLASS="MENU"><A HREF="login.asp" CLASS="MENU">LOGIN</A>&nbsp;-</font></TD>
  </TR>
  <TR WIDTH="100%">
    <TD>
<%
While NOT news.EOF
%>
    <TABLE WIDTH="659" CELLSPACING="0" BGCOLOR="BLACK" cellpadding="0">
      <TR BGCOLOR="#041F6E">
      <TD WIDTH="500"><FONT SIZE="2"><% = news.Fields("dato")%></FONT></TD>
      <TD WIDTH="159"><FONT SIZE="2"><% = news.Fields("author")%></FONT></TD>
      </TR>
      <TD WIDTH="659" COLSPAN="2" ALIGN="CENTER"><FONT SIZE="2"><% = news.Fields("news")%></FONT></TD>
      </TR>
    </TABLE>
<%
news.MoveNext
Wend
%>
    </TD>
  </TR>
  <TR>
    <TD>
    <TABLE ALIGN="CENTER">
      <TR>
      <TD><FONT SIZE="1">Visit us at IRC @ &nbsp;<A HREF="irc:///TeW.dk"> #TeW.dk</A></FONT></TD>
      </TR>
    </TABLE>
    </TD>
  </TR>
  </TABLE>
</CENTER>

</BODY>
</HTML>

(connect filen)
Set DbConn = Server.CreateObject("ADODB.Connection")
Smpath="DBQ=" & Server.Mappath("/db/database.mdb")
DbConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & Smpath

(den fil der modtagen fra enformular)
<% @language="VBScript"%>

<!--#include file="connect1.asp"-->

<%
Set indlaeg = Server.CreateObject("ADODB.Recordset")
indlaeg.Open "news", database, 2,2

indlaeg.AddNew
    news("dato") = Request.Form("dato")
    news("author") = Request.Form("author")
    news("news") = Request.Form("news")
Response.Redirect("index.asp")
%>