SQL fejl (før access database)

Jeg skal have uploaded en fil til min server og samtidig tilføjet en beskrivelse af filen i min database.

Før kørte jeg access og har nu skiftet til SQL Ekspress.
Jeg kan fint udskrive, men når jeg prøver at opdaterer min database som her, så får jeg fejlen:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified

uploadbillede1.asp, line 106
(Den er linjen hvor den connecter til SQL databasen)

Her er min kode efter jeg har prøvet at ændre det til SQL:
(Nederst kommer den som den var med access databasen)
Har lige ændret server, kode og pass - men det er som det skal være. Håber der er nogen der kan hjælpe mig. :-)

<%
'  Variables
'  *********
  Dim mySmartUpload
  Dim file1
  Dim file2
  Dim oConn
  Dim oRs
  Dim intCount
  intCount=0
  Session.LCID = 1030     
'  Object creation
'  ***************
  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
 
'  Upload
'  ******
  mySmartUpload.Upload
  intCount = mySmartUpload.Save("/myimages")

'  Connect to the DB
'  *****************
  Set oConn = Server.CreateObject("ADODB.Connection")
  curDir = "driver={SQL Server};server=XXX;DATABASE=XXX;uid=XXX;pwd=XXX;"
  oConn.Open strSQL, curDir,1

'  Open a recordset
'  ****************

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

      '  Add the current file in a DB field
      '  **********************************
        oRs.AddNew
        oRs("pic") = mySmartUpload.Files.Item("File1").FileName
        oRs("billedekategori") = mySmartUpload.form("kategori")
        oRs("beskrivelse") = mySmartUpload.form("overskrift")
        oRs("powerpoint") = "hyggestedet"
        oRs("visnyhed") = 3
       
        oRs.Update
        intCount = intCount + 1

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

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


HER ER DEN SOM ACCESS VERSION HVOR DET VIRKER FINT!:

<%
'  Variables
'  *********
  Dim mySmartUpload
  Dim file1
  Dim file2
  Dim oConn
  Dim oRs
  Dim intCount
  intCount=0
  Session.LCID = 1030     
'  Object creation
'  ***************
  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
 
'  Upload
'  ******
  mySmartUpload.Upload
  intCount = mySmartUpload.Save("/myimages")

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

'  Open a recordset
'  ****************
  strSQL = "SELECT * FROM seneste"

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

      '  Add the current file in a DB field
      '  **********************************
        oRs.AddNew
        oRs("pic") = mySmartUpload.Files.Item("File1").FileName
        oRs("billedekategori") = mySmartUpload.form("kategori")
        oRs("beskrivelse") = mySmartUpload.form("overskrift")
        oRs("powerpoint") = "hyggestedet"
        oRs("visnyhed") = 3
       
        oRs.Update
        intCount = intCount + 1

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

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

Mvh.
Henrik