[SOLVED] Your last visit is Today??

Monie · #21 (**permalink**) Oct 25th, 2007, 09:48

Ohh I see.. I get the idea now. Let me go back and play with my code.
I'll let you know yesterday! I mean tomorow.. lol

Thanks..

c010depunkk · #22 (**permalink**) Oct 25th, 2007, 09:55

PHP: Select all


<?php
echo('Your last visit was '.($row['lastvisited']==$todays_date?'Today':($row['lastvisited']==$yesterdays_date?'Yesterday':$row['lastvisit'])).'!');
?>

Marc · #23 (**permalink**) Oct 25th, 2007, 09:58

Go away... Smartie pants... lol

Rob · #24 (**permalink**) Oct 25th, 2007, 10:36

Instead of this code

Code: Select all

dim dd, mm, yyyy, newtime, newdate
        dd=day(date)
    if len(dd)=1 then
        dd="0" & dd
    end if
        mm=month(date)
    if len(mm)=1 then
        mm="0" & mm
    end if
        yyyy=year(date)
    
    'getting new date
    newdate = dd & "-" & mm & "-" & yyyy

Use this:-

Code: Select all

newdate = date(now)

DO NOT store 'today' in the database.... store an actual date/time instead

The correct method to show 'today' would be a comparison when displaying the thing....
not when entering it in the database.

Does that make sense?

Daniel · #25 (**permalink**) Oct 25th, 2007, 10:55

My head hurts

Marc · #26 (**permalink**) Oct 25th, 2007, 11:07

Quote:

Originally Posted by Daniel

My head hurts

Thats ASP for ya

Monie · #27 (**permalink**) Oct 26th, 2007, 01:06

Hey guys.. check out what I've come up with!

I don't know if this way can be consider a "creative" way, but I have accomplished what I am trying to get.

It's not a PHP code, I just use the php tag so that I get a nice colorful ASP code, lol.

Code: Select all

<%    
    dim dd, mm, yyyy, newtime, newdatetoday, newdateyesterday, newdatelastweek, lastweek, yesterday

    dd = day(date) //todays date
    yesterday = dd - 1 //yesterdays date
    lastweek = dd - 7 //last week date
    mm = month(date)    
    yyyy=year(date)

    If Len(dd) = 1 Then
        dd="0" & dd //Add '0' to DD that start with 1-9
    End If    
   
    If len(mm) = 1 Then
        mm="0" & mm
    End If    
    
    //Todays date
    newdatetoday = dd & "-" & mm & "-" & yyyy
    //Yesterdays date
    newdateyesterday = yesterday & "-" & mm & "-" & yyyy
    //Last Week date (exactly 7 days ago)
    newdatelastweek = lastweek & "-" & mm & "-" & yyyy
    //Get time
    newtime = time()
  
    dim lastvisit
    lastvisit = rs("lastactivedate")
       
    If (cdate(lastvisit)) = (cdate(newdatelastweek)) Then
        lastvisit = "Last Week"
    Else If (cdate(lastvisit)) = (cdate(newdateyesterday)) Then
        lastvisit = "Yesterday"
    Else If (cdate(lastvisit)) = (cdate(newdatetoday)) Then
        lastvisit = "Today"
    Else    
        lastvisit = rs("lastactivedate")
    End If
%>

Your last activity: <%Response.Write(lastvisit)%>

CDate function converts a valid date (and time) expression to type Date. After converting them, I found out I can make the comparison directly. I don't know if this can be done in PHP?

Hey Rob, I'll check out your code!

Monie · #28 (**permalink**) Nov 1st, 2007, 04:16

I got it the updated version, much more structured and understandable:

Code: Select all

<%    
    Dim todaytime, todaydate, yesterdaysdate, lastweekdate

    todaydate = (cdate(date())) 'today date
    yesterdaysdate = (cdate(date())) - 1 'yesterdays date
    lastweekdate = (cdate(date())) - 7 'lastweek date
    todaytime = FormatDateTime(Now(), vbShortTime) 'show today time in mm:hh format (24 hour clock)

    If Session("name") <> "" Then
        dim lastvisit
        lastvisit = rs("lastactivedate")
        
        If lastvisit <> "" Then
            If (cdate(lastvisit)) = lastweekdate Then
                lastvisit = "Last Week"
            ElseIf (cdate(lastvisit)) = yesterdaysdate Then
                lastvisit = "Yesterday"
            ElseIf (cdate(lastvisit)) = todaydate Then
                lastvisit = "Today"
            Else    
                lastvisit = rs("lastactivedate")
            End If
        End If
    End If    
%>

Code: Select all

<body>
   You last visited: <%Response.Write(lastvisit)%>
</body>

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Visit Falmouth	Jack Franklin	Website Planning	4	Mar 29th, 2008 13:52
Last Visit? Last Activity?	Monie	Classic ASP	5	Jan 3rd, 2008 01:59
visit from an old friend !	bruno89	Webforumz Cafe	27	Oct 28th, 2007 22:05
[SOLVED] User Last Visit Status	Monie	Classic ASP	3	Oct 10th, 2007 03:03
Googlebot Visit ?????????	Merlin	Webforumz Cafe	3	Oct 1st, 2007 00:55

		Webforumz.com > Main Forums > Program Your Website > Classic ASP
[SOLVED] Your last visit is Today??