Troubleshooting Q&A - May 19, 2005

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 - May 19, 2005

Make a Wireless Peer-to-Peer Connection

Tips and tricks for setting up a P2P wireless network with no access point and wireless cards from different vendors ... plus, how to remove unused ports once and for all.

By Ron Pacchiano

Q. I'm trying to set up peer-to-peer wireless network between two desktop computers. One is running Windows XP Home Edition and is equipped with a NetGear PCI wireless card. The other is running Windows XP Media Center with a D-Link USB wireless adapter. Both cards look like their configured correctly and are coming up as working in Device Manager, but they can't seem to communicate with each other. Although an icon in the status bar says I'm connected, I can't ping from one machine to the other. Any suggestions you have would be greatly appreciated.

A. Before we continue, I just want to point out that in spite of the fact that the status bar says you're connected, there is a good possibility that your network isn't configured correctly. All this indicator really implies is that the card can see the presence of another wireless adapter or access point. It doesn't mean that it can communicate with it.

Now with that being said, you didn't provide enough details on your network configuration to allow me to tell you exactly what the cause of your problem is. However, there are a number of things I can have you check that should help resolve your problem. You didn't mention if these systems had access to the Internet, so any of the suggestions I make might have to be modified a bit to keep your Internet connection up and running. Use the following information as a guideline only.

The first things you should check are the basics. Make sure that both computers are members of the same workgroup. Next you'll need to double-check your IP settings. In a Peer-to-Peer environment (or one without an access point) you should make sure that both PCs are using a static IP address and share a common subnet mask. A typical example for this would be to give PC1 an IP address of 192.168.0.2 and PC2 an IP address of 192.168.0.3. 192.168.0.1 is usually reserved for the Router/Gateway address. Then each PC would be given a Subnet mask of 255.255.255.0.

With that done, we now need to take a look at your wireless settings. Since you're not using an access point, check and make sure both wireless network cards are in ad-hoc mode rather than infrastructure mode. Most cards default to infrastructure mode, so this is a common problem.

Next verify that both wireless cards are configured to use the same wireless settings. They should share a common SSID (just like the workgroup name) and they should be transmitting data on the same channel. Adapters made by different vendors sometimes default to different channels, which would prevent communication.

All levels of encryption should also be disabled for the time being. While I understand that you want your data to be secure, both WEP and WPA encryption can be extremely problematic to configure, particularly from cards made by different vendors. Once you have conductivity between your two systems then you can worry about getting the security encryption to function properly.

When you do finally enable it, take your time and ensure that the security settings on both cards are set to the same encryption type (WEP/WPA), level (64 bit, 128 bit and so on) and are using identical encryption keys. If you follow these steps carefully, you should find yourself online in no time. Good Luck!

Q. Over the years I've had a couple of different printers. Each time I added one, I ended up having to add a new TCP LPR port to my system. Since I don't use (or even have) most of those old printers anymore, I thought that I would just delete those unneeded ports from my system. However, when I attempt to remove them I get an error message that says that the resource is in use and cannot be removed. Most of these printers aren't even connected to the PC anymore, so I don't understand how the port could possible be in use. Do you have any idea how to go about removing these TCP ports from my system? Thanks.

A. In order to change or remove a port from the system, it has to be unallocated. When you first created the port it was assigned to a specific printer. Even though that printer might not be physically connected to the PC, the port is still being allocated to it. This is why the system tells you that the resource is in use and cannot be removed. In order to remove it, all you need to do is delete the printer that it was originally created for. If you used that port for any additional printers, those will need to be deleted as well.

Now that the printer(s) have been deleted, you need to delete the unused port. To do this, go into the properties of any printer installed on your system and proceed to the Ports tab. FYI: Make a note of the port currently assigned to this printer so you can put it back later. Now highlight the port you wish to remove from your system and press the "Delete Port" button. The system will ask you if you're sure you want to remove this port. Answer yes. Repeat this process for all of the ports you want to remove. When finished deleting the last one, set the port back to the one that you made note of earlier and press "Close." If you forget to do this, the printer will no longer function. Hope that helps.

Use our feedback form to submit your questions on home or SOHO networking issues. Please be as specific as possible. 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 %>