Kodar för fulla muggar men inget funkar

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

HallgrenMedlem sedan dec. 19991 606 inlägg

Trådstart18 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>

@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

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

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

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

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

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

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

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?

Det är frågan det!