Her er hele min kode:
<%@ Language=VBScript LCID=1030 %>
<html>
<head>
<title>Dato</title>
<style>
body {
background : 000000;
background-color: #FFFFFF;
FONT-FAMILY: Tahoma, Arial, Verdana, Helvetica, sans-serif;
FONT-SIZE: 10pt
color: white;
color: #000000;
font-size: 10px;
font-family: Tahoma;
scrollbar-face-color: "#FFFFFF";
scrollbar-shadow-color: "#FFFFFF";
scrollbar-highlight-color: "#000000";
scrollbar-3dlight-color: "#000000";
scrollbar-darkshadow-color: "#000000";
scrollbar-track-color: "#FFFFFF";
scrollbar-arrow-color: "#000000";
}
input, textarea, select, option {
font-family: verdana;
font-size: 10pt;
background: #FFFFFF;
border:1px solid #111111;
color: #000000;
}
a:maillink {
font-family: Tahoma, Arial, Verdana, Helvetica, sans-serif;
FONT-SIZE: 8pt;
color: white;
font-size: 10px;
font-family: Tahoma;
text-decoration: none;
}
TD
{
COLOR: #000000; FONT-FAMILY: Verdana; FONT-SIZE: 10pt
}
SMALL
{
FONT-SIZE: 10pt
}
A:hover
{
COLOR: #BFBFBF; TEXT-DECORATION: none
}
</style>
</head>
<body link="#608EC6" vlink="#608EC6" alink="#608EC6">
<table border=0 cellspacing="0" cellpadding="0" width="543" 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")
else
sQDag = Day(Date)
sQMdr = Month(Date)
sQAar = Year(Date)
sQLokale = Session("Lokale")
end if
Session("datobestil") = sQDag & "-" & sQMdr & "-" & sQAar
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
Response.write datoStreng & "</b></font>" ' Afslut overskrift
sub SkrivLinie(strTid, strKommentar)
Response.Write("<tr>")
Response.Write("<td bgcolor='#608ec6' width='26' height='19'> </td>")
Response.Write("<td width='10' nowrap bgcolor='#EFEEDE' height='19'> </td>")
Response.Write("<td width='96' nowrap bgcolor='#EFEEDE' height='19'>" & strTid & "</td>")
Response.Write("<td width='415' nowrap bgcolor='#EFEEDE' height='19'>" & strKommentar & "</td>")
Response.Write("</tr>")
Response.Write("<tr>")
Response.Write("<td width='20' colspan='3' height='1'></td>")
Response.Write("</tr>")
end sub
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
dato = sQMdr & "-" & sQDag & "-" & sQAar ' Format til DB MM-DD-YYYY
SQL = "SELECT tid, firma, initialer, mail, kommentar FROM booking WHERE dato = #" & dato & "#"
set rs = con.execute (SQL)
dato = sQMdr & "-" & sQDag & "-" & sQAar ' Format til DB MM-DD-YYYY
booWeekend = Weekday(datoStr) = 1 or Weekday(datoStr) = 7 'Er det lørdag/søndag
SQL = "SELECT tid, firma, initialer, kommentar FROM booking WHERE dato = #" & dato & "#"
%>
<tr>
<td width="26" height="16"></td>
<td width="10" height="16"></td>
<td width="96" height="16"><b><font face="Verdana, Arial" size="2" color="#000000">Tid</font></b></td>
<td width="415" height="16"><b><font face="Verdana, Arial" size="2" color="#000000">Reservation</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="415" height="1" bgcolor="#000000"></td>
</tr>
<tr>
<td colspan="3" bgcolor="#FFFFFF" width="20" height="3"></td>
</tr>
<%
function CStr2(Value)
if Value < 10 then
CStr2 = "0" & CStr(Value)
else
CStr2 = CStr(Value)
end if
end function
TCnt = 7 ' Starttid
MCnt = 0 ' Startminutter
for Cnt = 1 to 28 ' Antal linier
strtid = CStr2(TCnt) & ":" & CStr2(MCnt)
TTime = TCnt * 100 + MCnt ' Tiden der skal udskrives nu
if not rs.EOF then
start = rs("tid")
else
RTime = 0
end if
RTime = Hour(start) * 100 + Minute(start) ' Tiden for næste aftale
If TTime = RTime Then
strKommentar = rs("kommentar") & " (<a href=""mailto:" & rs("mail") & " class=""maillink"">" & rs("initialer") & " </a>, " & rs("firma") & ")"
rs.movenext
Else
' Check for frokostpause
If session("Id") <> 2 Then
if not booWeekend and (TTime >= 1130 and TTime <= 1300) then
strKommentar = "Kantinen serverer frokost"
else
strTid = "<a href=""bestil.asp?Lokale=" & sQLokale & "&Dag=" & sQDag & "&Mdr=" & sQMdr & "&ÅR=" & sQAar & "&Tid=" & strTid & """ style=""text-decoration: none"">" & strTid & "</a>"
strKommentar = " "
End If
else
strTid = "<a href=""bestil.asp?Lokale=" & sQLokale & "&Dag=" & sQDag & "&Mdr=" & sQMdr & "&ÅR=" & sQAar & "&Tid=" & strTid & """ style=""text-decoration: none"">" & strTid & "</a>"
strKommentar = " "
End If
End if
SkrivLinie strTid, strKommentar
' Tiden i næste linie
MCnt = MCnt + 30
if (MCnt = 60) then
MCnt = 0
TCnt = TCnt + 1
end if
next
Response.Write("</table>")
%>
</body>
</html>
Ny bruger
Nybegynder
Opret
Preview
