Index til index til info

(Person.asp og Liste.asp fra http://www.html.dk/tutorials/asp/lektion19.aspskal blandes)

Index.asp skal læse fra databasen (tabel = type/type)
valget = REF=? (ID,TAL eller Navn)

index2.asp skal bruge Ref=? og åbne alle type'r
strSQL = "Select * From (REF=?) order by navn
samtidig skal de lave links eller REF=?

Index3.asp skal åbne info fra index2.asp


(INDEX1.ASP)

<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("data.mdb")
Conn.Open DSN
strSQL = "Select * From type"
Set rs = Conn.Execute(strSQL)
Do
  strNavn = rs("type")
  strLink = "<a href='index2.asp?id=" & rs("Id") & "'>" & strNavn & "</a>"
  Response.Write "<li>" & strLink & "</li>"
  rs.MoveNext
Loop While Not rs.EOF
Conn.Close
Set Conn = Nothing
%>

INDEX2.asp
???????


(INDEX3.asp)
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("data.mdb")
Conn.Open DSN
strSQL = "Select * From type2 Where ? = " & Request.Querystring("id")
Set rs = Conn.Execute(strSQL)
Response.Write "<dt>Navn:</dt><dd>" & rs("navn") & "</dd>"

Conn.Close
Set Conn = Nothing
%>