---
title: "Vad skall det stå för att fungera?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/6076-vad-skall-det-stå-för-att-fungera"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Percy"
published: "2000-07-19T23:56:00.000Z"
updated: "2000-07-20T01:13:00.000Z"
replies: 3
views: 252
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/6076-vad-skall-det-stå-för-att-fungera"
---

# Vad skall det stå för att fungera?

## #1 — Percy, 2000-07-19T23:56Z

Hej!
har suttit och laborerat med denna kod men får det ej att fungera, jag kommer till rad 63 där det är syntax fel sedan tar det stopp! vad skall det stå för att fungera? tack på förhand!

kod till showlinks1.asp:

\<html\>
\<!-- #include file="adovbs.inc" --\>
\<head\>
\</head\>
\<body bgcolor="FFFFFF" text="#000000" link="#6699ff" vlink="#BD3C03"\>
\<link rel="stylesheet" href="style1.css"\>
\<%
'sökväg till databas
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=d:\\clients\\tantogarden.com\\wwwroot\\pierre\\links\\links.mdb"

If Request.Form("links") = "sverige"\_
OR Request.Form("links") = "norge"\_
OR Request.Form("links") = "finland"\_
OR Request.Form("links") = "danmark"\_
OR Request.Form("links") = "storbritannien"\_
OR Request.Form("links") = "frankrike"\_
OR Request.Form("links") = "holland"\_
OR Request.Form("links") = "italien"\_
OR Request.Form("links") = "lichtenstein"\_
OR Request.Form("links") = "schweiz"\_
OR Request.Form("links") = "slovakien"\_
OR Request.Form("links") = "tjeckien"\_
OR Request.Form("links") = "tyskland"\_
OR Request.Form("links") = "usa"\_
OR Request.Form("links") = "österrike"\_
OR Request.Form("links") = "övrig"\_

Then 

Set RecSet = Server.CreateObject("ADODB.Recordset")

If Request.Form("links") = "sverige" Then visa = "SELECT \* FROM links WHERE land = 'sverige' ORDER BY namn"
ElseIf Request.Form("links") = "norge" Then visa = "SELECT \* FROM links WHERE land = 'norge' ORDER BY namn"
ElseIf Request.Form("links") = "finland" Then visa = "SELECT \* FROM links WHERE land = 'finland' ORDER BY namn"
ElseIf Request.Form("links") = "danmark" Then visa = "SELECT \* FROM links WHERE land = 'danmark' ORDER BY namn"
ElseIf Request.Form("links") = "storbritannien" Then visa = "SELECT \* FROM links WHERE land = 'storbritannien' ORDER BY namn"
ElseIf Request.Form("links") = "frankrike" Then visa = "SELECT \* FROM links WHERE land = 'frankrike' ORDER BY namn"
ElseIf Request.Form("links") = "holland" Then visa = "SELECT \* FROM links WHERE land = 'holland' ORDER BY namn"
ElseIf Request.Form("links") = "italien" Then visa = "SELECT \* FROM links WHERE land = 'italien' ORDER BY namn"
ElseIf Request.Form("links") = "lichtenstein" Then visa = "SELECT \* FROM links WHERE land = 'lichtenstein' ORDER BY namn"
ElseIf Request.Form("links") = "schweiz" Then visa = "SELECT \* FROM links WHERE land = 'schweiz' ORDER BY namn"
ElseIf Request.Form("links") = "slovakien" Then visa = "SELECT \* FROM links WHERE land = 'slovakien' ORDER BY namn"
ElseIf Request.Form("links") = "tjeckien" Then visa = "SELECT \* FROM links WHERE land = 'tjeckien' ORDER BY namn"
ElseIf Request.Form("links") = "tyskland" Then visa = "SELECT \* FROM links WHERE land = 'tyskland' ORDER BY namn"
ElseIf Request.Form("links") = "usa" Then visa = "SELECT \* FROM links WHERE land = 'usa' ORDER BY namn"
ElseIf Request.Form("links") = "österrike" Then visa = "SELECT \* FROM links WHERE land = 'österrike' ORDER BY namn"
ElseIf Request.Form("links") = "övrig" Then visa = "SELECT \* FROM links WHERE land = 'övrig' ORDER BY namn"
End If

rs.Open visa, Connect, adOpenStatic, adLockOptimistic %\>

\<table align="center" border="0"\>
\<tr\>\<td\>Namn\</td\>\<td\>Land\</td\>\</tr\>
\<% Do Until rs.EOF %\>\<tr\>\<td\>\<a href="\<%=rs("url")%\>" target="\_blank"\>\<%=rs("namn")%\>\</a\>\</td\>\<td\>\<%=rs("land")%\>\</td\>\</tr\>
\<%
rs.MoveNext
Loop
rs.Close
%\>
\</table\>

\<% ElseIf Request.Form("links") = "" Then
Set rs = Server.CreateObject("ADODB.Recordset")
visa = "SELECT \* FROM links ORDER BY land"

rs.Open visa, Connect, adOpenStatic, adLockOptimistic %\>
\<table align="center" border="0"\>
\<tr\>\<td\>Namn\</td\>\<td\>Land\</td\>\</tr\>
\<% Do Until rs.EOF %\>\<tr\>\<td\>\<a href="\<%=rs("url")%\>" target="\_blank"\>\<%=rs("namn")%\>\</a\>\</td\>\<td\>\<%=rs("land")%\>\</td\>\</tr\>
\<%
rs.MoveNext
Loop
rs.Close
Connect.Close
End If %\>
\</table\>
\</body\>
\</html\>

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

## #2 — PatrikB, 2000-07-20T00:48Z

hello ....
... en liten sak .... bara ....

jag skulle råda dig till att ej posta sökvägen till din databas då den ligger så till att vem som helst kan tanka ned den då. Värt att tänka på om man kanske har något viktigt ligger i den ...

tyvärr var det ej svar på din fråga ... hinner ej titta just nu =(
\<redigerat\>

Vilken är rad 63?

\</redigerat\>
cya,
PatrikB

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

## #3 — Zaphod, 2000-07-20T00:49Z

Jag orkar inte räkna (sent nu ;)). Sätt ett märke på rad 63 och skriv ut vad du får för felmeddelande.

Och för guds skull, använd select chase till select queryn. Istället för alla dessa if else.

Och har jag fel ifall jag säger att den där databasen antagligen ligger på din egen hårddisk?

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

## #4 — Danmagnus, 2000-07-20T01:13Z

Det här var den mest jävulska kod jag sett. det får väl vara nån måtta. sorry ta inte illa upp men gör såhär med requesten och SELECTen istället.:
SELECT \* FROM links WHERE land = '" & request.form("links") & "'"

sen kan du ta bort 9/10 av koden.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/6076-vad-skall-det-stå-för-att-fungera