Hente data fra en Access-tabel
HejJeg er noget grøn vedr Asp.
Sidder med en opgave, hvor der skal hentes data fra en
tabel udfra et udvælgelseskriterie ...her indgår
checkbokse i tabellen.
Disse felter er oprettet ens...med samme kriterier i
Access.
Når jeg konstruerer en Select-Case er der en af kolonnerne, der giver et problem.
Jeg har brugt copy/paste vedr Select Case...måske lidt klodset løsning, men var den mest overskuelige pt.
Vedhæfter lige koderne med håb om lidt assistance :
<%Option Explicit%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE></TITLE>
<style type="text/css">
td {
font-size: 11px;
color: #000000;
font-family: arial
}
a:link {
color: blue;
}
a:hover {
font-family: arial;
color: orange;
}
a:visited {
color: #FF0010;
}
</style>
</HEAD>
<BODY>
<%
Dim DSN, Conn, strSQL, rs
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/olc01a86/db6.mdb/")
Conn.Open DSN
'SQL forespørgsel
Select case request.form("valg")
case "Mandag"
strSQL = "Select * from medlemslisteweb Where ME = False Order By Fornavn, Efternavn"
Set rs = Conn.Execute(strSQL)
Response.Write ("<table>")
Response.Write ("<tr><td width=65>" & "<u>Fornavn" & "</td><td width=75>" & "<u>Efternavn" & "</td><td width=65>" & "<u>Tlf-privat" & "</td><td width=65 align=middle>" & "<u>Tlf-arbejde</u>" & "</td><td>" & "<u>E-Mail</u>" & "</td><td>" & "<u>ME</u>" & "</td><td>" & "<u>RI</u>" & "</td><td>" & "<u>TI</u>" & "</td><td>" & "<u>TI2</u>" & "</td><td>" & "<u>ON</u>" & "</td><td>" & "<u>OU</u>" & "</td><td>" & "<u>TO</u>" & "</td></font></tr>")
Do
Response.Write ("<tr><td width=65>" & rs("Fornavn") & "</td><td width=75>" & rs("Efternavn") & "</td><td width=65>" & rs("Tlfprivat") & "</td><td width=65>" & rs("Tlfarbejde") & "</td><td>" & "<a href='mailto:" & rs("Email") & "'" & ">" & rs("Email") & "</a>" & "</td><td>" & rs("ME") & "</td><td>" & rs("RI") & "</td><td>" & rs("TI") & "</td><td>" & rs("TI2") & "</td><td>" & rs("ON") & "</td><td>" & rs("OU") & "</td><td>" & rs("TO") & "</td></tr>")
rs.MoveNext
Loop While Not rs.EOF
Response.Write ("</table>")
case "Risten"
strSQL = "Select * from medlemslisteweb Where RI = Not True Order By Fornavn , Efternavn "
Set rs = Conn.Execute(strSQL)
Response.Write ("<table>")
Response.Write ("<tr><td width=65>" & "<u>Fornavn" & "</td><td width=75>" & "<u>Efternavn" & "</td><td width=65>" & "<u>Tlf-privat" & "</td><td width=65 align=middle>" & "<u>Tlf-arbejde</u>" & "</td><td>" & "<u>E-Mail</u>" & "</td><td>" & "<u>ME</u>" & "</td><td>" & "<u>RI</u>" & "</td><td>" & "<u>TI</u>" & "</td><td>" & "<u>TI2</u>" & "</td><td>" & "<u>ON</u>" & "</td><td>" & "<u>TO</u>" & "</td></font></tr>")
Do
Response.Write ("<tr><td width=65>" & rs("Fornavn") & "</td><td width=75>" & rs("Efternavn") & "</td><td width=65>" & rs("Tlfprivat") & "</td><td width=65>" & rs("Tlfarbejde") & "</td><td>" & "<a href='mailto:" & rs("Email") & "'" & ">" & rs("Email") & "</a>" & "</td><td>" & rs("ME") & "</td><td>" & rs("RI") & "</td><td>" & rs("TI") & "</td><td>" & rs("TI2") & "</td><td>" & rs("ON") & "</td><td>" & rs("TO") & "</td></tr>")
rs.MoveNext
Loop While Not rs.EOF
Response.Write ("</table>")
case "Tirsdag"
strSQL = "Select * from medlemslisteweb Where TI2 = Not True Order By Fornavn , Efternavn "
Set rs = Conn.Execute(strSQL)
Response.Write ("<table>")
Response.Write ("<tr><td width=65>" & "<u>Fornavn" & "</td><td width=75>" & "<u>Efternavn" & "</td><td width=65>" & "<u>Tlf-privat" & "</td><td width=65 align=middle>" & "<u>Tlf-arbejde</u>" & "</td><td>" & "<u>E-Mail</u>" & "</td><td>" & "<u>ME</u>" & "</td><td>" & "<u>RI</u>" & "</td><td>" & "<u>TI</u>" & "</td><td>" & "<u>TI2</u>" & "</td><td>" & "<u>ON</u>" & "</td><td>" & "<u>TO</u>" & "</td></font></tr>")
Do
Response.Write ("<tr><td width=65>" & rs("Fornavn") & "</td><td width=75>" & rs("Efternavn") & "</td><td width=65>" & rs("Tlfprivat") & "</td><td width=65>" & rs("Tlfarbejde") & "</td><td>" & "<a href='mailto:" & rs("Email") & "'" & ">" & rs("Email") & "</a>" & "</td><td>" & rs("ME") & "</td><td>" & rs("RI") & "</td><td>" & rs("TI") & "</td><td>" & rs("TI2") & "</td><td>" & rs("ON") & "</td><td>" & rs("TO") & "</td></tr>")
rs.MoveNext
Loop While Not rs.EOF
Response.Write ("</table>")
case "Onsdag"
strSQL = "Select * from medlemslisteweb Where ON = Not True Order By Fornavn, Efternavn "
Set rs = Conn.Execute(strSQL)
Response.Write ("<table>")
Response.Write ("<tr><td width=65>" & "<u>Fornavn" & "</td><td width=75>" & "<u>Efternavn" & "</td><td width=65>" & "<u>Tlf-privat" & "</td><td width=65 align=middle>" & "<u>Tlf-arbejde</u>" & "</td><td>" & "<u>E-Mail</u>" & "</td><td>" & "<u>ME</u>" & "</td><td>" & "<u>RI</u>" & "</td><td>" & "<u>TI</u>" & "</td><td>" & "<u>TI2</u>" & "</td><td>" & "<u>ON</u>" & "</td><td>" & "<u>TO</u>" & "</td></font></tr>")
Do
Response.Write ("<tr><td width=65>" & rs("Fornavn") & "</td><td width=75>" & rs("Efternavn") & "</td><td width=65>" & rs("Tlfprivat") & "</td><td width=65>" & rs("Tlfarbejde") & "</td><td>" & "<a href='mailto:" & rs("Email") & "'" & ">" & rs("Email") & "</a>" & "</td><td>" & rs("ME") & "</td><td>" & rs("RI") & "</td><td>" & rs("TI") & "</td><td>" & rs("TI2") & "</td><td>" & rs("ON") & "</td><td>" & rs("TO") & "</td></tr>")
rs.MoveNext
Loop While Not rs.EOF
Response.Write ("</table>")
case "Torsdag"
strSQL = "Select * from medlemslisteweb Where TO = Not True Order By Fornavn , Efternavn "
Set rs = Conn.Execute(strSQL)
Response.Write ("<table>")
Response.Write ("<tr><td width=65>" & "<u>Fornavn" & "</td><td width=75>" & "<u>Efternavn" & "</td><td width=65>" & "<u>Tlf-privat" & "</td><td width=65 align=middle>" & "<u>Tlf-arbejde</u>" & "</td><td>" & "<u>E-Mail</u>" & "</td><td>" & "<u>ME</u>" & "</td><td>" & "<u>RI</u>" & "</td><td>" & "<u>TI</u>" & "</td><td>" & "<u>TI2</u>" & "</td><td>" & "<u>ON</u>" & "</td><td>" & "<u>TO</u>" & "</td></font></tr>")
Do
Response.Write ("<tr><td width=65>" & rs("Fornavn") & "</td><td width=75>" & rs("Efternavn") & "</td><td width=65>" & rs("Tlfprivat") & "</td><td width=65>" & rs("Tlfarbejde") & "</td><td>" & "<a href='mailto:" & rs("Email") & "'" & ">" & rs("Email") & "</a>" & "</td><td>" & rs("ME") & "</td><td>" & rs("RI") & "</td><td>" & rs("TI") & "</td><td>" & rs("TI2") & "</td><td>" & rs("ON") & "</td><td>" & rs("TO") & "</td></tr>")
rs.MoveNext
Loop While Not rs.EOF
Response.Write ("</table>")
case "Alle"
strSQL = "Select * from medlemslisteweb Order By Fornavn , Efternavn "
Set rs = Conn.Execute(strSQL)
Response.Write ("<table>")
Response.Write ("<tr><td width=65>" & "<u>Fornavn" & "</td><td width=75>" & "<u>Efternavn" & "</td><td width=65>" & "<u>Tlf-privat" & "</td><td width=65 align=middle>" & "<u>Tlf-arbejde</u>" & "</td><td>" & "<u>E-Mail</u>" & "</td><td>" & "<u>ME</u>" & "</td><td>" & "<u>RI</u>" & "</td><td>" & "<u>TI</u>" & "</td><td>" & "<u>TI2</u>" & "</td><td>" & "<u>ON</u>" & "</td><td>" & "<u>TO</u>" & "</td></font></tr>")
Do
Response.Write ("<tr><td width=65>" & rs("Fornavn") & "</td><td width=75>" & rs("Efternavn") & "</td><td width=65>" & rs("Tlfprivat") & "</td><td width=65>" & rs("Tlfarbejde") & "</td><td>" & "<a href='mailto:" & rs("Email") & "'" & ">" & rs("Email") & "</a>" & "</td><td>" & rs("ME") & "</td><td>" & rs("RI") & "</td><td>" & rs("TI") & "</td><td>" & rs("TI2") & "</td><td>" & rs("ON") & "</td><td>" & rs("TO") & "</td></tr>")
rs.MoveNext
Loop While Not rs.EOF
Response.Write ("</table>")
end select
Conn.Close
Set Conn = Nothing
%>
</BODY>
</HTML>
