---
title: "Nybörjare behöver ASP hjälp..."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/70823-nybörjare-behöver-asp-hjälp"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "MrBergman"
published: "2003-03-12T10:17:42.000Z"
updated: "2003-03-12T12:02:23.000Z"
replies: 7
views: 281
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/70823-nybörjare-behöver-asp-hjälp"
---

# Nybörjare behöver ASP hjälp...

## #1 — MrBergman, 2003-03-12T10:17Z

Jag är nybörjare i asp världen och har precis börjat nysta i idg's webstudio.

Har en MS access databas med följande kolumner:

ID
Namn
Efternamn
Adress
Extra

Jag väljer att visa alla personer i databasen, dessa sorteras efter efternamn men visar bara kolumnen Namn, Efternamn och Adress.

Men jag vill kunna klicka på tex personens efternamn så skall bara just denna personen visas + att kolumnen extra också skall visas.

Hur gör jag detta. Har försökt men kommer inte på ngt bra.

/MrBergman

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

## #2 — OveRRidE, 2003-03-12T10:26Z

Välkommen till webForum, MrBergman! :) Hoppas du kommer att trivas. 

Har du lite kod, så att det blir lättare att sätta det i sammanhang?

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

## #3 — m_soderlund, 2003-03-12T10:33Z

Du får helt enkelt skicka med en länk när du skriver ut info från databasen. Om användaren klickar på länken så skickas denne till en sida där mer info skrivs ut från databasen.

```
Set Rs = Cn.Execute("Select * From databas")
'sen skriver du ut Namn, Efternamn, Adress

'länken kan se ut så här
Response.Write "<a href=""visainfo.asp?id=" & Rs("Id") & """>Extra</a>"

Rs.Close : Set Rs = Nothing
Cn.Close : Set Cn = Nothing
```

Sidan som visar extra info, visainfo.asp, kan se ut så här:

```
Dim Idnr
Idnr = Replace(Request.Querystring("id"),"'","''")
Set Rs = Cn.Execute("Select * From databas Where Id=" & Idnr & """)
'skriv ut allt, stäng objekt
```

Ungefär så, hoppas du förstår.
Annars så är det inte en så god idé att ge sig in på databaser och sådant om man knappt kan ASP. :/

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

## #4 — MrBergman, 2003-03-12T11:02Z

Lite kod

Här är koden på sidan...

```

<%	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\div\idg\hamta\adressbok.mdb" 

	If Request.QueryString("ordning") = "Fornamn" OR Request.QueryString("ordning")= "Efternamn" OR Request.QueryString("ordning") = "Adress" Then

	Set RecSet = Server.CreateObject("ADODB.Recordset")

	If Request.QueryString("ordning") = "Fornamn" Then
   Addera = "SELECT * FROM adressbok ORDER BY Fornamn"

	ElseIf Request.QueryString("ordning") = "Efternamn" Then
   Addera = "SELECT * FROM adressbok ORDER BY Efternamn"

   ElseIf Request.QueryString("ordning") = "Adress" Then
   Addera = "SELECT * FROM adressbok ORDER BY Adress"

   End If

   RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic %>

	Följande adresser finns i adresseboken.<p>

	<ul>

<%	Do Until RecSet.EOF %>

	<li><% =RecSet("Fornamn") %>&nbsp;<b><% =RecSet("Efternamn") %></b><br>
       <% =RecSet("Adress") %> <hr noshade size="1">

<%	RecSet.MoveNext
	Loop
	RecSet.Close %>

<%	ElseIf Request.QueryString("ordning") = "Annasson" Then

	Set RecSet = Server.CreateObject("ADODB.Recordset")
   Addera = "SELECT * FROM adressbok WHERE Efternamn = 'Annasson' ORDER BY Fornamn"

   RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic %>

	Följande adresser finns i adresseboken.<p>

	<ul>

<%	Do Until RecSet.EOF %>

	<li><% =RecSet("Fornamn") %>&nbsp;<b><% =RecSet("Efternamn") %></b><br>
       <% =RecSet("Adress") %>&nbsp;<b><% =recSet("Extra") %></b><hr noshade size="1">

<%	RecSet.MoveNext
	Loop
	RecSet.Close

	Connect.Close

	End If %>
```

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

## #5 — m_soderlund, 2003-03-12T11:13Z

Usch, det där planeringsscriptet som Carl-Johan gjorde.. Han är betydligt bättre på att koda nu för tiden - mycket som står om databaser på IDG's Webstudio är dum kodning - kodningen kan förbättras. Men kolla lite på mitt inlägg ovan.

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

## #6 — mikul, 2003-03-12T11:44Z

```
<%
'Connect

If Not Request.Querystring("Show") <> "" Then

   sql = "select id, efternamn, namn, adress"&_ 
   "from TabellNamn order by efternamn asc"

   Set rs = Conect.Execute(sql)

   While not rs.eof
      Response.write("<a href=?Show="& rs("id")&">"&_
      rs("efternamn") &", "& rs("namn") &" - "& rs("adress") & "</a><br>")

      rs.movenext
   Wend

rs.Close 
Set rs = Nothing

Else

   sql = "select id, efternamn, namn, adress, extra"&_ 
   "from TabellNamn where id = "& Trim(Cint(Request.Querystring("Show")))

   Set rs = Conect.Execute(sql)
   
   Response.write("<a href=?Show="& rs("id")&">"&_
   rs("efternamn") &", "& rs("namn") &" - "& rs("adress") &_
   "</a><br>"& rs("extra"))

   rs.Close 
   Set rs = Nothing
End if

Connect.Close 
Set Connect = Nothing
%>
```

Det borde funka bra ;)

/ Mikul

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

## #7 — m_soderlund, 2003-03-12T11:49Z

Mikul; du har inte förstått att det är jobbigt att skriva så mycket kod!  :e  Jag orkade inte. Men jag orkade svara på dina javascript-frågor. :)

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

## #8 — mikul, 2003-03-12T12:02Z

Hehe, Vad gör man inte för att få bli populär i någons ögon för en liten stund ;) :e hehe

\+ att jag hade inte så mycket för mig medans jag väntade på svar på min javascriptfråga ;) :e

/ Mikul

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/70823-nybörjare-behöver-asp-hjälp