---
title: "filupload ger problem med Invalid ProgID."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/98111-filupload-ger-problem-med-invalid-progid"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "timedia"
published: "2004-02-24T17:55:00.000Z"
updated: "2004-02-24T17:59:37.000Z"
replies: 1
views: 173
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/98111-filupload-ger-problem-med-invalid-progid"
---

# filupload ger problem med Invalid ProgID.

## #1 — timedia, 2004-02-24T17:55Z

Får detta felmeddelandet:

```
Server object error 'ASP 0177 : 800401f3' 

Server.CreateObject Failed 

/vforum/index.asp, line 308 

Invalid ProgID. For additional information specific to this message please visit the Microsoft Online Support site located at: [url]http://www.microsoft.com/contentredirect.asp.[/url]
```

 Linje 308 i fet text  

```
<%If Request.QueryString("laggtill") = "ja" Then
'*****************
[B]Set Upload = Server.CreateObject("Persits.Upload")[/B]
Upload.SaveVirtual("../../dbq/uppladdad")

Set File = Upload.Files("THEFILE")

	If Not File Is Nothing Then
  Connect = "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("../../dbq/vforum.mdb")
  
   Set rs = Server.CreateObject("adodb.recordset")

   rs.Open "aktuellt", Connect, 2, 3

   rs.Addnew
   End If
'******************

Response.Cookies("namn") = Trim(Upload.Form("namn"))
Response.Cookies("email") = Trim(Upload.Form("email"))
Response.Cookies("namn").Expires = date + 7
Response.Cookies("email").Expires = date + 7
Bild = rs("bild")
Bild = File.ExtractFileName
Rubrik      = Upload.Form("Rubrik")
Inlagg      = FixaTecken(Upload.Form("inlagg"))
Namn       = Upload.Form("namn")
Email        = Upload.Form("email")
SvarsId    = Upload.QueryString("id")
FID        = Upload("ForId")

If Request.QueryString("id") = "" Then 

Conn.Execute("Insert Into forum(ForID, Rubrik, Bild, Inlagg, Namn, Email) Values('"& FID &"','"& Rubrik &"','"& Bild &"','"& Inlagg &"','"& Namn &"','"&Email &"')")

Response.Redirect "index.asp"

Else

Conn.Execute("Insert Into forum(ForID, Rubrik, Bild, Inlagg, Namn, Email, SvarsId) Values('"& FID &"','"& Rubrik &"','"& Bild &"','"& Inlagg &"','"& Namn &"','"&Email &"','"& SvarsId &"')")
Conn.Execute("UPDATE forum SET senast=now WHERE id=" & SvarsId)

If SvarsId <> 0 Then
  Conn.Execute("UPDATE forum SET Svar=Svar+1 WHERE id=" & SvarsId)
End If

Response.Redirect "index.asp?visa=las&id=" &Request.QueryString("id") & "&rubrik=" &Request.Form("rubrik")

End If

End If
```

Vad är galet? Komponenten ska vara installerad...

Permalänk: https://www.webforum.nu/p/98111

## #2 — icaaq, 2004-02-24T17:59Z

> Vad är galet? Komponenten ska vara installerad...

Det är den inte....

Permalänk: https://www.webforum.nu/p/1285488

---

Tråden på webben: https://www.webforum.nu/amne/asp/98111-filupload-ger-problem-med-invalid-progid