---
title: "fråga!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/65710-fråga"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Nick"
published: "2003-01-21T22:13:55.000Z"
updated: "2003-01-22T17:11:39.000Z"
replies: 8
views: 259
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/65710-fråga"
---

# fråga!

## #1 — Nick, 2003-01-21T22:13Z

om vi säger att jag läser in en text-databas där en rad ser ut så här:

AnvändarNamn;Riktigtnamn;pass;osv

och innan jag skriver en ny rad i batabasen så vill jag kolla om användarnamnet redan finns? kan man läsa in till  ";" och sedan gemföra det med det namn som försöker läggas till?
 
så här har jag skrivit koden hittils! några tipps?

```
<% 
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
set objFile = objFSO.OpenTextFile( "C:\Program\RaidenMAILD\users.cfg", 8 )

		
If request("Anamn") = "" then
   'händelse1
   response.write("Error fyll i uppgifterna")
Else
If request("Rnamn") = "" then
   'händelse1
   response.write("Error fyll i uppgifterna")
Else
If request("L2") = "" then
   'händelse1
   response.write("Error fyll i uppgifterna")
Else
If request("L1") = request("L2") then
objFile.writeline request("Anamn") & ";" & request("Rnamn") & ";" & request("Doman") & ";"& "50" & ";" & "1" & ";" & request("L2") & ";;;0;;0;0;0;;0;0;0;0;;0;0"

objFile.Close
Set objFile = Nothing
Set objFso = Nothing
Response.Write("<center>DU e nu typ RegiZtRerad i typ daTabAzen, dIn koNtO KoMmer att bLi ActiVEJAt om ca 5 mIn.... lykka typ tE å hOpPaz att du tjiVz! *skrattar*</venter>" )
Else
Response.Write("Du uppgav inte samma lösenord 2 gånger")
End if
End if
End if
End if
%>
```

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

## #2 — solbulle, 2003-01-21T23:00Z

RED. eller... glöm mig, borde sova.

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

## #3 — Nexus86, 2003-01-21T23:15Z

För det första, varför har du två Set objFSO = Server.CreateObject("Scripting.FileSystemObject") ?

```
<% 
Dim objFSO, objFile
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
set objFile = objFSO.OpenTextFile( "C:\Program\RaidenMAILD\users.cfg")

While Not objFile.AtEndOfLine
    If request("Anamn") = Split(objFile.ReadLine, ";")(0) Then
        Fanns = True
    End If
Wend

objFile.Close

If Not Fanns Then
    set objFile = objFSO.OpenTextFile( "C:\Program\RaidenMAILD\users.cfg")

    If request("Anamn") = "" Or request("Rnamn") = "" Or request("L2") = "" then
       'händelse1
       response.write("Error fyll i uppgifterna")
    End If
    If request("L1") = request("L2") then
        objFile.writeline request("Anamn") & ";" & request("Rnamn") & ";" & request("Doman") & ";"& "50" & ";" & "1" & ";" & request("L2") & ";;;0;;0;0;0;;0;0;0;0;;0;0"

        Response.Write("<center>DU e nu typ RegiZtRerad i typ daTabAzen, dIn koNtO KoMmer att bLi ActiVEJAt om ca 5 mIn.... lykka typ tE å hOpPaz att du tjiVz! *skrattar*</center>" )
    Else
        Response.Write("Du uppgav inte samma lösenord 2 gånger")
    End if
    objFile.Close
Else
    Response.Write("Användaren finns redan")
End If

Set objFile = Nothing
Set objFso = Nothing
%>
```

Detta borde fungera.

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

## #4 — solbulle, 2003-01-21T23:30Z

Nexus: Var för stäng o sen öppna?

```
<% 
Dim objFSO, objFile
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
set objFile = objFSO.OpenTextFile( "C:\Program\RaidenMAILD\users.cfg")

While Not objFile.AtEndOfLine
    If request("Anamn") = Split(objFile.ReadLine, ";")(0) Then
        Fanns = True
    End If
Wend

If Not Fanns Then
    If request("Anamn") = "" Or request("Rnamn") = "" Or request("L2") = "" then
       'händelse1
       response.write("Error fyll i uppgifterna")
    End If
    If request("L1") = request("L2") then
        objFile.writeline request("Anamn") & ";" & request("Rnamn") & ";" & request("Doman") & ";"& "50" & ";" & "1" & ";" & request("L2") & ";;;0;;0;0;0;;0;0;0;0;;0;0"

        Response.Write("<center>DU e nu typ RegiZtRerad i typ daTabAzen, dIn koNtO KoMmer att bLi ActiVEJAt om ca 5 mIn.... lykka typ tE å hOpPaz att du tjiVz! *skrattar*</center>" )
    Else
        Response.Write("Du uppgav inte samma lösenord 2 gånger")
    End if

Else
    Response.Write("Användaren finns redan")
End If

objFile.Close
Set objFile = Nothing
Set objFso = Nothing
%>
```

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

## #5 — Nexus86, 2003-01-22T01:20Z

Därför att sist jag provade med att inte göra det sa den "Wrong file mode" på WriteLine.

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

## #6 — Nick, 2003-01-22T16:59Z

Feltyp:
Körningsfel i Microsoft VBScript (0x800A0036)
Felaktigt filåtkomstläge
/asp/addusers.asp, line 18

```
Line18= objFile.writeline request("Anamn") & ";" & request("Rnamn") & ";" & request("Doman") & ";"& "50" & ";" & "1" & ";" & request("L2") & ";;;0;;0;0;0;;0;0;0;0;;0;0"
```

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

## #7 — solbulle, 2003-01-22T17:05Z

Hupp...  :r 

Där ser man. Jag ska nog hålla tyst.

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

## #8 — @nders, 2003-01-22T17:06Z

set objFile = objFSO.OpenTextFile( "C:\\Program\\RaidenMAILD\\users.cfg", ForWriting)

<http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/jsobjfilesystem.asp>

mvh

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

## #9 — Nick, 2003-01-22T17:11Z

tack lyckade fixa det..

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/65710-fråga