---
title: "Kontaktbok i ASP"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/10979-kontaktbok-i-asp"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Binaryian"
published: "2001-08-06T11:18:00.000Z"
updated: "2001-08-08T09:04:00.000Z"
replies: 22
views: 307
page: 1
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/10979-kontaktbok-i-asp"
---

# Kontaktbok i ASP

_Sida 1 av 2._

## #1 — Binaryian, 2001-08-06T11:18Z

Vet någon var man kan finna färdiga sådana?

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

## #2 — crisse6, 2001-08-06T23:03Z

vad vill du ha med då?

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

## #3 — Binaryian, 2001-08-07T08:28Z

Företag
Namn
Efternamn
Adress
Telefon
Fax
Mobilnr
E-post
Hemsida
Noteringar

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

## #4 — erka, 2001-08-07T08:40Z

Det är ju jätte enkelt att slänga ihop själv ? du ska inte försöka så hjälper vi dig sen ?

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

## #5 — Binaryian, 2001-08-07T08:58Z

Det var detta jag fasade för! ;) Jag vet att det "är enkelt". Jag har gjort två hyffsade försök att lära mig asp men...verkar inte bli någon stjärna.

Ok, vad börjar jag med?

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

## #6 — Binaryian, 2001-08-07T11:31Z

Gubbar!
Börja nu posta lite svar. Det var ju så enkelt ju...

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

## #7 — Pace, 2001-08-07T12:24Z

Okej då ;) 

Skapa en databas med tabellen "Kontakter". I den skapar du följande fält

Företag
Namn
Efternamn
Adress
Telefon
Fax
Mobilnr
E-post
Hemsida
Noteringar (memo/pm)

Alla fält är text utom noteringar som är ett memo/pm.

Det är ju alltid en början...

\[r\]
Steg 2: Gör en sida som matar in uppgifterna.
Steg 3: Gör en sida som visar uppgifterna.

Det var väl pedagogiskt? ;)

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

## #8 — Binaryian, 2001-08-07T12:37Z

Ok, steg 1 slutfört.

Nästa! ;)

Tillägg:
Dema gärna lite kod hur det skall se ut.

Du är en pedagogisk ledstjärna i det mörka asp-träsket.

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

## #9 — Pace, 2001-08-07T12:54Z

Good! :) 

Skapa nu den sida där man matar in uppgifterna, jag tänker inte skriva koden, utan det får du göra själv så att du lär dig!

Skapa ett formulär där du skriver in de olika fälten (namn, adress osv).

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

## #10 — Binaryian, 2001-08-07T12:55Z

Gjort!

Hur postar jag nu data till databasen?

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

## #11 — Pace, 2001-08-07T13:01Z

Bra!

Du postar data genom att ange följande:

\<FORM ACTION="default.asp?action=add" METHOD="**post**"\>

Sedan när vi tar emot datan, gör vi det på samma sida - det blir lättare.

Så sidan ska se ut så här:

```
action = Request.Querystring("action")

' Vad ska vi göra?
Select Case action
Case "add"
Call addData()
Case Else
Call addForm()
End Select

Sub addForm()
' här skriver du de input/text-fält som man skriver in uppgifterna med.
End Sub

Sub addData()
' här kommer vi sedan ta emot datan i lektion 3!!
End Sub
```

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

## #12 — Binaryian, 2001-08-07T13:10Z

Också det är fixat. :)

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

## #13 — Pace, 2001-08-07T13:14Z

Bra!

Skapa nu ett SQL sats som uppdaterar i databasen. Syntaxen för denna är "Insert" och används på följande vis:

```
INSERT INTO tabell (namn, adress, email) VALUES ('göran', 'storgatan 1', 'goran@storgatan.se')
```

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

## #14 — Binaryian, 2001-08-07T13:32Z

Också detta moment är nu slutfört.

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

## #15 — Pace, 2001-08-07T13:33Z

Få se på din hela kod nu då.

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

## #16 — Binaryian, 2001-08-07T13:36Z

```
<%
action = Request.Querystring("action")
' Vad ska vi göra?
Select Case action
Case "add"
Call addData()
Case Else
Call addForm()
End Select

Sub addForm()
<form name="contact" method="post" action="default.asp?action=add">
  <p> F&ouml;retag 
    <input type="text" name="foretag">
  </p>
  <p> Namn 
    <input type="text" name="namn">
  </p>
  <p> Efternamn 
    <input type="text" name="efternamn">
  </p>
  <p> Adress 
    <input type="text" name="adress">
  </p>
  <p> Telefon 
    <input type="text" name="telefon">
  </p>
  <p> Fax 
    <input type="text" name="fax">
  </p>
  <p> Mobilnummer 
    <input type="text" name="mobilnummer">
  </p>
  <p> E-post 
    <input type="text" name="epost">
  </p>
  <p> Hemsida 
    <input type="text" name="hemsida">
  </p>
  <p> Noteringar 
    <textarea name="noteringar" cols="40" rows="5"></textarea>
    <input type="submit" name="Submit" value="Submit">
  </p>
</form>

End Sub

Sub addData()

strCompany = Request.Form("foretag")
strFirstName = Request.Form("namn")
strLastName = Request.Form("efternamn")
strAdress = Request.Form("adress")
strPhone = Request.Form("telefon")
strFax = Request.Form("fax")
strMobile = Request.Form("mobilnummer")
strEmail = Request.Form("epost")
strHomepage = Request.Form("hemsida")
strNotes = Request.Form("noteringar")

INSERT INTO tabell (foretag, namn, efternamn, adress, telefon, fax, mobilnummer, epost, hemsida, noteringar) VALUES ('"& strCompany &"', '"& strName &"', '"& strLastName &"', '"& strAdress &"', '"& strPhone &"', '"& strFax &"', '"& strMobile &"', '"& strEmail &"', '"& strHomepage &"', '"& strNotes &"')
End Sub

%>
```

Tilläggas kan att jag med ovanstående kod får internt Serverfel. Hohoho...
Men det bör du råda bot på nu då.

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

## #17 — Pace, 2001-08-07T13:42Z

Prova nu då, det ändringarna jag gjort är fetmarkerade:

(apropå interna serverfelet så var det antagligen för att du glömt \<% och %\> vid forumlärfältet) ;)

```
<%
action = Request.Querystring("action")

' Vad ska vi göra?
Select Case action
Case "add"
Call addData()
Case Else
Call addForm()
End Select

Sub addForm()
[b]%>[/b]
<form name="contact" method="post" action="default.asp?action=add">
<p> Företag 
<input type="text" name="foretag">
</p>
<p> Namn 
<input type="text" name="namn">
</p>
<p> Efternamn 
<input type="text" name="efternamn">
</p>
<p> Adress 
<input type="text" name="adress">
</p>
<p> Telefon 
<input type="text" name="telefon">
</p>
<p> Fax 
<input type="text" name="fax">
</p>
<p> Mobilnummer 
<input type="text" name="mobilnummer">
</p>
<p> E-post 
<input type="text" name="epost">
</p>
<p> Hemsida 
<input type="text" name="hemsida">
</p>
<p> Noteringar 
<textarea name="noteringar" cols="40" rows="5"></textarea>
<input type="submit" name="Submit" value="Submit">
</p>
</form>

[b]<%[/b]
End Sub

Sub addData()

strCompany = Request.Form("foretag")
strFirstName = Request.Form("namn")
strLastName = Request.Form("efternamn")
strAdress = Request.Form("adress")
strPhone = Request.Form("telefon")
strFax = Request.Form("fax")
strMobile = Request.Form("mobilnummer")
strEmail = Request.Form("epost")
strHomepage = Request.Form("hemsida")
strNotes = Request.Form("noteringar")

[b]
SQL = "INSERT INTO kontakter (foretag, namn, efternamn, adress, telefon, fax, mobilnummer, epost, hemsida, noteringar) VALUES ('"& strCompany &"', '"& strName &"', '"& strLastName &"', '"& strAdress &"', '"& strPhone &"', '"& strFax &"', '"& strMobile &"', '"& strEmail &"', '"& strHomepage &"', '"& strNotes &"')"

Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("DIN DATABAS!")
Connection.Execute (SQL)
[/b]
End Sub

%>
```

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

## #18 — Pace, 2001-08-07T13:50Z

OBS! Glöm givetvis inte att stänga
"Connection" igen efter Connection.Execute (SQL):

Connection.Close
Set Connection = nothing

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

## #19 — Binaryian, 2001-08-07T13:57Z

Ok, nu matas uppgifterna in i databasen. Wohaa! :)

Det här börjar bli riktigt kul!

Moment 2 Steg 1
Hur läser jag ur databasen?

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

## #20 — Pace, 2001-08-07T14:01Z

Va? Ska du läsa också? ;)

Då går vi så här, lägg till följande subb som heter förslagsvis "viewData()":

```
Sub viewData()

' Hämta data.
SQL = "SELECT * FROM kontakter"
Set Connection = Server.CreateObject("ADODB.Connection")
Set rs = server.CreateObject("ADODB.RecordSet")
Connection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("DIN DATABAS!")
Connection.Execute (SQL)

' Kontrollera om den är tom.
If rs.Eof Or rs.Bof Then
errMsg = "Det finns inget i databasen pundhuvud!"
End If

' Skriv ut eventuella fel.
If errMsg <> "" Then
Response.Write errMsg
Else

' Skriv ut innehållet ur db:n.
Do Until rs.Eof
Response.Write "Företag: " & rs("foretag")
Response.Write "Namn: " & rs("namn")
Response.Write "Efternamn: " & rs("efternamn")
Response.Write "Adress: " & rs("adress")
Response.Write "Telefon: " & rs("telefon")
Response.Write "Fax: " & rs("fax")
Response.Write "Mobilnummer: " & rs("mobilnummer")
Response.Write "E-post: " & rs("epost")
Response.Write "Hemsida: " & rs("hemsida")
Response.Write "Noteringar: " & rs("noteringar")
Loop

End If

' Stäng och rensa upp.
rs.Close
Connection.Close
Set rs = nothing
Set Connection = nothing
	
End Sub
```

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/10979-kontaktbok-i-asp  
Nästa sida: https://www.webforum.nu/amne/asp/10979-kontaktbok-i-asp/page2.md