-
Notifications
You must be signed in to change notification settings - Fork 0
/
home.asp
117 lines (113 loc) · 4.74 KB
/
home.asp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
<!-- #include virtual="/lib/__common.asp" -->
<!-- #include virtual="/lib/__globals.asp" -->
<!-- #include virtual="/cms/common/__fsoConfig.asp" -->
<!-- #include virtual="/cms/common/__fsoCommon.asp" -->
<!-- #include virtual="/objects/cPhotos.asp" -->
<html>
<head>
<title>julie stark children photography in New York</title>
<title>julie stark children photography in New York</title>
<!-- #include file="__meta.asp" -->
<!-- #include file="__css.asp" -->
<%
Dim BODY_TITLE
BODY_TITLE = "home"
If RUN_HOME_PAGE_SLIDE_SHOW Then %>
<script type="text/javascript" language="javascript">
<!--
var slidespeed = <%=SLIDE_SHOW_SLIDE_SPEED%>;
var slideimages = new Array();
<%
Set oPhoto = New cPhotos
Set collPhotos = New cPhotos
Call collPhotos.GetSitePhotos()
Dim imgArrCounter
Dim startImage
imgArrCounter = 0
For Each oPhoto In collPhotos.Photos.Items
If oPhoto.WebPageId = WEB_PAGE_ID And oPhoto.ActiveFlag = True Then
If imgArrCounter = 0 Then
startImage = IMAGE_PATH & "/" & oPhoto.LargeImage
End If %>
slideimages[<%=imgArrCounter%>]='<%=IMAGE_PATH & "/" & oPhoto.LargeImage%>';
<% imgArrCounter = imgArrCounter + 1
End If
Set oPhoto = Nothing
Next
Set collPhotos = Nothing
%>
var imageholder = new Array();
var ie = document.all;
for (i=0;i<slideimages.length;i++){
imageholder[i] = new Image();
imageholder[i].src = slideimages[i];
}
//-->
</script>
<% End If %>
<script src="__menu.js" type="text/javascript"></script>
</head>
<body onload="preloadImages();">
<table width="900" height="562" border="0" cellpadding="0" cellspacing="0" align="center">
<!-- #include file="__menu.asp" -->
<td width="826" height="359" colspan="11" valign="top" align="center" style="background-color:<%=BodyContentBackColor%>;">
<table width="826">
<tr>
<td><img src="images/spacer.gif" width="1" height="353" alt="" /></td>
<td>
<table width="810" style="border-top:1px solid black;border-right:1px solid black;border-bottom:1px solid black;border-left:1px solid black;">
<tr>
<% If RUN_HOME_PAGE_SLIDE_SHOW Then %>
<td valign="middle" align="center">
<img width="800" height="275" alt="<%=ALT_IMAGE_TEXT%>" src="<%=startImage%>" name="slide" border=0 style="filter:progid:DXImageTransform.Microsoft.Wipe(duration=<%=SLIDE_SHOW_DURATION%>,gradientsize=<%=SLIDE_SHOW_GRADIENT_SIZE%>, motion=<%=SLIDE_SHOW_MOTION%>)">
</td>
<% Else
Set oPhoto = New cPhotos
Set collPhotos = New cPhotos
Call collPhotos.GetSitePhotos()
For Each oPhoto In collPhotos.Photos.Items
If oPhoto.WebPageId = WEB_PAGE_ID And oPhoto.ActiveFlag = True Then %>
<td class="home-photo-display" valign="top" align="center" style="padding:5 0 5 0">
<table height="275" cellpadding="0" cellspacing="0" border="0" class="home-photo-display-liner">
<tr>
<td valign="top"><img alt="<%=ALT_IMAGE_TEXT%>" src="<%=IMAGE_PATH%>/<%=oPhoto.LargeImage%>" height="275"></td>
</tr>
</table>
</td>
<% End If
Set oPhoto = Nothing
Next
Set collPhotos = Nothing
End If %>
</tr>
</table>
<table width="810">
<tr>
<td align="right" style="padding:10 0 0 0;"><img src="images/home_tagline.jpg" /></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<!-- #include file="__partrow8_row9_10_copyright.asp" -->
</body>
</html>
<%
If RUN_HOME_PAGE_SLIDE_SHOW And WEB_PAGE_ID = 2 Then %>
<script type="text/javascript" language="javascript"><!--
var ie = document.all;
var whichimage=0;
var blenddelay=(ie) ? document.images.slide.filters[0].duration*1000 : 0;
function slideit() {
if (!document.images) return
if (ie) document.images.slide.filters[0].apply();
document.images.slide.src = imageholder[whichimage].src;
if (ie) document.images.slide.filters[0].play();
whichimage =(whichimage<slideimages.length-1) ? whichimage+1 : 0;
setTimeout("slideit()",slidespeed+500);
}
slideit();
//--></script>
<% End If %>
<!-- #include file="__disable_mouse_click.asp" -->