---
title: "Varför funkar inte det här?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/7543-varför-funkar-inte-det-här"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "tapani"
published: "2000-12-28T18:40:00.000Z"
updated: "2000-12-31T11:14:00.000Z"
replies: 8
views: 229
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/7543-varför-funkar-inte-det-här"
---

# Varför funkar inte det här?

## #1 — tapani, 2000-12-28T18:40Z

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\]

Permalänk: https://www.webforum.nu/p/7543

## #2 — PelleJ, 2000-12-28T22:09Z

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

Permalänk: https://www.webforum.nu/p/253121

## #3 — tapani, 2000-12-29T15:36Z

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\]

Permalänk: https://www.webforum.nu/p/253122

## #4 — @nders, 2000-12-29T15:49Z

```
rsKal.Open "SELECT * FROM Kund WHERE [Datum] = #" & Request.QueryString("dat") & "#"
```

Permalänk: https://www.webforum.nu/p/253123

## #5 — tapani, 2000-12-30T13:49Z

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\]

Permalänk: https://www.webforum.nu/p/253124

## #6 — tapani, 2000-12-30T15:19Z

Löste problemet så här:

```
rsKal.Open "SELECT * FROM Kund WHERE Datum='"& Request.QueryString("dat") &"' "
```

Permalänk: https://www.webforum.nu/p/253125

## #7 — @nders, 2000-12-30T16:38Z

du har alltså datum i en kolumn av datatypen text?

får man fråga varför?

Permalänk: https://www.webforum.nu/p/253126

## #8 — tapani, 2000-12-31T10:59Z

Ä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..

Permalänk: https://www.webforum.nu/p/253127

## #9 — @nders, 2000-12-31T11:14Z

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! :)

Permalänk: https://www.webforum.nu/p/253128

---

Tråden på webben: https://www.webforum.nu/amne/asp/7543-varför-funkar-inte-det-här
