formularfelt med dato

FormatDateTime Function
Returns an expression formatted as a date or time.

FormatDateTime(Date[, NamedFormat])

Arguments
Date

Required. Date expression to be formatted.

NamedFormat

Optional. Numeric value that indicates the date/time format used. If omitted, vbGeneralDate is used.

Settings
The NamedFormat argument has the following settings:

Constant Value Description
vbGeneralDate 0 Display a date and/or time. If there is a date part, display it as a short date. If there is a time part, display it as a long time. If present, both parts are displayed. 
vbLongDate 1 Display a date using the long date format specified in your computer\'s regional settings.
vbShortDate 2 Display a date using the short date format specified in your computer\'s regional settings.
vbLongTime 3 Display a time using the time format specified in your computer\'s regional settings.
vbShortTime 4 Display a time using the 24-hour format (hh:mm).


Remarks
The following example uses the FormatDateTime function to format the expression as a long date and assign it to MyDateTime:

Function GetCurrentDate
  \' FormatDateTime formats Date in long date.
  GetCurrentDate = FormatDateTime(Date, 1)
End Function

håber det kan hjælpe :-)

Mvh.
HorsMark

...selvom lidt af din kode ville hjælpe

dato = Request.Querystring(\"dato\")
Dim Con
    Set Con=Server.CreateObject(\"ADODB.Connection\")
    Con.Open\"Driver={Microsoft Access Driver (*.MDB)};DBQ=\" & Server.MapPath(\"stenlund.mdb\")

Dim RS
    Set RS=Server.CreateObject(\"ADODB.RECORDSET\")
    RS.Open \"SELECT dato FROM Holdoversigt\",Con
    If dato > Date+7 Then
        Response.write\"Denne uge er ikke tilgængelig endnu\"
        Elseif dato < Date Then
            Response.write\"Det er desværre forsent at booke\"
            Else
                Response.write\"Tillykke\"       
    End if
   
    RS.Close
    Set RS=Nothing

Dim RS
Set RS=Server.CreateObject(\"ADODB.RECORDSET\")
RS.Open \"SELECT dato FROM Holdoversigt\",Con

If FormatDateTime(RS(\"Dato\"), 2) > DateAdd(\"d\", 7, date)Then
  Response.write\"Denne uge er ikke tilgængelig endnu\"
  Elseif FormatDateTime(RS(\"Dato\"), 2) < Date Then
  Response.write\"Det er desværre forsent at booke\"
  Else Response.write \"Tillykke\"       
End if
   
RS.Close
Set RS=Nothing

måske?

tror egentligt bare at grunden til at den tror det er tekst er fordi du bare siger dato istedet for RS(\"dato\")

Hvis det ikke virker prøv...

FormatDateTime(RS(\"Dato\"), 2) > FormatDateTime(DateAdd(\"d\", 7, date), 2)

Hvilket format har du gemt datoen i i recordsettet?

dd-mm-yy?
dd-mm-yyyy?
ddmmyy?
ddmmyyyy?

dd-mm-yy

hvilket jo er det samme format som DATE, derfor skal du kun bruge AddDate ikke alt det formatDateTime-fis :-)

DateAdd(interval, number, date)
number:
yyyy Year
q Quarter
m Month
y Day of year
d Day
w Weekday
ww Week of year
h Hour
n Minute
s Second

hvor interval er eks \"2\"
hvor number er eks \"d\"
hvor date er sammenligningensdatoen 

Du burde da vidst downloade [VBscript help]?

Som jeg ser det lige nu skal jeg tjekke dato fra Querystring op mod date, inden jeg går i recordset.
Jeg er lidt forvirret nu.

øhh... jeg er sq osse forvirret nu BRAVO *GGGGG*.

Du får altså en dato fra den forrige side OG vil sammenholde den med en dato fra recordsetet i databasen. Eller er jeg helt forkert på den?

Først vil jeg hente en dato fra forrige side, så vil jeg tjekke om den er før idag eller over idag + 7 dage,datoen må kun være idag +7 dage.Så vil jeg gå ned i recordset og finde dato.

ahhh.. *GGGGGGGGG* (faldt lige af stolen af grin...sorry!!)

jep tjeck først hvis ja gå ned i databasen :-)

Jeg lavede den med ugenummer først, men ville hellere have dato. Her er koden til UGER, og den virker som den skal, efter at jeg ændrede i tabellen fra tal til tekst.
uge = Request.Querystring(\"uge\")
Dim Con
    Set Con=Server.CreateObject(\"ADODB.Connection\")
    Con.Open\"Driver={Microsoft Access Driver (*.MDB)};DBQ=\" & Server.MapPath(\"stenlund.mdb\")
Dim RS
    Set RS=Server.CreateObject(\"ADODB.RECORDSET\")
    RS.Open \"SELECT Uge FROM Holdoversigt WHERE ID IN (SELECT MAX(ID) FROM Holdoversigt)\",Con
    \'uge i Tabel-holdoversigt er lavet om til tekst
    If uge > RS(\"uge\") Then
        Response.write\"Denne uge er ikke tilgængelig endnu\"
        Elseif uge < RS(\"uge\") Then
            Response.write\"Det er desværre forsent at booke til denne uge\"
            Else
                Response.write\"Tillykke\"       
    End if
    RS.Close
    Set RS=Nothing       

If Request.Querystring(\"dato\") <= AddDate(\"d\", 7, date)Then

*sammenlign dato i basen*

Else Response.write \"Denne uge er ikke tilgængelig endnu\"
End If

       

Får denne meddelelse
Typerne passer ikke sammen: \'AddDate\'

DateAdd... (har lige drukket et par øl og er på vej i byen :-)

Jeg er på igen imorgen og hvis problemet skal fixes hurtigt så mail hele koden på HorsMark@tdk.dk og skal jeg imorgen lige checke op på vores lille forvirring :-)

Mvh.
HorsMark

(jeg finder også lige url´en til det sted hvor du kan downloade den meget brugbare VBscript documentation fra MicroSoft! Hvis du vil fortælle mig hvilken platform du sidder på Windows NT, Win98, Win2000 eller Win95 )

Som lovet :-)

http://msdn.microsoft.com/scripting/default.htm?/scripting/vbscript/default.htm

Her finder du bla. beskrivelse med eksempler på ovenævnte kommandoer
DateAdd og FormatDateTime OG mange mange flere :-)

Mvh
Jesper HorsMark

Jeg har lige lavet din datokode så den virker:

dim DatoDiff
DatoDiff = DateDiff(\"d\", Date, Request.Querystring(\"dato\")) \'DatoDiff er nu antal dage
 
  If DatoDiff <= 0 Then                 
      Response.write \"Det er desværre for sent at booke :-( \"     
    ElseIf DatoDiff <= 7 Then
    response.write \"tillykke \"
\'Her indsættes databasekoden
    Else Response.write \"Denne uge er ikke tilgængelig endnu \"
  End If

Mvh.
Jesper H.

Nu ved jeg selvfølgeligt ikke hvad der ligger gemt i databasen MEN nu virker datoerne :-) var selv lige ved at smide kaffe ind i CD-rom drevet af raseri hæhæ

Det er for sejt.Ja det virker, jeg vil lige kigge på koden og se hvad der sker. Jeg har også været inde på microsoft. Tak for hjælpen

anytime