|
bi11i
Starting Member
USA
17 Posts |
 Posted - 22 October 2003 : 02:22:18
|
i get this when it displays the date, but I seem to be able to select it just fine when editing my profile. Here's what I get:
Microsoft VBScript runtime error '800a000d'
Type mismatch: 'strDOBDate'
/inc_showdob.asp, line 15
here's my code in inc_showdob.asp:
quote:
<%
function DayName(inDay)
if Mid(strDOBDate,1,1) <> "1" then
select case Mid(strDOBDate,2,1)
case "1" DayName = "st"
case "2" DayName = "nd"
case "3" DayName = "rd"
case else DayName = "th"
end select
else DayName = "th"
end if
end Function
function ShowDOB(strDOBDate)
strDOBDate = year(strDOBDate) & doublenum(Month(strDOBDate)) & doublenum(Day(strDOBDate))
dim strDayExtention
if not(isnull(strDOBDate)) then
strDayExtention = DayName(Mid(strDOBDate,8,1))
ShowDOB = "The " & Mid(strDOBDate,7,2) & DayName(Mid(strDOBDate,7,2)) & " of " & MonthName(Mid(strDOBDate, 5,2)) & ", " & Mid(strDOBDate, 1,4) & "."
else ShowDOB = "Invalid date of birth or not specified"
end if
end Function
%>
anyone have any ideas? my forum is at http://forum.bi11i.com (you'll have to excuse my profile picture...) |
 |
Edited by - bi11i on 22 October 2003 02:22:38 |
|
Topic Locked
