SQL Database til ASP Kalender
Hej står og kunne godt bruge noget hjælp til at koble en sql database til denne asp kalender og hvordan databasen table strukturen skal se ud .Det skulle være sådan at man skulle kunne indsætte en bestemt dato og så skulle denne Dato blive udskrevet fra databasens table og derefter blive markeret med "RØD" i kalenden.
Håber dette er forstålig.
På forhånd tak for hjælpen.
Her har i koden som den ser ud nu.
ps. Jeg er da selvfølgelig villig til at give flere point
<%
'Toke & Thomas's kalender @ webberiet.dk 2007
'v. 1.5
'Dette er det eneste du må rette i med mindre du ved hvad du laver!!
if request("aar") <> "" then Session("Aar") = request("aar")
if request("maaned") <> "" then Session("maanede") = request("maaned")
'Dette er baggrundsfarven for felterne ( på nær weekend )
felt_baggrundsfarve = "ffffff"
'Dette er lørdag og søndags baggrundsfarve
Loerdag_soendag_farve = "BBAE95"
'Dette er farven for mouseover for ALLE felter
felt_mouseoverfarve = "D7CAB3"
'Dette er baggrundsfarven for selve kalenderen
baggrundsfarve = "ffffff"
'Dette er farven på kalender dagene
felt_textfarve = "0d0441"
'Dette er overskriftens farve
aar_textfarve = "0d0441"
'Dette er farven for dagene ( M, T, O, T, F, L og S )
dag_textfarve = "0d0441"
'Dette er farven på dagen i dag
denne_dagfarve = "000000"
'Dette er pilenes farve
pil_farve = "0d0441"
'Pil IKON, MAX 2 tegn.
leftpil = server.HTMLEncode("<")
rightpil = server.HTMLEncode(">")
'Dette er border farven på kalenderen
kant_farve = "0d0441"
'Dette er hvilken fil den skal gå til, når der bliver skiftet måned
gaa_til_hvilken_fil = "default.asp"
'Dette er hvilken fil den skal gå til, hvis der bliver trykket på en dag.
'Denne sender din dato med i querystring.
event_side = "default.asp"
event_farve = "fc0516"
'---------------------------------------------------------------------------------------------------------------------------'
if session("maanede") = "" then
session("maanede") = month(now)
end if
if session("foerstedag") = "" then
first_day=weekday(dateSerial(year(date()),month(date()),day(date())),vBMonday)-0
'response.Write(first_day)
session("foerstedag") = first_day
end if
if session("aaret") = "" then
session("aaret") = 0
end if
if Session("Aar") = "" then
Session("Aar") = Year(now)
end if
if session("antalSkudAar") = "" then
hm2 = int(Session("Aar")/4)
hm = Session("Aar")/4
if hm = hm2 then
session("antalSkudAar") = 1
else
session("antalSkudAar") = 0
end if
end if
'-------------------------
if request.QueryString("maanede") = "minus" then
session("maanede") = session("maanede") - 1
elseif request.QueryString("maanede") = "plus" then
session("maanede") = session("maanede") + 1
end if
if session("maanede") > 12 then
session("maanede") = 1
Session("Aaret") = Session("Aaret") + 1
Session("Aar") = Session("Aar") + 1
hm2 = int(Session("Aar")/4)
hm = Session("Aar")/4
if hm = hm2 then
session("antalSkudAar") = session("antalSkudAar") + 1
end if
elseif session("maanede") < 1 then
session("maanede") = 12
Session("Aaret") = Session("Aaret") - 1
Session("Aar") = Session("Aar") - 1
hm2 = int((Session("Aar")+1)/4)
hm = (Session("Aar")+1)/4
if hm = hm2 then
session("antalSkudAar") = session("antalSkudAar") - 1
end if
end if
dennemaane = session("maanede")
if dennemaane = 1 then
overskrift = "Jan."
maanede = 31
session("foerstedag") = session("foerstedag") + 0
elseif dennemaane = 2 then
overskrift = "Feb."
hm2 = int(Session("Aar")/4)
hm = Session("Aar")/4
if hm = hm2 then
maanede = 29
else
maanede = 28
end if
session("foerstedag") = session("foerstedag") + 3
elseif dennemaane = 3 then
overskrift = "Mar."
maanede = 31
hm2 = int(Session("Aar")/4)
hm = Session("Aar")/4
if hm = hm2 then
session("foerstedag") = session("foerstedag") + 4
else
session("foerstedag") = session("foerstedag") + 3
end if
elseif dennemaane = 4 then
overskrift = "Apr."
maanede = 30
hm2 = int(Session("Aar")/4)
hm = Session("Aar")/4
if hm = hm2 then
session("foerstedag") = session("foerstedag") + 7
else
session("foerstedag") = session("foerstedag") + 6
end if
elseif dennemaane = 5 then
overskrift = "Maj."
maanede = 31
hm2 = int(Session("Aar")/4)
hm = Session("Aar")/4
if hm = hm2 then
session("foerstedag") = session("foerstedag") + 2
else
session("foerstedag") = session("foerstedag") + 1
end if
elseif dennemaane = 6 then
overskrift = "Jun."
maanede = 30
hm2 = int(Session("Aar")/4)
hm = Session("Aar")/4
if hm = hm2 then
session("foerstedag") = session("foerstedag") + 5
else
session("foerstedag") = session("foerstedag") + 4
end if
elseif dennemaane = 7 then
overskrift = "Jul."
maanede = 31
hm2 = int(Session("Aar")/4)
hm = Session("Aar")/4
if hm = hm2 then
session("foerstedag") = session("foerstedag") + 7
else
session("foerstedag") = session("foerstedag") + 6
end if
elseif dennemaane = 8 then
overskrift = "Aug."
maanede = 31
hm2 = int(Session("Aar")/4)
hm = Session("Aar")/4
if hm = hm2 then
session("foerstedag") = session("foerstedag") + 3
else
session("foerstedag") = session("foerstedag") + 2
end if
elseif dennemaane = 9 then
overskrift = "Sep."
maanede = 30
hm2 = int(Session("Aar")/4)
hm = Session("Aar")/4
if hm = hm2 then
session("foerstedag") = session("foerstedag") + 6
else
session("foerstedag") = session("foerstedag") + 5
end if
elseif dennemaane = 10 then
overskrift = "Okt."
maanede = 31
hm2 = int(Session("Aar")/4)
hm = Session("Aar")/4
if hm = hm2 then
session("foerstedag") = session("foerstedag") + 1
else
session("foerstedag") = session("foerstedag") + 0
end if
elseif dennemaane = 11 then
overskrift = "Nov."
maanede = 30
hm2 = int(Session("Aar")/4)
hm = Session("Aar")/4
if hm = hm2 then
session("foerstedag") = session("foerstedag") + 4
else
session("foerstedag") = session("foerstedag") + 3
end if
elseif dennemaane = 12 then
overskrift = "Dec."
maanede = 31
hm2 = int(Session("Aar")/4)
hm = Session("Aar")/4
if hm = hm2 then
session("foerstedag") = session("foerstedag") + 6
else
session("foerstedag") = session("foerstedag") + 5
end if
end if
'Hvis vi gaar frem af i aarene
if Session("Aaret") > 0 then
hm2 = int(Session("Aar")/4)
hm = Session("Aar")/4
temp_aaret = Session("Aaret")
if hm = hm2 then
if overskrift = "Jan." or overskrift = "Feb." then
session("foerstedag") = session("foerstedag") + temp_aaret + session("antalSkudAar") - 1
else
session("foerstedag") = session("foerstedag") + temp_aaret + session("antalSkudAar")
end if
else
session("foerstedag") = session("foerstedag") + temp_aaret + session("antalSkudAar")
end if
'Hvis vi gaar tilbage i aarene
elseif Session("Aaret") < 0 then
hm2 = int(Session("Aar")/4)
hm = Session("Aar")/4
temp_aaret = Session("Aaret") - (2*Session("Aaret"))
if hm = hm2 then
if overskrift = "Jan." or overskrift = "Feb." then
session("foerstedag") = session("foerstedag") - (temp_aaret + session("antalSkudAar")+1)
else
session("foerstedag") = session("foerstedag") - (temp_aaret + session("antalSkudAar"))
end if
else
session("foerstedag") = session("foerstedag") - (temp_aaret + session("antalSkudAar"))
end if
end if
%>
<script type="text/JavaScript">
<!--
function MM_goToURL() { //v3.0
var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
}
//-->
</script>
<table border="0" cellpadding="0" cellspacing="2" style="border:1px #<%=kant_farve%> solid; font-family:Verdana, Arial, Helvetica, sans-serif; background-color:#<%=baggrundsfarve%>;">
<tr>
<td align="center"><a href=<%=gaa_til_hvilken_fil%>?maanede=minus style="text-decoration:none; color:#<%=pil_farve%>; font-size:10px;"><strong><%=leftpil%></strong></a></td>
<td colspan="5" align="center" style="font-size:12px; color:#<%=aar_textfarve%>;"><u><strong><%=overskrift%> <%=(Session("Aar"))%></strong></u></td>
<td align="center"><a href=<%=gaa_til_hvilken_fil%>?maanede=plus style="text-decoration:none; color:#<%=pil_farve%>; font-size:10px;"><strong><%=rightpil%></strong></a></td>
</tr>
<tr style="color:#<%=dag_textfarve%>">
<td align="center" style="font-size:12px;"><strong>M</strong></td>
<td align="center" style="font-size:12px;"><strong>T</strong></td>
<td align="center" style="font-size:12px;"><strong>O</strong></td>
<td align="center" style="font-size:12px;"><strong>T</strong></td>
<td align="center" style="font-size:12px;"><strong>F</strong></td>
<td align="center" style="font-size:12px;"><strong>L</strong></td>
<td align="center" style="font-size:12px;"><strong>S</strong></td>
</tr>
<%
counter = 1
currenttr = 1
if session("foerstedag") > 6 then
do while session("foerstedag") > 6
session("foerstedag") = session("foerstedag") - 7
loop
elseif session("foerstedag") < 0 then
do while session("foerstedag") < 0
session("foerstedag") = session("foerstedag") + 7
loop
end if
for i = 0 to maanede + session("foerstedag")
if counter -1 = maanede then
else
if currenttr = 1 then
response.Write("<tr bgcolor=#"&felt_baggrundsfarve&" style=font-size:10px; style=color:#"&felt_textfarve&">")
end if
response.Write("<td ")
if session("foerstedag")-1 < i then
response.Write("onmousedown=MM_goToURL('parent','"&event_side&"?dato=")
if counter < 10 then
response.Write("0"&counter)
else
response.Write(counter)
end if
response.Write("-")
if dennemaane < 10 then
response.Write("0"&dennemaane)
else
response.Write(dennemaane)
end if
response.Write("-"&session("Aar")&"'); ")
end if
if currenttr = 6 OR currenttr = 7 then
response.write ("onmouseout=this.style.backgroundColor='#"&loerdag_soendag_farve&"'; bgcolor='#"&loerdag_soendag_farve&"'")
else
response.write ("onmouseout=this.style.backgroundColor='#"&felt_baggrundsfarve&"';")
end if
response.write (" align=center height=20 width=20")
if session("foerstedag") > i then
response.Write(" onmouseover=this.style.cursor='default';")
else
response.Write(" onmouseover=this.style.cursor='hand';")
end if
response.Write("this.style.backgroundColor='#"&felt_mouseoverfarve&"';>")
if session("foerstedag") > i then
response.Write("<div style='background-color:#"&baggrundsfarve&"; height: 20px; width=20px;'> </div>")
elseif day(now) = counter AND month(now) = dennemaane AND year(now) = Session("Aar") then
response.Write("<div style='color:#"&denne_dagfarve&";text-decoration:underline;'><b>"&day(now)&"</b></div>")
counter = counter + 1
elseif i > maanede - 1 + session("foerstedag") then
response.Write("<div style='background-color:#"&baggrundsfarve&";'></div>")
else
response.Write(counter)
counter = counter + 1
end if
response.Write("</td>")
end if
if currenttr = 7 then
response.Write("</tr>")
end if
currenttr = currenttr + 1
if currenttr = 8 then
currenttr = 1
end if
next
session("foerstedag") = ""
%>
</table>
<br />
<form action="default.asp" method=post>
Skift til:
<select name="maaned">
<%
for b = 1 to 12
md_dato = "01"&"-"&b&"-"&year(now())
if int(request("maaned")) = int(b) then
valgt_month = "selected"
else
if b = month(now()) then
valgt_month = "selected"
end if
end if
%>
<option value="<%=b%>" <%=valgt_month%>><%=monthname(Month(md_dato))%></option>
<%
valgt_month = ""
next
%></select>
<select name="aar">
<%
aar_nu = year(date())
aar_frem = int(aar_nu) + 5
for c = aar_nu to aar_frem
valgt_aar = ""
if int(request("aar")) = int(c) then
valgt_aar = "selected"
else
if b = month(now()) then
valgt_aar = "selected"
end if
end if
%>
<option value="<%=c%>" <%=valgt_aar%>><%=c%></option>
<%
next
%>
</select>
<input type=submit value=Skift>
</form>
