---
title: "Databaskoppling med ASP"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/39547-databaskoppling-med-asp"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Thorsander"
published: "2002-03-13T12:20:16.000Z"
updated: "2002-03-14T08:30:22.000Z"
replies: 7
views: 468
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/39547-databaskoppling-med-asp"
---
# Databaskoppling med ASP
## #1 — Thorsander, 2002-03-13T12:20Z
Det jag vill göra är att via ASPupload ge besökaren möjlighet att ladda upp bildfiler till min databas Access (dynamik.mdb).
Varför får jag nedanstående fel!?
```
Microsoft OLE DB Service Components error '80040e73'
Format of the initialization string does not conform to the OLE DB specification.
/aaa/ny/Insert.asp, line 96
```
Nedan följer min kod:
```
<%
' Connection string
Dim connStr
connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source==" & Server.MapPath("dynamik.mdb")
' Recordset object
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
```
Här är rad 96
```
rs.Open "MYIMAGES", connStr, 2, 2
' Adding data
rs.AddNew
rs("filename") = fileName
rs("filesize") = fileSize
rs("filedata").AppendChunk fileData
rs("contenttype") = contentType
rs.Update
rs.Close
Set rs = Nothing
If Err.number = 0 Then
Response.Write "Insertion into Database complete ...
"
Else
Response.Write "Could not insert into Database. Errors occured ...
"
End If
%>
```
Själv kan jag tänka mig att det är i följande rad vis del av problemet finns:
```
connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source==" & Server.MapPath("dynamik.mdb")
```
Databasen ligger i d:/internet/domains/rolle.com/tmp
Någon som har någon idé?
Mvh
Simon
Permalänk: https://www.webforum.nu/p/39547
## #2 — LarsG, 2002-03-13T12:36Z
```
connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("dynamik.mdb")
```
Det var ett = för mycket efter Data Source.
Permalänk: https://www.webforum.nu/p/623510
## #3 — Thorsander, 2002-03-13T12:47Z
:r Hmmm... eehh, som vanligt :)
Dock fick jag ett fortsatt felmeddelande (precis som jag trodde)...
```
Microsoft JET Database Engine error '80004005'
Microsoft JET Database Engine error '80004005'
Could not find file 'D:\internet\domains\rolle.com\www\aaa\ny\dynamik.mdb'.
/aaa/ny/Insert.asp, line 96
```
Men det löste jag på egen hand :)
Tack så mycket!!!
Permalänk: https://www.webforum.nu/p/623515
## #4 — Thorsander, 2002-03-13T14:25Z
Nytt problem...
Nu har jag fått in data i databasen (bilder och metadata om dessa). Men...
När jag la till två nya input-fält (text och rubrik) så får jag bara in fyrkanter i tabellen i databasen!?!?!
Alltså inte den text man skrivit in i fältet på ASP-sidan...
Följande kod använder jag mig av i insert.asp
```
<%
Response.Buffer = True
' load object
Dim load
Set load = new Loader
' calling initialize method
load.initialize
' File binary data
Dim fileData
fileData = load.getFileData("file")
' File name
Dim fileName
fileName = LCase(load.getFileName("file"))
' File path
Dim filePath
filePath = load.getFilePath("file")
' File path complete
Dim filePathComplete
filePathComplete = load.getFilePathComplete("file")
' File size
Dim fileSize
fileSize = load.getFileSize("file")
' File size translated
Dim fileSizeTranslated
fileSizeTranslated = load.getFileSizeTranslated("file")
' Content Type
Dim contentType
contentType = load.getContentType("file")
' No. of Form elements
Dim countElements
countElements = load.Count
' Value of text input field "header"
Dim nameInput
nameInput = load.getValue("header")
' Value of text input field "text"
Dim textInput
textInput = load.getValue("text")
' destroying load object
Set load = Nothing
%>
Inserts Images into Database
<%= fileName %> data received ...
<%
' Connection string
Dim connStr
connStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=d:\internet\domains\ngindesign.com\tmp\dynamik.mdb"
' Recordset object
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "MYIMAGES", connStr, 2, 2
' Adding data
rs.AddNew
rs("filename") = fileName
rs("filesize") = fileSize
rs("filedata").AppendChunk fileData
rs("contenttype") = contentType
rs("header") = nameInput
rs("text") = textInput
rs.Update
rs.Close
Set rs = Nothing
If Err.number = 0 Then
Response.Write "Insertion into Database complete ...
"
Else
Response.Write "Could not insert into Database. Errors occured ...
"
End If
%>
```
Vad göra!?
Jag har provat att använda Response.Write på textInput och nameInput
och kan skriva ut dom på skrämen men när jag sedan tittar i databasen
så är det som sagt bara 1 fyrkant i själva tabellen.
!?
Permalänk: https://www.webforum.nu/p/623547
## #5 — Thorsander, 2002-03-13T21:10Z
Never Mind!!!
Det är löst!
:bire
Permalänk: https://www.webforum.nu/p/623720
## #6 — Erik Juhlin, 2002-03-13T21:21Z
Hmm, dig tror jag att jag har snackat i telefon med! ;)
Permalänk: https://www.webforum.nu/p/623723
## #7 — Thorsander, 2002-03-13T22:59Z
> Hmm, dig tror jag att jag har snackat i telefon med!
Det kan nog stämma :) Incordia va!?
Permalänk: https://www.webforum.nu/p/623744
## #8 — Erik Juhlin, 2002-03-14T08:30Z
Jupp! :)
Permalänk: https://www.webforum.nu/p/623819
---
Tråden på webben: https://www.webforum.nu/amne/asp/39547-databaskoppling-med-asp