<%@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("emailfrom") MailObj.Subject = Request.Form("subject") MailObj.SenderName = Request.Form("Name") MailObj.HTMLBody = "
Name:" & Request.Form("Name") & "

Company:

" & Request.Form("Company") & "
Email:" & Request.Form("emailfrom") & "
Phone:" & Request.Form("Phone") & "
User IP:" & Request.ServerVariables("REMOTE_ADDR") & "

" & Request.Form("Message") & "

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

Your Message Has Been Sent !

Thank you for submitting a message. We will reply to your message as soon as possible.

" %>



Privacy Policy | Login
©1998-2007 Dark Horse Networks

 

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