Kodar för fulla muggar men inget funkar

8 svar · 275 visningar · startad av Hallgren 18 aug. 2001

HallgrenMedlem sedan dec. 19991 606 inlägg

Frågan18 aug. 2001 10:53#1

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>

------------------
Forumledare, webForum

[Redigerat av Hallgren den 18 aug 2001]

@ndersMedlem sedan juni 200032 967 inlägg

18 aug. 2001 11:07#2

nej, det där kan inte funka.

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

------------------
can i borrow your goat?

[Redigerat av @nders den 18 aug 2001]

HallgrenMedlem sedan dec. 19991 606 inlägg

18 aug. 2001 11:25#3

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

------------------
Forumledare, webForum

[Redigerat av Hallgren den 18 aug 2001]

@ndersMedlem sedan juni 200032 967 inlägg

18 aug. 2001 11:36#4

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.

------------------
can i borrow your goat?

@ndersMedlem sedan juni 200032 967 inlägg

18 aug. 2001 11:43#5

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.

------------------
can i borrow your goat?

HallgrenMedlem sedan dec. 19991 606 inlägg

18 aug. 2001 11:52#6

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")"

------------------
Forumledare, webForum

[Redigerat av Hallgren den 18 aug 2001]

@ndersMedlem sedan juni 200032 967 inlägg

18 aug. 2001 11:54#7

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

------------------
can i borrow your goat?

HallgrenMedlem sedan dec. 19991 606 inlägg

18 aug. 2001 12:14#8

<%
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
%>

------------------
Forumledare, webForum

HallgrenMedlem sedan dec. 19991 606 inlägg

18 aug. 2001 13:09#9

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

------------------
Forumledare, webForum