 |
Make a reservation for airport
transporation or private tours
Anywhere, Anytime....
Get Started Now>>
|
|
|
Quick Links:
>Area Tours
>Airport Transfers
>Sedona Weddings
>Corporate Events
>Hotels Links
>Sedona Weather
|
|
|
|
|
|
|
<%
'for checking yesterday
yesterday = DateAdd("d",-1,date)
y_y = datepart("yyyy",yesterday)
m_y = datepart("m",yesterday)
d_y = datepart("d",yesterday)
if (m_y="1" or m_y = "2" or m_y = "3" or m_y = "4" or m_y = "5" or m_y = "6" or m_y = "7" or m_y = "8" or m_y = "9") then
adzero = 0
time_y = y_y & adzero & m_y & d_y
else
time_y = y_y & m_y & d_y
end if
'response.Write(time_y)
%>
<%
'this is for checking today
'response.write(Date & "
")
curr_y=DatePart("yyyy",Date)
curr_m=DatePart("m",Date)
curr_d=DatePart("d",Date)
'response.write "date" & curr_y
'response.write curr_m
'response.write curr_d
if (curr_m="1" or curr_m = "2" or curr_m = "3" or curr_m= "4" or curr_m = "5" or curr_m= "6" or curr_m = "7" or curr_m= "8" or curr_m= "9") then
adzero = 0
curr_m=adzero & curr_m
end if
if (curr_d="1" or curr_d = "2" or curr_d = "3" or curr_d= "4" or curr_d = "5" or curr_d= "6" or curr_d = "7" or curr_d= "8" or curr_d= "9") then
adzero = 0
curr_d=adzero & curr_d
end if
curr_time = (curr_y & curr_m & curr_d)
%>
<%
'response.Write trim(curr_time)
%>
<%
'this is for checking tomorrow
tomorrow = DateAdd("d",+1,date)
y_t = datepart("yyyy",tomorrow)
m_t = datepart("m",tomorrow)
d_t = datepart("d",tomorrow)
if (m_t="1" or m_t = "2" or m_t = "3" or m_t = "4" or m_t = "5" or m_t = "6" or m_t = "7" or m_t = "8" or m_t = "9") then
adzero = 0
time_t = y_t & adzero & m_t & d_t
else
time_t = y_t & m_t & d_t
end if
'response.Write(time_t)
%>
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
<%
set objrs = server.CreateObject("adodb.recordset")
objrs.open "select * from pages where page_id like '5'", strconnect
%>
<%if not objrs.eof then%>
<% = objrs.fields("pagecontent") %>
Contact Us
>>BACK TO HOME!>>
|
<%
objrs.close
set objrs = nothing
%>
<%else
response.Redirect "index.asp"
end if
%>
|