Kontaktbok i ASP

vad vill du ha med då?

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

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

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?

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

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?

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.

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).

Gjort!

Hur postar jag nu data till databasen?

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

Också det är fixat.

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')

Också detta moment är nu slutfört.

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

<%
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å.

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

%>

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

Connection.Close
Set Connection = nothing

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?

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