Asp problemer
HejsaJeg har et lille problem med min kode ... den udskriver min response write 3 gange ... hvorfor ved jeg ikke. Derudover så hvis jeg bruger If start = tid Then mere end 3 gange i min kode så melder den følgende fejl:
'loop' without 'do'
Håber der er en der kan hjælpe!
Check lige dette link for at se hvordan det ser ud:
http://www.havneparken1vejle.dk/1/dato2.asp?Lokale=&Dag=28&Mdr=10&År=2002
Her er så hele min kode:
<%@ Language=VBScript LCID=1030 %>
<html>
<head>
<title>Dato</title>
</head>
<body link="#608EC6" vlink="#608EC6" alink="#608EC6">
<table border=0 cellspacing="0" cellpadding="0" width="643" height="295" style="border-collapse: collapse" bordercolor="#111111">
<b><font face="Verdana, Arial" size="3" color="#000000">
<%
if request.querystring("Dag") <> "" then
sQDag = request.querystring("Dag")
sQMdr = request.querystring("Mdr")
sQAar = request.querystring("År")
sQLokale = Session("Lokale")
arrMonth = Array("januar", "febuar", "marts", "april", "maj", "juni", "juli", "august", "september", "oktober", "november", "december")
arrDay = Array("Søndag", "Mandag", "Tirsdag", "Onsdag", "Torsdag", "Fredag", "Lørdag")
datoDag = sQDag
Mdr = sQMdr
datoStr = datoDag & "-" & Mdr & "-" & sQAar
datoStreng = arrDay(WeekDay(datoStr)-1) & " den " & datoDag & ". " & arrMonth(Mdr-1) & " " & Year(datoStr) & " - " & sQLokale
dato = sQdag & "-" & sQMdr & "-" & sQAar
Response.write datoStreng
else
sQDag = Day(Date)
sQMdr = Month(Date)
sQAar = Year(Date)
sQLokale = Session("Lokale")
arrMonth = Array("januar", "febuar", "marts", "april", "maj", "juni", "juli", "august", "september", "oktober", "november", "december")
arrDay = Array("Søndag", "Mandag", "Tirsdag", "Onsdag", "Torsdag", "Fredag", "Lørdag")
datoDag = sQDag
Mdr = sQMdr
datoStr = datoDag & "-" & Mdr & "-" & sQAar
datoStreng = arrDay(WeekDay(datoStr)-1) & " den " & datoDag & ". " & arrMonth(Mdr-1) & " " & Year(datoStr) & " - " & sQLokale
dato = sQdag & "-" & sQMdr & "-" & sQAar
Response.write datoStreng
end if %>
<%
Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("../../db/Booking.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)};Password=1234 ;" & DBPath
'Find Bookninger for valgte dato
SQL = "SELECT booking.start , booking.firma , booking.initialer , booking.mail , booking.kommentar FROM booking WHERE dato = #" & dato & "#"
set rs = con.execute (SQL)
DO UNTIL rs.EOF
%>
</b></font>
<tr>
<td width="26" height="16"></td>
<td width="10" height="16">
</td>
<td width="96" height="16">
<b><font face="Verdana, Arial" size="1" color="#000000">Tid</font></b></td>
<td width="515" height="16">
<b><font face="Verdana, Arial" size="1" color="#000000">Appointment</font></b></td>
</tr>
<tr>
<td width="26" height="1" bgcolor="#000000"></td>
<td width="10" height="1" bgcolor="#000000"></td>
<td width="96" height="1" bgcolor="#000000"></td>
<td width="515" height="1" bgcolor="#000000"></td>
</tr>
<tr>
<td colspan="3" bgcolor="#FFFFFF" width="20" height="3">
</td>
</tr>
<tr>
<td bgcolor="#608ec6" width="26" height="19">
</td>
<td width="10" nowrap bgcolor="#EFEEDE" height="19">
</td>
<td width="96" nowrap bgcolor="#EFEEDE" height="19">
<%
tid = "07:00:00"
tid = CDate(tid)
tid = FormatDateTime(tid, 4)
start = rs("start")
start = CDate(start)
start = FormatDateTime(start, 4)
If start = tid Then
response.write "7:00"
Else
response.write "<a href=""bestil.asp?Lokale=" & sQLokale & "&Dag=" & sQDag & "&Mdr=" & sQMdr & "&ÅR=" & sQAar & "&Tid=7:00"" style=""text-decoration: none"">7:00</a>"
End if
%>
</td>
<td width="515" nowrap bgcolor="#EFEEDE" height="19">
<%
If start = tid Then
response.write rs("kommentar")
Else
response.write " "
End if
%>
</td>
</tr>
<tr>
<td width="20" colspan="3" height="1"></td>
</tr>
<tr>
<td bgcolor="#608ec6" width="26" height="19">
</td>
<td width="10" nowrap bgcolor="#EFEEDE" height="19">
</td>
<td width="96" nowrap bgcolor="#EFEEDE" height="19">
<%
tid = "07:30:00"
tid = CDate(tid)
tid = FormatDateTime(tid, 4)
start = rs("start")
start = CDate(start)
start = FormatDateTime(start, 4)
If start = tid Then
response.write "7:30"
Else
response.write "<a href=""bestil.asp?Lokale=" & sQLokale & "&Dag=" & sQDag & "&Mdr=" & sQMdr & "&ÅR=" & sQAar & "&Tid=7:30"" style=""text-decoration: none"">7:30</a>"
End if
%></td>
<td width="515" nowrap bgcolor="#EFEEDE" height="19">
<%
If start = tid Then
response.write rs("kommentar")
Else
response.write " "
End if
%>
</td>
</tr>
<tr>
<td width="20" colspan="3" height="1"></td>
</tr>
<tr>
<td bgcolor="#608ec6" width="26" height="19">
</td>
<td width="10" nowrap bgcolor="#EFEEDE" height="19">
</td>
<td width="96" nowrap bgcolor="#EFEEDE" height="19">
<%
response.write "<a href=""bestil.asp?Lokale=" & sQLokale & "&Dag=" & sQDag & "&Mdr=" & sQMdr & "&ÅR=" & sQAar & "&Tid=8:00"" style=""text-decoration: none"">8:00</a>"
%></td>
<td width="515" nowrap bgcolor="#EFEEDE" height="19">
</td>
</tr>
<tr>
<td width="20" colspan="3" height="1"></td>
</tr>
<tr>
<td bgcolor="#608ec6" width="26" height="19">
</td>
<td width="10" nowrap bgcolor="#EFEEDE" height="19">
</td>
<td width="96" nowrap bgcolor="#EFEEDE" height="19">
<%
response.write "<a href=""bestil.asp?Lokale=" & sQLokale & "&Dag=" & sQDag & "&Mdr=" & sQMdr & "&ÅR=" & sQAar & "&Tid=8:30"" style=""text-decoration: none"">8:30</a>"
%></td>
<td width="515" nowrap bgcolor="#EFEEDE" height="19">
</td>
</tr>
<tr>
<td width="20" colspan="3" height="1"></td>
</tr>
<tr>
<td bgcolor="#608ec6" width="26" height="19">
</td>
<td width="10" nowrap bgcolor="#EFEEDE" height="19">
</td>
<td width="96" nowrap bgcolor="#EFEEDE" height="19">
<%
response.write "<a href=""bestil.asp?Lokale=" & sQLokale & "&Dag=" & sQDag & "&Mdr=" & sQMdr & "&ÅR=" & sQAar & "&Tid=9:00"" style=""text-decoration: none"">9:00</a>"
%></td>
<td width="515" nowrap bgcolor="#EFEEDE" height="19">
</td>
</tr>
<tr>
<td width="20" colspan="3" height="1"></td>
</tr>
<tr>
<td bgcolor="#608ec6" width="26" height="19">
</td>
<td width="10" nowrap bgcolor="#EFEEDE" height="19">
</td>
<td width="96" nowrap bgcolor="#EFEEDE" height="19">
<%
response.write "<a href=""bestil.asp?Lokale=" & sQLokale & "&Dag=" & sQDag & "&Mdr=" & sQMdr & "&ÅR=" & sQAar & "&Tid=9:30"" style=""text-decoration: none"">9:30</a>"
%></td>
<td width="515" nowrap bgcolor="#EFEEDE" height="19">
</td>
</tr>
<tr>
<td width="20" colspan="3" height="1"></td>
</tr>
<tr>
<td bgcolor="#608ec6" width="26" height="19">
</td>
<td width="10" nowrap bgcolor="#EFEEDE" height="19">
</td>
<td width="96" nowrap bgcolor="#EFEEDE" height="19">
<%
response.write "<a href=""bestil.asp?Lokale=" & sQLokale & "&Dag=" & sQDag & "&Mdr=" & sQMdr & "&ÅR=" & sQAar & "&Tid=10:00"" style=""text-decoration: none"">10:00</a>"
%></td>
<td width="515" nowrap bgcolor="#EFEEDE" height="19">
</td>
</tr>
<tr>
<td width="20" colspan="3" height="1"></td>
</tr>
<tr>
<td bgcolor="#608ec6" width="26" height="19">
</td>
<td width="10" nowrap bgcolor="#EFEEDE" height="19">
</td>
<td width="96" nowrap bgcolor="#EFEEDE" height="19">
<%
response.write "<a href=""bestil.asp?Lokale=" & sQLokale & "&Dag=" & sQDag & "&Mdr=" & sQMdr & "&ÅR=" & sQAar & "&Tid=10:30"" style=""text-decoration: none"">10:30</a>"
%></td>
<td width="515" nowrap bgcolor="#EFEEDE" height="19">
</td>
</tr>
<tr>
<td width="20" colspan="3" height="1"></td>
</tr>
<tr>
<td bgcolor="#608ec6" width="26" height="19">
</td>
<td width="10" nowrap bgcolor="#EFEEDE" height="19">
</td>
<td width="96" nowrap bgcolor="#EFEEDE" height="19">
<%
response.write "<a href=""bestil.asp?Lokale=" & sQLokale & "&Dag=" & sQDag & "&Mdr=" & sQMdr & "&ÅR=" & sQAar & "&Tid=11:00"" style=""text-decoration: none"">11:00</a>"
%></td>
<td width="515" nowrap bgcolor="#EFEEDE" height="19">
</td>
</tr>
<tr>
<td width="20" colspan="3" height="1"></td>
</tr>
<tr>
<td bgcolor="#608ec6" width="26" height="19">
</td>
<td width="10" nowrap bgcolor="#EFEEDE" height="19">
</td>
<td width="96" nowrap bgcolor="#EFEEDE" height="19">
<%
If WeekDay(datoStr) > 1 AND WeekDay(datoStr) < 7 Then
response.write "11:30"
Else
response.write "<a href=""bestil.asp?Lokale=" & sQLokale & "&Dag=" & sQDag & "&Mdr=" & sQMdr & "&ÅR=" & sQAar & "&Tid=11:30"" style=""text-decoration: none"">11:30</a>"
End If
%></td>
<td width="515" nowrap bgcolor="#EFEEDE" height="19">
<%
If WeekDay(datoStr) > 1 AND WeekDay(datoStr) < 7 Then
response.write "Kantinen serverer frokost"
end if
%>
</td>
</tr>
<tr>
<td width="20" colspan="3" height="1"></td>
</tr>
<tr>
<td bgcolor="#608ec6" width="26" height="19">
</td>
<td width="10" nowrap bgcolor="#EFEEDE" height="19">
</td>
<td width="96" nowrap bgcolor="#EFEEDE" height="19">
<%
If WeekDay(datoStr) > 1 AND WeekDay(datoStr) < 7 Then
response.write "12:00"
Else
response.write "<a href=""bestil.asp?Lokale=" & sQLokale & "&Dag=" & sQDag & "&Mdr=" & sQMdr & "&ÅR=" & sQAar & "&Tid=12:00"" style=""text-decoration: none"">12:00</a>"
End If
%></td>
<td width="515" nowrap bgcolor="#EFEEDE" height="19">
<%
If WeekDay(datoStr) > 1 AND WeekDay(datoStr) < 7 Then
response.write "Kantinen serverer frokost"
end if
%>
</td>
</tr>
<tr>
<td width="20" colspan="3" height="1"></td>
</tr>
<tr>
<td bgcolor="#608ec6" width="26" height="19">
</td>
<td width="10" nowrap bgcolor="#EFEEDE" height="19">
</td>
<td width="96" nowrap bgcolor="#EFEEDE" height="19">
<%
If WeekDay(datoStr) > 1 AND WeekDay(datoStr) < 7 Then
response.write "12:30"
Else
response.write "<a href=""bestil.asp?Lokale=" & sQLokale & "&Dag=" & sQDag & "&Mdr=" & sQMdr & "&ÅR=" & sQAar & "&Tid=12:30"" style=""text-decoration: none"">12:30</a>"
End If
%></td>
<td width="515" nowrap bgcolor="#EFEEDE" height="19">
<%
If WeekDay(datoStr) > 1 AND WeekDay(datoStr) < 7 Then
response.write "Kantinen serverer frokost"
end if
%>
</td>
</tr>
<tr>
<td width="20" colspan="3" height="1"></td>
</tr>
<tr>
<td bgcolor="#608ec6" width="26" height="19">
</td>
<td width="10" nowrap bgcolor="#EFEEDE" height="19">
</td>
<td width="96" nowrap bgcolor="#EFEEDE" height="19">
<%
response.write "<a href=""bestil.asp?Lokale=" & sQLokale & "&Dag=" & sQDag & "&Mdr=" & sQMdr & "&ÅR=" & sQAar & "&Tid=13:00"" style=""text-decoration: none"">13:00</a>"
%></td>
<td width="515" nowrap bgcolor="#EFEEDE" height="19">
</td>
</tr>
<tr>
<td width="20" colspan="3" height="1"></td>
</tr>
<tr>
<td bgcolor="#608ec6" width="26" height="19">
</td>
<td width="10" nowrap bgcolor="#EFEEDE" height="19">
</td>
<td width="96" nowrap bgcolor="#EFEEDE" height="19">
<%
response.write "<a href=""bestil.asp?Lokale=" & sQLokale & "&Dag=" & sQDag & "&Mdr=" & sQMdr & "&ÅR=" & sQAar & "&Tid=13:30"" style=""text-decoration: none"">13:30</a>"
%></td>
<td width="515" nowrap bgcolor="#EFEEDE" height="19">
</td>
</tr>
<tr>
<td width="20" colspan="3" height="1"></td>
</tr>
<tr>
<td bgcolor="#608ec6" width="26" height="19">
</td>
<td width="10" nowrap bgcolor="#EFEEDE" height="19">
</td>
<td width="96" nowrap bgcolor="#EFEEDE" height="19">
<%
response.write "<a href=""bestil.asp?Lokale=" & sQLokale & "&Dag=" & sQDag & "&Mdr=" & sQMdr & "&ÅR=" & sQAar & "&Tid=14:00"" style=""text-decoration: none"">14:00</a>"
%></td>
<td width="515" nowrap bgcolor="#EFEEDE" height="19">
</td>
</tr>
<tr>
<td width="20" colspan="3" height="1"></td>
</tr>
<tr>
<td bgcolor="#608ec6" width="26" height="19">
</td>
<td width="10" nowrap bgcolor="#EFEEDE" height="19">
</td>
<td width="96" nowrap bgcolor="#EFEEDE" height="19">
<%
response.write "<a href=""bestil.asp?Lokale=" & sQLokale & "&Dag=" & sQDag & "&Mdr=" & sQMdr & "&ÅR=" & sQAar & "&Tid=14:30"" style=""text-decoration: none"">14:30</a>"
%></td>
<td width="515" nowrap bgcolor="#EFEEDE" height="19">
</td>
</tr>
<tr>
<td width="20" colspan="3" height="1"></td>
</tr>
<tr>
<td bgcolor="#608ec6" width="26" height="19">
</td>
<td width="10" nowrap bgcolor="#EFEEDE" height="19">
</td>
<td width="96" nowrap bgcolor="#EFEEDE" height="19">
<%
response.write "<a href=""bestil.asp?Lokale=" & sQLokale & "&Dag=" & sQDag & "&Mdr=" & sQMdr & "&ÅR=" & sQAar & "&Tid=15:00"" style=""text-decoration: none"">15:00</a>"
%></td>
<td width="515" nowrap bgcolor="#EFEEDE" height="19">
</td>
</tr>
<tr>
<td width="20" colspan="3" height="1"></td>
</tr>
<tr>
<td bgcolor="#608ec6" width="26" height="19">
</td>
<td width="10" nowrap bgcolor="#EFEEDE" height="19">
</td>
<td width="96" nowrap bgcolor="#EFEEDE" height="19">
<%
response.write "<a href=""bestil.asp?Lokale=" & sQLokale & "&Dag=" & sQDag & "&Mdr=" & sQMdr & "&ÅR=" & sQAar & "&Tid=15:30"" style=""text-decoration: none"">15:30</a>"
%></td>
<td width="515" nowrap bgcolor="#EFEEDE" height="19">
</td>
</tr>
<tr>
<td width="20" colspan="3" height="1"></td>
</tr>
<tr>
<td bgcolor="#608ec6" width="26" height="19">
</td>
<td width="10" nowrap bgcolor="#EFEEDE" height="19">
</td>
<td width="96" nowrap bgcolor="#EFEEDE" height="19">
<%
response.write "<a href=""bestil.asp?Lokale=" & sQLokale & "&Dag=" & sQDag & "&Mdr=" & sQMdr & "&ÅR=" & sQAar & "&Tid=16:00"" style=""text-decoration: none"">16:00</a>"
%></td>
<td width="515" nowrap bgcolor="#EFEEDE" height="19">
</td>
</tr>
<tr>
<td width="20" colspan="3" height="1"></td>
</tr>
<tr>
<td bgcolor="#608ec6" width="26" height="19">
</td>
<td width="10" nowrap bgcolor="#EFEEDE" height="19">
</td>
<td width="96" nowrap bgcolor="#EFEEDE" height="19">
<%
response.write "<a href=""bestil.asp?Lokale=" & sQLokale & "&Dag=" & sQDag & "&Mdr=" & sQMdr & "&ÅR=" & sQAar & "&Tid=16:30"" style=""text-decoration: none"">16:30</a>"
%></td>
<td width="515" nowrap bgcolor="#EFEEDE" height="19">
</td>
</tr>
<tr>
<td width="20" colspan="3" height="1"></td>
</tr>
<tr>
<td bgcolor="#608ec6" width="26" height="19">
</td>
<td width="10" nowrap bgcolor="#EFEEDE" height="19">
</td>
<td width="96" nowrap bgcolor="#EFEEDE" height="19">
<%
response.write "<a href=""bestil.asp?Lokale=" & sQLokale & "&Dag=" & sQDag & "&Mdr=" & sQMdr & "&ÅR=" & sQAar & "&Tid=17:00"" style=""text-decoration: none"">17:00</a>"
%></td>
<td width="515" nowrap bgcolor="#EFEEDE" height="19">
</td>
</tr>
<tr>
<td width="20" colspan="3" height="1"></td>
</tr>
<tr>
<td bgcolor="#608ec6" width="26" height="19">
</td>
<td width="10" nowrap bgcolor="#EFEEDE" height="19">
</td>
<td width="96" nowrap bgcolor="#EFEEDE" height="19">
<%
response.write "<a href=""bestil.asp?Lokale=" & sQLokale & "&Dag=" & sQDag & "&Mdr=" & sQMdr & "&ÅR=" & sQAar & "&Tid=17:30"" style=""text-decoration: none"">17:30</a>"
%></td>
<td width="515" nowrap bgcolor="#EFEEDE" height="19">
</td>
</tr>
<tr>
<td width="20" colspan="3" height="1"></td>
</tr>
<tr>
<td bgcolor="#608ec6" width="26" height="19">
</td>
<td width="10" nowrap bgcolor="#EFEEDE" height="19">
</td>
<td width="96" nowrap bgcolor="#EFEEDE" height="19">
<%
response.write "<a href=""bestil.asp?Lokale=" & sQLokale & "&Dag=" & sQDag & "&Mdr=" & sQMdr & "&ÅR=" & sQAar & "&Tid=18:00"" style=""text-decoration: none"">18:00</a>"
%></td>
<td width="515" nowrap bgcolor="#EFEEDE" height="19">
</td>
</tr>
<tr>
<td width="20" colspan="3" height="1"></td>
</tr>
<tr>
<td bgcolor="#608ec6" width="26" height="19">
</td>
<td width="10" nowrap bgcolor="#EFEEDE" height="19">
</td>
<td width="96" nowrap bgcolor="#EFEEDE" height="19">
<%
response.write "<a href=""bestil.asp?Lokale=" & sQLokale & "&Dag=" & sQDag & "&Mdr=" & sQMdr & "&ÅR=" & sQAar & "&Tid=18:30"" style=""text-decoration: none"">18:30</a>"
%></td>
<td width="515" nowrap bgcolor="#EFEEDE" height="19">
</td>
</tr>
<tr>
<td width="20" colspan="3" height="1"></td>
</tr>
<tr>
<td bgcolor="#608ec6" width="26" height="19">
</td>
<td width="10" nowrap bgcolor="#EFEEDE" height="19">
</td>
<td width="96" nowrap bgcolor="#EFEEDE" height="19">
<%
response.write "<a href=""bestil.asp?Lokale=" & sQLokale & "&Dag=" & sQDag & "&Mdr=" & sQMdr & "&ÅR=" & sQAar & "&Tid=19:00"" style=""text-decoration: none"">19:00</a>"
%></td>
<td width="515" nowrap bgcolor="#EFEEDE" height="19">
</td>
</tr>
<tr>
<td width="20" colspan="3" height="1"></td>
</tr>
<tr>
<td bgcolor="#608ec6" width="26" height="19">
</td>
<td width="10" nowrap bgcolor="#EFEEDE" height="19">
</td>
<td width="96" nowrap bgcolor="#EFEEDE" height="19">
<%
response.write "<a href=""bestil.asp?Lokale=" & sQLokale & "&Dag=" & sQDag & "&Mdr=" & sQMdr & "&ÅR=" & sQAar & "&Tid=19:30"" style=""text-decoration: none"">19:30</a>"
%></td>
<td width="515" nowrap bgcolor="#EFEEDE" height="19">
</td>
</tr>
<tr>
<td width="20" colspan="3" height="1"></td>
</tr>
<tr>
<td bgcolor="#608ec6" width="26" height="19">
</td>
<td width="10" nowrap bgcolor="#EFEEDE" height="19">
</td>
<td width="96" nowrap bgcolor="#EFEEDE" height="19">
<%
response.write "<a href=""bestil.asp?Lokale=" & sQLokale & "&Dag=" & sQDag & "&Mdr=" & sQMdr & "&ÅR=" & sQAar & "&Tid=20:00"" style=""text-decoration: none"">20:00</a>"
%></td>
<td width="515" nowrap bgcolor="#EFEEDE" height="19">
</td>
</tr>
<tr>
<td width="20" colspan="3" height="1"></td>
</tr>
<tr>
<td bgcolor="#608ec6" width="26" height="19">
</td>
<td width="10" nowrap bgcolor="#EFEEDE" height="19">
</td>
<td width="96" nowrap bgcolor="#EFEEDE" height="19">
<%
response.write "<a href=""bestil.asp?Lokale=" & sQLokale & "&Dag=" & sQDag & "&Mdr=" & sQMdr & "&ÅR=" & sQAar & "&Tid=20:30"" style=""text-decoration: none"">20:30</a>"
%></td>
<td width="515" nowrap bgcolor="#EFEEDE" height="19">
</td>
</tr>
</table>
<%
rs.movenext
loop
con.close
%>
</body>
</html>
