Udtræk fra flere tabeller i Acc. Db
En lille hurtig nattræning for de lærte:<%@ Language=VBScript %>
<%
Response.Buffer = True
'Åbner forbindelse til databsen
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../sp.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from Udlejning order by Id"
rs.Open sql, conn, 1, 3
%>
<html>
<head>
<STYLE>BODY {
SCROLLBAR-FACE-COLOR:#000000; SCROLLBAR-HIGHLIGHT-COLOR:#000000; SCROLLBAR-SHADOW-COLOR: #FFFFFF; SCROLLBAR-3DLIGHT-COLOR:#FFFFFF ; SCROLLBAR-ARROW-COLOR: #FFFFFF; SCROLLBAR-TRACK-COLOR:#000000; SCROLLBAR-DARKSHADOW-COLOR:#000000}
</STYLE>
<script language="javascript">
<!--
var prev;
prev = '0';
function ShowHide(id) {
if ( prev == '0' ) {
prev = id;
}
if (( prev != '0' ) && ( prev != id )) {
document.all(prev).style.display = 'none';
document.images['i'+prev].src = 'plus.gif';
prev = id;
}
if ( document.all(id).style.display == 'none' ) {
document.all(id).style.display = '';
document.images['i'+id].src = 'minus.gif';
} else {
document.all(id).style.display = 'none';
document.images['i'+id].src = 'plus.gif';
}
}
-->
</script>
</head>
<body>
<div align="left">
<table style="color: #FFFFFF; font-size:7pt; font-family:Verdana,Tahoma,sans-serif" style="border-collapse:collapse" border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="420" id="AutoNumber2" height="200">
<tr>
<td><b>Under konstruktion</b><br>
Der arbejdes på sagen.<br><br>
<%
DO WHILE NOT RS.EOF
%>
<div align="left">
<table style="color: #FFFFFF; font-size:7pt; font-family:Verdana,Tahoma,sans-serif" border="0" cellspacing="0" style="border-collapse: collapse" width="400" cellpadding="0" height="20">
<tr>
<td onclick="java script:ShowHide('<%=rs("Id")%>');" style="cursor: hand; width="100%" height="15"><img src="plus.gif" border="0" align="bottom" id="i<%=rs("Id")%>" width="9" height="9"> <%=rs("Udlejning")%></td>
</tr>
<tr>
<td width="100%" height="12">
<table style="color: #FFFFFF; font-size:7pt; font-family:Verdana,Tahoma,sans-serif" style="display: none;" id="<%=rs("Id")%>" border="0" cellspacing="0" style="border-collapse: collapse" width="400" cellpadding="0" height="5">
<tr>
<td width="100%"><%=rs("Udlejning")%> og mere <%=rs("Udlejning")%></td>
</tr>
</table>
</td>
</tr>
</table>
</div>
<br>
<%
rs.MoveNext
LOOP
rs.MoveFirst
nummer = 0
%>
</tr>
</table>
</div>
<%
rs.Close
Set rs = Nothing
Set Con = Nothing
%>
Hvordan gør jeg så den inde mit i tabellen henter noget fra en anden tabel i min db ?
Altså der hvor der står: <%=rs("Udlejning")%> og mere <%=rs("Udlejning")%> skal der i stedet være udtræk fra en tabel der hedder "Lys"
//Binauhus
