Notifikationer

Markér alle som læst Log ud

gurvic Nybegynder

17. oktober 2003 - 23:31 Der er 17 kommentarer og
2 løsninger

kalender - hente datoer over i andet dok

har en tabel reservation der har rækker dato_fra og dato_til.
Disse datoer vil jeg gerne have er gjort fed i min kalender jeg har fundet.
og så ville det være lækkert hvis af når man trykkede på en dato at den så hentede selve datoen med over i en textboxs på opretreservation.asp

kalender.asp ser sådan ud:

<html>

<head>
<title>Vores Kalender</title>
</head>

<body bgcolor="#FFFFFF" text="#000000" link="#C0C0C0" vlink="#C0C0C0" alink="#C0C0C0">
<%
dtmDate = Request.QueryString("date")
dtmToday = Date
vaerdi=0

If dtmDate = "" Then
dtmDate = Date
Else
dtmDate = CDate(dtmDate)
End if

intYear = Year(dtmDate)
strMonth = MonthName(Month(dtmDate))
intDayOfMonth = Day(dtmDate)
dtmFirstDate = DateAdd("d", (-intDayOfMonth)+1, dtmDate)
intFirstDay = Weekday(dtmFirstDate, vbMonday)
%>

<table cellspacing="0" cellpadding="2" border="0" valign="top"
style="border: 1px solid rgb(0,0,0)" align="left">
<tr bgcolor="#006699">
<td colspan="7" align="center" valign="middle"><%=strMonth%> <%=intYear%></td>
</tr>
<tr>
<td align="center">Man</td>
<td align="center">Tir</td>
<td align="center">Ons</td>
<td align="center">Tor</td>
<td align="center">Fre</td>
<td align="center">Lør</td>
<td align="center">Søn</td>
</tr>
<%
For y = 1 to 6
If blnLast <> True Then
Response.Write "<tr>"
For x = 1 to 7
Response.Write "<td align=center>"
intLoopDay = intLoopDay + 1
If intLoopDay >= intFirstDay Then
dtmCurDate = DateAdd("d", intLoopDay-intFirstDay, dtmFirstDate)
If Month(dtmCurDate) = Month(dtmFirstDate) Then
If dtmCurDate = dtmToday Then
vaerdi= vaerdi + 1
Response.Write "<a href='test.asp' value='dagen' style='text-decoration:none; color:red'>" & Day(dtmCurDate) & "</a>"
Else
vaerdi= vaerdi + 1
Response.Write "<a href='test.asp? value='dagen' style='text-decoration:none; color:black'>" & Day(dtmCurDate) & "</a>"
Response.Write "</td>"
blnLast = False
End If
Else
Response.Write "</td>"
blnLast = True
End If
Else
Response.Write "</td>"
blnLast = True
End if
Next
End If
Next
Response.Write "</td></tr>"
'----------------------------------------

%>
<tr>
<td bgcolor="#006699" colspan="3"><a
href="kalender.asp?date=<%=DateAdd("m",-1,dtmFirstDate)%>">Forrige</a></td>
<td bgcolor="#006699"> </td>
<td bgcolor="#006699" colspan="3" align="right"><a
href="kalender.asp?date=<%=DateAdd("m",1,dtmFirstDate)%>">Næste</a></td>
</tr>
</table>

</body></html>

Synes godt om

gurvic Nybegynder

17. oktober 2003 - 23:33 #1

nogen der kan hjælpe mig, har knoklet med det her de sidste mange dage og er nu totalt lost

Synes godt om

wilweb Nybegynder

17. oktober 2003 - 23:47 #2

Nu tager den en querystring 'value' med over til test.asp
Så er det bare at samle den op i test.asp:

'test.asp
strDato = Request.querystring("value")
Response.write "Overført dato : " & strDato

<html>

<head>
<title>Vores Kalender</title>
</head>

<body bgcolor="#FFFFFF" text="#000000" link="#C0C0C0" vlink="#C0C0C0" alink="#C0C0C0">
<%
dtmDate = Request.QueryString("date")
dtmToday = Date
vaerdi=0

If dtmDate = "" Then
dtmDate = Date
Else
dtmDate = CDate(dtmDate)
End if

intYear = Year(dtmDate)
strMonth = MonthName(Month(dtmDate))
intDayOfMonth = Day(dtmDate)
dtmFirstDate = DateAdd("d", (-intDayOfMonth)+1, dtmDate)
intFirstDay = Weekday(dtmFirstDate, vbMonday)
%>

<table cellspacing="0" cellpadding="2" border="0" valign="top"
style="border: 1px solid rgb(0,0,0)" align="left">
<tr bgcolor="#006699">
<td colspan="7" align="center" valign="middle"><%=strMonth%> <%=intYear%></td>
</tr>
<tr>
<td align="center">Man</td>
<td align="center">Tir</td>
<td align="center">Ons</td>
<td align="center">Tor</td>
<td align="center">Fre</td>
<td align="center">Lør</td>
<td align="center">Søn</td>
</tr>
<%
For y = 1 to 6
If blnLast <> True Then
Response.Write "<tr>"
For x = 1 to 7
Response.Write "<td align=center>"
intLoopDay = intLoopDay + 1
If intLoopDay >= intFirstDay Then
dtmCurDate = DateAdd("d", intLoopDay-intFirstDay, dtmFirstDate)
If Month(dtmCurDate) = Month(dtmFirstDate) Then
If dtmCurDate = dtmToday Then
vaerdi= vaerdi + 1
Response.Write "<a href='test.asp?value="& dtmCurDate & "' style='text-decoration:none; color:red'>" & Day(dtmCurDate) & "</a>"
Else
vaerdi= vaerdi + 1
Response.Write "<a href='test.asp?value="& dtmCurDate & "' style='text-decoration:none; color:black'>" & Day(dtmCurDate) & "</a>"
Response.Write "</td>"
blnLast = False
End If
Else
Response.Write "</td>"
blnLast = True
End If
Else
Response.Write "</td>"
blnLast = True
End if
Next
End If
Next
Response.Write "</td></tr>"
'----------------------------------------

%>
<tr>
<td bgcolor="#006699" colspan="3"><a href="kalender.asp?date=<%=DateAdd("m",-1,dtmFirstDate)%>">Forrige</a></td>
<td bgcolor="#006699"> </td>
<td bgcolor="#006699" colspan="3" align="right"><a href="kalender.asp?date=<%=DateAdd("m",1,dtmFirstDate)%>">Næste</a></td>
</tr>
</table>

</body></html>

Synes godt om

wilweb Nybegynder

17. oktober 2003 - 23:49 #3

og i en textfelt i test.asp

<input name="txtNavn" type="text" id="txtNavn" value="<%=strDato%>">

Synes godt om

gurvic Nybegynder

17. oktober 2003 - 23:50 #4

den tager bare ikke datoen med... har lige indsat

strDato = Request.querystring("value")
Response.write "Overført dato : " & strDato

i test.asp og så skriver den Overført dato:
og ikke mere

Synes godt om

wilweb Nybegynder

17. oktober 2003 - 23:53 #5

hele test.asp

<%
strDato = Request.querystring("value")
%>
<form action="#" method="get">
<input name="textNavn" type="text" value="<%=strDato%>">
</form>

Synes godt om

wilweb Nybegynder

17. oktober 2003 - 23:53 #6

den gør det her?????

Synes godt om

gurvic Nybegynder

17. oktober 2003 - 23:54 #7

så kommer der et textfelt ud noget i

Synes godt om

wilweb Nybegynder

17. oktober 2003 - 23:55 #8

Hvad står der i Browserens nederste venster hjørne, når du holder musen over dagene på kalenderen

Synes godt om

gurvic Nybegynder

17. oktober 2003 - 23:56 #9

sorry my bad virker nu tak
men hvad med den anden del med at gøre de dage fede hvor der er oprettet noget i forvejen

Synes godt om

wilweb Nybegynder

17. oktober 2003 - 23:59 #10

Der skal du jo have fat i din database for at se om der er nogle aftaler den dag. Har du en database?

Synes godt om

wilweb Nybegynder

18. oktober 2003 - 00:01 #11

Skal man kun kunne reservere hele dage?

Synes godt om

gurvic Nybegynder

18. oktober 2003 - 00:02 #12

ja der hedder datoerne fra_dato og til_dato og er tekstfelter i access

Synes godt om

gurvic Nybegynder

18. oktober 2003 - 00:04 #13

ja i hvert fald til starte med

Synes godt om

gurvic Nybegynder

18. oktober 2003 - 00:16 #14

går ud fra at hvis det skulle blive nødvendigt at jeg sagtens kan lave det videre med tidspunkter når jeg først har gennemskuet hvordan man gør med dage....

Synes godt om

wilweb Nybegynder

18. oktober 2003 - 00:29 #15

Måske kan du bruge det her til et eller andet, men det er lidt svært når man ikke helt ved hvilken tanker du har haft til systemet!

Jeg har ikke testet dette her og det skal jo med der hvor kalenderen er!

Vælger alle dage i fra_dato som er lig måneden i strDato

strSQL = "Select * From din_tabel Where Month(fra_dato)='" & Month(strDato) & "' Order by fra_dato"
Set rs = Conn.Execute(strSQL)

Do While Not rs.EOF
if rs("fra_dato") = day(strDato) then
response.write "" & rs("fra_dato") & " "
else
response.write rs("fra_dato") & " "
rs.MoveNext
Loop

Synes godt om

wilweb Nybegynder

18. oktober 2003 - 00:43 #16

jeg smutter nu, men det kan godt være du skal have fat i en af de bedre sql hajer for at gøre det mest simpelt...

Synes godt om

gurvic Nybegynder

18. oktober 2003 - 18:20 #17

takker for hjælpen
faldt i søvn igår... lurer lige videre på det sidste du skrev senere.
Du får selvfølgelig point for det første, holder bare lige spørgsmålet åbent til jeg finder en løsning på det her problem.

Synes godt om

gurvic Nybegynder

20. oktober 2003 - 10:39 #18

virker stadig ikke...

Synes godt om

gurvic Nybegynder

20. oktober 2003 - 10:56 #19

mangler stadig en løsning så lukker her og åbner et nyt spørgsmål

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS