FX Media

<%@ Language=VBScript %> <% Response.Expires = 0 Response.Buffer = True Dim wmpver ' Page Execution Call Initialize Call Main Call Cleanup ' Functions and Subroutines Sub Initialize pagekey = "generic" 'Call header() %> FX Media <% End Sub Sub Main %> <% If Request.QueryString("SendMail")= "yes" Then 'Dim bcObj 'Set bcObj = Server.CreateObject("MSWC.BrowserType") 'Dim Var, ua, Browser, System 'Set Var = Request.ServerVariables 'ua = Var("HTTP_USER_AGENT") 'If Instr(ua, "MSIE") Then 'If Instr(ua, "MSIE 5.") Then ' Browser = "Microsoft Internet Explorer 5.x" 'Elseif Instr(ua, "MSIE 4.") Then ' Browser = "Microsoft Internet Explorer 4.x" 'Elseif Instr(ua, "MSIE 3.") Then 'Browser = "Microsoft Internet Explorer 3.x" 'If Instr(ua, "MSIE 3.02") Then ' Browser = "Microsoft Internet Explorer 3.02" 'End If 'Else 'Browser = "Microsoft Internet Explorer" 'End If 'ElseIf Instr(ua, "Mozilla") and Instr(ua, "compatible") = 0 Then 'If Instr(ua, "Mozilla/4") Then ' Browser = "Netscape Navigator 4.x" ' Elseif Instr(ua, "Mozilla/3") Then ' Browser = "Netscape Navigator 3.x" 'Else ' Browser = "Netscape Navigator" 'End If 'End If 'If Instr(ua, "Windows 95") or Instr(ua, "Win95") Then 'System = "Windows 95" 'Elseif Instr(ua, "Windows 98") or Instr(ua, "Win98") Then 'System = "Windows 98" 'Elseif Instr(ua, "Windows 3.1") Then 'System = "Windows 3.x/Windows NT 3.x" 'Elseif Instr(ua, "NT") Then 'System = "Windows NT" 'Elseif Instr(ua, "Mac") Then 'System = "Mac" 'If Instr(ua, "PowerPC") or Instr(ua, "PPC") Then 'System = "Mac PPC" 'Elseif Instr(ua, "68000") or Instr(ua, "68K") Then ' System = "Mac 68K" 'End If 'Elseif Instr(ua, "X11") Then 'System = "UNIX" 'End If dtDate = date dtTime = time User = Request.Form("UserName") UserEmail = Request.Form("UserEmail") subject = trim(Request.Form("Subject")) select case subject case "Web Development" tomail = "david@level10consulting.com;smclaughlin@hcmwonline.com" 'cookies = "Cookies: " & bcObj.cookies 'javascipt = "Javascript: " & bcObj.javascript 'remote_host = "Browser: " & Browser 'refering_IP = "System: " & System 'sUserAgent = "User Agent: " & Request.ServerVariables("HTTP_USER_AGENT") 'wmpver = "WMP: " & trim(Request.Form("wmp")) case "Web Hosting" tomail = "david@level10consulting.com;smclaughlin@hcmwonline.com" case "Custom Programming" tomail = "david@level10consulting.com;smclaughlin@hcmwonline.com" case else end select strSubject = "To FX Media: " & subject UserMessage = "From: " & User & vbcrlf & Request.Form("Message") ' MediaBayEmail = "feedback@mediabay.com" Dim objNewMail if 1 then set mymail=CreateObject("CDO.Message") mymail.Subject ="FXMedia.com email inquiry" mymail.From=UserEmail mymail.To = tomail mymail.Textbody = UserMessage mymail.Send end if ''''''''''''''''''''''''''''''''''''''''''''''' %>

LATEST NEWS

CONTACT US

4.02.2007 FX Media recently upgraded its servers to provide even quicker, more reliable service to its clients.

1.15.2007 FX Media celebrates the four year anniversary of its IPWatcher service. This invaluable service notifies a user if his/her web site is down or not functioning properly.

Thank you! Your email has been sent. <%else %>

LATEST NEWS

CONTACT US

4.02.2007 FX Media recently upgraded its servers to provide even quicker, more reliable service to its clients.

1.15.2007 FX Media celebrates the four year anniversary of its IPWatcher service. This invaluable service notifies a user if his/her web site is down or not functioning properly.

CONTACT US
Please feel free to contact us to discuss your next project.
We would be happy to provide you with a complimentary quote.

<%if ucase(ctact) = "OTR" then%> Email: Customer Service <%else%> Select a Topic: <%end if%>
Enter Your Name:
Enter Your Email:
Message:

<% end if %> <% End Sub Sub Cleanup %>


©2007 FX Media, Inc.

<% End Sub '******************************************************************** ' Client-Side Functions '******************************************************************** %>