Uploade billede ind i accesdatabase hvor NyhedID er MAX.

Jeg sidder og roder med et nyhedssystem hvor man først skriver selve nyheden og ligger den i databasen, derefter bliver man ledt videre og skal vælge om man vil uploade et billede eller ej.
Problemet er at billedet ikke bliver lagt i rækken med nyhedens NyhedID men får sin egen række i databasen, og bliver defor ikke vist i tabellen med nyheden men i en tabel for sig selv.

Kan nogen hjælpe?

Her er uploedfunktionen:

<html>
<head>
<!-- KOMMENTAR:  Dette javascript bruges til at åbne login-vinduet i bestemt størrelse! -->
<SCRIPT language="JavaScript">
<!--
// Kan godt undværes... men husk så lige at rette linket til admin-modulet,
// det skal så rettes til login.asp hvis det er.
function loginvindue()
{
window.open('login.asp','login','width=260,height=130,resizable=no,scrollbars=no,toolbar=no,directories=no,copyhistory=no,menubar=no,location=no');
}
//-->
</SCRIPT>
</head>
<body bgcolor="#FADF9D">
<H1>Billede Upload</H1>
<HR>
<%
  On Error Resume Next
 
'  Variables
'  *********
  Dim mySmartUpload
  Dim file
  Dim oConn
  Dim strSQL
  Dim oRs
  Dim intCount
  intCount=0
       
'  Object creation
'  ***************
  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

'  Only allow jpg or gif files
'  ***************************
  mySmartUpload.AllowedFilesList = "jpg,gif"

'  DeniedFilesList can also be used :
  ' Allow all files except exe, bat and asp
  ' ***************************************
  ' mySmartUpload.DeniedFilesList = "exe,bat,asp"

'  Deny physical path
'  *******************
  mySmartUpload.DenyPhysicalPath = True

'  Only allow files smaller than 50000 bytes
'  *****************************************
  mySmartUpload.MaxFileSize = 10000000

'  Deny upload if the total fila size is greater than 200000 bytes
'  ***************************************************************
  mySmartUpload.TotalMaxFileSize = 10000000
 
'  Upload
'  ******
  mySmartUpload.Upload

'  Save the files with their original names in a virtual path of the web server
'  ****************************************************************************
  intCount = mySmartUpload.Save("../nonsec/Billeder")
  ' sample with a physical path
  ' intCount = mySmartUpload.Save("c:\temp\")

'  Trap errors
'  ***********
  If Err Then
      Response.Write("<b>Wrong selection : </b>" & Err.description)
  Else
  '  Display the number of files uploaded
  '  ************************************
      Response.Write(intCount & " file(s) uploaded.")
      Response.Write "<a href='pw_admin.asp'><strong><font size='2'>Gå videre</font></strong></a>"
  End If

'  Connect to the DB
'  *****************
  Set oConn = Server.CreateObject("ADODB.Connection")
  curDir = Server.MapPath("../nonsec/nyheder-02.mdb")
  oConn.Open "DBQ="& curDir &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"

'  Open a recordset
'  ****************
  strSQL = "SELECT FILENAME,FILE FROM nyheder"

  Set oRs = Server.CreateObject("ADODB.recordset")
  Set oRs.ActiveConnection = oConn
  oRs.Source = strSQL
  oRs.LockType = 3
  oRs.Open

'  Select each file
'  ****************
  For each file In mySmartUpload.Files
  '  Only if the file exist
  '  **********************
      If not file.IsMissing Then

      '  Add the current file in a DB field
      '  **********************************
        oRs.AddNew
        file.FileToField oRs.Fields("FILE")
        oRs("FILENAME") = file.FileName
        oRs.Update
        intCount = intCount + 1
      End If
  Next

'  Destruction
'  ***********
  oRs.Close
  oConn.Close
  Set oRs = Nothing
  Set oConn = Nothing
%>
</BODY>
</HTML>

Fomse:-)