<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="iso-8859-15" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<%
Dim myConnection As SqlConnection
Dim myCommand As SqlCommand
Dim url As String
Dim web As String
Dim dom As String

Try

Response.ContentType = "image/GIF"

If Not Request.ServerVariables("HTTP_REFERER") is Nothing Then
	If Request.ServerVariables("HTTP_REFERER").ToLower.IndexOf("tusmejoreshipotecas.com") = -1 Then
		Exit Try
	End if
Else
	Exit Try
End if

If Not Request("r") Is Nothing Then
	url=Request("r").replace("'","")
	dom=url.Remove(url.IndexOf("/", 7),url.Length-url.IndexOf("/", 7))
Else
	url="ninguno"
	dom="ninguno"
End If

'web=Request.ServerVariables("HTTP_REFERER").SubString(Request.ServerVariables("HTTP_REFERER").IndexOf("/", 7)+1)
web=Request.ServerVariables("HTTP_REFERER")

	myConnection = New SqlConnection(ConfigurationSettings.AppSettings.Get("eConnectString2"))
	myConnection.Open()
	
	myCommand = New SqlCommand("WebBanner",myConnection)
	myCommand.CommandType = CommandType.StoredProcedure
	myCommand.Parameters.Clear()
	myCommand.Parameters.Add("@url",System.Data.SqlDbType.nvarchar,500,"@url").Value = url
	myCommand.Parameters.Add("@web",System.Data.SqlDbType.nvarchar,500,"@web").Value = web
	myCommand.Parameters.Add("@dom",System.Data.SqlDbType.nvarchar,500,"@dom").Value = dom
	myCommand.ExecuteNonQuery()
	myConnection.Close()

Catch
	myConnection.Close()
End Try
%>
<!-- #include file="blank.gif" -->