Dato skal skrives som Dag=9&Mdr=5&ÅR=2002 og ikke Dato=9/5/2002

Skil din dato ad...

fx med DATEPART...

hop ind på www.activedeveloper.dk og søg på DATEPART... og læs noget af dokumentationen...

Jeg har kigger på det men det hjælper mig ikke en dyt ... jeg kan ikke se hvad det er jeg skal ændre for at få datoen frem i den rigtige format!

<%="Dag :"& Datepart(dtmCurDate,"d") %> mener jeg det er for day

Har prøvet med:

dag="& Datepart(dtmCurDate,""d"")

Men den giver denne fejl:
Expected ')'

Prøver jeg det du skrev cyberfessor får jeg:

Type mismatch: 'dtmCurDate'

ah... det er da fordi at paramterene er sat forkert... jeg troede du sagde du havde kigget på det !!

dag="& datepart("d",dtmCurDate)

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/vsfctDatePart.asp

dag="& datepart("d",dtmCurDate)

Giver stadig:

Expected ')'

dtmCurDate er din dato?

Her er min kode:

<%
dtmDate = Request.QueryString("date")
dtmToday = Date

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)
%>

<%
For y = 1 to 6
    If blnLast <> True Then
        Response.Write "<tr>"
        For x = 1 to 7
            intLoopDay = intLoopDay + 1
            If intLoopDay >= intFirstDay Then
                dtmCurDate = DateAdd("d", intLoopDay-intFirstDay, dtmFirstDate)
                If Month(dtmCurDate) = Month(dtmFirstDate) Then
                    If dtmCurDate = dtmToday Then
                        Response.Write "<td align=center bgcolor=#ffcccc><a target=""højre"" href=dato.asp?dato="&dtmCurDate&" ><font face=Verdana size=1 color=#4179b6>" & Day(dtmCurDate) & "</strong></font></a></td>"
                    End If
                    Response.Write "<td align=center><a target=""højre"" href=dato.asp?dato="&dtmCurDate&" ><font face=Verdana size=1>" & Day(dtmCurDate) & "</strong></font></a></td>"

                    blnLast = False
                Else
                    Response.Write "<td align=center bgcolor=#ebebeb><font face=Verdana size=1>-</td>"
                    blnLast = True
                End If
            Else
                Response.Write "<td align=center bgcolor=#ebebeb><font face=Verdana size=1>-</td>"
                blnLast = True
            End if
        Next
    End If
Next
Response.Write "</font></td></tr>"
%>

Den linie som indeholder dette:

href=dato.asp?dato="&dtmCurDate&"

Skal laves om til dette:

href=dato.asp?Dag=" & Day(dtmCurDate) & "&Mdr=" & Month(dtmCurDate) & "&År=" & Year(dtmCurDate) & "