|
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 div3flex (pic)
urlHome = "admin.asp"
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='" & urlHome & "' 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'>" & b
Response.Write (Area)
Response.Write "</td><td valign='top' class='rightMenu'>"
Response.Write (divMenu())
Response.Write "</td></tr></table></div>"
End Function
Function divButtons ()
urlHome = "admin.asp"
Response.Write "<div id=container_btm><table cellspacing=5 cellpadding=0 border=0 align=center><tr>"
Response.Write "<td><a href='" & urlHome & "?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='" & urlHome & "?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='" & urlHome & "?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 ()
urlHome = "admin.asp"
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='" & urlHome & "?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='" & urlHome & "?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='" & urlHome & "?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='" & urlHome & "' 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 flexit(name)
response.write(html)
%>
<!--#include file="head.inc"-->
<%
response.write(table)
Response.Write (div3flex(name))
Response.Write (divButtons())
Response.Write (divLogo())
response.write(table2)
response.write(html2)
End Function
Function EmailAlert()
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "Jacobs & Associates, Inc."
Mailer.FromAddress= "[email protected]"
Mailer.RemoteHost = "smtp.rcn.com"
Mailer.AddRecipient "[email protected]", "[email protected]"
Mailer.Subject = "Mobile Call Alert!: " & Request.Form("phone")
Mailer.BodyText = "Please call " & Request.Form("user") & " at " & Request.Form("phone") & chr(13) & Request.Form("message")
'Set CDONTSObj = Server.CreateObject("CDONTS.NewMail")
' CDONTSObj.To = "[email protected]"
' CDONTSObj.CC = "[email protected], [email protected]"
' CDONTSObj.From = "[email protected]"
' CDONTSObj.Subject = "Mobile Call Alert!: " & Request.Form("phone")
' CDONTSObj.Body = "Please call " & Request.Form("user") & " at " & Request.Form("phone") & chr(13) & Request.Form("message")
' CDONTSObj.Send
' Set CDONTSObj = nothing
End Function
Function EmailRequest()
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "Jacobs & Associates, Inc."
Mailer.FromAddress= "[email protected]"
Mailer.RemoteHost = "smtp.rcn.com"
Mailer.AddRecipient "[email protected]", "[email protected]"
Mailer.Subject = "Tech Request Form: " & Request.Form("problem")
Mailer.BodyText = "Please respond to " & Request.Form("user") & " at " & Request.Form("email") & chr(13) & Request.Form("message")
' Set CDONTSObj = Server.CreateObject("CDONTS.NewMail")
' CDONTSObj.To = "[email protected], [email protected]"
' CDONTSObj.CC = "[email protected], [email protected]"
' CDONTSObj.From = "[email protected]"
' CDONTSObj.Subject = "Tech Request Form: " & Request.Form("problem")
' CDONTSObj.Body = "Please respond to " & Request.Form("user") & " at " & Request.Form("email") & chr(13) & Request.Form("message")
' CDONTSObj.Send
' Set CDONTSObj = nothing
End Function
%>