Database resultat fra link.
Jeg roder med at kunne fremkalde et data baseresultat fra et link med det virker ikke.Jeg har lavet en liste hvor jeg bruger resultatet fra listen for at fremkalde et resultat i en dropdown meneu men det dur ikke. Jeg får en fejlmelding på SQL koden, fra ret oplysninger siden. Selve koden fungere hvis jeg laver valget fra en anden drop down menu (select).
Er der noget galt med koden.
Koden for listen ser således ud.
<html>
<head>
<title>Liste</title>
</head>
<body>
<%
' ADODB connection objektet
Set Conn = Server.CreateObject("ADODB.Connection")
' Husk at angive den rigtige sti til din database
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../fpdb/Miljodatabase.mdb")
' Åben databaseforbindelsen
Conn.Open DSN
' SQL forespørgsel
strSQL = "Select * from qryMedarbejder"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
%>
<table width="100%">
<tr>
<td> </td>
<td><b><font size="2">Navn</font></b></td>
<td><b><font size="2">Initialer</font></b></td>
<td><b><font size="2">AfdelingNavn</font></b></td>
<td><b><font size="2">Lokation</font></b></td>
<td><b><font size="2">MedlemSiO</font></b></td>
<td><b><font size="2">MedlemMG</font></b></td>
<td><b><font size="2">MedlemSiU</font></b></td>
<td><b><font size="2">MedlemAMSG</font></b></td>
<td><b><font size="2">EjAnsat</font></b></td>
</tr>
<%
' Gennemløb Recordset (rs) med en løkke
Do While Not rs.EOF
Navn = rs("Navn")
Intitaler =rs("Initialer")
AfdelingNavn =rs("AfdelingNavn")
AfdelingRef =rs("AfdelingREF")
Lokation = rs("Lokation")
MedlemSiO = rs("MedlemSiO")
MedlemMG = rs("MedlemMG")
MedlemSiU = rs("MedlemSiU")
MedlemAMSG = rs("MedlemAMSG")
EjANsat = rs ("Ejansat")
%>
<tr>
<td><p align="center">
<a href="Retoplysninger.asp?AfdNr=<%=AfdelingRef%>">Ret</a>
<td><b><font size="2"><%=Navn%></font></b></td>
<td><b><font size="2"><%=Initialer%></font></b></td>
<td><b><font size="2"><%=AfdelingNavn%></font></b></td>
<td><b><font size="2"><%=Lokation%></font></b></td>
<td><b><font size="2"><%=MedlemSiO%></font></b></td>
<td><b><font size="2"><%=MedlemMG%></font></b></td>
<td><b><font size="2"><%=MedlemSiU%></font></b></td>
<td><b><font size="2"><%=MedlemAMSG%></font></b></td>
<td><b><font size="2"><%=EjAnsat%></font></b></td>
</tr>
<%
' Gå til næste Record i rs
rs.MoveNext
' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
</table>
</body>
</html>
Koden for dropdown menuen ser således ud.
<html>
<head>
<title>Ret oplysninger</title>
</head>
<body>
<%
' ADODB connection objektet
Set Conn = Server.CreateObject("ADODB.Connection")
' Husk at angive den rigtige sti til din database
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../fpdb/Miljodatabase.mdb")
' Åben databaseforbindelsen
Conn.Open DSN
' SQL forespørgsel
strSQL = "Select * from tblAfdeling Where AfdNr = "&request.form("AfdNr")
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
%>
<form action="default.asp" method="post">
<select name="AfdNr">
<%
' Gennemløb Recordset (rs) med en løkke
Do While Not rs.EOF
AfdelingNavn = rs("AfdelingNavn")
AfdNr =rs("AfdNr")
%>
<option value="<%=AfdNr%>"><%=AfdelingNavn%></option>
<%
' Gå til næste Record i rs
rs.MoveNext
' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
</select>
<input type="submit" value="Vælg">
</form>
</body>
</html>
