upload til database

Så skal du vel bare ændre i
curDir = Server.MapPath("\scripts\aspSmartUpload\Sample.mdb")

Ja jeg fandt ud af at jeg ikke kunne anvende server.MapPath til en fysisk sti, jeg er kommet lidt videre men får en fejl:

Min kode :
<%
'  Variables
'  *********
  Dim mySmartUpload
  Dim file
  Dim oConn
  Dim strSQL
  Dim oRs
  Dim intCount
  intCount=0
       
'  Object creation
'  ***************
  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

'  Upload
'  ******
  mySmartUpload.Upload

'  Connect to the DB
'  *****************
  Set oConn = Server.CreateObject("ADODB.Connection")
  curDir = ("D:\aconsult.us\www\config\datasources\ads.mdb")
  oConn.Open "DBQ="& curDir &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"

'  Open a recordset
'  ****************
  strSQL = "SELECT FILENAME,id,annoncer FROM comments"

  Set oRs = Server.CreateObject("ADODB.recordset")
  Set oRs.ActiveConnection = oConn
  oRs.Source = strSQL
  oRs.LockType = 3
  oRs.Open"SELECT id, annoncer FROM comments"

'  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("annoncer")
        oRs("FILENAME") = file.FileName
        oRs.Update
        intCount = intCount + 1
      End If
  Next

'  Display the number of files uploaded
'  ************************************
  Response.Write(intCount & " file(s) uploaded.<BR>")

'  Destruction
'  ***********
  oRs.Close
  oConn.Close
  Set oRs = Nothing
  Set oConn = Nothing
%>

Linie 63 : file.FileToField oRs.Fields("annoncer")

Og fejl : ADODB.Field error '800a0c93'

Operation is not allowed in this context.

/register.asp, line 63

Mon ikke du skal lave en

oRs.Open "SELECT * FROM comments"

I stedet for oRs.Open"SELECT id, annoncer FROM comments" ? I så fald har jeg prøvet det lige nu uden effekt men du mener måske et andet sted ?

Nu sætter du den jo 2 gange, også med
  oRs.Source = strSQL
jeg ved ikke hvilken der tæller. Men SELECT * bør det være.
Der kan så være andet galt.

Lukketid. Jeg kan ikke huske hvordan jeg fik det til at virke erikjacobsen, smid lige et svar så vi kan få lukket

Tak, jeg samler ikke på point.

som du vil 80)Tak for hjælpen