We help IT Professionals succeed at work.

Check out our new AWS podcast with Certified Expert, Phil Phillips! Listen to "How to Execute a Seamless AWS Migration" on EE or on your favorite podcast platform. Listen Now

x

I have an web server (IIS) on my network, hosting several sites . What I need to do to access this sites from the local network?

Medium Priority
351 Views
Last Modified: 2012-06-27
Hi,

I have a Web server hosting some websites and I can't acces this sites from the local network.
I have 10MB ADSL access - The router si conected to port 1 of my switch and al the computers and the server to the same switch

It's working well when somebody access the webpages from outside but I can´t see the pages from local network.

I put the server local IP (192.168.1.33) in the DMZ inside the router and I also added port forwarding setings inside the router like TCP 80 ---> 192.168.1.33 ...

The problem is that one of the sites (script -> ASP) use CDO for sending emails.
It's work nice but when the site try to send a local page via email I get an error:

CDO.Message.1 error '80040218'

Unknown Error

/mailpp_sunsizbor.asp, line 36
 

<%
 
Dim objConfig,smarthost,msgBody 
set Mail = createobject("cdo.message")
set objConfig = createobject("cdo.configuration")
 
msgBody = "http://sunsizbor.com/mail_s_11.asp?nume=" & tName & "&user=" & tEmail 	
 
smarthost = "127.0.0.1"
' Setting the SMTP Server
Set Flds = objConfig.Fields
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smarthost
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic 'cdoAnonymous ' =0 
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "info"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "*********" 
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
 
 
Flds.update
 
Set Mail.Configuration = objConfig
Mail.To = temail
'mail.BCC = ""
Mail.From = "info@sunsizbor.com"
Mail.Subject = msgSubject
Mail.CreateMHTMLBody msgBody         ' THIS IS LINE 36
Mail.fields.update
Mail.Send
 
set objConfig = nothing
 
 
Set Mail = Nothing
End Function
%>

Open in new window

router.jpg
Comment
Watch Question

Have you checked DNS entries for locally hosted domains in your DNS Server?

Author

Commented:
I don´t have a DNS Server role installed on the local server.
The DNS service that I use is provided by the domain registrand company.
There in the control panel of this company I set the ip 80.37.xx.xx (my static iP) for A, MX, WWW, FTP, MAIL ...

I have to install a DNS server role in this case?
How I need to configure this ??
Thanks
Unlock this solution and get a sample of our free trial.
(No credit card required)
UNLOCK SOLUTION
Unlock the solution to this question.
Thanks for using Experts Exchange.

Please provide your email to receive a sample view!

*This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

OR

Please enter a first name

Please enter a last name

8+ characters (letters, numbers, and a symbol)

By clicking, you agree to the Terms of Use and Privacy Policy.