or
For
Each
obj_hit
As
hit
In
hits
If
Month(hit.date_created) = 1
Then
'jan
ElseIf
Month(hit.date_created) = 2
Then
'feb
ElseIf
Month(hit.date_created) = 3
Then
'march
ElseIf
Month(hit.date_created) = 4
Then
'..
ElseIf
Month(hit.date_created) = 5
Then
ElseIf
Month(hit.date_created) = 6
Then
ElseIf
Month(hit.date_created) = 7
Then
ElseIf
Month(hit.date_created) = 8
Then
ElseIf
Month(hit.date_created) = 9
Then
ElseIf
Month(hit.date_created) = 10
Then
ElseIf
Month(hit.date_created) = 11
Then
ElseIf
Month(hit.date_created) = 12
Then
End
If
Next
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="frame.aspx.vb" Inherits="Maintenance_frame" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<
html
xmlns
=
"http://www.w3.org/1999/xhtml"
>
<
head
runat
=
"server"
>
<
title
></
title
>
</
head
>
<
body
>
<
form
id
=
"form1"
runat
=
"server"
>
<
div
>
<
iframe
src
=
"http://rome/mypage.aspx"
width
=
"100%"
style
=
"overflow:hidden;overflow-y:hidden;overflow-x:hidden"
height
=
"500px"
scrolling
=
"no"
>Your browser does not suppport frames.</
iframe
>
</
div
>
</
form
>
</
body
>
</
html
>
<
telerik:RadGrid
ID
=
"rgVendor"
runat
=
"server"
AllowSorting
=
"True"
AutoGenerateColumns
=
"False"
GridLines
=
"None"
PageSize
=
"5"
Skin
=
"WebBlue"
Width
=
"100%"
AllowFilteringByColumn
=
"True"
CellSpacing
=
"0"
>
<
FilterMenu
EnableImageSprites
=
"False"
>
</
FilterMenu
>
<
HeaderContextMenu
CssClass
=
"GridContextMenu GridContextMenu_Default"
EnableImageSprites
=
"True"
>
</
HeaderContextMenu
>
<
MasterTableView
ClientDataKeyNames
=
"vnd_code"
TableLayout
=
"Fixed"
CommandItemDisplay
=
"Top"
>
<
CommandItemSettings
ExportToPdfText
=
"Export to PDF"
/>
<
RowIndicatorColumn
FilterControlAltText
=
"Filter RowIndicator column"
>
</
RowIndicatorColumn
>
<
ExpandCollapseColumn
FilterControlAltText
=
"Filter ExpandColumn column"
>
</
ExpandCollapseColumn
>
<
EditFormSettings
>
<
EditColumn
FilterControlAltText
=
"Filter EditCommandColumn column"
>
</
EditColumn
>
</
EditFormSettings
>
<
CommandItemTemplate
>
<
table
border
=
"0"
cellpadding
=
"2"
cellspacing
=
"2"
width
=
"100%"
>
<
tr
>
<
td
nowrap
style
=
"width: 75px; text-align: left;"
>
<
asp:LinkButton
ID
=
"lnkAdd"
runat
=
"server"
OnClientClick
=
"add_onclick();return false;"
Font-Underline
=
"false"
ToolTip
=
"Add New Vendor Master"
TabIndex
=
"1"
><
img
src
=
"../Images/form-addnew.png"
border
=
"0"
/> Add New</
asp:LinkButton
>
</
td
>
<
td
class
=
"labelnorm"
style
=
"width: 80%; text-align: center; font-weight: bold"
>
Vendor Master Entry
</
td
>
<
td
nowrap
style
=
"width: 40px"
>
<
asp:LinkButton
ID
=
"lnkClear"
runat
=
"server"
CommandName
=
"RemoveFilters"
OnClientClick
=
"javascript:$find('txtCode').set_value('');"
Font-Underline
=
"false"
ToolTip
=
"Clear Filters"
TabIndex
=
"1"
><
img
src
=
"../Images/form-clear.png"
border
=
"0"
/> Clear</
asp:LinkButton
>
</
td
>
<
td
nowrap
style
=
"width: 5px;"
>
-
</
td
>
<
td
nowrap
style
=
"width: 50px"
>
<
asp:LinkButton
ID
=
"lnkRefresh"
runat
=
"server"
CommandName
=
"RebindGrid"
Font-Underline
=
"false"
ToolTip
=
"Refresh Organization List"
TabIndex
=
"1"
><
img
src
=
"../Images/form-refresh.png"
border
=
"0"
/> Refresh</
asp:LinkButton
>
</
td
>
<
td
nowrap
style
=
"width: 5px"
>
-
</
td
>
<
td
nowrap
style
=
"width: 50px"
>
<
asp:LinkButton
ID
=
"lnkExcel"
runat
=
"server"
CommandName
=
"ExportToExcel"
CssClass
=
"clink"
Font-Underline
=
"false"
ToolTip
=
"Click To Export List To Excel"
TabIndex
=
"1"
><
img
src
=
"../Images/form-excel.png"
border
=
"0"
/> XLS</
asp:LinkButton
>
</
td
>
<
td
nowrap
style
=
"width: 5px"
>
-
</
td
>
<
td
nowrap
style
=
"width: 50px"
>
<
asp:LinkButton
ID
=
"lnkCSV"
runat
=
"server"
CommandName
=
"ExportToCSV"
CssClass
=
"clink"
Font-Underline
=
"false"
ToolTip
=
"Click To Export List To CSV"
TabIndex
=
"1"
><
img
src
=
"../Images/form-csv-export.png"
border
=
"0"
/> CSV</
asp:LinkButton
>
</
td
>
<
td
nowrap
style
=
"width: 5px"
>
-
</
td
>
<
td
nowrap
style
=
"width: 50px"
>
<
asp:HyperLink
ID
=
"lnkClose"
runat
=
"server"
Font-Underline
=
"false"
ToolTip
=
"Click To Close This Menu"
TabIndex
=
"1"
Target
=
"_top"
><
img
src
=
"../Images/form-close.png"
border
=
"0"
/> Close</
asp:HyperLink
>
</
td
>
</
tr
>
</
table
>
</
CommandItemTemplate
>
<
Columns
>
<
telerik:GridTemplateColumn
UniqueName
=
"TemplateColumn"
AllowFiltering
=
"false"
>
<
HeaderStyle
Width
=
"70px"
/>
<
ItemStyle
Wrap
=
"false"
HorizontalAlign
=
"Center"
/>
<
ItemTemplate
>
</
ItemTemplate
>
</
telerik:GridTemplateColumn
>
<
telerik:GridBoundColumn
DataField
=
"vnd_code"
HeaderText
=
"Vendor Code"
ReadOnly
=
"True"
SortExpression
=
"vnd_code"
UniqueName
=
"vnd_code"
>
<
HeaderStyle
Font-Bold
=
"True"
HorizontalAlign
=
"Left"
Width
=
"80px"
Wrap
=
"False"
/>
<
ItemStyle
HorizontalAlign
=
"Left"
Wrap
=
"False"
/>
</
telerik:GridBoundColumn
>
<
telerik:GridBoundColumn
DataField
=
"vnd_description"
HeaderText
=
"Description"
SortExpression
=
"vnd_description"
UniqueName
=
"vnd_description"
>
<
HeaderStyle
Font-Bold
=
"True"
HorizontalAlign
=
"Left"
Wrap
=
"False"
/>
<
ItemStyle
HorizontalAlign
=
"Left"
Wrap
=
"False"
/>
</
telerik:GridBoundColumn
>
<
telerik:GridBoundColumn
DataField
=
"vnd_email"
HeaderText
=
"Email"
SortExpression
=
"vnd_email"
UniqueName
=
"vnd_email"
>
<
HeaderStyle
Font-Bold
=
"True"
HorizontalAlign
=
"Left"
Width
=
"200px"
Wrap
=
"False"
/>
<
ItemStyle
HorizontalAlign
=
"Left"
Wrap
=
"False"
/>
</
telerik:GridBoundColumn
>
<
telerik:GridBoundColumn
DataField
=
"vnd_file_format"
HeaderText
=
"File Format"
SortExpression
=
"vnd_file_format"
UniqueName
=
"vnd_file_format"
>
<
HeaderStyle
Font-Bold
=
"True"
HorizontalAlign
=
"Center"
Width
=
"90px"
Wrap
=
"False"
/>
<
ItemStyle
HorizontalAlign
=
"Left"
Wrap
=
"False"
/>
</
telerik:GridBoundColumn
>
</
Columns
>
</
MasterTableView
>
<
ClientSettings
>
<
Scrolling
AllowScroll
=
"True"
UseStaticHeaders
=
"True"
/>
<
Selecting
AllowRowSelect
=
"True"
/>
<
Resizing
AllowColumnResize
=
"True"
AllowResizeToFit
=
"True"
EnableRealTimeResize
=
"True"
/>
</
ClientSettings
>
</
telerik:RadGrid
>
<
telerik:RadMenu
ID
=
"RadMenu1"
runat
=
"server"
EnableShadows
=
"true"
>
<
Items
>
<
telerik:RadMenuItem
Text
=
""
PostBack
=
"false"
ImageUrl
=
"~/i/opendata.png"
NavigateUrl
=
"data.aspx"
>
<
Items
>
<
telerik:RadMenuItem
Width
=
"400px"
>
<
ItemTemplate
>
<
div
id
=
"CatWrapper"
class
=
"Wrapper"
style
=
"width: 380px;"
>
<
h3
> Our Data</
h3
>
<
table
>
<
tr
>
<
td
valign
=
"bottom"
><
a
href
=
"dfaq.aspx"
><
img
src
=
"i/faq_24.png"
alt
=
"FAQ"
/></
a
>
</
td
>
<
td
width
=
"175px"
><
a
href
=
"dfaq.aspx"
>Data FAQ</
a
></
td
>
<
td
valign
=
"bottom"
><
a
href
=
"maps.aspx"
><
img
src
=
"i/map_24.png"
alt
=
"Maps"
/></
a
></
td
>
<
td
><
a
href
=
"mapcat.aspx"
>Maps</
a
></
td
>
</
tr
>
<
tr
>
<
td
valign
=
"bottom"
align
=
"right"
><
a
href
=
"dldsoptions.aspx"
><
img
src
=
"i/globe_download_24.png"
alt
=
"Dowload Datasets"
/></
a
>
</
td
>
<
td
><
a
href
=
"dldsoptions.aspx"
>Download Datasets</
a
></
td
>
<
td
valign
=
"bottom"
><
a
href
=
"otherdata.aspx"
><
img
src
=
"i/link_24.png"
alt
=
"Other Data Links"
/></
a
>
</
td
>
<
td
><
a
href
=
"otherdata.aspx"
>Other Data Links</
a
></
td
>
</
tr
>
<
tr
id
=
"sde"
>
<
td
valign
=
"bottom"
id
=
"sdeimgcell"
runat
=
"server"
visible
=
"false"
><
a
href
=
"sde.aspx"
><
img
src
=
"i/_engine_24.png"
alt
=
"SDE"
/></
a
></
td
>
<
td
id
=
"sdelinkcell"
runat
=
"server"
visible
=
"false"
><
a
href
=
"sde.aspx"
>Access Data</
a
></
td
>
<
td
></
td
>
<
td
></
td
>
</
tr
>
</
table
>
</
div
>
</
ItemTemplate
>
</
telerik:RadMenuItem
>
</
Items
>
</
telerik:RadMenuItem
>
</
Items
>
</
telerik:RadMenu
>
Microsoft JScript runtime error: Sys.WebForms.PageRequestManagerServerErrorException: An unknown error occurred while processing the request on the server. The status code returned from the server was: 12030
protected void Page_Load(object sender, EventArgs e)
{
SessionTimer.Enabled = false;
SessionTimer.Interval = 30000;
SessionTimer.Enabled = true;
}
Dim
myError
As
String
=
"This is an error message."
RadAjaxManager1.ResponseScripts.Add(
"radalert('"
+ myError +
"', 430, 150);"
)