<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim User__MMColParam User__MMColParam = "1" If (Session("MM_UserID") <> "") Then User__MMColParam = Session("MM_UserID") End If %> <% Dim User Dim User_numRows Set User = Server.CreateObject("ADODB.Recordset") User.ActiveConnection = MM_darkhorsenet_STRING User.Source = "SELECT * FROM darkhorse_users WHERE UserID = " + Replace(User__MMColParam, "'", "''") + "" User.CursorType = 0 User.CursorLocation = 2 User.LockType = 1 User.Open() User_numRows = 0 %> Dark Horse Networks | design.develop.deploy
Dark Horse Networks
Company Services Get Started Support Contact Us
<% MM_authorizedUsers="" MM_grantAccess=false If Session("MM_Username") <> "" Then If (true Or CStr(Session("MM_UserAuthorization"))="") Or _ (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then MM_grantAccess = true End If End If If MM_grantAccess Then ' *** Show If User Logged In %>
WELCOME, <%=(User.Fields.Item("Contact").Value)%>  
<% MM_authorizedUsers="administrator" MM_grantAccess=false If Session("MM_Username") <> "" Then If (false Or CStr(Session("MM_UserAuthorization"))="") Or _ (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then MM_grantAccess = true End If End If If MM_grantAccess Then ' *** Show If User Logged In %>Administration <% End If ' *** Show If User Logged In %><% MM_authorizedUsers="administrator" MM_grantAccess=false If Session("MM_Username") <> "" Then If (false Or CStr(Session("MM_UserAuthorization"))="") Or _ (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then MM_grantAccess = true End If End If If Not MM_grantAccess Then ' *** Show If User Not Logged In %>My Account <% End If ' *** Show If User Not Logged In %>Logout
<% End If ' *** Show If User Logged In %>
Login

 

<% Set MailObj = Server.CreateObject("JMail.SMTPMail") MailObj.ServerAddress = "mail.darkhorsenetworks.com" MailObj.ContentType = "text/html" MailObj.Sender = Request.Form("Email") MailObj.Subject = "Quote Request" MailObj.SenderName = Request.Form("Name") MailObj.HTMLBody = "
Name:" & Request.Form("Name") & "
Company:" & Request.Form("Company") & "
Address" & Request.Form("Address1") & "
 " & Request.Form("Address2") & "
City, State, Zip:" & Request.Form("City") & ", " & Request.Form("State") & " " & Request.Form("Zip") & "
Phone:" & Request.Form("Phone") & "
Fax:" & Request.Form("Fax") & "
Email:" & Request.Form("Email") & "

 

Current Site:" & Request.Form("Site") & "
Upgrade?" & Request.Form("Plan") & "
Page Number:" & Request.Form("Pages") & "
Picture Number:" & Request.Form("Pictures") & "
Change Time:" & Request.Form("Updates") & "
Automation?" & Request.Form("Automation") & "
  
Dynamic Data:" & Request.Form("Dynamic") & "
Script Programing:" & Request.Form("Scripts") & "
eCommerce:" & Request.Form("Commerce") & "
Forum:" & Request.Form("Forum") & "
Site Reports:" & Request.Form("Reports") & "
Video:" & Request.Form("Video") & "
Flash:" & Request.Form("Flash") & "
  
Other:" & Request.Form("Comments") & "

 

" MailObj.AddRecipient "info@darkhorsenetworks.com" MailObj.Execute MailObj.Close() Set MailObj = Nothing Response.Write "

Your Quote Request Has Been Sent!

We will look over your information and be in contact with you soon.

" %>




Privacy Policy | Login
©1998-2007 Dark Horse Networks

 

 
<% User.Close() Set User = Nothing %>