Ny post i DB

Hmmmmm

Synes efterhånden jeg har prøvet alt....
Så nu er turen kommet til jer !

Jeg kan ikke få det her til at virke ?
Der sker ikke noget overhovedet....
Formen bliver vist korrekt, men når man trykker send, bliver man viderestillet til Administration.Login.asp ???


<%
\' Opret indlæg-formen til news-script
\' Rune J. Jacobsen - www15.brinkster.com/crazycounter
Response.Buffer = True
SET rs1 = Server.CreateObject(\"ADODB.Connection\")
rs1.Open \"Driver={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"DB/asdfsdf-adminusers-qwwrt.mdb\")

\' Chekker om brugeren har en session.
\' Hvis ikke så smides han af
IF Session(\"password-session\") = \"\" Then
Response.Redirect(\"Administration.Login.asp\")
end if

Sql1 = \"Select * FROM adminusers WHERE username = \'\" & session(\"password-session\") & \"\'\"
set rs1 = rs1.Execute(SQL1)

Const adOpenKeyset = 1
Const adLockOptimistic = 3
\' Databasens placering
tempConn = \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"news.mdb\") & \";UID=admin;PWD=;\"

If Request.Querystring(\"Save\") = \"1\" Then
    strHeader = Trim(Request.Form(\"Header\"))
    strBy = Trim(Request.Form(\"By\"))
    strEmail = Trim(Request.Form(\"Email\"))
    strNews = Trim(Request.Form(\"News\"))
    Set rs2 = Server.CreateObject(\"ADODB.RecordSet\")
    SQL2 = \"SELECT * FROM news WHERE (ID = 0)\"
    rs2.Open SQL2, tempConn, adOpenKeyset, adLockOptimistic
    If (rs2.BOF Or rs2.EOF) Then
        rs2.AddNew
        rs2(\"Overskrift\") = strHeader
        rs2(\"Kommentar\") = strNews
        rs2(\"Af\") = strBy
        rs2(\"Email\") = strEmail
        \' Da siden kører på en udenlandsk server, er det muligt at indstille tidsforskellen her, i dette tilfælde tilføjes 6 timer
        rs2(\"Dato\") = DateAdd(\"h\", 6, Now())
        rs2.Update
    End If
    rs2.Close
    Set rs2 = Nothing
    Response.Redirect \"Administration.Login.asp\"
End If

%>
<!-- #include file=\"include/header.inc\"-->

<form method=\"POST\" action=\"Administration.News.Create.asp?Save=1\">
<table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"2\">
        <tr>
          <td valign=\"middle\" align=\"left\" colspan=\"2\"><br>
          Indtast venligst oplysningerne i følgende felter:<B><br>
          &nbsp; </B></td>
        </tr>
        <tr>
          <td valign=\"middle\" align=\"left\"><div align=\"right\"><p><B>Overskrift</B></td>
          <td valign=\"middle\" align=\"left\"><input type=\"text\" name=\"Header\" size=\"40\"></td>
        </tr>
        <tr>
          <td valign=\"middle\" align=\"left\"><div align=\"right\"><p><B>Af</B></td>
          <td valign=\"middle\" align=\"left\"><input type=\"text\" name=\"By\" value=\"<% = rs1(\"Name\") %>\" size=\"40\"></td>
        </tr>
        <tr>
          <td valign=\"middle\" align=\"left\"><div align=\"right\"><p><B>E-mail</B></td>
          <td valign=\"middle\" align=\"left\"><input type=\"text\" name=\"Email\" value=\"<% = rs1(\"Email\") %>\" size=\"40\"></td>
        </tr>
        <tr>
          <td valign=\"top\" align=\"left\"><div align=\"right\"><p><B>Brødtekst</B></td>
          <td valign=\"middle\" align=\"left\"><textarea rows=\"30\" name=\"News\" cols=\"40\"></textarea></td>
        </tr>
        <tr>
          <td valign=\"middle\" align=\"left\" colspan=\"2\"><br>
          <input type=\"submit\" value=\"Gem\" name=\"Gem\"> <input type=\"button\" value=\"Annuller\" name=\"Annuller\" onClick=\"java script:history.back();\"></td>
        </tr>
      </table>
</form>
Links :<br>
<input type=\"text\" name=\"Link\" size=\"40\" value=\"&lt;a href=&quot;LINK&quot;&nbsp;onmouseover=&quot;Videre(this,3)&quot;&nbsp;onmouseout=&quot;IkkeVidere(this)&quot;&gt;TEXT&lt;/a&gt;\" onclick=\"select()\">
<%
    rs1.Close
    Set rs1 = Nothing
%>

<!-- #include file=\"include/footer.inc\"-->