Vb.net

<script runat="server">
'---------------------------------------------------------------------------
'                                                              
' Millennial Media VB.net Ad Coding, v.1.0.0
' Copyright Millennial Media, Inc. 2010
'                                                              
'--------------------------------------------------------------------------- 
'---- PROPRIETARY HEADER - PLEASE DO NOT CHANGE ANYTHING BETWEEN LINES -----
  Function mmedia_ad() As String

    Dim mm_adserver as String = "ads.mp.mydas.mobi"
    Dim mm_ua as String  = Server.URLEncode( Request.ServerVariables( "HTTP_USER_AGENT" ) )
    Dim mm_ip as String = Server.URLEncode( Request.ServerVariables( "REMOTE_ADDR" ) )

    Dim mm_id as String
    If Not isdbnull( Request.ServerVariables( "HTTP_X_UP_SUBNO" ) ) Then
      mm_id = Server.URLEncode( Request.ServerVariables( "HTTP_X_UP_SUBNO" ) )
    ElseIf Not isdbnull( Request.ServerVariables( "HTTP_XID" ) ) Then
      mm_id = Server.URLEncode( Request.ServerVariables( "HTTP_XID" ) )
    ElseIf Not isdbnull( Request.ServerVariables( "HTTP_CLIENTID" ) ) Then
      mm_id = Server.URLEncode( Request.ServerVariables( "HTTP_CLIENTID" ) )
    Else
      mm_id = Server.URLEncode( Request.ServerVariables( "REMOTE_ADDR" ) )
    End If
    
    '-- Publisher Specific Section --
    Dim mm_placementid as String = [YOUR PLACEMENT ID FROM MM]
    Dim mm_default_response as String = ""
    '-- End Publisher Specific Section --

    Dim mm_url as String
    mm_url = "http://" & mm_adserver & "/getAd.php5?apid=" & mm_placementid & "&auid=" & mm_id & "&ua=" & mm_ua & "&uip=" & mm_ip

    'send request
    Dim mmedia_contents As StringBuilder = New StringBuilder()
    Try
            Dim mmedia_request As System.Net.WebRequest = System.Net.WebRequest.Create(mm_url)
            mmedia_request.Method = "GET"
            mmedia_request.Timeout = 3000
            Dim mmedia_response As System.Net.HttpWebResponse = CType(mmedia_request.GetResponse, System.Net.HttpWebResponse)
            Dim mmedia_ios As System.IO.Stream = mmedia_response.GetResponseStream()
            Dim mmedia_reader As System.IO.StreamReader = New System.IO.StreamReader(mmedia_ios)
            mmedia_contents.Append(mmedia_reader.ReadToEnd())
    Catch mmedia_e As Exception
            mmedia_contents.Append("")
    End Try
    Return mmedia_contents.ToString()
  End Function
' END OF HEADER
'--------------------------------------------------------------------------- 
</script>


<%
    'copy this snippet elsewhere on your page for display of ads
    Response.Write(mmedia_ad())
%>