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_function s.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_da te(incoming_dat e)
dim extract_day, extract_month, extract_year, mysql_date
extract_day=day (incoming_date)
extract_month=m onth(incoming_d ate)
extract_month=m ake_double_digi t_month(extract _month)
extract_year=ye ar(incoming_dat e)
mysql_date=extr act_year & "-" & extract_month & "-" & extract_day
make_current_da te=mysql_date
end function

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

the code for the day_month_selec tor.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">Janua ry</option>
<option value="2">Febru ary</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">Augus t</option>
<option value="9">Septe mber</option>
<option value="10">Octo ber</option>
<option value="11">Nove mber</option>
<option value="12">Dece mber</option>
</select>
Year: <select name="year">
<%
dim one_year
for one_year = 0 to 8
Response.Write "<option value=" & Chr(34) & Year(DateAdd("y yyy",one_year,D ate)) & Chr(34) & ">" & Year(DateAdd("y yyy",one_year,D ate)) & "</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(xAs Date)

on error resume next

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

if isDate(xStringA sDate) 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.