Asp problemer
HejsaJeg har et problem ... jeg har side der skal gå ind og checke om et lokale er booket på et given tidspunkt hvilket virker fint men når den skriver informationerne ud ser det helt galt ud :-(
Se et eksempel her af hvad jeg mener:
http://www.havneparken1vejle.dk/1/dato.asp?Lokale=Test&Dag=28&Mdr=10&År=2002
Hvis man vælger en dag hvor der ikke er noget der er booket så er der intet galt:
http://www.havneparken1vejle.dk/1/dato.asp?Lokale=Test&Dag=28&Mdr=11&År=2002
Hvad er der lige galt?
Her er 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 WHILE NOT 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
rs.movenext
%>
</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
rs.movenext
loop
%>
</td>
</tr>
<tr>
<td width="20" colspan="3" height="1"></td>
</tr>
Og sådan fortsætter den så med alle tiderne til 20:00!
