coltau ... det ser meget fint ud det du lige har lavet men det fatteded jeg ikke meget af ...
Kan jeg få dig til at hjælpe mig hele vejen igenne det? Hvis du gider så skal jeg nok hæve point tallet til en 150 stykker!
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")
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)
Response.write datoStreng
else
sQDag = Day(Date)
sQMdr = Month(Date)
sQAar = Year(Date)
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)
Response.write datoStreng
end if %>
</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">
<%
response.write "<a href=""bestil.asp?Dag=" & sQDag & "&Mdr=" & sQMdr & "&ÅR=" & sQAar & "&Tid=7:00"" style=""text-decoration: none"">7:00</a>"
%></td>
<td width="515" nowrap bgcolor="#EFEEDE" height="19">
</td>
</tr>
<tr>
<td width="20" colspan="3" height="1"></td>
</tr>
Og så fortsætter tabellen jo nedad med intevaller på 30 min.
Følgende sql streng bruger jeg til min database:
Set Con = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Con.Open "DBQ=" & Server.Mappath("../../db/Booking.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Password=1234;"
Og i databasen hedder min tabel booking og der er følgende kolonner:
lokalenr
dato
start
slut
firma
initialer
Det den skal er først at hente oplysningerne fra tabellen der passer med datoen og og lokalenr hvilket siden finder vha:
sQDag = request.querystring("Dag")
sQMdr = request.querystring("Mdr")
sQAar = request.querystring("År")
sQLokale = request.querystring("Lokale")
Oversåtende er defineret øverst i mit dokument!
Hvis der er noget data der passer til den pågældende dag så skal det smide i den rigtige tabel (altså ved det rigtige klokkeslæt) og så skal der stå under appointment: Initialer, Firma (Eks. Hes, Tele Danmark)
