---
title: "Fel när Användarnamn finns"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/8396-fel-när-användarnamn-finns"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "aleborg"
published: "2001-03-04T00:33:00.000Z"
updated: "2001-03-04T16:53:00.000Z"
replies: 8
views: 201
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/8396-fel-när-användarnamn-finns"
---

# Fel när Användarnamn finns

## #1 — aleborg, 2001-03-04T00:33Z

Har en kod som ser ut så här:

```
<%
   Dim mySmartUpload
dim Conn
'  Variables
'  *********
'  Object creation
'  ***************
   Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
%>
<%
SQL2="SELECT * From Master, Kunder WHERE Master.Username='"& mySmartUpload.Form("Username") &"' Or Kunder.Username='"& mySmartUpload.Form("Username") &"'"
set rst=conn.execute(SQL2)
%>
<%
if not rst.eof then
response.write "Användarnamnet är upptaget, gå tillbaka och försök igen   </tr></table></td></tr></table>"
else
%>
<%
   Dim intCount
'  Upload
'  ******
   mySmartUpload.Upload

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

'  Display the number of files uploaded
'  ************************************
   Response.Write(intCount & " <font class=iebla>filer upladdade.</font>")
%>
          <!--#include virtual="unisafe\admin\anders.inc"-->
          <%
set rs= Server.CreateObject("ADODB.Recordset")
SQL= "SELECT * FROM Kunder WHERE 1=2"
rs.Open SQL,Conn,1,2
rs.AddNew
For each file In mySmartUpload.Files
rs(file.name)=file.filename
next
rs("Namn")=mySmartUpload.Form("Namn")
rs("Webadress") =mySmartUpload.Form("Webadress")
rs("Username") =mySmartUpload.Form("Username")
rs("Password") =mySmartUpload.Form("Password")
rs("Foretag") =mySmartUpload.Form("Foretag")
rs("Adress") =mySmartUpload.Form("Adress")
rs("Postnr") =mySmartUpload.Form("Postnr")
rs("Ort") =mySmartUpload.Form("Ort")
rs("Land") =mySmartUpload.Form("Land")
rs("Tel") =mySmartUpload.Form("Tel")
rs("Fax") =mySmartUpload.Form("Fax")
rs("Mobil") =mySmartUpload.Form("Mobil")
rs("Email") =mySmartUpload.Form("Email")
rs("Ovrigt") =mySmartUpload.Form("Ovrigt")
rs("Rabatt") =mySmartUpload.Form("Rabatt")
rs("Valkom") =mySmartUpload.Form("Valkom")
rs("Ovrigt2") =mySmartUpload.Form("Ovrigt2")
rs("Ovrigt3") =mySmartUpload.Form("Ovrigt3")
rs("Accessgroup") =mySmartUpload.Form("Accessgroup")
rs("Saljare") =mySmartUpload.Form("Saljare")
rs("Fil1")=mySmartUpload.Files(1).Filename
rs("Fil1namn") =mySmartUpload.Form("Fil1namn")
rs("Fil2")=mySmartUpload.Files(2).Filename
rs("Fil2namn") =mySmartUpload.Form("Fil2namn")
rs("Fil3")=mySmartUpload.Files(3).Filename
rs("Fil3namn") =mySmartUpload.Form("Fil3namn")
rs("Fil4")=mySmartUpload.Files(4).Filename
rs("Fil4namn") =mySmartUpload.Form("Fil4namn")
rs("Fil5")=mySmartUpload.Files(5).Filename
rs("Fil5namn") =mySmartUpload.Form("Fil5namn")
rs.Update
%>
<%End If %>
```

Får fel när man försöker lägga till ett Username som redan finns!

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E2F)
\[Microsoft\]\[Drivrutin för ODBC Microsoft Access\]Fel i rad 
/unisafe/admin/kund2.asp, line 90

Line 90:
rs.Update

Men den koden ska ju inte köras om namnet redan finns!?

\[Redigerat av aleborg den 04 mar 2001\]

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

## #2 — nakoz, 2001-03-04T09:01Z

hmm... varför har du skrivit:
**if not rst.eof then**

ska de inte vara:
**if rst.eof then**

bara en tanke... 

MVH

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

## #3 — aleborg, 2001-03-04T11:10Z

Det trodde jag också, men det funkar på andra sidor!

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

## #4 — Vide, 2001-03-04T12:33Z

Nä, den biten är helt rätt... .eof får du ju om du inte har några poster... och har du inga poster så finns inte användarnamnet... alltså, NOT .eof är om användarnamnet redan finns...

Mvh, Vide

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

## #5 — aleborg, 2001-03-04T15:57Z

Men vad är felet?

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

## #6 — LarsG, 2001-03-04T16:23Z

När du gör din select för att undersöka om namnet finns så använder du mySmartUpload.Form("Username") . Var sätts det värdet? Du har ju bara skapat själva objektet innan. Om det värdet är odefinierat så kommer din select aldrig att hitta någon post.

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

## #7 — aleborg, 2001-03-04T16:40Z

Hur menar du att jag ska göra då?

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

## #8 — LarsG, 2001-03-04T16:45Z

Jag kan ingenting om smartupload men jag gissar att värdena fylls i när man gör detta anrop:

```

intCount = mySmartUpload.Save("../upload/kunder")
```

Om det är så så får du lägga din kontroll, om användaren finns, efter detta anrop.

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

## #9 — aleborg, 2001-03-04T16:53Z

Japp det stämde, tack! :)

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/8396-fel-när-användarnamn-finns