<div>
Havn't tested it but I believe the return values for the ServerVariables will depend upon whether or not IPv6 is enabled on IIS and whether or not the http request is coming from a system that has IPv6 enabled.<br />
<br />
&lt;%<br />
<br />
Dim strServername, strLocalname, strServerIP<br />
<br />
strServername = UCase(Request.ServerVariab<wbr />les(&quot;SERVE<wbr />R_NAME&quot;)) &nbsp; ' Server's name<br />
strServerIP = UCase(Request.ServerVariab<wbr />les(&quot;LOCAL<wbr />_ADDR&quot;)) &nbsp; &nbsp; &nbsp;' Server's IP address<br />
strRemoteIP = &nbsp;UCase(Request.ServerVariab<wbr />les(&quot;REMOT<wbr />E_ADDR&quot;)) &nbsp; &nbsp;' Client's IP address<br />
<br />
Response.write &quot;Server Name = &quot;&nbsp; &amp;&nbsp; strServername<br />
Response.write &quot;&lt;br&gt;&quot;<br />
Response.write &quot;Local Addr = &quot;&nbsp; &amp;&nbsp; strServerIP <br />
Response.write &quot;&lt;br&gt;&quot;<br />
Response.write &quot;Remote Addr = &quot;&nbsp; &amp;&nbsp; strRemoteIP <br />
<br />
%&gt;
</div>


Havn't tested it but I believe the return values for the ServerVariables will depend upon whether or not IPv6 is enabled on IIS and whether or not the http request is coming from a system that has IPv6 enabled.

<%

Dim strServername, strLocalname, strServerIP

strServername = UCase(Request.ServerVariables("SERVER_NAME"))   ' Server's name
strServerIP = UCase(Request.ServerVariables("LOCAL_ADDR"))      ' Server's IP address
strRemoteIP =  UCase(Request.ServerVariables("REMOTE_ADDR"))    ' Client's IP address

Response.write "Server Name = "  &  strServername
Response.write "<br>"
Response.write "Local Addr = "  &  strServerIP
Response.write "<br>"
Response.write "Remote Addr = "  &  strRemoteIP

%>

<div>
The proiblem is that with IPV6 I'm getting with the REMOTE_ADDR the new address format like: 2001:0db8:85a3:08d3:1319:8<wbr />a2e:0370:7<wbr />348.<br />
From this address I need to extract the IP address like 123.456.78.910
</div>


The proiblem is that with IPV6 I'm getting with the REMOTE_ADDR the new address format like: 2001:0db8:85a3:08d3:1319:8a2e:0370:7348.
From this address I need to extract the IP address like 123.456.78.910

<div>
<div class="content wysiwyg-content">
I am testing my website on Vista and need a visual basic function (used in classic asp) &nbsp;to extract the IP address from an Ipv6 address.<br />
Thanks
</div>
</div>


I am testing my website on Vista and need a visual basic function (used in classic asp)  to extract the IP address from an Ipv6 address.
Thanks

I need a piece of code (using pure VB6 code) to extract the IP address from an IPv6 IP address

Visual Basic is Microsoft’s event-driven programming language and integrated development environment (IDE) for its Component Object Model (COM) programming model. It is relatively easy to learn and use because of its graphical development features and BASIC heritage. It has been replaced with VB.NET, and is very similar to VBA (Visual Basic for Applications), the programming language for the Microsoft Office product line.