%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim PrimeDomain__MMColParam PrimeDomain__MMColParam = "1" If (Request("MM_EmptyValue") <> "") Then PrimeDomain__MMColParam = Request("MM_EmptyValue") End If %> <% Dim PrimeDomain Dim PrimeDomain_numRows Set PrimeDomain = Server.CreateObject("ADODB.Recordset") PrimeDomain.ActiveConnection = MM_ConnectionWAGSQL_STRING PrimeDomain.Source = "SELECT * FROM dbo.Setup WHERE PrimaryDomain = " + Replace(PrimeDomain__MMColParam, "'", "''") + "" PrimeDomain.CursorType = 0 PrimeDomain.CursorLocation = 2 PrimeDomain.LockType = 1 PrimeDomain.Open() If NOT PrimeDomain.eof THEN PrimaryDomain = (PrimeDomain.Fields.Item("DomainName").Value) MPOPMstrDom = (PrimeDomain.Fields.Item("DomainName").Value) End If PrimeDomain_numRows = 0 %> <% PrimeDomain.Close() Set PrimeDomain = Nothing %> <%'=PrimaryDomain%> <% Dim dn dn = request.servervariables("server_name") if instr(dn, "www") > 0 then dn = mid(dn, 5, len(dn)) end if 'response.write(dn) 'where domainname = '" & dn & "' %> <% Dim Setup Dim Setup_numRows Set Setup = Server.CreateObject("ADODB.Recordset") Setup.ActiveConnection = MM_ConnectionWAGSQL_STRING Setup.Source = "SELECT * FROM dbo.Setup WHERE DomainName = '" & dn & "'" Setup.CursorType = 0 Setup.CursorLocation = 3 Setup.LockType = 1 Setup.Open() If NOT Setup.eof THEN Domain = Setup.Fields.Item("DomainName").Value Else Domain = PrimaryDomain End If If NOT Setup.eof THEN MTitle = (Setup.Fields.Item("MetaTitle").Value) MDesc = (Setup.Fields.Item("MetaDesc").Value) MKeywords = (Setup.Fields.Item("MetaKeywords").Value) MClass = (Setup.Fields.Item("MetaClassification").Value) CoName = (Setup.Fields.Item("CoName").Value) CoCity = (Setup.Fields.Item("CoCity").Value) CoState = (Setup.Fields.Item("CoState").Value) IETrans = (Setup.Fields.Item("Transition").Value) IETransTime = (Setup.Fields.Item("TransitionTime").Value) End If Setup_numRows = 0 %>
|
|
Page Not Found HTTP 404 - File or Folder Not Found. IIS |
|
|
|
Please Click the Back button, try another link, or close. |