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

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?

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. :/

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

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.

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

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

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