Jens GyldenkærneClausen wrote in
dk.edb.internet.webdesign.serverside.asp:
> Henrik Johasen skrev:
>
> > Hej Jens det er også det den skal, men kun de butikker for den
> > brance jeg klikker på
>
> Det var også det jeg lagde op til. Vis os noget kode og fortæl hvor
> det går galt.
>
> Jeg har vist hvordan du kan linke til de enkelte brancher. I den
> anden asp-fil læser du brancheværdien med følgende kode:
>
> Dim brancheID
> brancheID = Request.Querystring("brancheID")
>
> For at sikre dig mod fejl og misbrug bør du kontrollere at
> brancheID kun indeholder et nummer.
>
> If Not IsNumeric(brancheID) Then
> Response.Redirect "branche.asp"
> End If
>
> Nu kan du benytte brancheID til at vælge butikkerne fra den
> relevante branche:
>
> Dim sql
> sql = "SELECT butikID, navn FROM butikker " & _
> " WHERE brancheID = " & brancheID
>
> Sql-sætningen sendes til databasen som returnerer et postsæt du kan
> gennemløbe.
>
> NB: Gør dig selv og os andre en tjeneste og kig på min signatur.
> Det er lettere at følge en tråd når der svarene følger efter
> spørgsmålene - se gerne vejledningen på usenet.dk-siden.
> --
> Jens Gyldenkærne Clausen
> Svar venligst under det du citerer, og citer kun det der er
> nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
> hvordan på
http://usenet.dk/netikette/citatteknik.html
Hej Jens
Det virker ikke, det er nok af den grund at jeg ikke har vist hele
koden, jeg lister Brancher op i tre rækker. Så BrancheID forekommer
ikke kun en gang. Se koden her under.
<html>
<title>Liste over Brancher hos </title>
<script language="JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if
((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight;
onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW ||
innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
// -->
</script>
<head>
</head>
<body>
<%
' 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/Amager.mdb")
Conn.Open DSN
Dim brancheID
strSQL = "SELECT * FROM Branche order by Branche"
Set rs = Conn.Execute(strSQL)
Set rs = Conn.Execute(strSQL)
' Gennemløb Recordset (rs) med en løkke
Do
response.Write "<table width=600 border=0 bgcolor=#FFFFFF><tr>"
if rs.EOF then
response.write "<B><td width=200 align=left></td></B>"
Else
Response.Write"<td width=200 align=left ><B><a href=Butik.Asp>"&
rs("Branche") &"</a></B></td>"
' Gå til næste Record i rs
rs.MoveNext
End if
if rs.EOF then
response.write "<B><td width=200 align=left></td></B>"
Else
Response.Write"<td width=200 align=left ><B><a href=Butik.Asp>"&
rs("Branche") &"</a></B></td>"
' Gå til næste Record i rs
rs.MoveNext
End if
if rs.EOF then
response.write "<B><td width=200 align=left></td></B>"
Else
Response.Write"<td width=200 align=left ><B><a href=Butik.Asp>"&
rs("Branche") &"</a></B></td>"
'Gå til næste Record i rs
rs.MoveNext
End if
response.Write "</table></tr>"
' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF
' Luk databaseforbindelse
Conn.Close
%>
</body>
</html>
MHV Henrik Johansen
--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP ???
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials