Microsoft VBScript runtime error '800a000d' - mismatch date

[easter]

I have inherited an ASP site and am new to ASP. Part of the site allows the client to update event information about their centre. When they try to add a new event, the following error occurs:

Microsoft VBScript runtime error '800a000d'
Type mismatch: 'incoming_date'
includes/common_functions.asp, line 113

but I can't figure out where to make the correction.

The code that contains the error is below. Line 113 is : extract_day=day(incoming_date)

function make_current_date(incoming_date)
dim extract_day, extract_month, extract_year, mysql_date
extract_day=day(incoming_date)
extract_month=month(incoming_date)
extract_month=make_double_digit_month(extract_mont h)
extract_year=year(incoming_date)
mysql_date=extract_year & "-" & extract_month & "-" & extract_day
make_current_date=mysql_date
end function

Where the date is selected, this code is next to the date selector:
<!-- #include file="../includes/day_month_selector.asp" -->

the code for the day_month_selector.asp is as follows:
Day: <select name="day">
<option value="1">01</option>
<option value="2">02</option>
<option value="3">03</option>
<option value="4">04</option>
<option value="5">05</option>
<option value="6">06</option>
<option value="7">07</option>
<option value="8">08</option>
<option value="9">09</option>
<option value="10">10</option>
<option value="11">11</option>
<option value="12">12</option>
<option value="13">13</option>
<option value="14">14</option>
<option value="15">15</option>
<option value="16">16</option>
<option value="17">17</option>
<option value="18">18</option>
<option value="19">19</option>
<option value="20">20</option>
<option value="21">21</option>
<option value="22">22</option>
<option value="23">23</option>
<option value="24">24</option>
<option value="25">25</option>
<option value="26">26</option>
<option value="27">27</option>
<option value="28">28</option>
<option value="29">29</option>
<option value="30">30</option>
<option value="31">31</option>
</select>
Month: <select name="month">
<option value="1">January</option>
<option value="2">February</option>
<option value="3">March</option>
<option value="4">April</option>
<option value="5">May</option>
<option value="6">June</option>
<option value="7">July</option>
<option value="8">August</option>
<option value="9">September</option>
<option value="10">October</option>
<option value="11">November</option>
<option value="12">December</option>
</select>
Year: <select name="year">
<%
dim one_year
for one_year = 0 to 8
Response.Write "<option value=" & Chr(34) & Year(DateAdd("yyyy",one_year,Date)) & Chr(34) & ">" & Year(DateAdd("yyyy",one_year,Date)) & "</option>" & vbCrLf
next
%>
</select>
--------------------------------------------------------------------------------------------


Any ideas would be greatly appreciated.

[scripto]

incoming_date MUST be a real date to use the day() function.
That is probably why you are getting the error.
Make sure incoming_date is a real date.

[gateshosting]

Probobly the most simple way is to write a function to check the date first...

function isThisADate(xAsDate)

on error resume next

if isnull(xAsDate) then
isThisADate = false
exit function
end if

if isDate(xStringAsDate) then
isThisADate = true
exit function
end if

if err.number <> 0 then
isThisADate = false
end if

exit function

Any type mismatch means that the variable is of the wrong type. So if you do 1 + "A", then it will throw a type mismatch. Unless of course A = Number.

I have functions that help, like nullToZero(xVal) which if xVal is null or "", it will return 0, that way you don't get a type mismatch for null values. You can do this for each type.

Best regards,

Michael C. Gates

[easter]

thank you very much for your help....I think I'll need to get someone in to work on this as I'm not sure what to do from your descriptions which would be straight forward to someone who knew ASP better than I do! thank you again.