---
title: "Skapa ett nummer"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/116140-skapa-ett-nummer"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "ade"
published: "2004-11-17T21:46:35.000Z"
updated: "2004-11-18T17:38:00.000Z"
replies: 9
views: 309
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/116140-skapa-ett-nummer"
---

# Skapa ett nummer

## #1 — ade, 2004-11-17T21:46Z

hej, håller på med ett beställningsformulär. 

Beställningen är kodat med cdosys.

När beställninge nskickas till min mail så ska det skapas ett ID nummer. Som syns i mitt mail.

Är det svårt att göra?!

Sedan så ska idnummret skickas till ha nsom gjorde bsetällningens email.

Om någon hjälper mej med detta så lovar jag ersättning.

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

## #2 — Peeer, 2004-11-17T21:51Z

Sparas beställning i en databas av något slag? Får inte beställningen ett id-nummer i databasen isf?

Annars kan du ju använda dig av en textfil som bara innehåller en siffra. När någon gör en beställning så läses siffran av från textfilen, adderas med 1 och sparas ner i textfilen igen (skriver alltså över den gamla siffran). Det numret kan du ju använda som id-nummer.

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

## #3 — ade, 2004-11-17T21:53Z

Nje det skickas bara till mailen. 

Skulel du kunna hjäölpa mej med en textfil?

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

## #4 — ade, 2004-11-17T21:56Z

ursäkta stavningen :)

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

## #5 — Peeer, 2004-11-17T22:04Z

> **ade skrev:**
>
> ursäkta stavningen :)

[Tips!](http://www.webforum.nu/editpost.php?s=&action=editpost&postid=953504) ;)

Nu var det år sen jag pulade med fso så det är säkert en bunt fel i koden.

```
Set fso = CreateObject("Scripting.FileSystemObject")
Set fileObject = fso.GetFile(Server.MapPath("myfile.txt"))
Set textStreamObject = fileObject.OpenAsTextStream(1,0)
id = CLng(textStreamObject.ReadAll) + 1
textStreamObject.Write(id)
textStreamObject.Close 
Set textStreamObject = Nothing
Set fso = Nothing
%>
```

Men som sagt, lär vara en hel del fel.

[Nyttigt om fso!](http://www.sloppycode.net/Reference/FSO/)

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

## #6 — ade, 2004-11-17T22:07Z

oekj men då ska jag alltså skapa en textfil som heter myfile.txt och där ska det stå en 1a i?

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

## #7 — Peeer, 2004-11-17T22:09Z

jopp.. och den placeras lämpligen i samma mapp som scriptet. Se dessutom till att du har skrivrättigheter på filen.

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

## #8 — ade, 2004-11-17T22:22Z

hej, skickade detta nu, men inget visades i mailet.

Hur kollar jag så myfile.txt har skrivrättigheter?

Tar med lite kod och se om du ser något fel:

```

set mailare = server.CreateObject("CDO.Message")
	mailare.From = ""&epost&""
	mailare.To = mottagare_epost
	mailare.Subject = ""&rubrik&"" 
	html = "<font face='verdana' size='1'>" & Replace(Server.HTMLEncode(Meddelande),vbCrlf,"<br>") &_
	"<br><br><br>------------------------------------------<br><b>Skickades:</b>  " & Now & "<br><b>Namn: </b> "&_
	namn & "<br><b>E-mail: </b> " & epost & "<br>"
	If Len(artikelnr) <> 0 then
	 html = html  & "<b>Artikelnr:</b>  & artikelnr & "
	End If
    If Len(adress) <> 0 then
	 html = html  & "<b>Adress:</b>  & adress & "
	End If
	html = html & "------------------------------------------<br></font>"
mailare.HTMLBody = html
mailare.Send
Set mailare = nothing

Session("kontakta_mig") = "Meddelandet är nu skickat! Vi kontaktar er så snart vi kan!"
Response.Redirect sida
%>

<%
Set fso = CreateObject("Scripting.FileSystemObject")
Set fileObject = fso.GetFile(Server.MapPath("myfile.txt"))
Set textStreamObject = fileObject.OpenAsTextStream(1,0)
id = CLng(textStreamObject.ReadAll) + 1
textStreamObject.Write(id)
textStreamObject.Close 
Set textStreamObject = Nothing
Set fso = Nothing
%>
```

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

## #9 — ade, 2004-11-18T00:17Z

ade har löst problemet själv.

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

## #10 — Peeer, 2004-11-18T17:38Z

Kan då ade ta och visa lösningen för övriga intresserade individer?

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/116140-skapa-ett-nummer