---
title: "Får inte med variabeln"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/119685-får-inte-med-variabeln"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "WebbisNet"
published: "2005-01-09T15:08:11.000Z"
updated: "2005-01-09T16:24:47.000Z"
replies: 3
views: 240
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/119685-får-inte-med-variabeln"
---

# Får inte med variabeln

## #1 — WebbisNet, 2005-01-09T15:08Z

Kan någon se varför inte bildvariabeln följer med från den ena sidan till den andra

Syftet med dessa filer är att en normalbild ska sparas och sen ska en förminskad bild sparas i en separat mapp

Från denna fil

```
<%
Set Upload = Server.CreateObject("Persits.Upload")
Upload.OverwriteFiles = False
Upload.SetMaxSize 100000, False
Count=Upload.Save(Server.MapPath("/upload/images/cards"))
For Each file In Upload.Files
  If File.ImageType = "UNKNOWN" Then
  
      Response.Redirect "/error.asp?msg=wrongFileType"
      File.Delete 
   End If
  Next
For Each file In Upload.Files

If file.Size = 100000 Then
        'This means the file was truncated
        Response.Redirect "/error.asp?msg=fileTooBig"
    File.Delete 
    End If
Next

Set File = Upload.Files
sender = replace(Upload.form("txtSender"),"'","''")
If NOT File Is Nothing Then
On Error Resume Next
strFileName= Upload.Files("blob").ExtractFileName  

END IF
   

Dim objConn
	SET objConn = connect()
	picture = "INSERT INTO tblMotive"
	picture = picture & "(motive,sender,cardOK) "
	picture = picture & "VALUES('" & strFileName & "','"& sender &"',-1)"
	objConn.Execute picture
	%>

<%response.redirect "/persist-small-image.asp?pic="& strFileName &""%>
```

till denna fil

```
<%
Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage(Server.MapPath("/upload/images/cards/thumb/" & pic))
Image.FileName = (Server.MapPath("/upload/images/cards/thumb/" & pic))
Image.ImageFormat = 1
Image.JPEGQuality = 70
Image.Resize 120,80
Image.SaveImage
Set Image = Nothing
%>

<%response.redirect "/motiveUpload.asp?pic="& strFileName &"&a=1&d=1"%>
```

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

## #2 — Peeer, 2005-01-09T15:14Z

Du måste väl använda request.querystring("pic") på den mottagande sidan istället för bara pic?!

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

## #3 — WebbisNet, 2005-01-09T15:26Z

> **Peeer skrev:**
>
> Du måste väl använda request.querystring("pic") på den mottagande sidan istället för bara pic?!

Glömde visst det :-D

Jag har lite nätproblem, kan nån gå in på <http://kort.webbisen.com/motiveUpload.asp> och kolla om det funkar att ladda upp bild

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

## #4 — WebbisNet, 2005-01-09T16:24Z

Re: Får inte med variabeln

> **WebbisNet skrev:**
>
> Kan någon se varför inte bildvariabeln följer med från den ena sidan till den andra
> 
> Syftet med dessa filer är att en normalbild ska sparas och sen ska en förminskad bild sparas i en separat mapp
> 
> Från denna fil
>
>
> ```
> <%
> Set Upload = Server.CreateObject("Persits.Upload")
> Upload.OverwriteFiles = False
> Upload.SetMaxSize 100000, False
> Count=Upload.Save(Server.MapPath("/upload/images/cards"))
> For Each file In Upload.Files
>   If File.ImageType = "UNKNOWN" Then
>   
>       Response.Redirect "/error.asp?msg=wrongFileType"
>       File.Delete 
>    End If
>   Next
> For Each file In Upload.Files
> 
> If file.Size = 100000 Then
>         'This means the file was truncated
>         Response.Redirect "/error.asp?msg=fileTooBig"
>     File.Delete 
>     End If
> Next
> 
> Set File = Upload.Files
> sender = replace(Upload.form("txtSender"),"'","''")
> If NOT File Is Nothing Then
> On Error Resume Next
> strFileName= Upload.Files("blob").ExtractFileName  
> 
> END IF
>    
> 
> Dim objConn
> 	SET objConn = connect()
> 	picture = "INSERT INTO tblMotive"
> 	picture = picture & "(motive,sender,cardOK) "
> 	picture = picture & "VALUES('" & strFileName & "','"& sender &"',-1)"
> 	objConn.Execute picture
> 	%>
> 
> <%response.redirect "/persist-small-image.asp?pic="& strFileName &""%>
> ```
>
> 
> 
> till denna fil
>
>
> ```
> <%
> Set Image = Server.CreateObject("AspImage.Image")
> Image.LoadImage(Server.MapPath("/upload/images/cards/thumb/" & pic))
> Image.FileName = (Server.MapPath("/upload/images/cards/thumb/" & pic))
> Image.ImageFormat = 1
> Image.JPEGQuality = 70
> Image.Resize 120,80
> Image.SaveImage
> Set Image = Nothing
> %>
> 
> <%response.redirect "/motiveUpload.asp?pic="& strFileName &"&a=1&d=1"%>
> ```

Löste det med \<%response.redirect "/motiveUpload.asp?pic="& varPic &" &d=1"%\> i den andra filen

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/119685-får-inte-med-variabeln