---
title: "asp smart"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/157080-asp-smart"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Boorg"
published: "2007-02-11T21:46:33.000Z"
updated: "2007-02-11T23:36:12.000Z"
replies: 1
views: 301
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/157080-asp-smart"
---

# asp smart

## #1 — Boorg, 2007-02-11T21:46Z

Tja...
Har samma problem med att inte kunna köra sidan så att jag får några felmedelanden, det enda som står är att det inte kunde köras, men inga medelanden.

```
<form method="POST" action="Data.asp?w=Isbil" ENCTYPE="multipart/form-data">
	<A>Bilden</A><br>
        <INPUT TYPE="FILE" NAME="FILE1" SIZE="50"><BR>
	<A>Bildtext</A><br>
	<textarea cols="50" rows="10" name="Info" style="font-size: 8pt; font-family: verdana, arial"></textarea>
	<input class="knapp1" type="submit" value="Skicka!">
</form>
```

```
Set Connect = Server.CreateObject( "Adodb.Connection" )
  Connect.Provider = "Microsoft.Jet.OLEDB.4.0"
  MdbFilePath = Server.MapPath( "../db/sk.mdb" )
  Connect.ConnectionString = "Data Source='" & MdbFilePath & "'"
  Connect.open

   Namn = replace(Request.QueryString("w"), "'", "''")
   Text = replace(Request.Form("Text"), "'", "''")
	
'  Variables
'  *********
   Dim mySmartUpload
   Dim intCount
        
'  Object creation
'  ***************
   Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

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

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

'  Display the number of files uploaded
'  ************************************
   Response.Write(intCount & " file(s) uploaded.")
'	Response.Write(MyUpLoad.Files.Item(1).FileName)

		 Connect.Execute("INSERT INTO sk (Namn,Bild,Text) Values('" & Namn & "','" & file.FileName & "','" & Text & "') ")

'	Response.Redirect("Start.asp")
```

Börjar bli smått galen på detta nu. Har sidan på cliche och det är där jag lägger upp och testar...

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

## #2 — emission, 2007-02-11T23:36Z

Stäng av friendly error messages i IE, eller byt till Firefox/Opera.

Ett fel som syns direkt är att du använder "file.FileName", men "file" definieras inte. Antagligen ska det bytas till mySmartUpload.Files.Item(1).FileName

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/157080-asp-smart