<!--#include file="scripts/3flex_funct.inc"-->
<%
Session("name")
Session("office")
Session("email")
Session("callalert")
Session("phone")
em = Session("email")
u = Session("user")
p = Session("pass")
gt = int(Session("gotoit"))
action = Request.Querystring("action")

If gt = 0 then 
	 Response.ReDirect "login.htm"
Else

	Select Case action
	Case "mobile"
		If request.form("user") = "" OR request.form("phone") = "" OR request.form("message") = "" Then
		 Area = Area & "<div class='menutitlea'><strong>Mobile Tech Alert: When You Need Answers Fast!</strong></div>" & b
		 Area = Area & "<form method='post' action='3flex.asp?action=mobile' style='padding:0px;margin:0px;'>"
		 Area = Area & "<table border=0 cellpadding=5 cellspacing=0>"
		 Area = Area & "<tr><td><p style=''>Mobile Tech Alert is option made available by 3flexstudios to our clients for time sensitive tech/customer service requests. "
		 Area = Area & "Provided below are fields for you to fill out. Please notice all fields that have a (<b>*</b>) next to its title is a required field.</p></td></tr>"
		 Area = Area & "</table><br><table border=0 cellpadding=5 cellspacing=0>"
		 Area = Area & "<tr><td width='175'><strong>*Name:</strong> </td><td width='100%'><input type='text' name='user' value='" & Session("name") & "' style='width:100%'></td></tr>"
		 Area = Area & "<tr><td><strong>*Phone:</strong> </td><td><input type=text name='phone' value='" & Session("phone") & "' style='width:100%'></td></tr>"
		 Area = Area & "<tr><td valign='top'><strong>*Message:</strong> &nbsp;</td><td><textarea name='message' style='width:100%' rows='10'></textarea></td></tr>"
		 Area = Area & "<tr><td>&nbsp;</td><td><input type='submit' value='send my mobile tech alert' class='submit'></td></tr>"
		 Area = Area & "</table></form>"
		Else

 Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
 Mailer.FromName   = "Jacobs & Associates, Inc."
 Mailer.FromAddress= "[email protected]"
 Mailer.RemoteHost = "smtp.rcn.com"
 Mailer.AddRecipient "[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")



		 Response.ReDirect "3flex.asp?action=thanks&theme=mobile"
		End If

	Case "request"
		If request.form("user") = "" OR request.form("email") = "" OR request.form("message") = "" OR request.form("problem") = "" Then
		 Area = Area & "<div class='menutitlea'><strong>Tech Request Form: For Questions That Need Answers!</strong></div>" & b
		 Area = Area & "<form method=post action='3flex.asp?action=request' style='padding:0px;margin:0px;'>"
		 Area = Area & "<table border=0 cellpadding=5 cellspacing=0>"
		 Area = Area & "<tr><td><p style=''>The Tech Request Form is designed to provide a forum for customers to request information on specific topics. "
		 Area = Area & "Provided below are fields for you to fill out. Please notice all fields that have a (<b>*</b>) next to its title is a required field.</p></td></tr>"
		 Area = Area & "</table><br><table border=0 cellpadding=5 cellspacing=0>"
		 Area = Area & "<tr><td width='175'><strong>*Name:</strong> </td><td width='100%'><input type=text name='user' value='" & Session("name") & "' style='width:100%'></td></tr>"
		 Area = Area & "<tr><td><strong>*Email:</strong> </td><td><input type=text name='email' value='" & Session("email") & "' style='width:100%'></td></tr>"
		 Area = Area & "<tr><td><strong>*Problem:</strong> </td><td><select name='problem' style='width:100%'>"
		 Area = Area & "<option value='General Technical Problems'>General Technical Problems</option>"
		 Area = Area & "<option value='Applications Are Not Updating My Information'>Applications Are Not Updating My Information</option>"
		 Area = Area & "<option value='I Am Recieving Error Messages'>I Am Recieving Error Messages</option>"
		 Area = Area & "</select></td></tr>"
		 Area = Area & "<tr><td valign='top'><strong>*Message:</strong> &nbsp;</td><td><textarea name='message' style='width:100%' rows='8'></textarea></td></tr>"
		 Area = Area & "<tr><td>&nbsp;</td><td><input type=submit value='send my tech request form' class='submit'></td></tr>"
		 Area = Area & "</table></form>"
		Else


 Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
 Mailer.FromName   = "Jacobs & Associates, Inc."
 Mailer.FromAddress= "[email protected]"
 Mailer.RemoteHost = "smtp.rcn.com"
 Mailer.AddRecipient "[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")


		 Response.ReDirect "3flex.asp?action=thanks&theme=request"
		End If

	Case "eservice"
		 Area = Area & "<div class='menutitlea'><strong>e-Service Connect</strong></div>" & b

	Case "thanks"
		 Area = Area & "<div class='menutitlea'><strong>"
		 Select Case Request.QueryString("theme")
		 Case "mobile"
		  Area = Area & "Thank You For Choosing Mobile Tech Alert"
		 Case "request"
		  Area = Area & "Thank You For Using The Tech Request Form"
		 Case "eservice"
		  Area = Area & "Thank You For Choosing e-Services Connect"
		 End Select
		 Area = Area & "</strong></div>" & b
		 Area = Area & "<table width='99%' height='225px' border='0' cellspacing='0' cellpadding='5'><tr><td valign='middle' align='center'>"
		 Area = Area & "Thank You Again. Your Information Has Been Sent."
		 Area = Area & "</td></tr></table>"

	End Select

 		Response.Write (flexit(action))

End If
%>