|
Server : Apache/2.4.62 System : FreeBSD fbsdweb2.web.rcn.net 14.1-RELEASE FreeBSD 14.1-RELEASE releng/14.1-n267679-10e31f0946d8 GENERIC amd64 User : www ( 80) PHP Version : 8.3.8 Disable Function : NONE Directory : /domains/marilynaj/admin/scripts/ |
Upload File : |
<%
q = chr(34)
b = chr(13)
html = "<html><head><title>Jacobs & Associates, Inc On-Line Administrative Center</title>"
html2 = "</body></html>"
table = "</head><body onLoad=" & q & "MM_preloadImages('images/home-topBtn.gif','images/home-topBtn-ovr.gif','images/logoff-topBtn.gif','images/logoff-topBtn-ovr.gif','images/web_tools-btn.gif','images/web_tools-btn-ovr.gif','images/messages-btn.gif','images/messages-btn-ovr.gif','images/profiles-btn.gif','images/profiles-btn-ovr.gif','images/callalert-btn.gif','images/callalert-btn-ovr.gif','images/emailalert-btn.gif','images/emailalert-btn-ovr.gif','images/servicealert-btn.gif','images/servicealert-btn-ovr.gif')" & q & "><table width=698px height=100% border=0 cellpadding=0 cellspacing=0 align=center>" & b & "<tr><td valign=middle align=center>"
table2 = b & "</td></tr></table>"
Function divMenu()
Response.Write "<a href='3flex.asp?action=mobile' onMouseOver=" & q & "MM_swapImage('mta','','images/callalert-btn-ovr.gif',1)" & q & " onMouseOut=" & q & "MM_swapImgRestore()" & q & "><img src='images/callalert-btn.gif' border='0' name='mta'></a>"
Response.Write "<div class='3flexhelp'>Mobile Tech Alert is an emergency contact solution for users experiencing extreme technical difficulty. <a href='3flex.asp?action=mobile' onMouseOver=" & q & "MM_swapImage('mta','','images/callalert-btn-ovr.gif',1)" & q & " onMouseOut=" & q & "MM_swapImgRestore()" & q & ">Go!</a></div>"
Response.Write "<a href='3flex.asp?action=request' onMouseOver=" & q & "MM_swapImage('trf','','images/emailalert-btn-ovr.gif',1)" & q & " onMouseOut=" & q & "MM_swapImgRestore()" & q & "><img src='images/emailalert-btn.gif' border='0' name='trf'></a>"
Response.Write "<div class='3flexhelp'>Tech Request Form is an email solution for users experiencing technical difficulty. <a href='3flex.asp?action=request' onMouseOver=" & q & "MM_swapImage('trf','','images/emailalert-btn-ovr.gif',1)" & q & " onMouseOut=" & q & "MM_swapImgRestore()" & q & ">Go!</a></div>"
Response.Write "<a href='3flex.asp?action=eservice' onMouseOver=" & q & "MM_swapImage('esc','','images/servicealert-btn-ovr.gif',1)" & q & " onMouseOut=" & q & "MM_swapImgRestore()" & q & "><img src='images/servicealert-btn.gif' border='0' name='esc'></a>"
Response.Write "<div class='3flexhelp'>e-Services Connect is a gateway for users to request upgrades and other business solutions provided by 3flexstudios.com-digital consultants. <a href='3flex.asp?action=eservice' onMouseOver=" & q & "MM_swapImage('esc','','images/servicealert-btn-ovr.gif',1)" & q & " onMouseOut=" & q & "MM_swapImgRestore()" & q & ">Go!</a></div>"
End Function
Function divMenuSml(name)
Response.Write "<table cellpadding='2' cellspacing='3' border='0'><tr>"
Response.Write "<td><a href='3flex.asp?action=mobile' onMouseOver=" & q & "MM_swapImage('mta','','images/callalertSml-btn-ovr.gif',1)" & q & " onMouseOut=" & q & "MM_swapImgRestore()" & q & "><img src='images/callalertSml-btn.gif' border='0' name='mta'></a></td>"
Response.Write "<td><a href='3flex.asp?action=request' onMouseOver=" & q & "MM_swapImage('trf','','images/emailalertSml-btn-ovr.gif',1)" & q & " onMouseOut=" & q & "MM_swapImgRestore()" & q & "><img src='images/emailalertSml-btn.gif' border='0' name='trf'></a></td>"
Response.Write "<td><a href='3flex.asp?action=eservice' onMouseOver=" & q & "MM_swapImage('esc','','images/servicealertSml-btn-ovr.gif',1)" & q & " onMouseOut=" & q & "MM_swapImgRestore()" & q & "><img src='images/servicealertSml-btn.gif' border='0' name='esc'></a></td>"
Response.Write "</tr><tr>"
Response.Write "<td><a href='admin.asp?action=webtools' onMouseOver=" & q & "MM_swapImage('wt','','images/web_toolsSml-btn-ovr.gif',1)" & q & " onMouseOut=" & q & "MM_swapImgRestore()" & q & "><img src='images/web_toolsSml-btn.gif' name='wt' border='0'></a></td>"
Response.Write "<td><a href='admin.asp?action=message' onMouseOver=" & q & "MM_swapImage('mc','','images/messagesSml-btn-ovr.gif',1)" & q & " onMouseOut=" & q & "MM_swapImgRestore()" & q & "><img src='images/messagesSml-btn.gif' border='0' name='mc'></a></td>"
Response.Write "<td><a href='admin.asp?action=profile' onMouseOver=" & q & "MM_swapImage('pb','','images/profilesSml-btn-ovr.gif',1)" & q & " onMouseOut=" & q & "MM_swapImgRestore()" & q & "><img src='images/profilesSml-btn.gif' name='pb' border='0'></a></td>"
Response.Write "</tr><tr><td colspan='3'><hr size='1'></td></tr><tr><td colspan='3'>"
Select Case name
Case "message"
Response.Write "<a href='message_admin.asp?action=manage' class='buttonSml'>Manage Email</a>"
Response.Write "<a href='message_admin.asp?action=add' class='buttonSml'>Add An Email</a>"
Response.Write "<a href='message_admin.asp?action=emailALL' class='buttonSml'>Send Email(s)</a>"
Response.Write "</td></tr></table>"
Case "profile"
Response.Write "<a href='profile_admin.asp?action=admin' class='buttonSml'>Change Login</a>"
Response.Write "<a href='profile_admin.asp?action=contact' class='buttonSml'>Change Contact</a>"
Response.Write "</td></tr></table>"
Case "webtools"
Response.Write "<a href='Ticker.asp' class='buttonSml'>Web Ticker</a>"
If tellpage= "email" Then
Response.Write "</td></tr>"
Response.Write "<tr><td colspan='3'><hr size='1'></td></tr>"
Response.Write "<tr><td colspan='3'>"
Response.Write "<a href='Email_admin.asp?action=emailALL' class='buttonSmlIN'>Email Everyone</a>"
Response.Write "<a href='Email_admin.asp' class='buttonSmlIN'><< Back To List</a>"
Response.Write "</td></tr>"
Response.Write "</table>"
Else
Response.Write "</td></tr></table>"
End If
End Select
End Function
Function divService (pic)
Response.Write "<div id=container>" & b & "<table width=698px cellspacing=0 cellpadding=0 border=0>"
Response.Write "<tr><td><img src='images/" & pic & "-top.gif'></td><td width='100%' class='top_btn' align='right'>"
Response.Write "<a href='admin.asp' onMouseOver=" & q & "MM_swapImage('home','','images/home-topBtn-ovr.gif',1)" & q & " onMouseOut=" & q & "MM_swapImgRestore()" & q & "><img src='images/home-topBtn.gif' border='0' name='home'></a>"
Response.Write "<a href='log_off.asp' onMouseOver=" & q & "MM_swapImage('logoff','','images/logoff-topBtn-ovr.gif',1)" & q & " onMouseOut=" & q & "MM_swapImgRestore()" & q & "><img src='images/logoff-topBtn.gif' hspace='5' border='0' name='logoff'></a></td></tr>"
Response.Write "</table>" & b
Response.Write "<table cellspacing='5' cellpadding='0' border='0'>" & b
Response.Write "<tr><td valign='top' width='100%' class='leftMenu' align='center'>" & b
Response.Write (Area)
Response.Write "</td><td valign='top' class='rightMenu'>"
Response.Write (divMenu())
Response.Write "</td></tr></table></div>"
End Function
Function divServiceSml (pic)
Response.Write "<div id=container>" & b & "<table width=698px cellspacing=0 cellpadding=0 border=0>"
Response.Write "<tr><td><img src='images/" & pic & "-top.gif'></td><td width='100%' class='top_btn' align='right'>"
Response.Write "<a href='admin.asp' onMouseOver=" & q & "MM_swapImage('home','','images/home-topBtn-ovr.gif',1)" & q & " onMouseOut=" & q & "MM_swapImgRestore()" & q & "><img src='images/home-topBtn.gif' border='0' name='home'></a>"
Response.Write "<a href='log_off.asp' onMouseOver=" & q & "MM_swapImage('logoff','','images/logoff-topBtn-ovr.gif',1)" & q & " onMouseOut=" & q & "MM_swapImgRestore()" & q & "><img src='images/logoff-topBtn.gif' hspace='5' border='0' name='logoff'></a></td></tr>"
Response.Write "</table>" & b
Response.Write "<table cellspacing='5' cellpadding='0' border='0'>" & b
Response.Write "<tr><td valign='top' width='100%' class='leftMenu' align='center'>" & b
Response.Write (Area)
Response.Write "</td><td valign='top' class='rightMenu'>"
Response.Write (divMenuSml(pic))
Response.Write "</td></tr></table></div>"
End Function
Function divTop()
Response.Write "<div id=container>" & b & "<table width=698px cellspacing=0 cellpadding=0 border=0>"
Response.Write "<tr><td><img src='images/admin-top.gif'></td><td width='100%' class='top_btn' align='right'>"
Response.Write "<a href='admin.asp' onMouseOver=" & q & "MM_swapImage('home','','images/home-topBtn-ovr.gif',1)" & q & " onMouseOut=" & q & "MM_swapImgRestore()" & q & "><img src='images/home-topBtn.gif' border='0' name='home'></a>"
Response.Write "<a href='log_off.asp' onMouseOver=" & q & "MM_swapImage('logoff','','images/logoff-topBtn-ovr.gif',1)" & q & " onMouseOut=" & q & "MM_swapImgRestore()" & q & "><img src='images/logoff-topBtn.gif' hspace='5' border='0' name='logoff'></a></td></tr>"
Response.Write "</table>" & b
Response.Write "<table cellspacing='5' cellpadding='0' border='0'><tr><td valign='top'><img src='images/master.gif'></td><td valign='top'>" & b
Response.Write "<table width='100%' cellspacing='2' cellpadding='0' border='0'>"
Response.Write "<tr><td colspan='2'><img src='images/empty.gif' height='5'></td></tr>"
Response.Write "<tr><td valign='top'><img src='images/web.gif' width='45' border='1'></td>"
Response.Write "<td valign='top' width='100%'><div style='padding-left:2px;font-size:6pt;'><strong style='font-weight:bold;font-size:7pt;'>" & Session("name") & "</strong><br>"
Response.Write (Session("office") & "<br>" & Session("email") & "</div></td>")
Response.Write "</tr></table><br>"
Response.Write "<div class='menutitle'><strong>Thursday " & Date() & "</strong></div>" & b
Response.Write "<div class='menutitle2'>"
Response.Write "<p>Welcome, you have successfully logged into the Administrative Center. You can select from the buttons below for specific tasks you need to complete.<br>"
Response.Write "------------------------------------------------------------------<br>"
Response.Write "You are provided with alternate methods for attaining tech support. You may use the " & q & "Tech Request Form" & q & " to request technical services. and"
Response.Write "the " & q & "Mobile Tech Alert" & q & " feature will allow you to contact tech support at our mobile number.</p>"
Response.Write "</div>"
Response.Write "</td><td valign='top' class='rightMenu'>"
Response.Write "<a href='3flex.asp?action=mobile' onMouseOver=" & q & "MM_swapImage('mta','','images/callalert-btn-ovr.gif',1)" & q & " onMouseOut=" & q & "MM_swapImgRestore()" & q & "><img src='images/callalert-btn.gif' border='0' name='mta'></a>"
Response.Write "<div class='3flexhelp'>Mobile Tech Alert is an emergency contact solution for users experiencing extreme technical difficulty. <a href='3flex.asp?action=mobile' onMouseOver=" & q & "MM_swapImage('mta','','images/callalert-btn-ovr.gif',1)" & q & " onMouseOut=" & q & "MM_swapImgRestore()" & q & ">Go!</a></div>"
Response.Write "<a href='3flex.asp?action=request' onMouseOver=" & q & "MM_swapImage('trf','','images/emailalert-btn-ovr.gif',1)" & q & " onMouseOut=" & q & "MM_swapImgRestore()" & q & "><img src='images/emailalert-btn.gif' border='0' name='trf'></a>"
Response.Write "<div class='3flexhelp'>Tech Request Form is an email solution for users experiencing technical difficulty. <a href='3flex.asp?action=request' onMouseOver=" & q & "MM_swapImage('trf','','images/emailalert-btn-ovr.gif',1)" & q & " onMouseOut=" & q & "MM_swapImgRestore()" & q & ">Go!</a></div>"
Response.Write "<a href='3flex.asp?action=eservice' onMouseOver=" & q & "MM_swapImage('esc','','images/servicealert-btn-ovr.gif',1)" & q & " onMouseOut=" & q & "MM_swapImgRestore()" & q & "><img src='images/servicealert-btn.gif' border='0' name='esc'></a>"
Response.Write "<div class='3flexhelp'>e-Services Connect is a gateway for users to request upgrades and other business solutions provided by 3flexstudios.com-digital consultants. <a href='3flex.asp?action=eservice' onMouseOver=" & q & "MM_swapImage('esc','','images/servicealert-btn-ovr.gif',1)" & q & " onMouseOut=" & q & "MM_swapImgRestore()" & q & ">Go!</a></div>"
Response.Write "</td></tr></table></div>"
End Function
Function divButtons ()
Response.Write "<div id=container_btm><table cellspacing=5 cellpadding=0 border=0 align=center><tr>"
Response.Write "<td><a href='admin.asp?action=webtools' onMouseOver=" & q & "MM_swapImage('wt','','images/web_tools-btn-ovr.gif',1)" & q & " onMouseOut=" & q & "MM_swapImgRestore()" & q & "><img src='images/web_tools-btn.gif' name='wt' border='0'></a></td>"
Response.Write "<td><a href='admin.asp?action=message' onMouseOver=" & q & "MM_swapImage('mc','','images/messages-btn-ovr.gif',1)" & q & " onMouseOut=" & q & "MM_swapImgRestore()" & q & "><img src='images/messages-btn.gif' hspace='3' vspace='1' border='0' name='mc'></a></td>"
Response.Write "<td><a href='admin.asp?action=profile' onMouseOver=" & q & "MM_swapImage('pb','','images/profiles-btn-ovr.gif',1)" & q & " onMouseOut=" & q & "MM_swapImgRestore()" & q & "><img src='images/profiles-btn.gif' name='pb' border='0'></a></td>"
Response.Write "</tr></table></div>"
End Function
Function divLogo ()
Response.Write "<div id=logo><table width=698px cellspacing=5 cellpadding=0 border=0 align=center><tr><td width=500 style=" & q & "padding-left:7px;" & q & ">"
Response.Write "<a href='admin.asp?action=webtools' onMouseOver=" & q & "MM_swapImage('wt','','images/web_tools-btn-ovr.gif',1)" & q & " onMouseOut=" & q & "MM_swapImgRestore()" & q & ">Web Tools</a> | "
Response.Write "<a href='admin.asp?action=message' onMouseOver=" & q & "MM_swapImage('mc','','images/messages-btn-ovr.gif',1)" & q & " onMouseOut=" & q & "MM_swapImgRestore()" & q & ">Message Center</a> | "
Response.Write "<a href='admin.asp?action=profile' onMouseOver=" & q & "MM_swapImage('pb','','images/profiles-btn-ovr.gif',1)" & q & " onMouseOut=" & q & "MM_swapImgRestore()" & q & ">Profile Manager</a> | "
Response.Write "<a href='admin.asp' onMouseOver=" & q & "MM_swapImage('home','','images/home-topBtn-ovr.gif',1)" & q & " onMouseOut=" & q & "MM_swapImgRestore()" & q & ">Home</a> | "
Response.Write "<a href='log_off.asp' onMouseOver=" & q & "MM_swapImage('logoff','','images/logoff-topBtn-ovr.gif',1)" & q & " onMouseOut=" & q & "MM_swapImgRestore()" & q & ">Log Off</a>"
Response.Write "<br>© 2004 Jacobs & Associates, Inc</td>"
Response.Write "<td width=150 align=right class=3flexcopy>custom e-commerce solutions provided by <a href='http://www.3flexstudios.com'>3flexstudios.com</a></td>"
Response.Write "<td valign=top width=40><img src=images/3flex.gif></td></tr></table></div>"
End Function
Function divLogoSml ()
Response.Write "<div id=logo><table width=698px cellspacing=5 cellpadding=0 border=0 align=center><tr><td width=500 style=" & q & "padding-left:7px;" & q & ">"
Response.Write "<a href='admin.asp?action=webtools' onMouseOver=" & q & "MM_swapImage('wt','','images/web_toolsSml-btn-ovr.gif',1)" & q & " onMouseOut=" & q & "MM_swapImgRestore()" & q & ">Web Tools</a> | "
Response.Write "<a href='admin.asp?action=message' onMouseOver=" & q & "MM_swapImage('mc','','images/messagesSml-btn-ovr.gif',1)" & q & " onMouseOut=" & q & "MM_swapImgRestore()" & q & ">Message Center</a> | "
Response.Write "<a href='admin.asp?action=profile' onMouseOver=" & q & "MM_swapImage('pb','','images/profilesSml-btn-ovr.gif',1)" & q & " onMouseOut=" & q & "MM_swapImgRestore()" & q & ">Profile Manager</a> | "
Response.Write "<a href='admin.asp' onMouseOver=" & q & "MM_swapImage('home','','images/home-topBtn-ovr.gif',1)" & q & " onMouseOut=" & q & "MM_swapImgRestore()" & q & ">Home</a> | "
Response.Write "<a href='log_off.asp' onMouseOver=" & q & "MM_swapImage('logoff','','images/logoff-topBtn-ovr.gif',1)" & q & " onMouseOut=" & q & "MM_swapImgRestore()" & q & ">Log Off</a>"
Response.Write "<br>© 2003 Jacobs & Associates, Inc</td>"
Response.Write "<td width=150 align=right class=3flexcopy>custom e-commerce solutions provided by <a href='http://www.3flexstudios.com'>3flexstudios.com</a></td>"
Response.Write "<td valign=top width=40><img src=images/3flex.gif></td></tr></table></div>"
End Function
Function Doit()
response.write(html)
%>
<!--#include file="head.inc"-->
<%
response.write(table)
Response.Write (divTop())
Response.Write (divButtons())
Response.Write (divLogo())
response.write(table2)
response.write(html2)
End Function
Function Serviceit(name)
response.write(html)
%>
<!--#include file="head.inc"-->
<%
response.write(table)
Response.Write (divService(name))
Response.Write (divButtons())
Response.Write (divLogo())
response.write(table2)
response.write(html2)
End Function
Function ServiceitSml(name)
response.write(html)
%>
<!--#include file="head.inc"-->
<%
response.write(table)
Response.Write (divServiceSml(name))
Response.Write (divLogoSml())
response.write(table2)
response.write(html2)
End Function
%>