Hej, varför postar du ett helt nytt inlägg bara för du skrev fel?
Jag raderar det dubbla inlägget.
mvh Jörgen
Moderator wF
------------------
Varför bråka när man kan kramas?
Frågan#1
Hejsan jag laddade ner kalendern som finns här på wfscript och har lekt lite med den, men det är ett problem man kan bara lägga till aktiviteter på befintligt datum, dvs om man bläddrar fram till december och vill lägga till en aktivitet där så fungerar det inte, och jag har inte lyckats fixa till det, eftersom jag inte känner mig hemma hos det programmeringssättet som programmeraren har använt sig av, är tacksam ifall ngn kunde hjälpa mig med att lägga till den funktionen, dvs att man kan bläddra fram till december och därefter kunna lägga upp en aktivitet under den månaden oxå, så här ser hela koden ut:
<%@ Language=VBScript %>
<% Option Explicit %>
<!--#include file="nameday.inc"-->
<%
Dim dDate, dYear, dMonth, dDaysInMonth, iCounter, sClass, sMonthName, iCounter2
Dim iLinesize, sHead, Conn, sql, RS, sOutput, iWeekNo, sColor, sNclass, sValid
If Request.QueryString("datum") = "" Then
dDate = Date
Else
dDate = Request.QueryString("datum")
End If
dYear = Year(dDate)
dMonth = Month(dDate)
sMonthName = MonthName(dMonth)
dDaysInMonth = Day(DateAdd("d", -1, DateSerial(dYear, dMonth + 1, 1)))
Function dDayName(iCounter)
dDayName = WeekdayName(WeekDay(dYear & "-" & dMonth & "-" & iCounter),False,1)
dDayname = UCase(Left(dDayName,1)) & Right(dDayName, Len(dDayName) - 1)
End Function
Function sUpperMonthName(sMonth)
sUpperMonthName = UCase(Left(sMonth,1)) & Right(sMonth, Len(sMonth)-1)
End Function
Function DayCount(iCounter)
DayCount = DateDiff("d",dYear & "-01-01",dYear & "-" & dMonth & "-" & iCounter,2,1) + 1
End Function
Set Conn = Server.CreateObject("ADODB.Connection")
'********** Start Access ************
Conn.Open "Provider=MSDASQL;" & _
"Driver={Microsoft Access Driver (*.mdb)};" & _
"Dbq=" & Server.MapPath("../databasen.mdb") & ";" & _
"Uid=;" & _
"Pwd=;"
sql = " select id, rubrik, detalj, "
sql = sql & " FORMAT$(datum, 'yyyy-mm-dd') as datum1,"
sql = sql & " FORMAT$(frantid, 'hh:mm') as ftid,"
sql = sql & " FORMAT$(tilltid, 'hh:mm') as ttid"
sql = sql & " from kalender"
sql = sql & " where datum like '" & Left(dDate,7) & "%' "
sql = sql & " order by frantid asc"
'********** Slut Access ************
'********** Start MySQL ************
'Conn.Open "Driver={MySQL};Server=localhost;Db=kstterm;UID=webben;pwd=webben;Option=16384"
'sql = " select id, rubrik, detalj, "
'sql = sql & " DATE_FORMAT(datum, '%Y-%m-%d') as datum1,"
'sql = sql & " TIME_FORMAT(frantid, '%H:%i') as ftid,"
'sql = sql & " TIME_FORMAT(tilltid, '%H:%i') as ttid"
'sql = sql & " from kalender"
'sql = sql & " where datum like '" & Left(dDate,7) & "%' "
'sql = sql & " order by frantid asc"
'********** Slut MySQL ************
Set RS = Conn.Execute (sql)
%>
<html>
<head>
<script language="javascript">
function PopWin(url) {
var winh = 250;
var winw = 375;
var winl = (screen.width - winw) / 2;
var wint = (screen.height - winh) / 2;
winprops = 'height='+winh+',width='+winw+',top='+wint+',left='+winl+',toolbar=no,location=no,directories=no,status=no,menubar=no,resizable=no,copyhistory=no,scrollbars=no'
remote = window.open("","",winprops);
remote.location.href = url;
}
</script>
<Style Media="Print">
#noPrint{visibility:hidden;}
</Style>
<style>
A:link {text-decoration: none; color:navy;}
A:visited {text-decoration: none; color:navy;}
A:active {text-decoration: none; color:#CC0000;}
A:hover {text-decoration: underline; color:#CC0000;}
.BoldRed {font-family : Arial, Helvetica; font-size : 16pt; color : Red; font-weight: bold}
.BoldNavy {font-family : Arial, Helvetica; font-size : 16pt; color : Navy; font-weight: bold}
.MediumNavy {font-family : Verdana, Arial, Helvetica; font-size : 12px; color : Navy;font-weight: bold;position: relative}
.Namn {font-family : Verdana, Arial, Helvetica; font-size : 11px; color : navy}
.rNamn {font-family : Verdana, Arial, Helvetica; font-size : 11px; color : red}
.Small {font-family : Verdana, Arial, Helvetica; font-size : 10px; color : black}
.Time {font-family : Verdana, Arial, Helvetica; font-size : 11px; color : brown}
.xSmall {font-family : Tahoma, Helvetica; font-size : 9px; color : black}
</style>
<title>Månadskalender</title>
</head>
<body bgproperties="FIXED" background="http://www.6suryoye.nu/images/bglejon.jpg">
<p align="center"><b><i><font face="verdana" size="4"> Upcoming events in the suryoyo world </p></b></i></font>
<center>
<table width=500 border=1 cellspacing=0 cellpadding=2>
<tr>
<td>
<table width=500 border=0 cellspacing=0 cellpadding=0>
<tr>
<td class=MediumNavy align=left width=100>
<a href="cal.asp?datum=<%= DateAdd("m",-1,dDate) %>">«
<%= sUpperMonthName(MonthName(Month(DateAdd("m",-1,dDate)))) %></a>
</td>
<td align=center><span class=BoldNavy><%= sUpperMonthName(sMonthName) & " " & dYear %></span><br>
<span class=xSmall>Klicka på datumet för att lägga till.<br>Håll musen på rubriken för att se detaljer, klicka för att ändra/ta bort</span>
</td>
<td class=MediumNavy align=right width=100><a href="cal.asp?datum=<%= DateAdd("m",1,dDate) %>">
<%= sUpperMonthName(MonthName(Month(DateAdd("m",1,dDate)))) %> »</a>
</td>
</tr>
<table width=500 border=0 cellspacing=0 cellpadding=0>
<tr>
<%
iCounter = 1
Do While iCounter <= dDaysInMonth
Select Case dDayName(iCounter)
Case "Söndag"
sClass = "BoldRed"
sNclass = "rNamn"
sColor = "#BFBFFF"
iLinesize = 3
Case "Lördag"
sClass = "BoldRed"
sNclass = "rNamn"
sColor = "AAAAFF"
iLinesize = 1
Case Else
sClass = "BoldNavy"
sNclass = "Namn"
sColor = "AAAAFF"
iLinesize = 1
End Select
If CInt(Month(Date) & Day(Date)) = CInt(dMonth & iCounter) Then
sColor = "#FFFFCC"
End If
Response.Write "<tr bgcolor=" & sColor & "><td align=center width=30>" & VbCrLf
sOutput = "<a title=""Klicka för att lägga till"" href=""javascript:PopWin('add_edit_admin.asp?new=1&datum=" & dYear & "-" & dMonth & "-" & iCounter & "')"">" & VbCrLf
sOutput = sOutput & "<span class=" & sClass & ">" & iCounter & "</a></span></td>" & VbCrLf
sOutput = sOutput & "<td class=" & sNclass & " width=95 valign=top>" & dDayName(iCounter) & "</span>" & VbCrLf
sOutput = sOutput & "<span class=xSmall> " & DayCount(iCounter) & "<br>" & VbCrLf
sOutput = sOutput & "<span class=Small>" & sNamn(dMonth,iCounter) & "</span></td>" & VbCrLf
sOutput = sOutput & "<td valign=top class=MediumNavy>" & VbCrLf
If Not RS.BOF Then
RS.MoveFirst
Do Until RS.EOF
If CInt(Right(RS("Datum1"),2)) = CInt(iCounter) Then
sOutput = sOutput & "<span class=Time>" & RS("ftid") & "-" & RS("ttid") & "</span> " & VbCrLf
sOutput = sOutput & "<a title=""" & RS("detalj") & """ href=""javascript:PopWin('add_edit_admin.asp?id=" & RS("id") & "')"">" & RS("rubrik") & "</a><br>" & VbCrLf
End If
RS.MoveNext
Loop
End If
Response.Write sOutput
If dDayName(iCounter) = "Måndag" Then
iWeekNo = DatePart("ww",dYear & "-" & dMonth & "-" & iCounter,2,2)
Response.Write "</td><td class=Small align=right width='60' valign=top>" & iWeekNo & "</td></tr>" & VbCrLf
Response.Write "<tr><td colspan=4><hr size=" & iLinesize & " noshade color='#000080'></td></tr>" & VbCrLf
Else
Response.Write "</td><td> </td></tr><tr><td colspan=4>" & VbCrLf
Response.Write "<hr size=" & iLinesize & " noshade color='#000080'></td></tr>" & VbCrLf
End If
iCounter = iCounter + 1
Loop
RS.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing
%>
</table>
</td></tr>
</table>
</td></tr>
</table>
</center
</body>
</html>
[Redigerat av Gimbo den 23 nov 2001]
