Udtræk fra Database
Hej.Jeg har lavet nogle udtræk fra en database.
Nu vil jeg gerne have lavet så jeg kan udtrække data afhængig af hvilket link man trykker på.
Vil f.eks. gerne have skrevet alle medlemmer fra en bestemt
by ud hvis man trykke på Århus. Dvs. jeg gerne vil lave et
kald med en querystring så kun dem hvor by = århus bliver skrevet ud.
Håber der er nogen der kan hjælpe mig?
Min kode ser sådan her ud:
<html>
<head>
<meta http-equiv="Content-Language" content="da">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Udskriv database</title>
</head>
<body bgcolor="#DEE321">
<title>Hente Data Fra Databasen</title>
<head><meta http-equiv="refresh" content="25;
<div align="center">
<center>
<p></p>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=c:\database.mdb"
Conn.Open DSN
SQL = "SELECT * FROM TLFLISTE"
Set rs = Conn.execute(SQL)
dim f
Response.write "<table border=""5"" cellpadding=""0,2"" cellspacing=""0"">"
'Udskriv kolonnenavne
if not rs.EOF then
Response.Write "<tr>"
for each f in rs.fields
select case f.name
case "Mobilnr"
response.write "<td align=center width=50>" & "<strong><font size='1,2'>" & f.name & "</font></strong></td>"
case "Navn"
response.write "<td align=center width=50>" & "<strong><font size='1,2'>" & f.name & "</font></strong></td>"
case "Dato"
response.write "<td align=center width=50>" & "<strong><font size='1,2'>" & f.name & "</font></strong></td>"
case "Start"
response.write "<td align=center width=50>" & "<strong><font size='1,2'>" & f.name & "</font></strong></td>"
case "Slut"
response.write "<td align=center width=50>" & "<strong><font size='1,2'>" & f.name & "</font></strong></td>"
case "By"
response.write "<td align=center width=50>" & "<strong><font size='1,2'>" & f.name & "</font></strong></td>"
end select
next
Response.write "</tr>"
end if
' 'Udskriv indhold af kolonne
IF rs.EOF Then
Response.write "Der er ingen data"
Else
Response.write "<tr><td><font size=""1,5px"">"
Response.write rs.getstring (, -1, "</td><strong><td><font size=""1,5px"">", "</td></tr><tr><td><font size=""1,5px"">", " ")
response.write "</table>"
End IF
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%></font>
