Ik heb een klein probleempje met een datum. Het onderstaande script gebruik ik om uit een database een lijst te genereren die de eerstkomende 5 speeldata van een bepaalde productie weergeeft.
Nu werkt alles prima, alleen de datum heeft de engelse notatie, dus MMDDYYYY. Ik heb al vanalles geprobeerd maar krijg het niet gefixed naar nederlands. Iemand een idee, want het is vast weer 1 klein dingetje wat ik vergeet
Vast bedankt,
Joris
Nu werkt alles prima, alleen de datum heeft de engelse notatie, dus MMDDYYYY. Ik heb al vanalles geprobeerd maar krijg het niet gefixed naar nederlands. Iemand een idee, want het is vast weer 1 klein dingetje wat ik vergeet
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
| Di 10-3-2006 20.15 Posthuis Theater HEERENVEEN Try-out Do 10-5-2006 20.30 Theater De Blauwe Kei VEGHEL Try-out Vr 10-6-2006 20.15 Theater De Willem PAPENDRECHT Try-out Za 10-7-2006 20.00 Theater De Willem PAPENDRECHT Try-out Zo 10-8-2006 20.15 Goudse Schouwburg GOUDA Voorpremière |
Vast bedankt,
Joris
ASP:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
| <!-- #include file="subconn.inc" --> <% Function MediumDate( ByVal stringToCheck, ByVal defaultOut ) Dim dayPart Dim monthPart Dim yearPart session.lcid=1043 If IsDate( stringToCheck ) Then dayPart = Day( stringToCheck ) monthPart = Monthname( Month( stringToCheck ), True ) yearPart = Year( stringToCheck ) MediumDate = dayPart & "-" & monthPart & "-" & yearPart Else MediumDate = defaultOut End If End Function %><table bgcolor=#CCCCCC> <% tel=1 opencn 'session("productie_id")=10 set rsp=cn.execute("select * from producties where productie_id="&request("productie_id")) sql = "SELECT id , theater, plaats , productie, datum, matinee, avond, dag, status, " sql=sql & " year(datum) as jaar " sql= sql & " FROM speellijst WHERE productie='"& rsp("productie")& "' and datum >= #" & date() & "# " sql=sql & " and status <> 'Bouw' and status <> 'Montage' and status <> 'Optie/besloten' and status <> 'Decor' and status <> 'Optie' and status <> 'Besloten' ORDER BY datum ASC " 'response.write sql set rsp=cn.execute(sql) plaats=rsp("plaats") theater=rsp("theater") if rsp("matinee") <> "" THEN tijd=rsp("matinee") else tijd=rsp("avond") end if datum = (day(rsp("datum")) & "-" & month (rsp("datum")) & "-" &year(rsp("datum")) ) do while tel < 6 set rsu=cn.execute("Select tel_alg from theaters where plaats ='" & rsp("plaats") & "' and theater= '"& rsp("theater")& "'") ' response.write ("Select tel_alg from theaters where plaats ='" & rsp("plaats") & "' and theater= '"&rsp("theater")& "'") ' response.write tel if rsu.bof then tel_alg ="" else tel_alg=rsu("tel_alg") end if Sqlk = "SELECT * FROM producties WHERE productie='" & rsp("productie")& "'" set rsk=cn.execute (sqlk) if rsk.bof then else kleur="/venv/images/"& rsk("kleur") & ".gif" kleur1=rsk("kleur") end if ' response.write kleur response.write "<hr color=white><font size=2 face=Tahoma><TR bgcolor=#CCCCCC ><TD bgcolor=#CCCCCC ><font size=2 face=Tahoma>"& rsp("dag") & " " & rsp("datum") & " "& rsp("tijd") & "<BR> "& rsp("theater") & "<BR>" & rsp("plaats") & " " & rsp("status") tel = tel + 1 rsp.movenext loop rsp.close %> |
[ Voor 0% gewijzigd door RobIII op 03-10-2006 22:17 ]