---
title: "Databas problem"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/14299-databas-problem"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Kompis"
published: "2002-02-08T21:22:00.000Z"
updated: "2002-02-08T22:37:00.000Z"
replies: 5
views: 239
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/14299-databas-problem"
---

# Databas problem

## #1 — Kompis, 2002-02-08T21:22Z

Hej, jag har ett problem, jag tänkte lägga upp några bokrecensioner i en databas. Först ska det komma om en lista med länkar som plockas från databasen (titeln). Och när man klickar på länken ska recensionen för den boken komma fram. jag har skrivit följande:
\<% If Request.QueryString("alt") = "view" Then %\>
\<CENTER\>Litteratur\</CENTER\>
	
	\<% Visa = "SELECT\*FROM bok ORDER BY ID DESC"
	RecSet.Open Visa,Connect,adOpenStatic,adLockOptimistic %\>
	
	\<% Z=1 %\>
	\<%Do  While Z\<100
		If RecSet.EOF Then
			Exit DO
		End If%\>
		
 		\<A HREF="bookview.asp?Visa=\<% =RecSet("Titel") %\>"\>\<% =RecSet("Titel") %\>\</A\>\<BR\>
		\<% RecSet.MoveNext
		Z=Z+1
		Loop %\>

\<%ElseIf Request.QueryString("Visa") = "=RecSet('Titel')" Then
	\<% Visa = "SELECT\*FROM bok WHERE Titel='=RecSet("&Titel&")' ORDER BY ID DESC"
	RecSet.Open Visa,Connect,adOpenStatic,adLockOptimistic %\>
\<% Do Until RecSet.EOF %\> 
	Titel: \<%=RecSet("Titel")%\>\<BR\>
	Recension: \<%=RecSet("Rec")%\>\<BR\>

		
	\<% RecSet.Close
End If %\>

Och jag får, följande felmeddelande:

Microsoft VBScript compilation error '800a0400' 

Expected statement 

/starwars/asp/bookview.asp, line 38 

\<% Visa = "SELECT\*FROM bok WHERE Titel='=RecSet("&Titel&")' ORDER BY ID DESC"

Hur ska man skriva för att detta ska fungera? Som ny säkert se är jag nybörjare vad det gäller asp. Tack på förhand.
/Daniel

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

## #2 — Rinaldo, 2002-02-08T21:26Z

Du kan väl inte skriva =RecSet när du redan är inom \<% %\>

Du måste då skriva &"RecSet("ditt_fält")"&

btw: välkommen till wf

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

## #3 — Tobbster, 2002-02-08T21:29Z

Båda dom här raderna ser lite lustiga ut !!

```
<%ElseIf Request.QueryString("Visa") = "=RecSet('Titel')" Then
<% Visa = "SELECT*FROM bok WHERE Titel='=RecSet("&Titel&")' ORDER BY ID DESC"
```

Dom borde ser ut så här 

```
<%ElseIf Request.QueryString("Visa") =RecSet('Titel') Then
<% Visa = "SELECT*FROM bok WHERE Titel= '" & RecSet("&Titel&") & " ' ORDER BY ID DESC"
```

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

## #4 — LarsG, 2002-02-08T21:32Z

Det är enklare att se om du inte har så många \<% %\>. Nu hade det blivit ett för mycket.

Jag ändrade också på din kod för att visa en recension då den inte skulle fungera som den var.

```
<%
If Request.QueryString("alt") = "view" Then 
%>
<CENTER>Litteratur</CENTER>

<% 
Visa = "SELECT*FROM bok ORDER BY ID DESC"
RecSet.Open Visa,Connect,adOpenStatic,adLockOptimistic

Z=1
Do While Z<100
If RecSet.EOF Then
Exit DO
End If
%>

<A HREF="bookview.asp?Visa=<% =recset("ID") %>"><% =RecSet("Titel") %></A><BR>
<% 
RecSet.MoveNext
Z=Z+1
Loop
recset.close
elseif len(request.querystring("visa")) > 0 then
Visa = "SELECT*FROM bok WHERE ID = "& request.querystring("visa") 
RecSet.Open Visa,Connect,adOpenStatic,adLockOptimistic
Do Until RecSet.EOF 
%> 
Titel: <%=RecSet("Titel")%><BR>
Recension: <%=RecSet("Rec")%><BR>
recset.movenext
loop
recset.close
End If

%>
```

red: Det är bättre att använda ID i querystring

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

## #5 — Rinaldo, 2002-02-08T21:40Z

LarsG: Har du inte glömt något här ;)

```
<A HREF="bookview.asp?Visa=<% =recset("ID") %>"><% =RecSet("Titel") %></A><BR>
<% 
RecSet.MoveNext
Z=Z+1
Loop
recset.close
elseif len(request.querystring("visa")) > 0 then
Visa = "SELECT*FROM bok WHERE ID = "& request.querystring("visa") 
RecSet.Open Visa,Connect,adOpenStatic,adLockOptimistic
Do Until RecSet.EOF 
%> 
Titel: <%=RecSet("Titel")%><BR>
[b]Recension: <%=RecSet("Rec")%><BR>
recset.movenext[/b]
loop
recset.close
End If
```

```
<A HREF="bookview.asp?Visa=<% =recset("ID") %>"><% =RecSet("Titel") %></A><BR>
<% 
RecSet.MoveNext
Z=Z+1
Loop
recset.close
elseif len(request.querystring("visa")) > 0 then
Visa = "SELECT*FROM bok WHERE ID = "& request.querystring("visa") 
RecSet.Open Visa,Connect,adOpenStatic,adLockOptimistic
Do Until RecSet.EOF 
%> 
Titel: <%=RecSet("Titel")%><BR>
Recension: <%=RecSet("Rec")%><BR>
[b]<%[/b]recset.movenext
loop
recset.close
End If
```

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

## #6 — Kompis, 2002-02-08T22:37Z

Tusen tack !!
Nu fungerar det perfekt, jag förstår att jag har mycket att lära inom asp.
/Daniel

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/14299-databas-problem