working with dates

[Brett Atkin]

I have a form where I pass a member's end date to a processing page.

The date is getting passed as a string so when I try to add to that date I
get an error.

Here is my code - the error message is below the code.

*************** *****

<%
sub_amount = request("sub_am ount")
end_date = request("end_da te")
mem_email = request.form("m em_email")
mem_first = request.form("m em_first")
mem_last = request.form("m em_last")
mem_ezine = request.form("m em_ezine")

Select Case sub_amount

Case "31.50"
sub_term = "One Year"
mem_status = "Current"
start_date = end_date + 1
end_date = start_date + 365

Case "53.00"
sub_term = "Two Years"
mem_status = "Current"
start_date = end_date + 1
end_date = start_date + 730

End Select
%>

*************** *****

the error message.

*************** *****
Error Type:
Microsoft VBScript runtime (0x800A000D)
Type mismatch: '[string: "7/22/2003"]'
/powerquotes_plu s/Connections/subscriptions.a sp, line 14
*************** *****

Question:

How do I convert the string date (end_date) to a format that I can work
with?

Thanks

Brett

[Bob Barrows]

Use CDate to convert the string to date.

HTH,
Bob Barrows

Brett Atkin wrote:

I have a form where I pass a member's end date to a processing page.

The date is getting passed as a string so when I try to add to that
date I get an error.

Here is my code - the error message is below the code.

*************** *****

<%
sub_amount = request("sub_am ount")
end_date = request("end_da te")
mem_email = request.form("m em_email")
mem_first = request.form("m em_first")
mem_last = request.form("m em_last")
mem_ezine = request.form("m em_ezine")

Select Case sub_amount

Case "31.50"
sub_term = "One Year"
mem_status = "Current"
start_date = end_date + 1
end_date = start_date + 365

Case "53.00"
sub_term = "Two Years"
mem_status = "Current"
start_date = end_date + 1
end_date = start_date + 730

End Select
%>

*************** *****

the error message.

*************** *****
Error Type:
Microsoft VBScript runtime (0x800A000D)
Type mismatch: '[string: "7/22/2003"]'
/powerquotes_plu s/Connections/subscriptions.a sp, line 14
*************** *****

Question:

How do I convert the string date (end_date) to a format that I can
work with?

Thanks

Brett

[Brett Atkin]

Bob,

I knew that, I just couldn't it in my brain, I was drawing a blank. Thank
you for the quick answer.

It did help

Brett
"Bob Barrows" <re*******@yaho o.com> wrote in message
news:eW******** ******@tk2msftn gp13.phx.gbl...

Use CDate to convert the string to date.

HTH,
Bob Barrows

Brett Atkin wrote:

I have a form where I pass a member's end date to a processing page.

The date is getting passed as a string so when I try to add to that
date I get an error.

Here is my code - the error message is below the code.

*************** *****

<%
sub_amount = request("sub_am ount")
end_date = request("end_da te")
mem_email = request.form("m em_email")
mem_first = request.form("m em_first")
mem_last = request.form("m em_last")
mem_ezine = request.form("m em_ezine")

Select Case sub_amount

Case "31.50"
sub_term = "One Year"
mem_status = "Current"
start_date = end_date + 1
end_date = start_date + 365

Case "53.00"
sub_term = "Two Years"
mem_status = "Current"
start_date = end_date + 1
end_date = start_date + 730

End Select
%>

*************** *****

the error message.

*************** *****
Error Type:
Microsoft VBScript runtime (0x800A000D)
Type mismatch: '[string: "7/22/2003"]'
/powerquotes_plu s/Connections/subscriptions.a sp, line 14
*************** *****

Question:

How do I convert the string date (end_date) to a format that I can
work with?

Thanks

Brett