Output på dato ??

http://www.counselor.dk/dev/regusers.asp uden punktum selvfølgelig :)

Her er koden, der er en del det ved jeg godt ;)

<%
mypage = request(\"whichpage\")

    If  mypage = \"\" then
      mypage = 1
    end if

    mypagesize = request.cookies(\"paging\")(\"pagesize\")

    If  mypagesize = \"\" then
      mypagesize = 35
    end if
   
       
       
%>   
      <table border=0 width=\"100%\" cellspacing=0 cellpadding=2 style=\"border:1px solid #4682B4;\">
        <tr bgcolor=\"#4682b4\">
          <td class=\"whitesmallerheader\" width=\"20%\">Brugernavn</td>
          <td class=\"whitesmallerheader\" width=\"13%\">Medlem siden</td>
          <td class=\"whitesmallerheader\" width=\"15%\">Antal Hilsner</td>
          <td class=\"whitesmallerheader\" align=right width=\"16%\">Clean siden:</td>
          <td class=\"whitesmallerheader\" align=right width=\"28%\"> Idag Cleantime
            ialt:</td>
          <td class=\"whitesmallerheader\" align=right width=\"8%\">Hilsner</td>
        </tr>
        <%   
        OpenDB sConnUsers
        sSQL = \"SELECT * FROM users where Public = Yes order by BirthDate DESC\"
        rs.Open sSQL,,,adCmdTable
        i = 0
       
        set guestConn = Server.CreateObject(\"ADODB.Connection\")
        guestConn.Open sConnUserGuest  \'Åben til offenligbeskeder

    If rs.EOF or rs.BOF then
        Response.Write \"\"
    Else

        rs.movefirst
        num = 0
        rs.pagesize = mypagesize
        maxpages = cint(rs.pagecount)
        maxrecs = cint(rs.pagesize)
        rs.absolutepage = mypage
        howmanyrecs = 0
        rec = 1
        do until rs.EOF or (rec = mypagesize+1)
            if strI = 0 then
                CColor = \"#FFFFE0\"
            else
                CColor = \"#DDDDDD\"
            end if

        sBirthdate = rs(\"Birthdate\")
        sUserName = rs(\"UserName\")
        sEmail = rs(\"eMail\")
        sICQ = rs(\"ICQ\")
        sYahoo = rs(\"Yahoo\")
        sAIM = rs(\"AIM\")
        signupdt = rs(\"CreateDate\")
        sFirstName = rs(\"FirstName\")
        sLastName = rs(\"LastName\")
        fullname = sFirstName &\" \"&sLastName
        if rs(\"GenderMale\") = True then sGender = \"Mand\" else sGender = \"Kvinde\"
        if rs(\"NoSend\") = True then sNoSend = \"Nej\" else sNoSend = \"JaTak\"
        sCountry = rs(\"CountryCode\")
       
        sql = \"SELECT COUNT(ID) AS CountBesked FROM messages WHERE To = \'\" & sUserName & \"\';\"
        set guestRS = guestConn.Execute(sql)       
       
    %>
        <tr bgcolor=\"<%=Ccolor%>\">
          <td class=\"smallertext\" width=\"20%\"><b><a href=\"/dev/myDeV/users.asp?username=<%=sUserName%>\"><%=susername%></a></b><BR>
            <%=fullname%></td>
          <td class=\"smallertext\" width=\"13%\"><%=signupdt%></td>
          <td class=\"smallertext\" width=\"15%\"> <%=guestRS(\"CountBesked\")%>
<!--            <div align=\"right\"><%=sGender%></div>-->
          </td>
          <td class=\"smallertext\" align=right width=\"16%\"><%=sBirthdate%></td>
          <td class=\"smallertext\" align=right width=\"28%\">
            <%
dato = sBirthdate
years = Datediff (\"yyyy\",dato,date)
dato = dateAdd(\"yyyy\",years,dato)
mounths = Datediff (\"m\",dato,date)
if mounths < 0 then
  dato = dateAdd(\"yyyy\",-1,dato)
  mounths = Datediff (\"m\",dato,date)
  years = years - 1
end if
dato = dateAdd(\"m\",mounths,dato)
days = Datediff (\"d\",dato,date)
if days < 0 then
  if mounths > 0 then
    mounths = mounths - 1
  else
    years = years - 1
    mounths = 11
  end if
  dato = dateAdd(\"m\",-1,dato)
  days = Datediff (\"d\",dato,date)
end if
dinStr = years & \" år \" & mounths & \" måneder \" & days & \" dage\"
Response.Write dinStr
%>
          </td>
          <td class=\"smallertext\" align=right width=\"8%\"><a href=\"/dev/live/messenger/sendmessage.asp?txtTo=<%=sUsername%>\"><%=sNoSend%></a></td>
        </tr>
        <%
      rs.MoveNext
            strI = strI + 1
            if strI = 2 then
                strI = 0
            end if
            rec = rec + 1
        loop
    end if
guestConn.Close
 
%>
      </table>
<BR><%rs.close%>
<table width=\"100%\">
<tr>
    <td>&nbsp;</td>
    <td align=right width=100>
    <% if maxpages > 1 then %>
    <table width=\"95%\" border=0 align=\"right\">
      <tr>
                <td valign=\"top\"><b>Sider: </b></td>
        <td valign=\"top\"><% Call Paging() %></td>
      </tr>
    </table>
<% else %>
<% end if %>
</tr></Table>

<%
sub Paging()
    if maxpages > 1 then
        if Request.QueryString(\"whichpage\") = \"\" then
            pge = 1
        else
            pge = Request.QueryString(\"whichpage\")
        end if
        scriptname = request.servervariables(\"script_name\")
        Response.Write(\"<table border=0 width=100% cellspacing=0 cellpadding=1 align=top><tr>\")
        for counter = 1 to maxpages
            if counter <> cint(pge) then
                ref = \"<td align=right>&nbsp;\" & widenum(counter) & \"<a href=\'\" & scriptname
                ref = ref & \"?whichpage=\" & counter
                ref = ref & \"&pagesize=\" & request.cookies(\"paging\")(\"pagesize\")
                if top = \"1\" then
                    ref = ref & \"<b>\"
                    ref = ref & \">\" & counter & \"</b></a></td>\"
                    Response.Write ref
                else
                    ref = ref & \"\'>\" & counter & \"</a></td>\"
                    Response.Write ref
                end if
            else
                Response.Write(\"<td align=right>&nbsp;\" & widenum(counter) & \"<b>\" & counter & \"</b></td>\")
            end if
            if counter mod 15 = 0 then
                Response.Write(\"</tr><tr>\")
            end if
        next
        Response.Write(\"</tr></table>\")
    end if
    top = \"0\"
end sub
%>

\'\'