overføre fra forrige side

<%
' 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("../../db/hs.mdb")
Conn.Open DSN


'Response.write Request.Querystring("id")
'Henter holdliste
  Set rs = Server.CreateObject("ADODB.Recordset")
  strSQL = "Select * From hold Where klub = " & Request.Querystring("klub")
   
  rs.Open strsql, conn, 1, 3
   
    if rs.EOF then
Response.write "Der er ikke oprettet nogen hold!"
else
Do While Not rs.EOF

strNavn = rs("hold")
' lav et link til klubside.asp med Id-værdien i URL
strLink = "<a href='default.asp?m=klubforside&id=" & rs("id") & "'>" & strNavn & "</a>"
Response.Write "<div class=nyhedliste>"& strLink &  "</div>"

RS.movenext
Loop


End if
Conn.Close
Set Conn = Nothing
Response.write "</p>"
%>

Hvis "klub" er den primære database så kan du med fordel lægge endnu et felt ind i de andre tabeller, der angiver klubId og hente ud fra det.

F.eks.:

Fra forsiden henter du dine klubber, og hvis du vil vise nærmere info om klubben, kan du lave et link der hedder noget i stil med:

default.asp?showInfo=3

3 repræsenterer ID på klubben.

Når du så vil hente info fra de andre tabeller bruger du feltet klubId som skal være typen int.

sql = "SELECT * FROM hold WHERE klubId = "&klubId&""

Husk at checke tallet for int og beskytte for SQL injections hvis du vælger at benytte querystring metoden.

Session metoden kan også sagtens bruges.

apocs> kunne jeg ikke blot overføre 'klub' i querystring, sammen med 'id'?

Default.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("../../db/hs.mdb")
Conn.Open DSN

'Henter klubliste
    Set rs = Server.CreateObject("ADODB.Recordset")
    strSQL = "select * from klub"
    rs.Open strsql, conn, 1, 3
   
    if rs.EOF then
Response.write "Der er ikke oprettet nogen klub!"
else
Do While Not rs.EOF

strNavn = rs("klub")
  ' lav et link til klubside.asp med Id-værdien i URL
' strLink = "<a href='default.asp?m=klubforside&id=" & rs("id") & "'>" & strNavn & "</a>"
  strLink = "<a href='default.asp?m=klubforside&id=" & rs("id") & "&klub=" & strNavn & "'>" & strNavn & "</a>"
Response.Write "<div class=nyhedliste>"& strLink &  "</div>"

RS.movenext
Loop


End if
Conn.Close
Set Conn = Nothing
Response.write "</p>"
%>

********************
klubside:

<%
' 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("../../db/hs.mdb")
Conn.Open DSN


'Response.write Request.Querystring("id")
'Henter holdliste
  Set rs = Server.CreateObject("ADODB.Recordset")
  strSQL = "Select * From hold Where klub = " & Request.Querystring("klub")
 
   
  rs.Open strsql, conn, 1, 3
   
    if rs.EOF then
Response.write "Der er ikke oprettet nogen hold!"
else
Do While Not rs.EOF

strNavn = rs("hold")
' lav et link til klubside.asp med Id-værdien i URL
strLink = "<a href='default.asp?m=klubforside&id=" & rs("id") & "'>" & strNavn & "</a>"
Response.Write "<div class=nyhedliste>"& strLink &  "</div>"

RS.movenext
Loop


End if
Conn.Close
Set Conn = Nothing
Response.write "</p>"
%>

**********************

Får dog denne fejl!

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'klub = Støvring IF'.

/bvtest/bv-main/klubforside.asp, line 15

Og linie 15 er:

rs.Open strsql, conn, 1, 3

Fik det løst på den måde.

Skriv et svar

Svar :)