2 svar · 458 visningar · startad av Frezze
Tjena.
Håller på med en kalender, som just nu inte är så avancerad, men försöker att få så att dagens "dag" är markerad. Men får de ej att fungera, koden ser ni nedan;
<%Dim lngYear, lngMonth, lngDay, lngWeekday, lngLastDay, datMonth, intToday, strBackground
' välj år och månad
lngYear = Year(Date())
lngMonth = Month(Date())
' Idag
intToday = Day(strServerTid)
' första dagen i månaden
datMonth = DateSerial(lngYear, lngMonth, 1)
' datum för första rutan i tabellen
lngDay = 2 - Weekday(datMonth, vbMonday)
' antal dagar i månaden
lngLastDay = DateDiff("d", datMonth, DateAdd("m", 1, datMonth))
' loopa igenom alla veckor
Do
' loopa igenom en vecka
For lngWeekday=1 to 7
' kolla om cellen är med i månaden
If lngDay>=1 and lngDay<=lngLastDay Then
' visa datum
If lngDay = intToday then strBackground = "; background-color: #F8F8F9"
Response.Write "<div style=""float: left; padding: 4px; width: 50px; height: 40px; font-size: 35px; margin-left: 3px; text-align: center; border: 1px solid #000"&strBackground&""">"&lngDay&"</div>"&vbCrlf
Else
' visa en tom cell
Response.Write "<div style=""float: left; width: 58px; height: 48px; margin-left: 3px; border: 1px solid #000""> </div>"&vbCrlf
End If
lngDay=lngDay+1
strBackground = ""
Next
Response.Write "<div class=""MainPXFlush""> </div>"&vbCrlf
Loop until lngDay>lngLastDay%>
Tack på förhand!
Får du felmeddelande eller kommer inget upp?
Har du skrivit ut intToday och kollat att det verkligen står dagens dag (det står inte vad strServerTid har för värde)?
Ifall du vet att både lngDay och intToday har exakt samma värde så kan du behöva göra detta:
If [B]([/B]lngDay[B]+1)[/B] = [B]([/B]intToday[B]+1)[/B] then strBackground = "; background-color: #F8F8F9"
Då borde det funka
Snakes:
Sååå irriterande! Jag hade inget värde på strServerTid variabeln, det var de som var problemet. Ibland behövs sådant här för att man ska se det man inte ser själv, jag tackar så mycket för hjälpen! 