Notifikationer

Markér alle som læst Log ud

cdc Novice

28. marts 2004 - 21:19 Der er 29 kommentarer og
1 løsning

mangler jeg en loop eller hvad?

Prøv lige at kigge på denne sides kalender, klik på den røde markering i alenderen og så åbnes selve aktiviteten.

Prøv så at gå til april og markeringen på den 3 og så kommer dato ingen text overhoved, hvad mangler.

her er den del af scriptet som omhandler dette problem:

<%End If

If Request.Querystring("do")="visa" Then

If Request.Querystring("datum")= "" Then
datum = Date()
Else
datum = Request.Querystring("datum")
End If

Set RecSet = Conn.Execute("Select * From Mess Where datum=#" & datum & "#")%>
<tr>
<td width="240" valign="top">
<table border="0" width="430" style="margin-left:10px; margin-top: 10px;" cellspacing="0" cellpadding="0">
<tr>
<td width="262" valign="top"><img border="0" src="../../images/maintext/info_top.gif"><br>
Her er Ægtesgabs-/ Sambomatchens aktivitetskalender. Her vil du løbende
kunne se de aktiviteter som kommer.<br>
<br>
Mail til matchudvalgets medie ansvarlig, hvis du ligger inde med
en aktivitet du mener skal offentliggøres her.</td>
<td><img border="0" src="../../images/spacer.gif"></td>
<td width="170"><img border="0" src="bilder/foto.jpg"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="240" valign="top"><table width="430%" border="0" cellspacing="0" cellpadding="0" style="margin-left:10px; margin-top: 10px;">
<tr>
<td height="18"><b>Den <%=Day(datum)%> <%=MonthName(Month(datum))%> <%=Year(datum)%></b></td>
</tr>
</table>
<%Do until RecSet.EOF%>
<table width="430" bgcolor="#294A7B" border="0" cellspacing="0" cellpadding="2" style="margin-left:10px;">
<tr>
<td width="20" height="14" valign="middle"> <img src="bilder/info.gif"></td>
<td valign="middle"><font color="#FFFFFF"><b> » <%= RecSet("Rubrik") %> </b></font></td>
</tr>
</table>
<table bgcolor="#ededed" cellpadding="0" valign="middle" width="430" style="margin-left:10px;">
<tr>
<td><%=Replace(RecSet("Mess"), vbCrLf, "<br>" )%></td>
</tr>
</table></td>
</tr>
<td>
<p>

link: http://www.hillerodgolf.dk/tirsdag/

Synes godt om

Slettet bruger

28. marts 2004 - 21:22 #1

Prøv at lave en CDate på datum, CDate(datum).

Af ren nysgerrighed er det en kalender du selv har lavet?

Synes godt om

ellebaek Nybegynder

28. marts 2004 - 21:23 #2

prøv at rette din sql fra.
Set RecSet = Conn.Execute("Select * From Mess Where datum=#" & datum & "#")%>

til:
Set RecSet = Conn.Execute("Select * From Mess Where datum='" & datum & "'")%>

Synes godt om

ellebaek Nybegynder

28. marts 2004 - 21:24 #3

Og jeg er også lidt interesseret i din kalender ;-)

Synes godt om

cdc Novice

28. marts 2004 - 21:28 #4

Det er ikke en kalender jeg selv har lavet, men er igang med at modifisere, så den passer til mit brug

Synes godt om

Slettet bruger

28. marts 2004 - 21:30 #5

Er den lavet i asp ?

Synes godt om

cdc Novice

28. marts 2004 - 21:35 #6

ja den er i ren asp

Synes godt om

ellebaek Nybegynder

28. marts 2004 - 21:40 #7

hvor har du fundet den? ;-)

Synes godt om

cdc Novice

28. marts 2004 - 21:42 #8

finder lige linket om lidt, tester lige hvad i skriver så må jeg se om det virker

Synes godt om

cdc Novice

28. marts 2004 - 22:14 #9

ellebeak--> dit forslag

Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

/sambo/kalender/index.asp, line 147

Synes godt om

cdc Novice

28. marts 2004 - 22:16 #10

bertie--> er det sådan her du mener: CDate(datum)='" & datum & "'")%>

Synes godt om

Slettet bruger

28. marts 2004 - 22:18 #11

Næ sådan
Set RecSet = Conn.Execute("Select * From Mess Where datum=#" & cdate(datum) & "#")%>

Synes godt om

cdc Novice

28. marts 2004 - 22:21 #12

det blev den ikke kloger af, viser bare dato som tidligere, men denne; <%Do until RecSet.EOF%> står midt i det hele kan den ødelægge noget ??

Synes godt om

Slettet bruger

28. marts 2004 - 22:24 #13

Bare du husker at lave en RecSet.MoveNext
Jeg ved godt at man plejer at få "hug" for at sige det men jeg har observeret et par stavefejl, hvis du vil kan jeg nævne dem :-)

Synes godt om

Slettet bruger

28. marts 2004 - 22:29 #14

Er du sikker på at der er noget på den dato i databasen?

Synes godt om

eagleeye Praktikant

28. marts 2004 - 22:33 #15

Hvilket dato format bruger du i databasen?
Husk med Access at dato'er via SQL skal overføre i formatet yyyy-mm-dd eller mm-dd-yyyy og ikke DK formatet dd-mm-yyyy så vil access bytte rundt på måned og dag.

Synes godt om

cdc Novice

28. marts 2004 - 22:33 #16

jada det er noget på den dato så det er ikke problemet, stavefejl er ikke så viktig da det hele er smidt ind som forslag, og da jeg er norsk så er der selvfølgelig et admin modul bagved så de selv skal skrive, så texten har ikke noget med min dansk kundskaber at gøer, heldigvis :o)

RecSet.MoveNext hvor skal den ind

Synes godt om

cdc Novice

28. marts 2004 - 22:35 #17

bøøøøh det ved jeg ikke men har denne i toppen af siden: Session.Lcid = 1030

og extra i toppen:

datum = Date()
nu = Date()

If Request.QueryString("visa")="fram" Then
nu = DateAdd("m", 1, request.querystring("datum"))
End If

If Request.QueryString("visa")="bak" Then
nu = DateAdd("m", -1, request.querystring("datum"))
End If

ar = DatePart("yyyy", nu, 2, 0)
manad = DatePart("m", nu, 2, 0)
dag = DatePart("d", nu, 2, 0)

sd = DateSerial(ar, manad, 1)
sn = DatePart("w", sd, 2, 0)%>

Synes godt om

cdc Novice

28. marts 2004 - 22:35 #18

og ellers står den til kort datoformat

Synes godt om

eagleeye Praktikant

28. marts 2004 - 22:39 #19

Prøv dette link, det er det som vælger den 3 april.
http://www.hillerodgolf.dk/tirsdag/kalender/index.asp?do=visa&datum=03-04-2004

Prøv dette link, hvor 3 og 4 er byttet:
http://www.hillerodgolf.dk/tirsdag/kalender/index.asp?do=visa&datum=04-03-2004
Er det det som skulle komme frem?

Synes godt om

Slettet bruger

28. marts 2004 - 22:40 #20

Do until RecSet.EOF må have en Loop et eller andet sted, inden du looper skal du lave
RecSet.MoveNext

Do until RecSet.EOF
kode
RecSet.MoveNext
Loop

Synes godt om

cdc Novice

28. marts 2004 - 22:41 #21

ja...... eagleeye ?????

Synes godt om

cdc Novice

28. marts 2004 - 22:43 #22

har et include script der hedder maanader.asp

<%If manad = 1 Then
endD = DateSerial(ar, manad, 31)
dagar = 31
manaden = "Januari"
End If

If manad = 2 Then
endD = DateSerial(ar, manad, 29)
omFelmon = DatePart("m", endD, 2, 0)
manaden = "Februari"

If omFelmon = manad Then
endD = DateSerial(ar, manad, 29)
dagar = 29
Else
endD = DateSerial(ar, manad, 28)
dagar = 28
End If
End If

If manad = 3 Then
endD = DateSerial(ar, manad, 31)
dagar = 31
manaden = "Mars"
End If

If manad = 4 Then
endD = DateSerial(ar, manad, 30)
dagar = 30
manaden = "April"
End If

If manad = 5 Then
endD = DateSerial(ar, manad, 31)
dagar = 31
manaden = "Maj"
End If

If manad = 6 Then
endD = DateSerial(ar, manad, 30)
dagar = 30
manaden = "Juni"
End If

If manad = 7 Then
endD = DateSerial(ar, manad, 31)
dagar = 31
manaden = "Juli"
End If

If manad = 8 Then
endD = DateSerial(ar, manad, 31)
dagar = 31
manaden = "Augusti"
End If

If manad = 9 Then
endD = DateSerial(ar, manad, 30)
dagar = 30
manaden = "September"
End If

If manad = 10 Then
endD = DateSerial(ar, manad, 31)
dagar = 31
manaden = "Oktober"
End If

If manad = 11 Then
endD = DateSerial(ar, manad, 30)
dagar = 30
manaden = "November"
End If

If manad = 12 Then
endD = DateSerial(ar, manad, 31)
dagar = 31
manaden = "December"
End If%>

Synes godt om

eagleeye Praktikant

28. marts 2004 - 22:44 #23

Prøv at rette:

Set RecSet = Conn.Execute("Select * From Mess Where datum=#" & datum & "#")%>

Til denne:

strDato = Year(datum) & "-" & Month(datum) & "-" & Day(datum)
Set RecSet = Conn.Execute("Select * From Mess Where datum=#" & strDato & "#")%>

Synes godt om

cdc Novice

28. marts 2004 - 22:46 #24

så var den der eagleeye :o) kanon

Synes godt om

cdc Novice

28. marts 2004 - 22:47 #25

smid lige et svar igen igen, og jeg smider lige linket til kalenderen i det svenske format som i så kan rode med ellebeak og bertie :o)

Synes godt om

eagleeye Praktikant

28. marts 2004 - 22:48 #26

Ok :)

Synes godt om

cdc Novice

28. marts 2004 - 22:49 #27

Denne bruger jeg her:
http://www.gruvsjo.com/main.asp?cat=script&ucat=asp&viewID=52
men det er en der er nyere her, og adskildt i flere docs.
http://www.gruvsjo.com/main.asp?cat=script&ucat=asp&viewID=80

Synes godt om

Slettet bruger

28. marts 2004 - 22:50 #28

tak for linket :-)

Synes godt om

cdc Novice

28. marts 2004 - 22:54 #29

:o) som venner man deler

Synes godt om

ellebaek Nybegynder

28. marts 2004 - 23:37 #30

Siger også tak ;-)

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