---
title: "file not found"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/74269-file-not-found/page2"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "DiDjo"
published: "2003-04-16T18:30:23.000Z"
updated: "2003-04-28T18:50:08.000Z"
replies: 39
views: 566
page: 2
pages: 2
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/74269-file-not-found"
---

# file not found

_Sida 2 av 2._

## #21 — DiDjo, 2003-04-18T19:22Z

Fick detta fel:

```

ADODB.Recordset error '800a0bb9' 

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another. 

/!egna/tabortfoto.asp, line 52
```

Stämmer bra att det blir bilder/1.jpg i db! Och när bilden e uppladdad blir det upload/namn.jpg

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

## #22 — solbulle, 2003-04-18T20:01Z

Hum? Vilken rad är 52? 
Rspres2.open SQLpres2, Conn, 3,3 ?

Är inte alla namnen rätt? Tabell, fält, databas, samt det som ligger i username?

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

## #23 — DiDjo, 2003-04-19T15:05Z

Förlåt... glömde skicka in vilken kod de va!... Tror att jag ska öppna databasen på ett annant vis....

```
	Set Rspres2=Server.CreateObject("ADODB.Recordset")
	52-->Rspres2.open SQLpres2, Conn, 3,3
```

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

## #24 — DiDjo, 2003-04-19T15:19Z

fixade felet... men det fungerar en gång! Sen laddar jag upp en ny bild! Det fungerar... den byter ut den! Sen ska jag ta bort den igen! Det vill den inte! På nått j\*vla vänster tar den bort bilden som man hade innan! Asså de alternativa bilderna... dom ska den inte ta bort!

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

## #25 — solbulle, 2003-04-19T18:35Z

Testa ändra denna rad:

```
if lcase(rspres2("bild"))="bilder/1.jpg" OR lcase(rspres2("bild"))="bilder/2.jpg" OR lcase(rspres2("bild"))="bilder/3.jpg" OR lcase(rspres2("bild"))="bilder/4.jpg" ORlcase(rspres2("bild"))="bilder/5.jpg"  then
```

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

## #26 — DiDjo, 2003-04-19T18:44Z

samma fel! Tas bort en gång! Sen tar den bort en av de alternativa! Den som man hade innan

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

## #27 — solbulle, 2003-04-19T18:52Z

Vad i hela friden... hur ser hela det kodblocket ut nu?

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

## #28 — DiDjo, 2003-04-19T19:36Z

så här:

```
<%
Option Explicit
Dim username, se, sql, sql2, rs2, sqlpres2, Rspres2, strPath, objFSO, bilden, poangmess, dtmMittDatum, rs5, farg, mess, gb, poangbrev, poangbrevsvar, poangforum, poangforumsvar, poangklotter, poanggastbok, poangdagbok, connect, rs, rs4, rs3, addera, online, rs6, tid
username = session("anv")
%>
<!--#include file="conn.asp"-->
<%
se=request("se")
if se="" then
	se=username
end if
%>
<div id="Layer1" style="position:absolute; width:135; height:580; z-index:1; left: 10; top: 118; border: 1px none #000000"> 
<font face="Verdana, Arial, Helvetica, sans-serif" size="2">&nbsp;<!-- #include file = "meny.asp" --></font></div>
<div id="Layer9" style="position:absolute; width:155; height:97; z-index:1; left: 10; top: 10; border: 1px none #000000"> 
<font face="Verdana, Arial, Helvetica, sans-serif" size="2">&nbsp;<!-- #include file = "statistik_liten.asp" --></font></div>
<div id="Layer12" style="position:absolute; width:591; height:101; z-index:1; left: 165; top: 10; border: 1px none #000000"> 
<table width="600" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000" height="100">
  <tr> 
    <td height="100" width="597" bgcolor="#F0F0F0">
    <font face="Verdana, Arial, Helvetica, sans-serif" size="6">
    <div align="left">
  <img border="0" src="bilder/logo.jpg"></div></td>
  </tr>
</table>
    </div>

<html>

<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>DiDjo Community - Tabort Foto</title>
</head>

<body>

<p>
<div id="Layer7" style="position:absolute; width:600; height:21; z-index:4; left: 165; top: 117; background-image=url('../bilder/ruta_bak.gif'); layer-background-color: #0066FF; border: 1px none #000000">
<table width="600" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
  <tr> 
    <td height="20" background="bilder/ruta_bak.gif" width="597">
    <div align="left">
  <b><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Ta bort foto</font></b></div></td>
  </tr>
</table>
</div><br>
&nbsp;<div id="Layer3" style="position:absolute; width:599; height:18; z-index:3; left: 165; top: 142">
  <strong style="font-weight: 400"> 
<table width="599" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
  <tr>
    <td bgcolor="f0f0f0" width="600">
  <strong style="font-weight: 400"> 
  <p><font face="Verdana, Arial, Helvetica, sans-serif" size="2">
<%
	SQLPRES2="SELECT bild FROM anv WHERE anv='" & username & "'"

	Set Rspres2=Server.CreateObject("ADODB.Recordset")
	Rspres2.open SQLpres2, Conn, 3,3
	
	if not rspres2.eof then
		if lcase(rspres2("bild"))="bilder/1.jpg" OR lcase(rspres2("bild"))="bilder/2.jpg" OR lcase(rspres2("bild"))="bilder/3.jpg" OR lcase(rspres2("bild"))="bilder/4.jpg" OR lcase(rspres2("bild"))="bilder/5.jpg" then
			response.write("Du har inget foto att ta bort.<br>" & _
				    "Klicka på 'Min profil' i menyn till vänster" & _
				   " för att se hur din profil ser ut. ")		
	
		else
		strPath = rspres2("bild")				
			Set objFSO=CreateObject("Scripting.FileSystemObject")
			objFSO.DeleteFile server.mappath(strpath)
			Set ObjFSO=Nothing
			
			rspres2("bild")="bilder/1.jpg"
			rspres2.Update
		
			response.write("Ditt foto har tagits bort.<br>" & _
				   "Klicka på 'Min profil' i menyn till vänster" & _
				   " för att se hur din profil ser ut. ")

		end if
	end if

%>
</a></font></strong></p>

    </td>
  </tr>
</table>
</div>

</p>

</body>

</html>
```

i conn:

```
<%
Dim ConnectString, conn

ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(".mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnectString
%>
```

statistik_liten behöver du nog inte se! den används inte av koderna! Inte meyn heller....

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

## #29 — DiDjo, 2003-04-21T16:19Z

ingen som vet??

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

## #30 — solbulle, 2003-04-21T17:35Z

Hum!

Och sökvägen till de alternativa bilderna är som det står i raden där det kontrolleras:

"bilder/1.jpg" (eller 2,3,4,5)

Det är den som står i databasen när den raderas?

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

## #31 — DiDjo, 2003-04-21T19:25Z

nepp! Det står "upload/namn.jpg"! Och sökvägen är rätt! En väldigt dum kod med andra ord...

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

## #32 — solbulle, 2003-04-21T19:43Z

Ok...
Men denna rad:

```
if lcase(rspres2("bild"))="bilder/1.jpg" OR lcase(rspres2("bild"))="bilder/2.jpg" OR lcase(rspres2("bild"))="bilder/3.jpg" OR lcase(rspres2("bild"))="bilder/4.jpg" OR lcase(rspres2("bild"))="bilder/5.jpg" then
```

Den "säger ju" att det bara är dom bilderna som skall skyddas från radering, mao antar jag att det är dina "standardbilder"?
Stämmer inte det så kommer bilder med andra namn att kunna raderas.
Jag vet inte riktigt om jag missuppfattade dig där eller om ja helt enkelt missar något med skriptet...

För det är väl det som står i databasen som också raderas? (upload/namn.jpg)

nä... nu fattar jag ingenting...  :x

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

## #33 — DiDjo, 2003-04-22T16:33Z

bilder/1.jpg (2,3,4,5) är dom som ska vara kvar! För dom kan alla användare använda! Sen om en annan användare vill ha en bild på sig själv så kan han/hon ladda upp den! Och om han/hon inte vill ha den längre ska han/hon kunna ta bort den! Och om vi säger att hans/hennes bild hette namn.jpg(i databasen: upload/namn.jpg) så ska koden kolla i mappen upload på servern och ta bort den!´

Den som står i databasen raderas en gång! Och om jag laddar upp den igen, så kan man ej ta bort den! Då tas någon av 1,2,3,4,5 .jpg bort! Hur vet jag inte!

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

## #34 — solbulle, 2003-04-22T18:17Z

Jadu, jag blir helt snurrig av detta.

Denna rad:

rspres2("bild")="bilder/1.jpg"

Hårdkodar ju en bild direkt efter man raderat en. Du är säker på att alla bildnamn hamnar i samma fält i rätt tabell i rätt databas? \*famlar i mörkret.\*

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

## #35 — DiDjo, 2003-04-22T19:06Z

jo det hamnar rätt när man laddar upp! Koden i laddaupp har också en tabort funktion... den tar bort den förra bilden om man har laddat upp en innan! Så här ser den ut:

```
<%Set Upload = Server.CreateObject("Persits.Upload.1")
' Upload files
Upload.OverwriteFiles = False 'Generate unique names
Upload.SetMaxSize 75576 ' Truncate files above 75kb
Upload.Save server.mappath("upload")
For Each File in Upload.Files
bilden=File.ExtractFileName
   If File.ImageType <> "JPG" Then
    File.Delete
    Session("meddelande") = "Du kan bara ladda upp JPG bilder."
     Response.Redirect "foto.asp"
   End If

Next

if bilden="" Then
	response.redirect("foto.asp")
else

SQL2="SELECT * FROM anv WHERE anv='" & se & "'"
Conn.execute(SQL2)	
	
	Set Rs2=Server.CreateObject("ADODB.Recordset")
	Rs2.open SQL2, Conn, 3,3

	SQLPRES2="SELECT * FROM anv WHERE anv='" & se & "'"
	Conn.execute(SQLPRES2)
		
	Set Rspres2=Server.CreateObject("ADODB.Recordset")
	Rspres2.open SQLpres2, Conn, 3,3
	
if not rspres2.eof then
		'om det är en riktig bild, plocka bort den!
		if rspres2("bild")<>"bilder/1.jpg" OR rspres2("bild")<>"bilder/2.jpg" OR rspres2("bild")<>"bilder/3.jpg" OR rspres2("bild")<>"bilder/4.jpg" or rspres2("bild")<>"bilder/5.jpg"	then 
			strPath=server.mapPath(rspres2("bild"))
				
			Set objFSO=CreateObject("Scripting.FileSystemObject")
			objFSO.DeleteFile "" & strpath & ""
			Set ObjFSO=Nothing

		end if

		bilden="upload/" & bilden
			rspres2("bild")=bilden
			rspres2.Update
	session("bild")="Bilden har blivit uppladdad. Titta på Din profil för att se hur det vart!"
Response.Redirect "foto.asp"
	end if
	end if

%>
```

det är hela ladda upp koden! Men du ser nog vilken kod jag menar!

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

## #36 — solbulle, 2003-04-22T20:01Z

Blir det inte bätte om du ändrar till denna rad:

```
if NOT rspres2("bild")= "bilder/1.jpg" AND NOT rspres2("bild")="bilder/2.jpg" AND NOT rspres2("bild")="bilder/3.jpg" AND NOT rspres2("bild")="bilder/4.jpg" AND NOT rspres2("bild")="bilder/5.jpg" then
```

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

## #37 — DiDjo, 2003-04-27T13:41Z

sorry att jag inte svarat! Då byter man platts på grejjerna? ta bort koden och om man inte har en bild? Men då tar den bort båda!

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

## #38 — DiDjo, 2003-04-27T17:04Z

skit i det! Verkar fungera nu! Säger till om det blir något knas!

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

## #39 — DiDjo, 2003-04-27T17:11Z

du det var knas iaf! Den tar bort som ajg sa den man laddade upp och den man hade innan! Hur f\*n går det till??? Så här ser koden ut nu:

```
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath ("***.mdb")
Set Rspres2=Server.CreateObject("ADODB.Recordset")
SQLPRES2="SELECT bild FROM anv WHERE anv='" & session("anv") & "'"
Rspres2.open SQLpres2, Conn, 3,3

	
	if not rspres2.eof then
		if NOT rspres2("bild")= "bilder/1.jpg" AND NOT rspres2("bild")="bilder/2.jpg" AND NOT rspres2("bild")="bilder/3.jpg" AND NOT rspres2("bild")="bilder/4.jpg" AND NOT rspres2("bild")="bilder/5.jpg" then 
			strPath = rspres2("bild")				
			Set objFSO=CreateObject("Scripting.FileSystemObject")
			objFSO.DeleteFile server.mappath(strpath)
			Set ObjFSO=Nothing
			
			rspres2("bild")="bilder/1.jpg"
			rspres2.Update
		
			response.write("Ditt foto har tagits bort.<br>" & _
				   "Klicka på 'Min profil' i menyn till vänster" & _
				   " för att se hur din profil ser ut. ")

		else

		response.write("Du har inget foto att ta bort.<br>" & _
				    "Klicka på 'Min profil' i menyn till vänster" & _
				   " för att se hur din profil ser ut. ")		
	

		end if
	end if

%>
```

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

## #40 — DiDjo, 2003-04-28T18:50Z

Någon som vet vart man kan få tag på ett bra ladda upp bild script till ett community!? Med ta bort funktion?

Eftersom denna kod verkar kass

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/74269-file-not-found/page2  
Föregående sida: https://www.webforum.nu/amne/asp/74269-file-not-found.md