---
title: "MysmartUpload Igen.. =)"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/54065-mysmartupload-igen"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Bucher"
published: "2002-09-23T14:21:36.000Z"
updated: "2002-09-24T18:32:21.000Z"
replies: 10
views: 238
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/54065-mysmartupload-igen"
---

# MysmartUpload Igen.. =)

## #1 — Bucher, 2002-09-23T14:21Z

hmm fel igen...altså jag är newbie på detta ..skulle vara tacksam ifall nång kunde hjälpa: =)

hmm jag får felkod :
"Feltyp:
Request-objekt, ASP 0208 (0x80004005)
Det går inte att använda den allmänna Request-samlingen efter att BinaryRead har anropats.
/skoter/ny.asp, line 84"

nån som har nån lösning..??
tack på förhand. =)

\<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%\>
\<!--#include file="adovbs.inc" --\>
\<html\>

\<head\>
		\<meta http-equiv="content-type" content="text/html;charset=iso-8859-1"\>
		\<title\>Skoter\</title\>
\</head\>

\<body\>
\<p\>\<font face="verdana, arial" size="4"\>\<b\>\<font face="Arial, Helvetica, sans-serif"\>Lägg 
  till skoter\</font\>\</b\>\</font\>\</p\>
\<p\>\<font face="Verdana, Arial, Helvetica, sans-serif" size="1"\>\<b\>\<a href="adm_menu.asp"\>Huvudmeny\</a\> 
  \| \<a href="javascript:window.close()"\>Logga ut\</a\>\</b\>\</font\>\</p\>
\<form method="POST" action="ny.asp?add=yes" ENCTYPE="multipart/form-data"\>  
  \<p\>\<font face="verdana,arial" size="1"\>\<b\> M&auml;rke:\</b\>\<br\>
    \<input name="Marke" type="text" id="Marke" size="60" maxlength="250"\>
    \<br\>
    \<b\>Modell:\</b\>\<br\>
    \<input name="Modell" type="text" id="Modell" size="60" maxlength="250"\>
    \</font\>\<br\>
    \<font face="verdana,arial" size="1"\>\<b\>&Aring;rsmodell:\</b\>\<br\>
    \<input name="Arsmodell" type="text" id="Arsmodell" size="15" maxlength="10"\>
    \</font\> \<font face="verdana,arial" size="1"\>\<br\>
    \<b\>Motor:\</b\>\<br\>
    \<input name="Motor" type="text" id="Motor" size="50" maxlength="100"\>
    \<br\>
    \<b\>Kylsystem:\</b\>\<br\>
    \<input name="Kylsystem" type="text" id="Kylsystem" size="50"\>
    \<br\>
    \<b\>Matta:\</b\>\<br\>
    \<input name="Matta" type="text" id="Matta" size="50"\>
    \<br\>
    \<b\>M&auml;tarst&auml;llning:\</b\>\<br\>
    \<input name="Miltal" type="text" id="Miltal" size="20"\>
    \<br\>
    \<b\>Utrustning:\</b\>\<br\>
    \<input name="Utrustning" type="text" id="Utrustning" size="60"\>
    \<b\>\<br\>
    &Ouml;vrig info:\</b\>\<br\>
    \<b\> \</b\> \</font\>\<font face="verdana,arial" size="1"\> 
    \<textarea name="Ovrigt" cols="50" rows="8" id="Ovrigt" style="font-family: verdana,arial;"\>\</textarea\>
    \</font\>\<br\>
    \<font face="verdana,arial" size="1"\>\<b\>Pris:\</b\>\<br\>
    \<input name="Pris" type="text" id="Pris" size="20"\>
    kr (inkl moms)\</font\>\</p\>
  \<p\>\<font face="verdana,arial" size="1"\>\<b\>Bild (ange s&ouml;kv&auml;g):\</b\>\<br\>
    \</font\> 
    \<input type="file" name="Fil" size="60"\>
  \</p\>
  \<p\>\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>\<strong\>TIPS!\</strong\>\<br\>
    F&ouml;r att bilden ska passa webbsidans storlek b&ouml;r den vara ungef&auml;r 
    ???x??? pixlar. \</font\>\</p\>
  \<font face="verdana,arial" size="1"\>\<p\> 
  \<p\> 
    \<input type="submit" value="Spara" style="font-size: 8pt; font-family: verdana, arial"\>
  \</font\> 
\</form\>

\<% If Request.QueryString("add") = "yes" Then %\>
\<% 	Dim mySmartUpload	
	Dim File
	
	Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
	
	mySmartUpload.Upload
	
%\>
\<% 
	Set Conn = Server.CreateObject("ADODB.Connection")	
	conn.Open "driver={microsoft access driver (\*.mdb)}; DBQ="& \_
	Server.MapPath("db/db1.mdb")
   	
   	
	Set rs = Server.CreateObject("ADODB.Recordset")
%\>

\<%	tmp = Now()
	

	Addera = "SELECT \* FROM files"
	rs.Open Addera, conn, adOpenStatic, adLockOptimistic
	rs.AddNew
	rs("marke") = Request("Marke")
	rs("modell") = Request.Form("Modell")
	rs("arsmodell") = Request.Form("Arsmodell")
	rs("motor") = Request.Form("Motor")
	rs("kylsystem") = Request.Form("Kylsystem")
	rs("matta") = Request.Form("Matta")
	rs("miltal") = Request.Form("Miltal")
	rs("utrustning") = Request.Form("Utrustning")
	rs("ovrigt") = Request.Form("Ovrigt")
	rs("pris") = Request.Form("Pris")
	rs("datum") = FormatDateTime(tmp,vbShortdate)
	rs("kl") = FormatDateTime(tmp,vbShorttime)
   'For each file In mySmartUpload.Files

    'If not file.IsMissing Then
		 file.FileToField rs.Fields("File Data")
		 rs("File Name") = file.FileName
	'End If
   'Next

	rs.Update

	rs.Close
	Conn.Close
	Set rs = Nothing
	Response.Redirect "adm_menu.asp"
%\>
\<% End If %\>
\<br\>
\</body\>
\</html\>

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

## #2 — @nders, 2002-09-23T14:24Z

Du kan inte använda Request.Form när du laddar upp filer. Dock finns i de flesta uploadkomponenter egna metoder för att kompensera. Istället använder du **mySmartUpload.Form("Fältet")**.

Och du: Använd gärna \[kod\]-taggar så blir din kod mer lättläst.

Mvh,

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

## #3 — martinpartin, 2002-09-23T14:27Z

Testa detta

RS("databas") = MySmartUpload.Form("formulär")

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

## #4 — Bucher, 2002-09-23T15:03Z

tack för hjälpen...
nu är det så här =), se nedan
Nu är det fel:
"Feltyp:
Körningsfel i Microsoft VBScript (0x800A01A8)
Objekt krävs.: ''
/skoter/ny.asp, line 99
"
vilket är :

"file.FileToField rs.Fields("FileData")
		 rs("FileName") = file.FileName
"

\<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%\>
\<!--#include file="adovbs.inc" --\>
\<html\>

\<head\>
		\<meta http-equiv="content-type" content="text/html;charset=iso-8859-1"\>
		\<title\>Skoter\</title\>
\</head\>

\<body\>
\<p\>\<font face="verdana, arial" size="4"\>\<b\>\<font face="Arial, Helvetica, sans-serif"\>Lägg 
  till skoter\</font\>\</b\>\</font\>\</p\>
\<p\>\<font face="Verdana, Arial, Helvetica, sans-serif" size="1"\>\<b\>\<a href="adm_menu.asp"\>Huvudmeny\</a\> 
  \| \<a href="javascript:window.close()"\>Logga ut\</a\>\</b\>\</font\>\</p\>
\<form method="POST" action="ny.asp?add=yes" ENCTYPE="multipart/form-data"\>  
  \<p\>\<font face="verdana,arial" size="1"\>\<b\> M&auml;rke:\</b\>\<br\>
    \<input name="Marke" type="text" id="Marke" size="60" maxlength="250"\>
    \<br\>
    \<b\>Modell:\</b\>\<br\>
    \<input name="Modell" type="text" id="Modell" size="60" maxlength="250"\>
    \</font\>\<br\>
    \<font face="verdana,arial" size="1"\>\<b\>&Aring;rsmodell:\</b\>\<br\>
    \<input name="Arsmodell" type="text" id="Arsmodell" size="15" maxlength="10"\>
    \</font\> \<font face="verdana,arial" size="1"\>\<br\>
    \<b\>Motor:\</b\>\<br\>
    \<input name="Motor" type="text" id="Motor" size="50" maxlength="100"\>
    \<br\>
    \<b\>Kylsystem:\</b\>\<br\>
    \<input name="Kylsystem" type="text" id="Kylsystem" size="50"\>
    \<br\>
    \<b\>Matta:\</b\>\<br\>
    \<input name="Matta" type="text" id="Matta" size="50"\>
    \<br\>
    \<b\>M&auml;tarst&auml;llning:\</b\>\<br\>
    \<input name="Miltal" type="text" id="Miltal" size="20"\>
    \<br\>
    \<b\>Utrustning:\</b\>\<br\>
    \<input name="Utrustning" type="text" id="Utrustning" size="60"\>
    \<b\>\<br\>
    &Ouml;vrig info:\</b\>\<br\>
    \<b\> \</b\> \</font\>\<font face="verdana,arial" size="1"\> 
    \<textarea name="Ovrigt" cols="50" rows="8" id="Ovrigt" style="font-family: verdana,arial;"\>\</textarea\>
    \</font\>\<br\>
    \<font face="verdana,arial" size="1"\>\<b\>Pris:\</b\>\<br\>
    \<input name="Pris" type="text" id="Pris" size="20"\>
    kr (inkl moms)\</font\>\</p\>
  \<p\>\<font face="verdana,arial" size="1"\>\<b\>Bild (ange s&ouml;kv&auml;g):\</b\>\<br\>
    \</font\> 
    \<input type="file" name="Fil" size="60"\>
  \</p\>
  \<p\>\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>\<strong\>TIPS!\</strong\>\<br\>
    F&ouml;r att bilden ska passa webbsidans storlek b&ouml;r den vara ungef&auml;r 
    ???x??? pixlar. \</font\>\</p\>
  \<font face="verdana,arial" size="1"\>\<p\> 
  \<p\> 
    \<input type="submit" value="Spara" style="font-size: 8pt; font-family: verdana, arial"\>
  \</font\> 
\</form\>

\<% If Request.QueryString("add") = "yes" Then %\>
\<% 	Dim mySmartUpload	
	Dim File
	
	Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
	
	mySmartUpload.Upload
	
%\>
\<% 
	Set Conn = Server.CreateObject("ADODB.Connection")	
	conn.Open "driver={microsoft access driver (\*.mdb)}; DBQ="& \_
	Server.MapPath("db/db1.mdb")
   	
   	
	Set rs = Server.CreateObject("ADODB.Recordset")
%\>

\<%	tmp = Now()
	

	Addera = "SELECT \* FROM files"
	rs.Open Addera, conn, adOpenStatic, adLockOptimistic
	rs.AddNew
	rs("marke") = mySmartUpload.Form("Marke")
	rs("modell") = mySmartUpload.Form("Modell")
	rs("arsmodell") = mySmartUpload.Form("Arsmodell")
	rs("motor") = mySmartUpload.Form("Motor")
	rs("kylsystem") = mySmartUpload.Form("Kylsystem")
	rs("matta") = mySmartUpload.Form("Matta")
	rs("miltal") = mySmartUpload.Form("Miltal")
	rs("utrustning") = mySmartUpload.Form("Utrustning")
	rs("ovrigt") = mySmartUpload.Form("Ovrigt")
	rs("pris") = mySmartUpload.Form("Pris")
	rs("datum") = FormatDateTime(tmp,vbShortdate)
	rs("kl") = FormatDateTime(tmp,vbShorttime)
   'For each file In mySmartUpload.Files

    'If not file.IsMissing Then
		 file.FileToField rs.Fields("FileData")
		 rs("FileName") = file.FileName
	'End If
   'Next

	rs.Update

	rs.Close
	Conn.Close
	Set rs = Nothing
	Response.Redirect "adm_menu.asp"
%\>
\<% End If %\>
\<br\>
\</body\>
\</html\>

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

## #5 — solbulle, 2002-09-24T12:45Z

Objektet saknas eftersom att du har utkommenterat den raden som skapar objektet: 
'For each file In mySmartUpload.Files 
(Samt de tillhörande raderna omkring.)

Ta bort dina utkommenteringar så ska det fungera.

```
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
<!--#include file="adovbs.inc" --> 
<html> 

<head> 
<meta http-equiv="content-type" content="text/html;charset=iso-8859-1"> 
<title>Skoter</title> 
</head> 

<body> 
<p><font face="verdana, arial" size="4"><b><font face="Arial, Helvetica, sans-serif">Lägg 
till skoter</font></b></font></p> 
<p><font face="Verdana, Arial, Helvetica, sans-serif" size="1"><b><a href="adm_menu.asp">Huvudmeny</a> 
| <a href="javascript:window.close()">Logga ut</a></b></font></p> 
<form method="POST" action="ny.asp?add=yes" ENCTYPE="multipart/form-data"> 
<p><font face="verdana,arial" size="1"><b> Märke:</b><br> 
<input name="Marke" type="text" id="Marke" size="60" maxlength="250"> 
<br> 
<b>Modell:</b><br> 
<input name="Modell" type="text" id="Modell" size="60" maxlength="250"> 
</font><br> 
<font face="verdana,arial" size="1"><b>Årsmodell:</b><br> 
<input name="Arsmodell" type="text" id="Arsmodell" size="15" maxlength="10"> 
</font> <font face="verdana,arial" size="1"><br> 
<b>Motor:</b><br> 
<input name="Motor" type="text" id="Motor" size="50" maxlength="100"> 
<br> 
<b>Kylsystem:</b><br> 
<input name="Kylsystem" type="text" id="Kylsystem" size="50"> 
<br> 
<b>Matta:</b><br> 
<input name="Matta" type="text" id="Matta" size="50"> 
<br> 
<b>Mätarställning:</b><br> 
<input name="Miltal" type="text" id="Miltal" size="20"> 
<br> 
<b>Utrustning:</b><br> 
<input name="Utrustning" type="text" id="Utrustning" size="60"> 
<b><br> 
Övrig info:</b><br> 
<b> </b> </font><font face="verdana,arial" size="1"> 
<textarea name="Ovrigt" cols="50" rows="8" id="Ovrigt" style="font-family: verdana,arial;"></textarea> 
</font><br> 
<font face="verdana,arial" size="1"><b>Pris:</b><br> 
<input name="Pris" type="text" id="Pris" size="20"> 
kr (inkl moms)</font></p> 
<p><font face="verdana,arial" size="1"><b>Bild (ange sökväg):</b><br> 
</font> 
<input type="file" name="Fil" size="60"> 
</p> 
<p><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>TIPS!</strong><br> 
För att bilden ska passa webbsidans storlek bör den vara ungefär 
???x??? pixlar. </font></p> 
<font face="verdana,arial" size="1"><p> 
<p> 
<input type="submit" value="Spara" style="font-size: 8pt; font-family: verdana, arial"> 
</font> 
</form> 

<% If Request.QueryString("add") = "yes" Then 
Dim mySmartUpload 
Dim File 

Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload") 

mySmartUpload.Upload 

Set Conn = Server.CreateObject("ADODB.Connection") 
conn.Open "driver={microsoft access driver (*.mdb)}; DBQ="& _ 
Server.MapPath("db/db1.mdb") 

Set rs = Server.CreateObject("ADODB.Recordset") 

 tmp = Now() 

Addera = "SELECT * FROM files" 
rs.Open Addera, conn, adOpenStatic, adLockOptimistic 
rs.AddNew 
rs("marke") = mySmartUpload.Form("Marke") 
rs("modell") = mySmartUpload.Form("Modell") 
rs("arsmodell") = mySmartUpload.Form("Arsmodell") 
rs("motor") = mySmartUpload.Form("Motor") 
rs("kylsystem") = mySmartUpload.Form("Kylsystem") 
rs("matta") = mySmartUpload.Form("Matta") 
rs("miltal") = mySmartUpload.Form("Miltal") 
rs("utrustning") = mySmartUpload.Form("Utrustning") 
rs("ovrigt") = mySmartUpload.Form("Ovrigt") 
rs("pris") = mySmartUpload.Form("Pris") 
rs("datum") = FormatDateTime(tmp,vbShortdate) 
rs("kl") = FormatDateTime(tmp,vbShorttime) 
For each file In mySmartUpload.Files 

If not file.IsMissing Then 
file.FileToField rs.Fields("FileData") 
rs("FileName") = file.FileName 
End If 
Next 

rs.Update 

rs.Close 
Conn.Close 
Set rs = Nothing 
Response.Redirect "adm_menu.asp" 
End If %> 
<br> 
</body> 
</html>
```

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

## #6 — Bucher, 2002-09-24T15:29Z

hej igen...Nu har jag fått till det...funkar med bilden in i databasen  =)))
men när jag har ett annat dokument som ska "visa" filen så fungerar ej det...suuuck..
altså felet är där jag ska skriva img source:
\<img src="\<% = rs("FileName") %\>" width="369" height="264"\>
funger ej så där...

hmm vette fan vad jag ska skriva :

\<kod\>
\<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%\>
\<!--#include file="adovbs.inc"--\>
\<html\>
\<head\>
\<title\>Begagnade skotrar\</title\>
\<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"\>

\<script language="JavaScript" type="text/JavaScript"\>
\<!--
var popUpWin=0;
function popUpWindow(URLStr, left, top, width, height)
{
  if(popUpWin)
  {
    if(!popUpWin.closed) popUpWin.close();
  }
  popUpWin = open(URLStr, 'popUpWin', 'toolbar=no, location=no, directories=no, status=no, menub ar=no, scrollbar=no, resizable=no, copyhistory=yes, width=550, height=350, left=100, top=100');
}
// --\>
\</script\>

\</head\>

\<body background="back_green.gif"\>
\<p\>\<font size="4" face="Verdana, Arial, Helvetica, sans-serif"\>\<strong\>Skotrar\</strong\>\</font\>\</p\>
\<p\> \<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\> 
\<% 		Dim mySmartUpload %\>

\<% 		Set Conn = Server.CreateObject("ADODB.Connection")	
		conn.Open "driver={microsoft access driver (\*.mdb)}; DBQ="& \_
		Server.MapPath("db/db1.mdb")	
		Set rs = Server.CreateObject("ADODB.Recordset")
%\>
 
\<%	Texter = "SELECT \* FROM files WHERE id = " & Request.QueryString("visaID") & " "
	rs.Open Texter, conn, adOpenStatic, adLockOptimistic
%\>
  \</font\>\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\> \</font\>\</p\>
\<table width="597" height="295" border="0"\>
  \<tr\> 
    \<td width="218" valign="top"\>\<p\>\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>M&auml;rke: 
        \<% =rs("marke") %\>
        \</font\>\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>\<br\>
        Modell: 
        \<% =rs("modell") %\>
        \<br\>
        &Aring;rsmodell: 
        \<% =rs("arsmodell") %\>
        \<br\>
        Motor: 
        \<% =rs("motor") %\>
        \<br\>
        Kylsystem: 
        \<% =rs("kylsystem") %\>
        \<br\>
        Matta: 
        \<% =rs("matta") %\>
        \<br\>
        M&auml;tarst&auml;llning: 
        \<% =rs("miltal") %\>
        \<br\>
        Utrustning: 
        \<% =rs("utrustning") %\>
        \<br\>
        &Ouml;vrig info: 
        \<% =rs("ovrigt") %\>
        \<br\>
        Pris: 
        \<% =rs("pris") %\>
        \<br\>
        \</font\>\</p\>
      \</td\>
    \<td width="369" valign="top"\>\<p\>
	\<img src="
	\<% = rs("FileName") %\>
	" width="369" height="264"\>&nbsp;\</p\>
      \<p\>\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\>
        \</font\>\</p\>
      \<p\>&nbsp;\</p\>\</td\>
  \</tr\>
\</table\>
\<p\>\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\> 
  \<% 		rs.Close
		Set rs = Nothing
		conn.Close
		Set conn = Nothing
 %\>
  \</font\>\<font size="1" face="Verdana, Arial, Helvetica, sans-serif"\> \</font\>\</p\>
\</body\>
\</html\>
\</Kod\>

Nån ide??

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

## #7 — solbulle, 2002-09-24T17:57Z

För det första, måste du lägga in bilden i databasen? (Alltså hela bilden, inte bara namnet - samt ladda upp bilden till servern?)

Jag **tror** att du måste använda dig av komponenten igen för att använda dig av filen, se tex: <http://www.aspsmart.com/scripts/aspSmartUpload/publigen/content/templates/TPL_ADV_VIEW_SRC.asp?P=358&L=EN>

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

## #8 — Bucher, 2002-09-24T18:05Z

jag har bilden i databasen i ett fält som kallas FileName, jag ser bilden och den laddades upp till databasen via formuläret...Det fungerar ...Det jag ska göra nu är att hämta bilden från fältet "FileName" och visa den på hemsidan...??

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

## #9 — solbulle, 2002-09-24T18:14Z

Vad menar du med att du ser bilden?

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

## #10 — solbulle, 2002-09-24T18:19Z

Alltså, jag tror att du typ måst skriva:

```
<%
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.DownloadField(rs("FileName"))
 %>
```

Istället för bara:

\<% = rs("FileName") %\>

kika på deras hemsida: <http://www.aspsmart.com/aspSmartUpload/>

Sen bör du kanske överväga att använda dig lite mer av response.write när du skriver ut din sida så du slipper alla scriptväxlingar/taggar.

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

## #11 — Bucher, 2002-09-24T18:32Z

jag har gjort det och försökt som f\*n, men får ej den ej att visa bilden,..altså hämta den från databasen och visa den..

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/54065-mysmartupload-igen