Solved

SELECT Command ASP Feed

Posted on 2013-01-22
2
336 Views
Last Modified: 2013-05-15
I'm trying to select the top adverts in our database to go on pages on my site here other than the directory, but I'm getting stuck and would really appreciate some pointers..

The directory category listing page is here and the advert listing page is here.

I want to basically have a mini-adverts feed of just the top adverts in the database, as opposed to ones assigned to a certain category.

Here's the code that handles the database:

<!--#include virtual="/PageObjects/DirectoryBrowser/i_Functions.asp"-->
<%
Dim objDB_Conn : Set objDB_Conn = Server.CreateObject("ADODB.Connection")
Dim rsDB_Dirs : Set rsDB_Dirs = Server.CreateObject("ADODB.RecordSet")
Dim rsDB_Ads : Set rsDB_Ads = Server.CreateObject("ADODB.RecordSet")
Dim rsDB_Temp : Set rsDB_Temp = Server.CreateObject("ADODB.RecordSet")
Dim rsDB_rsCrumbs : Set rsDB_rsCrumbs = Server.CreateObject("ADODB.RecordSet")
Dim strDB_SQLCommand

Dim strDB_Crumbs

Dim strDB_Mode : strDB_Mode = "Category"

Dim iDB_PageNumber
Dim iDB_PageWidth
Dim iDB_PageSize
Dim iDB_SearchKey

Dim iDB_AdvertPageWidth

Dim iDB_RenderLastRow
Dim iDB_RenderLastColumn
Dim iDB_RenderRow
Dim iDB_RenderColumn

Dim strDB_DirectoryGID : strDB_DirectoryGID = Null
Dim strDB_DirectoryName : strDB_DirectoryName = ""
Dim strDB_ParentDirectoryGID : strDB_ParentDirectoryGID = Null
Dim strDB_ParentDirectoryName : strDB_ParentDirectoryName = ""

Dim strDB_SubDirectoryListTemplate : strDB_SubDirectoryListTemplate = ""
Dim strDB_DirectoryBannerImage
Dim strDB_DirectoryDescription

Dim blnDirBrowser_LoadAdverts : blnDirBrowser_LoadAdverts = False

Dim strDB_DirectoryItem : strDB_DirectoryItem = ""
Dim strDB_AdvertItem : strDB_AdvertItem = ""

Dim strDB_ThisAdvertTemplate : strDB_ThisAdvertTemplate = ""
Dim strDB_ThisAdvertReferencesLink : strDB_ThisAdvertReferencesLink = ""

' Get Current Values
strDB_Mode = Session("DirectoryBrowser_Mode")
iDB_PageNumber = Session("DirectoryBrowser_PageNumber")
iDB_PageSize = Session("DirectoryBrowser_PageSize")
iDB_PageWidth = Session("DirectoryBrowser_PageWidth")
iDB_AdvertPageWidth = 1

' Load any User Changes
Select Case GetQueryStringParamFrom404HandlerPage("Action")
    Case "Select"
        strDB_Mode = "Category"
        strDB_DirectoryGID = GetQueryStringParamFrom404HandlerPage("PID")
    Case "Page"
        iDB_PageNumber = GetQueryStringParamFrom404HandlerPage("Page")
    Case "SearchAZ"
        strDB_Mode = "SearchAZ"
        iDB_SearchKey = GetQueryStringParamFrom404HandlerPage("SearchKey")
    Case ""
        strDB_Mode = "Category"
End Select

' Do we show Category / A-Z Search ?
DIm blnShowCategorySearch : blnShowCategorySearch = True
Dim blnShowAZSearch : blnShowAZSearch = True
If Request("PID") = "" then
    blnShowCategorySearch = True
    blnShowAZSearch = True
Else
    objDB_Conn.Open strConn
    strDB_SQLCommand = "SELECT * FROM Directories WHERE GID = '" & CleanSQLText(Request("PID")) & "'"
    rsDB_Temp.Open strDB_SQLCommand, objDB_Conn, adOpenStatic, adLockReadOnly
    if rsDB_Temp.RecordCount <> 1 then
        blnShowCategorySearch = True
        blnShowAZSearch = True
        'FailSystemEvent "Error determining Category/A-Z Search visibility"
    Else
        blnShowCategorySearch = rsDB_Temp("ShowCategorySearch")
        blnShowAZSearch = rsDB_Temp("ShowAZSearch")
    End if
    rsDB_Temp.Close
    objDB_Conn.Close
End if


' Check Rules are met
if strDB_Mode = "" then
    strDB_Mode = "Category"
End if

If strDB_Mode = "SearchAZ" then
    If Len(iDB_SearchKey) <> 1 then
        iDB_SearchKey = "A"
    End if
End if

strDB_DirectoryGID = CleanSQLText(strDB_DirectoryGID)
If Not IsNumeric(iDB_PageNumber) Or iDB_PageNumber = "" Or IsNull(iDB_PageNumber) then
    iDB_PageNumber=1
End if
If Not IsNumeric(iDB_PageSize) Or iDB_PageSize = "" Or IsNull(iDB_PageSize)  then
    iDB_PageSize=10
End if
If Not IsNumeric(iDB_PageWidth) Or iDB_PageWidth = "" Or IsNull(iDB_PageWidth)  then
    iDB_PageWidth=2
End if

' Save Checked Data as Current Session
Session("DirectoryBrowser_Mode") = strDB_Mode
Session("DirectoryBrowser_PageNumber") = iDB_PageNumber
Session("DirectoryBrowser_PageSize") = iDB_PageSize
Session("DirectoryBrowser_PageWidth") = iDB_PageWidth

Select Case strDB_Mode
    Case "Category"
		' Load Data
		objDB_Conn.Open strConn
		If strDB_DirectoryGID = "" then
		'    strDB_SQLCommand = "SELECT * FROM UFN_DirectoryBrowser_GetDirsAndAliases(NULL) ORDER BY DirectoryName"
			strDB_SQLCommand = "GetAllDirectories '" & Session("PublicFranchiseGID") & "', NULL"
			strDB_DirectoryGID = Null
			strDB_DirectoryName = ""
		Else
			' First, work out the Parent
			strDB_SQLCommand = "SELECT * FROM Directories WHERE GID = '" & strDB_DirectoryGID & "'"
			rsDB_Dirs.Open strDB_SQLCommand, objDB_Conn, adOpenStatic, adLockReadOnly
			if rsDB_Dirs.RecordCount = 1 then
				strDB_SubDirectoryListTemplate = rsDB_Dirs("SubDirectoryListItemTemplate")
				strDB_DirectoryName = rsDB_Dirs("DirectoryName")
				strDB_ParentDirectoryGID = rsDB_Dirs("ParentDirectoryGID")
				strDB_DirectoryBannerImage = rsDB_Dirs("BannerImage")
				strDB_DirectoryDescription = rsDB_Dirs("FullDescription")
				if Not IsNull(strDB_ParentDirectoryGID) then 
					strDB_SQLCommand = "SELECT * FROM Directories WHERE GID = '" & strDB_ParentDirectoryGID & "'"
					rsDB_Temp.Open strDB_SQLCommand, objDB_Conn, adOpenStatic, adLockReadOnly
					if rsDB_Temp.RecordCount <> 1 then
						FailSystemEvent "An error occured reading the Parent Directory name.  Contact Support"
					Else
						strDB_ParentDirectoryName = rsDB_Temp("DirectoryName")
					End if
					rsDB_Temp.Close
				End if
			Else
				strDB_ParentDirectoryGID = Null
				strDB_ParentDirectoryName = ""
			End if
			rsDB_Dirs.Close
			strDB_SQLCommand = "GetAllDirectories '" & Session("PublicFranchiseGID") & "', '" & strDB_DirectoryGID & "',1"
			
			Session("DirectoryBrowser_SQLCommand_Directories") = strDB_SQLCommand
		End if
		rsDB_Dirs.Open strDB_SQLCommand, objDB_Conn, adOpenStatic, adLockReadOnly

	Case "SearchAZ"
		' Load Data
		objDB_Conn.Open strConn
		If strDB_DirectoryGID = "" then
			strDB_DirectoryGID = Null
		End if
		If IsNull(strDB_DirectoryGID) then
			strDB_SQLCommand = "USP_DirectoryBrowser_GetDirectories_BySearchAZ '" & Session("PublicFranchiseGID") & "', NULL, '" & CleanSQLText(iDB_SearchKey) & "'"
		Else
			strDB_SQLCommand = "USP_DirectoryBrowser_GetDirectories_BySearchAZ '" & Session("PublicFranchiseGID") & "', '" & strDB_DirectoryGID & "', '" & CleanSQLText(iDB_SearchKey) & "'"
		End if
		Session("DirectoryBrowser_SQLCommand_Directories") = strDB_SQLCommand
		rsDB_Dirs.Open strDB_SQLCommand, objDB_Conn, adOpenStatic, adLockReadOnly
End Select

[b]' Only Get Adverts if there are no Child Directories[/b]
IF rsDB_Dirs.EOF then
    blnDirBrowser_LoadAdverts = True
End if
If blnDirBrowser_LoadAdverts = True then
    If strDB_DirectoryGID = "" then
        strDB_DirectoryGID = Null
    End if
    If IsNull(strDB_DirectoryGID) then
        strDB_SQLCommand = "usp_DirectoryBrowser_GetDirectoryAdverts '" & Session("PublicFranchiseGID") & "', NULL"
    Else
        strDB_SQLCommand = "usp_DirectoryBrowser_GetDirectoryAdverts '" & Session("PublicFranchiseGID") & "', '" & strDB_DirectoryGID & "'"
    End if
    Session("DirectoryBrowser_SQLCommand_Adverts") = strDB_SQLCommand
	'response.write "<!-- sSQL " & strDB_SQLCommand & " -->"
    rsDB_Ads.Open strDB_SQLCommand, objDB_Conn, adOpenStatic, adLockReadOnly
End if
if strDB_SubDirectoryListTemplate = "" or IsNull(strDB_SubDirectoryListTemplate) then
    If Request("PID") = "" and strDB_Mode = "Category" then
        strDB_SubDirectoryListTemplate = GetContent("DirectoryBrowser_TopDirectory_ListTemplate", Session("PublicFranchiseGID"))
    Else
        strDB_SubDirectoryListTemplate = GetContent("DirectoryBrowser_SubDirectory_DefaultListTemplate", Session("PublicFranchiseGID"))
    End if
End if
%>
<script type="text/javascript" src="/PageObjects/DirectoryBrowser/DirectoryBrowser.js"></script>
	<% if IsResultsPage then %>
    <div id="DirectoryBrowserObjectFullScreen">
    <% Else %>
    <div id="DirectoryBrowserObject">
	<% End if %>
	    <!--#include virtual="/PageObjects/DirectoryBrowser/i_DirectoryBrowser.asp"-->
    <% If strDB_Mode = "Category" then 
		RunDirectoryBrowser
    End if %>
    </div>

<% If strDB_Mode = "SearchAZ" or blnShowAZSearch then %>
<div id="trDirectorySearchAZ">
    <div id="DirectorySearchAZObject" class="bg">
    <h1 style="margin-bottom:1em;">Search for a <%=Session("PublicFranchiseName")%> business A-Z</h1>
    <!--#include virtual="/PageObjects/DirectoryBrowser/i_DirectorySearchAZ.asp"-->
   <div class="clear"></div>
   <% RunDirectoryBrowser %>
    </div>
</div>
<% End if %>
<%
Select Case strDB_Mode
    Case "Category"
        %><script type="text/javascript"><!-- directoryBrowser_ChangeWindow('DirectoryBrowser'); //--></script><%
    Case "SearchAZ"
        %><script type="text/javascript"><!-- directoryBrowser_ChangeWindow('DirectorySearchAZ'); //--></script><%
End Select
%>

Open in new window


And here's the code for the output of the advert & listing and pages 'i_DirectoryBrowser.asp':

<%
Sub RunDirectoryBrowser
    iDB_RenderLastRow = 0
    iDB_RenderLastColumn = 0
    iDB_RenderRow = 1
    iDB_RenderColumn = 1
    if Not IsNull(strDB_DirectoryGID) then
        If strDB_DirectoryBannerImage = "" or IsNull(strDB_DirectoryBannerImage) then 
   ' Normal View, No Banner %>
<div class="middle-content-grey">


   <h1><% = server.HTMLEncode(strDB_DirectoryName) %> in <%=server.HTMLEncode((Session("PublicFranchiseName")))%></h1>

   <!--#include virtual="/PageObjects/DirectoryBrowser/i_Crumbs.asp"-->
  
	<% If blnDirBrowser_LoadAdverts = False and 1=2 then %>
              <span class="DirectoryBrowser_DirectorySearchInstruction"><% = GetContent("DirectoryBrowser_DirectorySearch_Instruction",Session("PublicFranchiseGID")) %></span>
	<% End if %>

        <% Else ' Banner Image View %>
            <h1><% = server.HTMLEncode(strDB_DirectoryName) %> in <%=server.HTMLEncode((Session("PublicFranchiseName")))%></h1>

		<% If strDB_DirectoryDescription <> "" then %>
                <!--#include virtual="/PageObjects/DirectoryBrowser/i_Crumbs.asp"-->
                <div id="dir-banner"><% = strDB_DirectoryBannerImage %></div> 
        	<% End if %>    

            <% If blnDirBrowser_LoadAdverts = False and 1=2 then %>
                <span class="DirectoryBrowswer_DirectorySearchInstruction"><% = GetContent("DirectoryBrowser_DirectorySearch_Instruction",Session("PublicFranchiseGID")) %></span>            
            <% End if %>
	<% End if %>
	<% Else ' Top Directory View %>
        <% If blnDirBrowser_LoadAdverts = False and 1=2 then %>
			<span class="DirectoryBrowswer_DirectorySearchInstruction"><% = GetContent("DirectoryBrowser_DirectorySearch_Instruction",Session("PublicFranchiseGID")) %></span>            
		<% End if %>
    <% End if %>
    <% 
    If rsDB_Dirs.EOF then
        ' Show Adverts
        ShowDirectoryContents True
    Else
        ShowSubDirectories
        ShowDirectoryContents False
    End if
    rsDB_Dirs.Close
    objDB_Conn.Close
End Sub

Sub ShowSubDirectories
    %><br /><div id="cat-list" class="clearfix"><%
	
        Dim iRowLoop
        Dim iTotalRowsPerColumn
        Dim iCounterLoop
        iCounterLoop = 0
        While Not rsDB_Dirs.EOF
            iCounterLoop = iCounterLoop + 1
            rsDB_Dirs.MoveNext
        Wend
        rsDB_Dirs.MoveFirst
        iTotalRowsPerColumn = iCounterLoop
        'iTotalRowsPerColumn = rsDB_Dirs.RecordCount
        Dim bLastColIsBlank : 
        if iTotalRowsPerColumn / 2 = CInt(iTotalRowsPerColumn/2) then
            ' Even
            iTotalRowsPerColumn= iTotalRowsPerColumn/ 2
            bLastColIsBlank = False
        Else
            iTotalRowsPerColumn = iTotalRowsPerColumn + 1
            iTotalRowsPerColumn = iTotalRowsPerColumn / 2
            bLastColIsBlank = True
        End if
        
        %>
    
        <div id="left">
                <%
                    rsDB_Dirs.MoveFirst
                    For iRowLoop = 1 to iTotalRowsPerColumn
                        If Not rsDB_Dirs.EOF then
                            %>
                        
                            <div style="padding:7px 0 12px 0;">
                                <%
                                    
									sLink = "http://www.inside-guides.co.uk/" & lcase(Session("PublicFranchiseName"))

									getrs tmp,"USP_Helper_GetDirectoryHierarchy '" & rsDB_Dirs("GID") & "'",""
									while not tmp.eof 
										sLink = sLink & "/" & tmp("URL")
									tmp.movenext
									wend
									tmp.close
									set tmp = nothing
									
									sLink = sLink & ".html"

                                    ' Refresh Item Template, and Merge Values
                                    strDB_DirectoryItem = strDB_SubDirectoryListTemplate
                                    strDB_DirectoryItem = MergeAllParams(strDB_DirectoryItem)
                                    strDB_DirectoryItem = MergeRecordSetFields(strDB_DirectoryItem, rsDB_Dirs)
									' Write out the Directory Item
                                    Response.Write replace(strDB_DirectoryItem,"*destination*",sLink)
                                    %>                            
                             </div>
                         
                        <%
                            If Not rsDB_Dirs.EOF then
                                rsDB_Dirs.MoveNext
                            Else
                                Exit For
                            End if
                        Else
                            Exit For
                        End if
                    Next
                    %>
            </div>

         <div id="right">
                <%
                    For iRowLoop = 1 to iTotalRowsPerColumn
                        If Not rsDB_Dirs.EOF then
                            %>
                            
                                <div style="padding:7px 0 12px 0;">
                                <%
									sLink = "http://www.inside-guides.co.uk/" & lcase(Session("PublicFranchiseName"))
									
									getrs tmp,"USP_Helper_GetDirectoryHierarchy '" & rsDB_Dirs("GID") & "'",""
									while not tmp.eof 
										sLink = sLink & "/" & tmp("URL")
									tmp.movenext
									wend
									tmp.close
									set tmp = nothing
									
									sLink = sLink & ".html"

                                    ' Refresh Item Template, and Merge Values
                                    strDB_DirectoryItem = strDB_SubDirectoryListTemplate
                                    strDB_DirectoryItem = MergeAllParams(strDB_DirectoryItem)
                                    strDB_DirectoryItem = MergeRecordSetFields(strDB_DirectoryItem, rsDB_Dirs)
									' Write out the Directory Item
                                    Response.Write replace(strDB_DirectoryItem,"*destination*",sLink)
                                    %>                           
                               </div>
                        <%
                         If Not rsDB_Dirs.EOF then
                         rsDB_Dirs.MoveNext
                         Else
                            Exit For
                        End if
                      %>
                        
                    <%
                   Else
                   Exit For
               End if
              Next
             %>
          </div>
    
</div>
<div style="clear:both;float:left;margin:2em auto 0;padding:0 8px;"><h3 class="grey"><a href="/Signup/Register.asp?">add your business to this directory</a></h3></div>

            <%
End Sub

Sub ShowSubDirectoriesLeftToRight
    %>

<table width="90%" align="center">
    <%
        While Not rsDB_Dirs.EOF
            ' Handle Rows
            If iDB_RenderLastRow= 0 then
                ' Start Of Table
                %><tr><%
            ElseIf iDB_RenderRow > iDB_RenderLastRow then 
                ' Next Line
                %></td></tr><tr><%
            End if
            If iDB_RenderLastColumn = 0 then
                ' New Row Column
                %><td align="left" valign="top" width="50%"><%
            ElseIf iDB_RenderColumn > iDB_RenderLastColumn then
                ' Next Column
                %></td><td align="left" valign="top" width="50%" class="DirectoryBrowser_Text"><%
            End if
            
            ' Refresh Item Template, and Merge Values
            strDB_DirectoryItem = strDB_SubDirectoryListTemplate
            strDB_DirectoryItem = MergeAllParams(strDB_DirectoryItem)
            strDB_DirectoryItem = MergeRecordSetFields(strDB_DirectoryItem, rsDB_Dirs)
            
            ' Write out the Directory Item
            Response.Write strDB_DirectoryItem
            
            if iDB_RenderColumn > iDB_RenderLastColumn then
                %><td align="left" valign="top"><%
                 %></td><%
            End if
            ' Reset "Last" details
            iDB_RenderLastRow = iDB_RenderRow
            iDB_RenderLastColumn = iDB_RenderColumn
            ' Set "Next" details
            iDB_RenderColumn = iDB_RenderColumn + 1
            If iDB_RenderColumn > iDB_PageWidth then
                iDB_RenderRow = iDB_RenderRow + 1
                iDB_RenderLastColumn = 0
                iDB_RenderColumn = 1
            End if
            rsDB_Dirs.MoveNext
        Wend
        %>
</table>
        <%
End Sub

Sub ShowDirectoryContents(byVal LastInTree)
    Dim strTempHTML
    Dim intTempLoop
    If blnDirBrowser_LoadAdverts = False then
        Exit Sub
    End if
    If rsDB_Ads.EOF then
        %><div class="DirectoryBrowser_NoItems"><% = GetContent("DirectoryBrowser_NoAdvertisersToDisplay", Session("PublicFranchiseGID")) %></div><%
    End if
    %>

<script language="javascript" type="text/javascript">
        <!--
            try{
                document.getElementById('BannerAd').style.display='none';
            }catch(e){
            }
        //-->
        </script>
<table class="dir" cellpadding="0" cellspacing="0">
<%
		adMode = ""
		adPosition = 1
			While Not rsDB_Ads.EOF
			
			if adMode = "" AND ""&rsDB_Ads("EnhancedListing") = "True" then 
				%><tr><td align="left" valign="baseline"><div class="dir_sub"></div></td></tr><%
				adMode = "Enhanced"
			end if
			
			if not adMode = "Standard" AND ""&rsDB_Ads("EnhancedListing") <> "True" then 
				%><tr><td><div class="dir_sub standard"></div></td></tr><%
				adMode = "Standard"
			end if
			
            strDB_ThisAdvertTemplate = rsDB_Ads("AdvertViewTemplate")
            If IsNull(strDB_ThisAdvertTemplate) OR strDB_ThisAdvertTemplate = "" then
				if adMode = "Enhanced" then
	                strDB_ThisAdvertTemplate = GetContent("DirectoryBrowser_Advert_EnhancedTemplate", Session("PublicFranchiseGID"))
				else
					strDB_ThisAdvertTemplate = GetContent("DirectoryBrowser_Advert_StandardTemplate", Session("PublicFranchiseGID"))
				end if
            End if
            ' Handle Rows
            If iDB_RenderLastRow= 0 then
                ' Start Of Table
                %><tr><%
            ElseIf iDB_RenderRow > iDB_RenderLastRow then 
                ' Next Line
                %></td></tr><tr><%
            End if
            If iDB_RenderLastColumn = 0 then
                ' New Row Column
                %><td align="left" valign="top"><%
            ElseIf iDB_RenderColumn > iDB_RenderLastColumn then
                ' Next Column
                %></td><td align="left" valign="top"><%
            End if
            
            ' Refresh Item Template, and Merge Values
            strDB_AdvertItem = strDB_ThisAdvertTemplate
            strTempHTML = ""
            %><!--#include virtual="/PageObjects/DirectoryBrowser/i_DirectoryAdvert.asp"--><%          
            ' Write out the Directory Item
            Response.Write strDB_AdvertItem
            
            if 1 = 2 and iDB_RenderColumn > iDB_RenderLastColumn then
                %><td align="left" valign="top"><%
                 %></td><%
            End if
            ' Reset "Last" details
            iDB_RenderLastRow = iDB_RenderRow
            iDB_RenderLastColumn = iDB_RenderColumn
            ' Set "Next" details
            iDB_RenderColumn = iDB_RenderColumn + 1
            If iDB_RenderColumn > iDB_AdvertPageWidth then
                iDB_RenderRow = iDB_RenderRow + 1
                iDB_RenderLastColumn = 0
                iDB_RenderColumn = 1
            End if
            rsDB_Ads.MoveNext
			adPosition = adPosition + 1
        Wend
        %>
    </table>
<div style="margin-top:1.5em;">
   <!--#include virtual="/PageObjects/DirectoryBrowser/i_Crumbs.asp"-->
</div>
<div style="clear:both;height:0;overflow:hidden;">&nbsp;</div>
        <%
End Sub

%>
</div>

Open in new window


It looks lengthy, but it's so simple. I just can't figure out how to get a list of the top 5 adverts to display as a feed on the other pages.

If someone could point me in the right direction it'd be great.
0
Comment
Question by:UName10
2 Comments
 
LVL 52

Accepted Solution

by:
Scott Fell,  EE MVE earned 500 total points
ID: 38808123
I seem to remember this site as far back as 10 years ago or more and it has evolved very nicely.  What specific portion are you having trouble with?  "It looks lengthy, but it's so simple." - because you live it.  

I would create a simple json feed page of advertisers or clean include file and in your sql define however you figure what the "top" is.

How are you defining the top adverts?


I like this library to create a json feed from classic asp.  http://code.google.com/p/aspjson/

From there you can bring the json feed through an include file at the top or bottom of your page and use jquery to fit it into the appropriate place on the page.
0
 

Author Comment

by:UName10
ID: 38820463
Thanks for the reply Padas and for the nice compliment. The top adverts are the ones most recently added. I'm just starting, so it takes me some extra time to do things...I'll check out json and see how I get on.

 Many thanks.
0

Featured Post

IT, Stop Being Called Into Every Meeting

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

Join & Write a Comment

Have you ever needed to get an ASP script to wait for a while? I have, just to let something else happen. Or in my case, to allow other stuff to happen while I was murdering my MySQL database with an update. The Original Issue This was written…
This article is the result of a quest to better understand Task Scheduler 2.0 and all the newer objects available in vbscript in this version over  the limited options we had scripting in Task Scheduler 1.0.  As I started my journey of knowledge I f…
Excel styles will make formatting consistent and let you apply and change formatting faster. In this tutorial, you'll learn how to use Excel's built-in styles, how to modify styles, and how to create your own. You'll also learn how to use your custo…
This demo shows you how to set up the containerized NetScaler CPX with NetScaler Management and Analytics System in a non-routable Mesos/Marathon environment for use with Micro-Services applications.

746 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

17 Experts available now in Live!

Get 1:1 Help Now