DateAdd does not work

[lofty]

Dear Lord,

I'm trying to code a drop down for a date entry that gives
the user the option of the current date plus the dates of
the last 7 days.

<%
for i = -7 to -1
Response.write "<option>" & DateAdd(d,i,Dat e())
& "<option>"
next
%>
Besides this, even the following code generates an error:

Today=Date()
Response.write DateAdd(d,5,Tod ay)

your guidence is sought, oh great one.
amen

[Chris Barber]

For i = 0 to -7 Step -1
If i = 0 Then
pstrSelected = " selected"
Else
pstrSelected = vbNullString
End If
Response.write "<option" & pstrSelected & " value=""" & CDate(Date() +
i) & """>" & FormatDateTime( Date() + i, 1) & "<option>"
Next

NB: vbLongDate = 1

See:
http://msdn.microsoft.com/library/de...atDateTime.asp

Chris.

"lofty" <lo*****@austar net.com.au> wrote in message
news:02******** *************** *****@phx.gbl.. .

Dear Lord,

I'm trying to code a drop down for a date entry that gives
the user the option of the current date plus the dates of
the last 7 days.

<%
for i = -7 to -1
Response.write "<option>" & DateAdd(d,i,Dat e())
& "<option>"
next
%>
Besides this, even the following code generates an error:

Today=Date()
Response.write DateAdd(d,5,Tod ay)

your guidence is sought, oh great one.
amen

[lofty]

Thankyou,

but could u tell me why i'm getting the error

Microsoft VBScript runtime (0x800A0005)
Invalid procedure call or argument: 'DateAdd'

when i,m using dateAdd

-----Original Message-----
For i = 0 to -7 Step -1
If i = 0 Then
pstrSelected = " selected"
Else
pstrSelected = vbNullString
End If
Response.write "<option" & pstrSelected & " value=""" & CDate(Date() +i) & """>" & FormatDateTime( Date() + i, 1) & "<option>"
Next

NB: vbLongDate = 1

See:
http://msdn.microsoft.com/library/default.asp? url=/library/en-us/script56/html/vsfctFormatDate Time.asp
Chris.

"lofty" <lo*****@austar net.com.au> wrote in message
news:02******* *************** ******@phx.gbl. ..

Dear Lord,

I'm trying to code a drop down for a date entry that gives the user the option of the current date plus the dates of the last 7 days.

<%
for i = -7 to -1
Response.write "<option>" & DateAdd(d,i,Dat e())
& "<option>"
next
%>
Besides this, even the following code generates an error:
Today=Date()
Response.write DateAdd(d,5,Tod ay)

your guidence is sought, oh great one.
amen

.

[Mosley]

"lofty" <lo*****@austar net.com.au> wrote in message
news:02******** *************** *****@phx.gbl.. .

Dear Lord,

I'm trying to code a drop down for a date entry that gives
the user the option of the current date plus the dates of
the last 7 days.
aharrrrrrr
NO
DateAdd(d,i,Dat e())

Yes
DateAdd("d",i,D ate())

<%
for i = -7 to -1
Response.write "<option>" & DateAdd(d,i,Dat e())
& "<option>"
next
%>
Besides this, even the following code generates an error:

Today=Date()
Response.write DateAdd(d,5,Tod ay)

your guidence is sought, oh great one.
amen

[Bob Barrows]

lofty wrote:

Dear Lord,

I'm trying to code a drop down for a date entry that gives
the user the option of the current date plus the dates of
the last 7 days.

<%
for i = -7 to -1
Response.write "<option>" & DateAdd(d,i,Dat e())
& "<option>"
next
%>
Besides this, even the following code generates an error:

Today=Date()
Response.write DateAdd(d,5,Tod ay)

your guidence is sought, oh great one.
amen

I'm not a lord; however:
in vbscript, the first argument needs to be quoted since it must be a
string:
DateAdd("d",i,D ate())

If you do not have the vbscript reference, it can be downloaded from here:
http://tinyurl.com/7rk6

HTH,
Bob Barrows

[Chris Barber]

http://msdn.microsoft.com/library/de...fctDateAdd.asp

First parameter must be a string value (eg. "d"), not a variable reference
(eg. d).

Chris.

"lofty" <lo*****@austar net.com.au> wrote in message
news:02******** *************** *****@phx.gbl.. .

Thankyou,

but could u tell me why i'm getting the error

Microsoft VBScript runtime (0x800A0005)
Invalid procedure call or argument: 'DateAdd'

when i,m using dateAdd

-----Original Message-----
For i = 0 to -7 Step -1
If i = 0 Then
pstrSelected = " selected"
Else
pstrSelected = vbNullString
End If
Response.write "<option" & pstrSelected & " value="""

& CDate(Date() +

i) & """>" & FormatDateTime( Date() + i, 1) & "<option>"
Next

NB: vbLongDate = 1

See:
http://msdn.microsoft.com/library/default.asp?

url=/library/en-us/script56/html/vsfctFormatDate Time.asp

Chris.

"lofty" <lo*****@austar net.com.au> wrote in message
news:02******* *************** ******@phx.gbl. ..

Dear Lord,

I'm trying to code a drop down for a date entry that gives the user the option of the current date plus the dates of the last 7 days.

<%
for i = -7 to -1
Response.write "<option>" & DateAdd(d,i,Dat e())
& "<option>"
next
%>
Besides this, even the following code generates an error:
Today=Date()
Response.write DateAdd(d,5,Tod ay)

your guidence is sought, oh great one.
amen

.