bild sparas inte

Jag ser inte att du kör någon metod för att spara filen?

edit: varför har du on error resume next i koden?

@nders skrev:

Jag ser inte att du kör någon metod för att spara filen?

Nåt förslag på en lösning?

Hmm... Står det inte i manulen hur man använder komponenten? Jag har aldrig använt den.

Om du inte såg min redigering ovan: varför har du on error resume next i koden?

@nders skrev:

Hmm... Står det inte i manulen hur man använder komponenten? Jag har aldrig använt den.

Om du inte såg min redigering ovan: varför har du on error resume next i koden?

detta funkar inte heller, nån som kan?????

If file.Size = 100000 Then
        'This means the file was truncated
        Response.Redirect "fel.asp"
    File.Delete 
    End If
Next

Set File = Upload.Files
filnamn = Upload.form("blob")
game= Upload.form("gameName")
points = Upload.form("gamePoints")

Dim objConn
player=Session("username")
uploaded = Now()

SET objConn = connect()

picture = "INSERT INTO tblUsers_toplist WHERE game='"& game &"'"
	picture = picture & "(picture) "
	picture = picture & "VALUES('"& filnamn &"')"
	'response.write SQL
	'response.end
	objConn.Execute picture

	objConn.Execute("update tblUsers_toplist set player='"& player &"' ,points='"& points &"',uploaded=#"& uploaded &"# WHERE game='"& game &"'")

Var exekverar du metoden .Save?

När du kör utan on error resume next, får du något felmeddelande?

@nders skrev:

Var exekverar du metoden .Save?

När du kör utan on error resume next, får du något felmeddelande?

.Save har jag aldrig hört talas om, får inget felmeddelande

Då föreslår jag att du läser manualen innan du går vidare. Man kan ju inte bara gissa hur saker och ting fungerar...

@nders skrev:

Då föreslår jag att du läser manualen innan du går vidare. Man kan ju inte bara gissa hur saker och ting fungerar...

jag fick ett kodexempel av nån här på wF som jag gjorde om och den fungerar perfekt till mitt bildgalleri, men samma kod fungerar inte till den här uppgiften

Hur ser den koden ut då, när du använder den i bildgalleriet?

@nders skrev:

Hur ser den koden ut då, när du använder den i bildgalleriet?

Visar här hela koden

Set Upload = Server.CreateObject("Persits.Upload")
Upload.OverwriteFiles = False
Upload.SetMaxSize 100000, False
Count=Upload.Save(Server.MapPath("/images/gallery"))
For Each file In Upload.Files
  If File.ImageType = "UNKNOWN" Then
  
      Response.Redirect "Fell.asp"
      File.Delete 
   End If
  Next
For Each file In Upload.Files

If file.Size = 100000 Then
        'This means the file was truncated
        Response.Redirect "fel.asp"
    File.Delete 
    End If
Next

Set File = Upload.Files

filnamn = Upload.form("blob")
kommentar = Upload.form("kommentar")
upplagd= Upload.form("upplagd")
'mark= Upload.form("mark")
'category = Upload.form("category")
'ja = Upload.form("ja")
'price = Upload.form("price")
'phone = Upload.form("phone")
'email = Upload.form("email")
'stad = Upload.form("stad")
'password = Upload.form("password")

If NOT File Is Nothing Then
On Error Resume Next
strFileName= Upload.Files("blob").ExtractFileName  

'strFileName1= Upload.Files("blob1").ExtractFileName 

'strFileName2 = Upload.Files("blob2").ExtractFileName 

'strFileName3 = Upload.Files("blob3").ExtractFileName 

END IF
   

Dim objConn
varTillhor=Session("userID")
upplagd = Now()
varNamn=strName
varKommentar=strKommentar
	SET objConn = connect()
	picture = "INSERT INTO tblUsers_Galleri"
	picture = picture & "(bild,tillhor,inlagd,kommentar) "
	picture = picture & "VALUES('"&filnamn&"','"& varTillhor &"',#"& upplagd&"#,'"& kommentar &"')"
	'objConn.Execute picture
	response.write picture
	%>

I den koden kör du ju metoden .Save, så det är inte så konstigt att filen sparas då.

@nders skrev:

I den koden kör du ju metoden .Save, så det är inte så konstigt att filen sparas då.

Här är hela koden som inte fungerar

Set Upload = Server.CreateObject("Persits.Upload")
Upload.OverwriteFiles = False
Upload.SetMaxSize 100000, False
Count=Upload.Save(Server.MapPath("/flash/games/printscreens"))
For Each file In Upload.Files
  If File.ImageType = "UNKNOWN" Then
  
      Response.Redirect "Fell.asp"
      File.Delete 
   End If
  Next
For Each file In Upload.Files

If file.Size = 100000 Then
        'This means the file was truncated
        Response.Redirect "fel.asp"
    File.Delete 
    End If
Next

Set File = Upload.Files
filnamn = Upload.form("blob")
game= Upload.form("gameName")
points = Upload.form("gamePoints")

Dim objConn
player=Session("username")
uploaded = Now()

	SET objConn = connect()
	SQL = "update tblUsers_toplist set player='"& player &"' ,game='"& game &"' ,points='"& points &"' ,picture='"& filnamn &"' ,uploaded=#"& uploaded &"# WHERE gameName=" & request.form("gameName") & ""
	response.write SQL
	'response.end
	objConn.Execute(SQL)

Vad innehåller count då, efter det att du kört .Save?