ASP

The ASP coding has been developed to safely and efficiently provide MYDAS with the information necessary to choose the most appropriate advertisement at the time of the request.

<%
'---------------------------------------------------------------------------
'                                                              
' Millennial Media ASP Ad Coding, v.7.4.20
' Copyright Millennial Media, Inc. 2006-2007
'                                                              
'--------------------------------------------------------------------------- 
'---- PROPRIETARY HEADER - PLEASE DO NOT CHANGE ANYTHING BETWEEN LINES -----
Dim mm_adserver
mm_adserver = "ads.mp.mydas.mobi"

Dim mm_ua
mm_ua = Server.URLEncode( Request.ServerVariables( "HTTP_USER_AGENT" ) )

Dim mm_ip
mm_ip = Server.URLEncode( Request.ServerVariables( "REMOTE_ADDR" ) )
 
Dim mm_id
If Not isEmpty( Request.ServerVariables( "HTTP_X_UP_SUBNO" ) ) Then
  mm_id = Server.URLEncode( Request.ServerVariables( "HTTP_X_UP_SUBNO" ) )
ElseIf Not isEmpty( Request.ServerVariables( "HTTP_XID" ) ) Then
  mm_id = Server.URLEncode( Request.ServerVariables( "HTTP_XID" ) )
ElseIf Not isEmpty( Request.ServerVariables( "HTTP_CLIENTID" ) ) Then
  mm_id = Server.URLEncode( Request.ServerVariables( "HTTP_CLIENTID" ) )
Else
  mm_id = Server.URLEncode( Request.ServerVariables( "REMOTE_ADDR" ) )
End If
'-------------------------------- END HEADER -------------------------------

'----------------------- Ad Server Call (Repeatable) -----------------------
'-- Publisher Specific Section --
Dim mm_placementid
mm_placementid = (YOUR PLACEMENT ID FROM MM)

Dim mm_default_response
mm_default_response = ""
'-- End Publisher Specific Section --

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

Set Connection = Server.CreateObject( "MSXML2.ServerXMLHTTP" )
Connection.Open "GET", mm_url, True
Call Connection.Send()

On Error Resume Next

If Connection.readyState <> 4 Then
  Connection.waitForResponse 5
End If

If Err.Number <> 0 Then
  Response.write(mm_default_response)
ElseIf (Connection.readyState <> 4) Or (Connection.Status <> 200) Then
  Connection.Abort
  Response.write(mm_default_response)
Else
  AdRsp = Connection.responseText
  Response.write( AdRsp )
End If

Set Connection = Nothing
'--------------------------- End Ad Server Call ----------------------------

%>
%>