---
title: "Kodar för fulla muggar men inget funkar"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/11171-kodar-för-fulla-muggar-men-inget-funkar"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Hallgren"
published: "2001-08-18T10:53:00.000Z"
updated: "2001-08-18T13:09:00.000Z"
replies: 8
views: 296
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/11171-kodar-för-fulla-muggar-men-inget-funkar"
---

# Kodar för fulla muggar men inget funkar

## #1 — Hallgren, 2001-08-18T10:53Z

Kan inte de här fungera?

```
<%Session.LCID = 1053%>
<html>
<head>
<title></title>

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=d:\inetpub\wwwroot\rhodos\info.mdb" 

set rs = Connect.execute ("SELECT * FROM veckans")
Do until rs.EOF

<% dag = weekdayname(weekday(date)) %> 
<%
Select Case dag
  Case "Sunday"
   	dag = "response.write "<b>" & "Söndag: " & "<br>" & "Ingen veckans"
  Case "Monday"
    	dag = "response.write "<b>" & "Måndag: " & "<br" & rs("man1")"
  Case "Tuesday"
    	dag = "response.write "<b>" & "Tisdag: " & "<br" & rs("tis1")"
  Case "Wednesday"
    	dag = "response.write "<b>" & "Onsdag: " & "<br" & rs("ons1")"
  Case "Tuesday"
    	dag = "response.write "<b>" & "Torsdag: " & "<br" & rs("tor1")"
  Case "Friday"
    	dag = "response.write "<b>" & "Fredag: " & "<br" & rs("fre1")"
  Case "Saturday"
    	dag = "response.write "<b>" & "Lördag: " & "<br>" & "Ingen veckans"
End Select
%>

rs.MoveNext
loop 

rs.close
Connect.close
set Connect=nothing
%>
</head>
<body>

<%=dag%>

</body>
</html>
```

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

## #2 — @nders, 2001-08-18T11:07Z

nej, det där kan inte funka.

```
dag = "<b>" & "Lördag: " & "<br>" & "Ingen veckans"
...
...
response.write dag
```

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

## #3 — Hallgren, 2001-08-18T11:25Z

Uh?

```
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=d:\inetpub\wwwroot\rhodos\info.mdb" 

set rs = Connect.execute ("SELECT * FROM veckans")
Do until rs.EOF

<%dag = weekdayname(weekday(date))%>

<%
Select Case dag
  Case "Sunday"
   	dag =  "<b>" & "Söndag: " & "<br>" & "Ingen veckans"
  Case "Monday"
    	dag =  "<b>" & "Måndag: " & "<br" & rs("man1")"
  Case "Tuesday"
    	dag =  "<b>" & "Tisdag: " & "<br" & rs("tis1")"
  Case "Wednesday"
    	dag =  "<b>" & "Onsdag: " & "<br" & rs("ons1")"
  Case "Tuesday"
    	dag = "<b>" & "Torsdag: " & "<br" & rs("tor1")"
  Case "Friday"
    	dag = "<b>" & "Fredag: " & "<br" & rs("fre1")"
  Case "Saturday"
    	dag = "<b>" & "Lördag: " & "<br>" & "Ingen veckans"
End Select
%>

rs.MoveNext
loop 

response.write dag

rs.close
Connect.close
set Connect=nothing
%>
```

Expected statement
/rhodos/test.asp, line 15
\<%dag = weekdayname(weekday(date))

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

## #4 — @nders, 2001-08-18T11:36Z

du har ju massor med asp-avgränsare som är öppnade men inte avslutade.

sen återanvänder du variabeln dag utan att använda originaldefinitionen av den.

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

## #5 — @nders, 2001-08-18T11:43Z

alltså:

```
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=d:\inetpub\wwwroot\rhodos\info.mdb" 
set rs = Connect.execute ("SELECT * FROM veckans")
Do until rs.EOF

[b]dag = weekdayname(weekday(date))[/b]

Select Case dag
Case "Sunday"
dag = "<b>" & "Söndag: " & "<br>" & "Ingen veckans"
Case "Monday"
dag = "<b>" & "Måndag: " & "<br" & rs("man1")"
Case "Tuesday"
dag = "<b>" & "Tisdag: " & "<br" & rs("tis1")"
Case "Wednesday"
dag = "<b>" & "Onsdag: " & "<br" & rs("ons1")"
Case "Tuesday"
dag = "<b>" & "Torsdag: " & "<br" & rs("tor1")"
Case "Friday"
dag = "<b>" & "Fredag: " & "<br" & rs("fre1")"
Case "Saturday"
dag = "<b>" & "Lördag: " & "<br>" & "Ingen veckans"
End Select

rs.MoveNext
loop 

response.write dag

rs.close
Connect.close
set Connect=nothing
%>
```

den fetmarkerade raden gör du ingenting med, eftersom du direkt ger variabeln ett nytt värde.

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

## #6 — Hallgren, 2001-08-18T11:52Z

```
dag = weekdayname(weekday(date))
```

Krävs väl för att allt ska fungera eller?

```
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=d:\inetpub\wwwroot\rhodos\info.mdb" 
set rs = Connect.execute ("SELECT * FROM veckans")
Do until rs.EOF

dag = weekdayname(weekday(date))

Select Case dag
Case "Sunday"
meny = "<b>" & "Söndag: " & "<br>" & "Ingen veckans"
Case "Monday"
meny = "<b>" & "Måndag: " & "<br" & rs("man1")"
Case "Tuesday"
meny = "<b>" & "Tisdag: " & "<br" & rs("tis1")"
Case "Wednesday"
meny = "<b>" & "Onsdag: " & "<br" & rs("ons1")"
Case "Tuesday"
meny = "<b>" & "Torsdag: " & "<br" & rs("tor1")"
Case "Friday"
meny = "<b>" & "Fredag: " & "<br" & rs("fre1")"
Case "Saturday"
meny = "<b>" & "Lördag: " & "<br>" & "Ingen veckans"
End Select

rs.MoveNext
loop 

response.write meny
rs.close
Connect.close
set Connect=nothing
%>
```

Unterminated string constant
/rhodos/test.asp, line 18, column 47
meny = "\<b\>" & "Måndag: " & "\<br" & rs("man1")"

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

## #7 — @nders, 2001-08-18T11:54Z

ta bort sista citationstecknet på varje rad där du ger meny sitt värde.

> Krävs väl för att allt ska fungera eller?

ehh, det var jag som var dum ihuvet. glöm det. :r :)

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

## #8 — Hallgren, 2001-08-18T12:14Z

```
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=d:\inetpub\wwwroot\rhodos\info.mdb" 
set rs = Connect.execute ("SELECT * FROM veckans")
Do until rs.EOF

dag = weekdayname(weekday(date))

Select Case dag
Case "Sunday"
meny = "<b>" & "Söndag: " & "<br>" & "Ingen veckans"
Case "Monday"
meny = "<b>" & "Måndag: " & "<br" & rs("man1")
Case "Tuesday"
meny = "<b>" & "Tisdag: " & "<br" & rs("tis1")
Case "Wednesday"
meny = "<b>" & "Onsdag: " & "<br" & rs("ons1")
Case "Tuesday"
meny = "<b>" & "Torsdag: " & "<br" & rs("tor1")
Case "Friday"
meny = "<b>" & "Fredag: " & "<br" & rs("fre1")
Case "Saturday"
meny = "<b>" & "Lördag: " & "<br>" & "Ingen veckan"
End Select

rs.MoveNext
loop 

response.write meny

rs.close
Connect.close
set Connect=nothing
%>
```

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

## #9 — Hallgren, 2001-08-18T13:09Z

Efter ha tänkt till lite på mitt problem så valde jag att gå en annan väg. Det blev ett If-elseif-else skript som funkar jättebra. :)

Som vanligt kämpade du tappert @nders. Det kan inte vara enkelt att försöka förklara saker för mig eller hur?

> har du någon som helst aning om vad du håller på med egentligen? :p

Det är frågan det! ;) :e :e :e

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/11171-kodar-för-fulla-muggar-men-inget-funkar