<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/NellaNet.asp" -->
<%
Dim rsDomains__strDomainName
rsDomains__strDomainName = "xyz"
If (Request.Form("domainName")  <> "") Then 
  rsDomains__strDomainName = Request.Form("domainName") 
End If
%>

<%
Dim rsDomains
Dim rsDomains_numRows

Set rsDomains = Server.CreateObject("ADODB.Recordset")
rsDomains.ActiveConnection = MM_NellaNet_STRING
rsDomains.Source = "SELECT domainName  FROM Domains  WHERE domainName = '" + Replace(rsDomains__strDomainName, "'", "''") + "'"
rsDomains.CursorType = 0
rsDomains.CursorLocation = 2
rsDomains.LockType = 1
rsDomains.Open()

rsDomains_numRows = 0
%>

<%
If rsDomains__strDomainName <> "xyz" then
	If Not rsDomains.EOF Then
		Response.Redirect "http://mail." & rsDomains__strDomainName
	Else
		Response.Redirect "services_hosting_notclient.asp"
	End If
End If
%>

<%
rsDomains.Close()
Set rsDomains = Nothing
%>