webForumDet fria alternativet
Logga in / Bli medlem

Kalender kopplad till databas.

ASP

11 svar · 290 visningar · startad av Brimba

Brimbas avatarBrimbaMedlem sedan dec. 19995 874 inlägg
Frågan#1

Hej!

Jag håller på med en kalender, jag vill ha en helt vanlig kalender där man kan skriva in datum (dag/månad/år) och sedan trycka på submitt för att komma till den månaden det året.
Jag vill sedan att den jämnför med databasen om något datum finns med i den, och om det finns det så skriver gör den en länk av det datumet (siffran) så man kan klicka på den och få upp informationen om det datumet.

Är det någon som har gjort något liknande eller skall man behöva vara kreativ?

Mvh
Patrik

AnnelieMedlem sedan mars 20002 542 inlägg
#2

Ngt sånt här http://www.annelie.nu/diary.asp

Fast jag har "bara" månader men antar att funktionen kan bli den samma ??

Jobbar på en del förändringar på scriptet

KAN ha tagit bort för mkt i slutet då jag hade annat som du ser men kolla om du har ngt anv. av detta script.

------------------
/Mvh Annelie( http://www.annelie.nu )

[Redigerat av Annelie den 18 maj 2000]

AnnelieMedlem sedan mars 20002 542 inlägg
#3

Bara nyfiken på hur detta kunde vara ??

------------------
/Mvh Annelie( http://www.annelie.nu )

Brimbas avatarBrimbaMedlem sedan dec. 19995 874 inlägg
#4

Det ser bra ut på din sida, men frågan hos mig består. Var kopplar du databasen någonstans och var "kännner" den av om det finns något på det datumet osv?

Sedan undrar jag vad detta gör i din kod:

<% sub WriteListBox %>
                      <center>
                      <!--METADATA TYPE="DesignerControl" startspan
                      <OBJECT classid="clsid:B5F0E450-DC5F-11D0-9846-0000F8027CA0" id=Listbox1
                      style="LEFT: 0px; TOP: 0px" dtcid="1">
                      <PARAM NAME="_ExtentX" VALUE="2037">
                      <PARAM NAME="_ExtentY" VALUE="556">
                      <PARAM NAME="id" VALUE="Listbox1">
                      <PARAM NAME="DataSource" VALUE="">
                      <PARAM NAME="DataField" VALUE="">
                      <PARAM NAME="ControlStyle" VALUE="0">
                      <PARAM NAME="Enabled" VALUE="-1">
                      <PARAM NAME="Visible" VALUE="-1">
                      <PARAM NAME="Platform" VALUE="256">
                      <PARAM NAME="UsesStaticList" VALUE="0">
                      <PARAM NAME="RowSource" VALUE="">
                      <PARAM NAME="BoundColumn" VALUE="">
                      <PARAM NAME="ListField" VALUE="">
                      <PARAM NAME="LookupPlatform" VALUE="2">
                      <PARAM NAME="LocalPath" VALUE=""></OBJECT>
                      -->
                      <!--#INCLUDE FILE="_ScriptLibrary/ListBox.ASP"--><SCRIPT LANGUAGE=JavaScript
                      RUNAT=Server>function _Listbox1_ctor(){ CreateListbox('Listbox1', null,
                      null);}</script><% Listbox1.display %>

                      <!--METADATA TYPE="DesignerControl" endspan-->
                      </center>

Jag ser inte något användbart.

Har du gjort dagboken själv eller har du hittat den någonstans?
Källa isåfall?

///Patrik

AnnelieMedlem sedan mars 20002 542 inlägg
#5

Självklart har jag gjort den själv , annars skulle jag väl inte ge bort det ?? ;)

Alla mina script är just mina, vill inte ha ngn annans , gillar att jobba själv. Visst hjälp kan man få , men.....

Synd att inget gick att ta då

------------------
/Mvh Annelie( http://www.annelie.nu )

AnnelieMedlem sedan mars 20002 542 inlägg
#6

det där scriptet du klistrade in är bara "en avslöjan" om att det är gjort i Interdev , det är en Interdev DesignerControl

De andra två frågorna , i scriptet så anropar ju det en annan fil viewday.asp

klickar man på ett datum så kommer ju det upp så här: http://www.annelie.nu/viewday.asp?day=5/16/2000

Dessutom har jag gjort admin sidor till gäst boken och dagboken....dagboken är gjord så att jag varsomhelst kan uppdatera sidan. Bara jag har tillgång till Internet.
------------------
/Mvh Annelie( http://www.annelie.nu )

[Redigerat av Annelie den 16 maj 2000]

Brimbas avatarBrimbaMedlem sedan dec. 19995 874 inlägg
#7

Nu har jag läst igenom scriptet och det har klarnat :)

Nu förstår jag hur du har byggt upp det!
Helt perfekt!

Då vet jag hur jag skall göra, tack!

Jag antar att jag får sno några rader från dig eller?

Mvh
Patrik

AnnelieMedlem sedan mars 20002 542 inlägg
#8

Kan denna förklaring fått dej att klarna ? Ok! Klart du får plocka rader. Nog för att jag kan ha annans matrial hos mej, typ min roliga(tycker jag) texter men de länkar jag till ursprunget ! men scripten jag ger ut både här och hos mej är mina, hojta till om jag kan hjälpa till.

Men jag är nybörjare 2½ månad, tur man har "gubben" att ta till när man kör fast , fast det är som ett nederlag att be han om hjälp så jag ropar hellre på Patrik B

------------------
/Mvh Annelie( http://www.annelie.nu )

[Redigerat av Annelie den 17 maj 2000]

Brimbas avatarBrimbaMedlem sedan dec. 19995 874 inlägg
#9

var gjorde du av scriptet?

När jag skulle använda det för att titta på dina lösningar, så hittar jag det inte längre :(

Skulle du kunna lägga upp det igen eller emaila mig det?

patrik@datormaklarna.se

///Patrik

AnnelieMedlem sedan mars 20002 542 inlägg
#10

<%@ Language=VBScript %>
<!--#include file="katalog/katalog.asp"-->
<% ' VI 6.0 Scripting Object Model Enabled %>
<!--#include file="_ScriptLibrary/pm.asp"-->
<% if StartPageProcessing() Then Response.End() %>
<form name="thisForm" METHOD="post">
<html>
<head>
<title>-->Annelie´s dagbok<--</title>

<script ID="serverEventHandlersVBS" LANGUAGE="vbscript" RUNAT="Server">

Sub Listbox1_onchange()
'Session("Date") = Listbox1.getText(Listbox1.selectedIndex)
End Sub

</script>
</head>
<body bgcolor="#f6d9ac" text="#ff9900" link="#666666" vlink="#666666" alink="#666666">

<p align="center"><img border="0" src="katalog/katalog/fil.gif"></p>

<p align="center"> 
<% WriteCounter %>
</p>
<%
dim intYear,intMonth
dim aryYear(12)
dim aryMonth(12)
dim first,last

intYear = Year(Date) ' Current year
intMonth = Month(Date) ' Current month

for i = 0 to 11
aryYear(i) = intYear
aryMonth(i) = intMonth
intMonth = intMonth - 1
if intMonth = 0 then
intYear = intYear - 1
intMonth = 12
end if
next
' Check if Listbox is empty
if Listbox1.getCount()=0 then
for i = 0 to 2
Listbox1.addItem MonthName(aryMonth(i)) & "-" & aryYear(i),cstr(i),i
next
Session("Date") = MonthName(Month(Date)) & "-" & Year(Date)
Listbox1.selectedIndex = 0
end if

intYear = aryYear(Listbox1.selectedIndex) ' Selected Year
intMonth = aryMonth(Listbox1.selectedIndex) ' Selected Month

first = DateSerial(aryYear(Listbox1.selectedIndex), aryMonth(Listbox1.selectedIndex), 1)
last = DateSerial(aryYear(Listbox1.selectedIndex), aryMonth(Listbox1.selectedIndex)+1, 0)

' Get number of dates in month
temp = DateSerial(intYear, intMonth + 1, 0)
DaysInMonth = Day(temp)

WriteListBox

' Write calendar
Response.Write "<p>"
Response.Write "<center>"
Response.Write "<table width=490 border=0>"
Response.Write "<tr>"
for i = 1 to 7
Response.Write "<td bgcolor=#f6d9ac width=70 align=middle height=22><font face=""Arial Narrow"" color=#666666><b>" & DayName(i) & "<b></font></td>"
next
Response.Write "</tr>"
Response.Write "<tr>"
intCol = 1
for i = 1 to Weekday(first,vbMonday)-1
Response.Write "<td width=70> </td>"
intCol = intCol + 1
next
for i = 1 to DaysInMonth
d = intMonth & "/" & i & "/" & intYear
if DateDiff("d",Date,d) <= 0 then
Response.Write "<td bgcolor=#f6d9ac width=70 align=middle height=22><font face=""Arial Narrow"" color=#666666><b><a href=""fil.asp?day=" & d & """>" & i & "</a></b></font></td>"
else
Response.Write "<td bgcolor=#f6d9ac width=70 align=middle height=22><font face=""Arial Narrow"" color=#666666><b>" & i & "</b></font></td>"
end if
intCol = intCol + 1
if intCol = 8 then
Response.Write "</tr>"
Response.Write "<tr>"
intCol = 1
end if
next
Response.Write "</tr>"
Response.Write "</table>"
Response.Write "</center>"
%>

<% sub WriteListBox %>
<center>
<!--METADATA TYPE="DesignerControl" startspan
<OBJECT classid="clsid:B5F0E450-DC5F-11D0-9846-0000F8027CA0" id=Listbox1 style="LEFT: 0px; TOP: 0px" dtcid="1">
<PARAM NAME="_ExtentX" VALUE="2037">
<PARAM NAME="_ExtentY" VALUE="556">
<PARAM NAME="id" VALUE="Listbox1">
<PARAM NAME="DataSource" VALUE="">
<PARAM NAME="DataField" VALUE="">
<PARAM NAME="ControlStyle" VALUE="0">
<PARAM NAME="Enabled" VALUE="-1">
<PARAM NAME="Visible" VALUE="-1">
<PARAM NAME="Platform" VALUE="256">
<PARAM NAME="UsesStaticList" VALUE="0">
<PARAM NAME="RowSource" VALUE="">
<PARAM NAME="BoundColumn" VALUE="">
<PARAM NAME="ListField" VALUE="">
<PARAM NAME="LookupPlatform" VALUE="2">
<PARAM NAME="LocalPath" VALUE=""></OBJECT>
-->
<!--#INCLUDE FILE="_ScriptLibrary/ListBox.ASP"--><SCRIPT LANGUAGE=JavaScript RUNAT=Server>function _Listbox1_ctor(){ CreateListbox('Listbox1', null, null);}</script><% Listbox1.display %>

<!--METADATA TYPE="DesignerControl" endspan-->
</center>
<% end sub

Function MonthName(intMonth)

Dim strMonth

Select Case intMonth
Case 1
strMonth = "Januari"
Case 2
strMonth = "Februari"
Case 3
strMonth = "Mars"
Case 4
strMonth = "April"
Case 5
strMonth = "Maj"
Case 6
strMonth = "Juni"
Case 7
strMonth = "Juli"
Case 8
strMonth = "Augusti"
Case 9
strMonth = "September"
Case 10
strMonth = "Oktober"
Case 11
strMonth = "November"
Case 12
strMonth = "December"
Case Else
strMonth = "Out of range"
End Select
MonthName = strMonth

End Function

Function DayName(intDay)

Dim strDay

Select Case intDay
Case 1
strDay = "Måndag"
Case 2
strDay = "Tisdag"
Case 3
strDay = "Onsdag"
Case 4
strDay = "Torsdag"
Case 5
strDay = "Fredag"
Case 6
strDay = "Lördag"
Case 7
strDay = "Söndag"
Case Else
strMonth = "Out of range"
End Select
DayName = strDay

End Function

%>

</body>
<% ' VI 6.0 Scripting Object Model Enabled %>
<% EndPageProcessing() %>
</form>
</html>

TROR/HOPPAS att jag fått bort det mesta av onödig kod, men dubbelkolla. Skulle göra om lite i scriptet , menhar ej hunnit , vassego.

------------------
/Mvh Annelie( http://www.annelie.nu )

Brimbas avatarBrimbaMedlem sedan dec. 19995 874 inlägg
#11

Hej!

Du måste väl koppla upp databasen någonstans?

Hur ser din databas ut?
Hur är ditt datum upplagt i databasen?

Eller kollar du bara om dagens datum finns och isåfall skapar den en länk annars skriver den bara ut siffran?

För jag vill ha en som kollar av om det aktuella datumet finns i databasen och finns det så skall den göra länk av siffran annars så står den bara som vanlig siffra, så man kan skilja på dagar som det finns några anteckningar på och dagar som det är tomt.

Tack!

///Patrik

AnnelieMedlem sedan mars 20002 542 inlägg
#12

Maila gärna mej med frågor mm så kan jag skicka dej mer info. Men denna är ju gjord så att jag har en admin sida på nätet där jag skriver dagboken , uppdaterar och så klart. Jag kan EJ skriva ngn dag i förväg utan allt uppdateras vid midnatt så det blir en ny länk. Vid varje månads skifte tas en ny månad fram och jag har 3 månader i stöten....

Kommer ej att vara on så mkt mer nu ett tag, detharvart mkt , dessutom så har en del tråkiga saker inträffat. men ta gärna scriptet och kolla

------------------
/Mvh Annelie( http://www.annelie.nu )

[Redigerat av Annelie den 24 maj 2000]

253 ms totalt · 4 externa anrop · v20260731065814-full.86ec41c2
120 ms — deklarationer (db)
0 ms — hämta statistik (cache)
131 ms — hämta tråd, inlägg och bilagor (db)
118 ms — ändringar (db)