8 svar · 201 visningar · startad av tapani
Sidan är helt blank utan felmeddelanden
Filen apr.asp
<%
Dim Counter
Set objConn = CreateObject("ADODB.Connection")
objConn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\InetPub\drivingevent\bokn\test.mdb")
SQL = ""
Set rsKal = CreateObject("ADODB.Recordset")
Set rsKal.ActiveConnection = objConn
rsKal.Open "SELECT * FROM Kalender "
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF">
<table width="160" border="1" cellspacing="0" cellpadding="0" align="center">
<tr align="center">
<td width="26"><font face="Arial, Helvetica, sans-serif" size="2">Dag</font></td>
<td width="98"><font face="Arial, Helvetica, sans-serif" size="2">April</font></td>
</tr>
</table>
<table width="160" border="1" cellpadding="0" cellspacing="0" align="center">
<tr>
<td width="26" align="center"> </td>
<td width="32" align="center"><font face="Arial, Helvetica, sans-serif" size="1">Fm</font></td>
<td width="32" align="center"><font face="Arial, Helvetica, sans-serif" size="1">Em</font></td>
<td width="32" align="center"><font face="Arial, Helvetica, sans-serif" size="1">Kv</font></td>
</tr>
<% Do While Not rsKal.EOF
counter = counter + 1
%>
<tr>
<td width="26" align="center"><font face="Arial, Helvetica, sans-serif" size="2"><%=Counter%></font></td>
<td width="32" align="center" bgcolor="<%=rsKal("Fm")%>"><font face="Arial, Helvetica, sans-serif" size="1"><A href="visa_apr.asp?dat=<%= rsKal("Datum") %>">X</a></font></td>
<td width="32" align="center" bgcolor="<%=rsKal("Em")%>"><font face="Arial, Helvetica, sans-serif" size="1"></font></td>
<td width="32" align="center" bgcolor="<%=rsKal("Kv")%>"><font face="Arial, Helvetica, sans-serif" size="1"></font></td>
</tr>
<%
rsKal.MoveNext
Loop
rsKal.close
set rsKal = Nothing
objConn.close
set objConn = Nothing
%>
</table>
Och visa_apr.asp ser ut så här
<table>
<%
Set objConn = CreateObject("ADODB.Connection")
objConn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\InetPub\drivingevent\bokn\test.mdb")
SQL = ""
Set rsKal = CreateObject("ADODB.Recordset")
Set rsKal.ActiveConnection = objConn
rsKal.Open "SELECT * FROM Kund WHERE Datum = 'dat'"
Do While Not rsKal.EOF
%>
<tr>
<td width="80">
<font face="verdana, arial" size="-2" color="#004C30"><b>Datum:</b></font>
</td>
<td width="200"><font face="verdana, arial" size="-2"><%=rsKal("Datum")%></Font>
</td>
<tr>
<td width="80">
<font face="verdana, arial" size="-2" color="#004C30"><b>Namn:</b></font>
</td>
<td width="200"><font face="verdana, arial" size="-2"><%=rsKal("EfterNamn")%></font>
</td>
<tr>
<td width="80">
<font face="verdana, arial" size="-2" color="#004C30"><b>Pass:</b></font>
</td>
<td width="200"><font face="verdana, arial" size="-2"><%=rsKal("Pass")%></font>
</td>
<tr>
<td width="80">
<font face="verdana, arial" size="-2" color="#004C30"><b>Steg:</b></font>
</td>
<td width="200"><font face="verdana, arial" size="-2"><%=rsKal("Steg")%></font>
</td>
</tr>
<%
rsKal.MoveNext
Loop
rsKal.close
set rsKal = Nothing
objConn.close
set objConn = Nothing
%>
</table>
Vad jag vill med koden är att när jag i första sidan klickar på ett datum i kalendern så skall nästa sida plocka fram all info som finns under det datumet..
Har prövat med QueryString också men det blir bara fel..
Opss. Kanske skulle säga att jag använder mig av 2 tabeller här..
Tabellen Kalender i apr.asp
och Kund i visa_apr.asp
[Redigerat av tapani den 28 dec 2000]
[Redigerat av tapani den 28 dec 2000]
Gör det enklare för dig:
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open
("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\InetPub\drivingevent\bokn\test.mdb")
SQL = "SELECT * FROM Kalender"
Set Rst = objConn.Execute(SQL)
---
Ett tillägg, när du använder .Open så måste du även skicka med Connection, och hur den skall öppnas - exempelvis
Rst.Open "Kalender", objConn, 1, 1
------------------
Pelle Johanssson (www.pellesoft.nu)
Har testat koden med andra WHERE-satser och då funkar aspsidorna.
Men just raderna:
I filen apr.asp
<td width="32" align="center" bgcolor="<%=rsKal("Fm")%>"><font face="Arial, Helvetica, sans-serif" size="1"><A href="visa_apr.asp?dat=<%= rsKal("Datum") %>">X</a></font></td>
och i filen visa_apr.asp
rsKal.Open "SELECT * FROM Kund WHERE Datum = 'dat'"
verkar inte fungera som de skall..
Tror att det är här felet ligger.
Jag vet att det fungerar med en liknande
WHERE-sats om jag endast vill ha fram
en rad i databasen typ ett ID.
Men här vill jag få fram alla rader som innehåller värdet (datum) som jag klickar på i apr.asp.
Någon?
Har provat med:
rsKal.Open "SELECT * FROM Kund WHERE Datum = & Request.QueryString("dat")"
men då får jag fram ett typblandningsfel eller något sådant.
[Redigerat av tapani den 29 dec 2000]
rsKal.Open "SELECT * FROM Kund WHERE [Datum] = #" & Request.QueryString("dat") & "#"
------------------
<A HREF="http://cartman.nu" TARGET=_blank>
if i'm not back in five minutes, just wait longer.</A>
nope det funkade inte.
Microsoft JET Database Engine error '80040e07'
Syntax error in date in query expression 'Datum = #20000401#'.
/bokn/visa_apr.asp, line 12
[Redigerat av tapani den 30 dec 2000]
Löste problemet så här:
rsKal.Open "SELECT * FROM Kund WHERE Datum='"& Request.QueryString("dat") &"' "
du har alltså datum i en kolumn av datatypen text?
får man fråga varför?
------------------
<A HREF="http://cartman.nu" TARGET=_blank>
if i'm not back in five minutes, just wait longer.</A>
Är fortfarande nybörjare @nders :)
Kör alltid med textformat i kolumnerna
förutom på räknaren.
Har lite tidspress på mig och vill endast att funktionerna skall fungera.
Har suttit och knåpat de här korta raderna nu i snart 20 timmar.. men jag
antar att det är det enda sättet att förstå och lära sig på. Om jag nu gör det någon gång.
Det kommer att vara en ganska avancerad historia när och om det blir klart. (ja för mig i alla fall) *hehe*
Visar gärna ett prov på det hela när det är klart..
alla är vi nybörjare någon gång.
fortsätt kämpa, så finns vi här och hjälper dig om det skulle behövas! :)
------------------
<A HREF="http://cartman.nu" TARGET=_blank>
if i'm not back in five minutes, just wait longer.</A>