Troubleshooting Q&A - May 6, 2004

Function getCurrentSectionName(strFullPath) Dim iLocation Dim strTemp iLocation = InStr(2, strFullPath, "/", 1) If iLocation = 0 Then strTemp = "" Else strTemp = Mid(strFullPath, 2, iLocation - 2) End If getCurrentSectionName = LCase(strTemp) End Function %> <% Dim strCurrentFilePath Dim strCurrentSectionName strCurrentFilePath = Request.ServerVariables("URL") strCurrentSectionName = mainGetCurrentSectionName(strCurrentFilePath) %> <% ' Sets JavaScript to show INTM banners: ' Handles sectional targetting for home page within. ' strBanner is the position indicator (ie. 468x60-1). ' Hotwired strBanner="javascript" to insert the call to the appropriate javascript file. ' Don't forget to modify JS file as well when modifying ad positions! Sub mainShowOASBanner(strBannerPosition) Dim strPositionsRequired If Request.QueryString("ads") = "none" Then Exit Sub If LCase(strBannerPosition) = "javascript" Then ' Spit out JavaScript line: Select Case LCase(strCurrentFilePath) Case "/index.asp" Response.Write "" Case Else Response.Write "" End Select Else ' Process standard banner call: ' Determine banners needed strPositionsRequired = "468x60-1,120x60-1,125x800,flex,336x280-2,house_ribbon,ciu,cp1,cp2,cp3,cp4,cp5,cp6,cp7,cp8,cp9,cp10,cp11,cp12,cp13,cp14,marketplace01,marketplace02,marketplace03,marketplace04,marketplace05,marketplace06,marketplace07,marketplace08,marketplace09,marketplace10,send,accessunit_one,accessunit_two,accessunit_three!marketplace10,marketplace11,marketplace12,interstitial,68x60-1,125x125-1,125x125-2" 'Homepage targetting Select Case LCase(strCurrentFilePath) Case "/index.asp" strPositionsRequired = strPositionsRequired & ",accessunit_one,accessunit_two,accessunit_three" Case Else strPositionsRequired = strPositionsRequired & ",accessunit" End Select 'If Request.ServerVariables("REMOTE_HOST") <> "216.15.51.195" Then ' Spit out banner text 'Response.Write "" & vbCrLf Response.Write "" '& vbCrLf Response.Write "

" & vbCrLf Response.Write "" & vbCrLf 'Response.Write "" & vbCrLf 'End If End If End Sub %> <% Sub mainShowQUADBanner(strBannerPosition) Dim positionkey If letter_mappings.Exists(strBannerPosition) then positionkey = letter_mappings.Item(strBannerPosition) Else Exit Sub End if If (strCurrentSectionName <> "home" and strCurrentSectionName <> "") Then urlkey = "www.practicallynetworked.com"& "/" & strCurrentSectionName Else urlkey = "www.practicallynetworked.com" End if Dim lstIndxOf,lstPeNm lstIndxOf=InStrRev(currentFilePath,"/")+1 If lstIndxOf <> 0 Then lstPeNm=LCase(Mid(currentFilePath ,lstIndxOf,Len(currentFilePath))) end if If (indexPages.Exists(lstPeNm)) then pagekey = "index" else pagekey = "other" End if Response.write("") if(StrComp(strBannerPosition,"interstitial")=0) then GetQUADScriptforInterstitialAd urlkey, pagekey, positionkey Else GetQUADScript urlkey, pagekey, positionkey End If 'GetQUADScript urlkey, pagekey, positionkey End Sub Sub GetQUADScriptforInterstitialAd (urlkey, pagekey, positionkey) Dim strquad_position, strquad_type, stroas, strzflag_nid, strzflag_cid, strzflag_sid, strzflag_sz, strzflag_width, strzflag_height,strzflag_x 'checks whether the current URL is present into the QUAD_ads from the config If (QUAD_ads.Exists(urlkey)=false) then call keyExistsLikeAd(QUAD_ads,urlkey) end if 'if ad not found for suitable look for default values On Error Resume Next Dim page_data page_data=QUAD_ads(urlkey)(pagekey)(positionkey)("zflag_cid") If Err.Number > 0 OR page_data="" Then 'set the default values If (adExists=false) then Dim URLS,PAGES URLS = QUAD_ads.Keys urlkey=URLS(0) ' current URL PAGES =QUAD_ads.Item(URLS(0)).Keys pagekey=PAGES(0) ' current page 'If the current page accessed is or page If Len(lastPageName & "") <> 0 and indexPages.Exists(lastPageName)=false Then pagekey=PAGES(1) ' page end if end if End If On Error GoTo 0 ' turn error handling off again If (QUAD_ads(urlkey)(pagekey).Exists(positionkey)) then strquad_position = QUAD_ads(urlkey)(pagekey)(positionkey)("quad_position") strquad_type = QUAD_ads(urlkey)(pagekey)(positionkey)("quad_type") stroas = QUAD_ads(urlkey)(pagekey)(positionkey)("oas") 'strpage_channel = QUAD_ads(urlkey)(pagekey)(positionkey)("page_channel") strzflag_nid = QUAD_ads(urlkey)(pagekey)(positionkey)("zflag_nid") strzflag_cid = QUAD_ads(urlkey)(pagekey)(positionkey)("zflag_cid") strzflag_sid = QUAD_ads(urlkey)(pagekey)(positionkey)("zflag_sid") strzflag_sz = QUAD_ads(urlkey)(pagekey)(positionkey)("zflag_sz") strzflag_width = QUAD_ads(urlkey)(pagekey)(positionkey)("zflag_width") strzflag_height = QUAD_ads(urlkey)(pagekey)(positionkey)("zflag_height") strzflag_x = QUAD_ads(urlkey)(pagekey)(positionkey)("zflag_x") Response.write("") End If End Sub Function keyExistsLikeAd(QUAD_ads,urlkey) Dim keys,i,configURLpatern 'Create some variables keys = QUAD_ads.keys 'Get the keys For i = 0 To QUAD_ads.Count -1 'Iterate the array configURLpatern=keys(i) if(InStr(configURLpatern, urlkey)>0)then 'we have such URL pattern then set taht as urlkey urlkey=configURLpatern exit for end if Next End Function Function mainGetCurrentSectionName(strFullPath) Dim iLocation Dim strTemp iLocation = InStr(2, strFullPath, "/", 1) If iLocation = 0 Then strTemp = "home" Else strTemp = Mid(strFullPath, 2, iLocation - 2) End If mainGetCurrentSectionName = LCase(strTemp) End Function %> <%GetQuadJavaScripts() %> <% If (Not IsQUADEnabled) Then %>

<% Else %> <% End If %> <% If (Not IsQUADEnabled) Then %>

<% Else %> <%mainShowBanner("interstitial") %> <%mainShowBanner("send") %> <% End If %>

<% If (Not IsQUADEnabled) Then %>

<% Else %> <%mainShowBanner("468x60-1") %> <% End If %>

Product Reviews

• Routers
• Hubs/Switches
• Wireless Gateway
• Wireless AP
• Wireless NIC
• Network Storage
• Print Servers
• Bluetooth Adapters

Troubleshooting
& Tutorials

• Networking
• Internet Sharing
• Security
• Backgrounders
• Troubleshooting
Guides
• PracNet How To's

User Opinions

Practicallynetworked Glossary

Find a Network Term

<% If (Not IsQUADEnabled) Then %>

<%Else %> <% If LCase(strCurrentFilePath) = "/index.asp" Then %> <% mainShowBanner("336x280") %> <%else %> <%mainShowBanner("336x280") %> <%End If %> <% End If %>

<% If (Not IsQUADEnabled) Then %>

<% Else %> <%mainShowBanner("accessunit") %> <% End If %>

Find a Hotspot...

Add this search code to your site!
Copyright 2003Jupitermedia


	Most Popular Tutorials

• Microsoft Vista Home Networking Setup and Options
The most daunting part of upgrading to Windows Vista may be trying to figure out where in the layers of menus the networking and file-sharing options are hidden.

• Do It Yourself: Roll Your Own Network Cables
It may not be something you do everyday, but having the supplies and know-how to whip up a network cable on the spot can be very handy.

• Tips for Securing Your Home Router
Seemingly minor and easily overlooked settings can still have profound security implications. Here are some steps you can take to make sure your wired or wireless home router � and by extension, your network � is as secure as possible.


	Most Popular Reviews

• Microsoft Windows Home Server
If you have a home network, you'll welcome the easy file sharing, remote access and the image-based backup features of Windows Home Server.

• Iomega StorCenter Network Hard Drive
Iomega's fourth generation StorCenter Network Hard Drive brings many of the features found in higher-end storage devices down to an attractive price.

• MikroTik's The Dude
This free tool delivers many of the same capabilities that you'd find in pricey network monitoring tools. As long as you don't mind tinkering, The Dude is a decent network utility that should be worth the download.

<% If (Not IsQUADEnabled) Then %>

<% Else %>

<%mainShowBanner("ciu") %>

<%mainShowBanner("CIU-FLEX(CIU-2)") %>

<% End If %>

Troubleshooting Q&A - June 29, 2004

What to Do When Spyware Attacks

When sinister spyware and adware invade your system, can you ever take back control? Plus, how to leap your own firewall ... and are two routers better than one?

By Ron Pacchiano

Q. I have been battling with my PC to rid it of numerous adware and spyware infestations. The most difficult of these problems came in the form of a browser hijacker, which managed to bury itself deep into my system. After hours and hours of work, it looks like I had finally succeeded in removing this parasite from my system. However, removing it did not come without a price. Since the hijacker was removed I can no long browse the Web using Internet Explorer. I can, however, still ping IP addresses outside of my gateway — I just can't browse them.

At this point, it appears that the only choice I have left is to wipe out the operating system and reinstall it. The problem is that after putting in all that time and effort, I just can't bring myself to wipe out the machine before exploring every other possibility. I was wondering if you had any suggestions that might help me avoid what I'm starting to think is inevitable. My PC is a Dell Dimension XPS running Windows XP Professional and is connected to a D-link router and cable modem. I hope you can help. Thanks!

A. It sounds like you have a good knowledge of PCs, so what I'm about to say isn't going to surprise you. As you are now well-aware, the number of PCs infected by adware and spyware is on the rise, and some of these applications can be incredible difficult to get rid of. They entrench themselves deep into your systems registry. When parts of them are removed, they automatically restore themselves.

My brother recently had a problem with a hijack browser that just completely took over his system. Every time I thought I had removed all of its components, BAM! ... there it was again. I finally had no choice but to back up his data and reinstall the operating system..

And as much as I hate to be the bearer of bad news, I have a feeling that this will be your situation as well. However, since you can ping IP addresses outside of your gateway, maybe there is some hope. The only thing I can suggest is that you try running a utility I came across called WinSock XP Fix. This utility can sometimes be helpful in repairing the Windows XP network and Winsock settings that can sometimes become damaged after removing adware or spyware from your system. It can also create a registry backup of your current settings, so it is fairly safe to use. You can find more information and download WinSock XP Fix here.

If that fails, I would suggest that you just bite the bullet and redo the PC. I know it's a hassle, but you'll probably spend less time redoing the PC then you would trying to repair the damage caused by the hijacker.

The last thing I can suggest is that after you get everything working correctly you check out this Q&A Column I wrote a few months ago on adware/spyware detection and removal. It contained a bunch of links to various utilities that can help you prevent this from happening again in the future. That article can be found at . Good luck!

Q. I have managed to network two home computers, both running Windows 98 Second Edition. However, I'm running a Symantec firewall, and I can't access the other computer unless I disable the firewall. How can I configure the firewall to let me use the network?

A. The quickest and simplest approach would be to configure your firewall to not block any traffic from computers on your internal network. This would give you full and unfettered access to the other machine.

Alternately, you could open up the specific ports that you need in order to access the other machine. Of course, access is a generic term that could mean a lot of things, but chances are you're most concerned with accessing shared folders on the other machine.

If this is the case, you'll need to make sure that TCP and UDP ports 135, 137, 138, 139, and 445 are open. (Please be sure you enable these ports only for machines on the local network. You don't want these ports exposed to the Internet.)

Keep in mind that if you're running a firewall program on both machines, you'll need to configure both of them accordingly.

Q. I have two routers — an SMC 7004BR and an SMC 7004VWBR. When I connect my cable modem to the 7004BR and then connect the 7004VWBR to the 7004BR via a crossover cable, the speed on the network is great. If I do the opposite and connect the 7004VWBR to the cable modem and then connect the 7004BR to the 70004VWBR, the speed is very slow. I want to keep the 7004VWBR directly connected to the cable modem because it has more features in the setup. Is there a reason why this configuration provides slower speed than the other method?

A. The two pieces of hardware you're using, the SMC 7004BR and SMC 7004VWBR, are both broadband routers. They have nearly identical features, except that the latter includes wireless capability and has three LAN ports instead of four.

You're trying to use two devices that are essentially redundant. The difference in speed you're seeing is really a red herring, since you really need only one or the other. I don't know how you're measuring the speed, but connecting two routers like that is bound to cause some problems.

If you remove the unneeded equipment from the equation, everything should work just fine. You should choose one device or the other, depending on what you're trying to accomplish. If you don't need wireless access, use the 7004BR. If you want wireless access, stick with the 7004VWBR. You could also use the 7004BR with a wireless access point — access points are made to compliment routers like this.

Keep in mind that if you're running a firewall program on both machines, you'll need to configure both of them accordingly.

Use our feedback form to submit your questions on home or SOHO networking issues. We cannot guarantee to answer every question we get, but we’ll consider them all.

<%If (Not IsQUADEnabled) Then %>

<%Else %> <%mainShowBanner("fl1") %> <% End If %>
<%If (Not IsQUADEnabled) Then %>

<%Else %> <%mainShowBanner("fl2") %> <% End If %>
<%If (Not IsQUADEnabled) Then %>

<%Else %> <%mainShowBanner("fl3") %> <% End If %>
<%If (Not IsQUADEnabled) Then %>

<%Else %> <%mainShowBanner("fl4") %> <% End If %>
<%If (Not IsQUADEnabled) Then %>

<%Else %> <%mainShowBanner("fl5") %> <% End If %>
<% If (Not IsQUADEnabled) Then %>

<% Else %> <%mainShowBanner("336x280-2") %> <% End If %>