Hay 1.390 nombres

En color azul los últimos incorporados

 <% '*************************************************************************** ' Paste this block of code on your web page where you would like text ' links to be displayed. This code will dynamically add and remove text ' links on your web page according to your mercadoenlacestexto.com settings '*************************************************************************** Dim METKey, METCurrentUrl, METNewWindow, METQueryString, METResultString, METErrorString ' The following variable defines whether links are opened in a new window or not ' (1 = Yes, 0 = No) METNewWindow = 1 METKey = "l421mu169v" If Request.ServerVariables("HTTPS") = "on" Then METCurrentUrl = "https://" & Request.ServerVariables("HTTP_HOST") Else METCurrentUrl = "http://" & Request.ServerVariables("HTTP_HOST") End If METCurrentUrl = METCurrentUrl & Request.ServerVariables("PATH_INFO") If Request.ServerVariables("QUERY_STRING") <> "" Then METCurrentUrl = METCurrentUrl & "?" & Request.ServerVariables("QUERY_STRING") End If METQueryString = "LinkUrl=" & Server.URLencode(METCurrentUrl) & "&Key=" & METKey & "&OpenInMyBetaNewWindow=" & METNewWindow If GetMET(METQueryString, METResultString, METErrorString) Then Response.Write METResultString Else Response.Write METErrorString End If Function GetMET(ByVal METqs, ByRef METresp, ByRef METerr) Dim METEngine, ObjHttp METEngine = "http://mercadoenlacestexto.com/index.php/home_page/engine?" Set ObjHttp = Nothing On Error Resume Next Set ObjHttp = CreateObject("WinHttp.WinHttpRequest.5.1") On Error Resume Next If ObjHttp Is Nothing Then Set ObjHttp = CreateObject("WinHttp.WinHttpRequest.5") End If On Error Resume Next If ObjHttp Is Nothing Then On Error Resume Next Set ObjHttp = CreateObject("Msxml2.ServerXMLHTTP") On Error Resume Next If ObjHttp Is Nothing Then Set ObjHttp = CreateObject("Msxml2.ServerXMLHTTP.4.0") End If On Error Resume Next If ObjHttp Is Nothing Then Set ObjHttp = CreateObject("Microsoft.XMLHTTP") End If On Error Resume Next If ObjHttp Is Nothing Then Er = "It appears that handling remote HTTP requests are not supported or have been disabled. Please contact your web host for more information." GetMET = False Else ObjHttp.Open "GET", METEngine & METqs, False ObjHttp.Send If ObjHttp.status <> 200 Then METerr = "Error processing request" GetMET = False Else METresp = ObjHttp.responseText GetMET = True End If Set ObjHttp = Nothing End If Else ObjHttp.Open "GET", METEngine & METqs, False ObjHttp.Send If ObjHttp.Status <> 200 Then METerr = "Error processing request" GetMET = False Else METresp = ObjHttp.responseText GetMET = True End If End If End Function %>

a  ( 175) )

b  ( 45)  

c  ( 77 )  

d  ( 71 )  

e  ( 104 )  

f  ( 53 )  

g ( 47 )  

h  ( 26 )

i  ( 60)  

j  ( 69)  

k  ( 30 )  

l  ( 89 )  

m  ( 110 )  

n  ( 64 )  

o  ( 27)  

p  ( 40)

q  ( 9 )  

r  ( 57 )  

s  ( 59 )  

t  ( 31 )  

u  ( 8 )  

v  ( 36 )  

w  ( 12 )  

y  ( 63 )

z  ( 20 )