2 kald da 2 forskellige tabeller i samme database.
Jeg skal trække ud fra en database med 2 tabeller.Nedenstående har jeg mit forslag, men det spiller ikke helt:
<%
Mode = Request.Querystring("Mode")
%>
<%
If Mode = "add" Then
%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("bus.mdb")
Conn.Open DSN
navn = Replace( Request.Form("navn"), "'", "''" )
Dato = date()
turid = Replace( Request.Form("turid"), "'", "''" )
paastigning = Replace( Request.Form("paastigning"), "'", "''" )
mobil = Replace( Request.Form("mobil"), "'", "''" )
If navn = "" OR mobil = "" Then
Response.Write " Du mangler enten at indtaste navn, eller dit telefonnummer."
Else
sql = "Insert into Tilmelding(navn, Dato, paastigning, mobil) values('" & navn & "', '" & Dato & "', '" & paastigning & "', '" & mobil & "')"
Conn.execute(sql)
Response.redirect "index.asp"
End If
Else
%>
</font>
'HER TRÆKKER JEG FRA TABEL NR 2 DER HEDDER TUR
<%
SQL = "Select TOP 1 * from tur order by id DESC"
Set rs = Conn.Execute(SQL)
Do While not rs.EOF%>
' HERUNDER SKAL JEG INDSÆTTE I TABEL NR 1 DER HEDDER TILMELDING
<form method="POST" action="tildmeld.asp&Mode=add">
<font face="Arial" size="2"><b>Tilmelding til <%=rs("tur_navn")%> turen</b></font><b><font face="Arial" size="2">, kørsel med Bajstrup rejser.</font></b><font face="Tahoma" size="2"><br>
Indtast venligst oplysningerne nedenunder.<br>
</font><table border="0" width="100%" height="84">
<%
rs.movenext
loop
Conn.Close
Set Conn = Nothing
%>
<tr>
<td width="17%" height="17"><font face="Tahoma" size="2">Navn:</font></td>
<td width="33%" height="17"><font face="Tahoma">
<input type="text" name="navn" size="35" style="border-style: solid; border-width: 1"></font></td>
<td width="48%" height="17"></td>
</tr>
<tr>
<td width="17%" height="19"><font face="Tahoma" size="2">Påstigning:</font></td>
<td width="33%" height="19"><font face="Tahoma">
<select size="1" name="paastigning">
<option selected>Vojens</option>
<option>Agerskov</option>
<option>Rødekro</option>
</select></font></td>
<td width="48%" height="19"> </td>
</tr>
<tr>
<td width="17%" height="22"><font face="Tahoma" size="2">Telefonnummer:</font></td>
<td width="33%" height="22"><font face="Tahoma">
<input type="text" name="mobil" size="12" style="border-style: solid; border-width: 1"></font></td>
<td width="48%" height="22"><font face="Arial" size="2">(vises ikke på
hjemmesiden)</font></td>
<input type="hidden" name="Nyhed" value="Tilmeldt via hjemmesiden"></font></td>
<td width="63%" height="22"></td>
</tr>
</table>
<p>
<font face="Tahoma">
<input type="submit" value="Tilmeld mig." name="B1" style="border-style: solid; border-width: 1"></font></p>
</form>
<p> </p>
<p> </p>
<%
End If
%>
<p> </p>
</body>
</html>
På denne adressse kan dt ses hvordan det ser ud:
http://www.partytube.dk/hockey/tilmeld.asp
der er fejl på linie 41, og den ser sådan her ud: Set rs = Conn.Execute(SQL)
Nogen gode råd ?
