Admentor

[phscosta 0]

Como configurar o admentor para os banner cadastrados abrirem em uma nova janela?

Grato,

Paulo

 

________________________________________________

Visite e Navegue Melhor - A Internet na direção certa!

http://www.naveguemelhor.com.br

Fórum Navegue Melhor - Navegue entre suas dúvidas e idéias!

http://www.naveguemelhor.com.br/forum

[tdeecken 0]

Prezado phscosta,

 

Já passei por isso, tb uso o admentor e sei como fazer. Verifique dentro da pasta include do seu admentor que existe o arquivo admentor2.asp.

 

Bem, vamos simplificar as coisas... abra este arquivo no bloco de notas e selecione tudo... apague o código todo e coloque este abaixo, que é o mesmo, porém, lá embaixo, há a tag que faz abrir em nova janela. Salve e teste, barbada!

 

Segue o código inteiro que você deve substituir no arquivo admentor2.asp dentro da pasta inlude do sistema:

 

<!--#include file="admentordb.asp"-->

<%

 

''''''''''' © Stefan Holmberg 1999

''''''''''' Free to use if these sourcecode lines is not deleted

''''''''''' Contact me at webmaster@sqlexperts.com

''''''''''' http://www.sqlexperts.com

''''''''''' AdMentor homepage at http://www.create-a-webshop.com

 

 

 

 

''''''''''''''''The public functions

 

'This should be called from ASP pages on SAME server

'The QueryString parameter is just that - a querystring string

'where you specify zone etc the same way as when

'using NonSSI version

 

Public Function AdMentor_GetAdASP( strQueryString )

Dim sArr, n

Dim sArr2

'Setable parameters

Dim sZones, nFarm, nBannerId

 

sArr = Split( strQueryString, "&" )

 

For n=LBound(sArr) To UBound(sArr)

sArr2 = Split( sArr(n), "=" )

 

Select Case sArr2(0)

Case "Z"

sZones = sArr2(1)

Case "F"

nFarm = sArr2(1)

Case "B"

nBannerId = sArr2(1)

Case "N"

nBannerOnPage = sArr2(1)

End Select

Next

 

'If we have selected a certain banner to run on this

'specific spot then just don't care about the rest...

AdMentor_GetAdASP = AdMentor_GetAdEx( True, sZones, nFarm, nBannerId, nBannerOnPage, True )

End Function

 

Public Function AdMentor_GetAdNonSSI()

'Setable parameters

Dim sZones, nFarm, nBannerId, nBannerOnPage

 

sZones = Request.QueryString("Z")

nFarm = Request.QueryString("F")

nBannerId = Request.QueryString("B")

nBannerOnPage = Request.QueryString("N")

 

AdMentor_GetAdNonSSI = AdMentor_GetAdEx( False, sZones, nFarm, nBannerId, nBannerOnPage, False )

End Function

 

 

'Private functions

 

Private Function AdMentor_AddToUsedList( nBannerId )

If strAdmentor_strAlreadyOnPage <> "" Then

strAdmentor_strAlreadyOnPage = strAdmentor_strAlreadyOnPage & ","

End If

strAdmentor_strAlreadyOnPage = strAdmentor_strAlreadyOnPage & CStr(nBannerId)

End Function

 

 

' If ASP then it returns the HTML

' else it simply returns the bannerid

 

' fASP = true or false

Private Function AdMentor_GetAdEx( fASP, strZone, nFarm, nBannerId, nBannerOnPage, fCanUseHTML )

Dim oConn

Dim oRS

Dim nSumWeight

Dim nTempIndex

Dim nWeight

Dim nTempIndex2

Dim nBanner

Dim nCurRow

Dim nMax

 

Set oConn = AdMentor_DBOpenConnection()

 

If strZone = "" Then

strZone = "0"

End If

 

If nFarm = "" Then

nFarm = "0"

End If

 

' Get Total Weight

Set oRS = AdMentor_DBGetAvailBanners( oConn, fASP, strZone, nFarm, nBannerId, fCanUseHTML )

If oRS.EOF Then

'There is no banner in this banner farm

'TODO: RETURN DEFAULT BANNER!!!!!

oRS.Close

Set oRS = Nothing

oConn.Close

Set oConn = Nothing

AdMentor_GetAd = "No banner in farm"

Exit Function

End If

 

'Now lets get the total weight

nSumWeight = 0

While Not oRS.EOF

nSumWeight = nSumWeight + oRS("weight").Value

oRS.MoveNext

Wend

 

' Lets get a random banner

Randomize

nBanner = Int((nSumWeight * Rnd) + 1)

 

oRS.MoveFirst

nCurVal = 0

While nCurVal + oRS("weight").Value < nBanner

nCurVal = nCurVal + oRS("weight").Value

oRS.MoveNext

Wend

 

nBanner = oRS("bannerid").Value

 

AdMentor_AddToUsedList nBanner

 

If Not fASP Then

oRS.Close

Set oRS = Nothing

AdMentor_GetAdEx = nBanner & "---" & oRS("gifurl").Value

AdMentor_DBAddShowCount oConn, nBanner

oConn.Close

Set oConn = Nothing

Exit Function

End If

 

 

If fCanUseHTML And oRS("ishtml").Value = True Then

Dim sHTMCode

oRS.Close

Set oRS = Nothing

sHTMCode = AdMentor_GetHTMLCode( oConn, nBanner )

AdMentor_GetAdEx = FixupSpecialVariables(sHTMCode)

AdMentor_DBAddShowCount oConn, nBanner

oConn.Close

Set oConn = Nothing

Exit Function

End If

 

' Now we have the banner id, lets create the actual HTML

 

'Move into temp variables only to make it more readable

Dim sRedirUrl

Dim sGifUrl

Dim sAltText

Dim sUnderText

Dim sUnderUrl

Dim sRet

Dim nXSize

Dim nYSize

 

 

sRedirUrl = g_AdMentor_AdMentorRedirPath & "?id=" & nBanner & "&way=ban"

If IsNull( oRS("gifurl").Value ) Then

sGifUrl = ""

Else

sGifUrl = oRS("gifurl").Value

End if

If IsNull( oRS("AltText").Value ) Then

sAltText = ""

Else

sAltText = oRS("AltText").Value

End if

If IsNull( oRS("UnderText").Value ) Then

sUnderText = ""

Else

sUnderText = oRS("UnderText").Value

End if

sUnderUrl = g_AdMentor_AdMentorRedirPath & "?id=" & nBanner & "&way=txt"

 

nXSize=oRS("xsize").Value

nYSize=oRS("ysize").Value

 

sRet = "<center><a href=""" & sRedirUrl & """ target='_blank'>" & "<img src=""" & sGifUrl & """" & " alt=""" & sAltText & """" & " border=0 width=""" & nXSize & """" & " height=""" & nYSize & """" & ">" & "</a>"

If sUnderText <> "" Then

sRet = sRet & "<br><font face=""arial"" size=""1""><a href=""" & sUnderUrl & """" & ">" & sUnderText & "</a></font>"

Else

'

End If

sRet = sRet & "</center>"

 

AdMentor_GetAdEx = sRet

 

' Lets update impression for it

AdMentor_DBAddShowCount oConn, nBanner

oRS.Close

Set oRS = Nothing

oConn.Close

Set oConn = Nothing

End Function

 

 

 

Public Function AdMentor_ClickAd(nBannerId, sWay)

Dim oConn

Dim sSQL

Dim sSQL2

Dim oRS

Dim sRedir

Dim fIsUnderText

 

If sWay ="txt" Then

fIsUnderText = true

Else

fIsUnderText = false ' Clicked on actual banner

End If

 

 

'Pretty easy...

Set oConn = AdMentor_DBOpenConnection()

 

AdMentor_DBUpdateClickCount oConn, nBannerId, fIsUnderText

sRedir = AdMentor_DBGetUrl( oConn, nBannerId, fIsUnderText )

 

oConn.Close

Set oConn = Nothing

 

AdMentor_ClickAd = sRedir

End Function

 

 

Private Function FixupSpecialVariables( sHTML )

'Now check for '<ADM_RANDOM

Dim fCont

fCont = True

While fCont = True

Dim nIndStart, nIndEnd, sSubStr, vData, nLow, nHigh, nNumber

Dim sLeftHTML, sRightHTML

 

nIndStart = InStr( 1,CStr(sHTML), "<ADM_RANDOM" )

If nIndStart > 0 Then

sLeftHTML = Left( sHTML, nIndStart -1 )

 

nIndEnd = InStr( nIndStart, sHTML, ">" )

 

sRightHTML = Mid( sHTML, nIndEnd + 1 )

 

sSubStr = Mid( sHTML, nIndStart, nIndEnd - nIndStart )

 

vData = Split( sSubStr, "-")

If vData(1) = "LAST" Then

nNumber = Session("AdMentor_RndNumber")

Else

nLow = CLng(vData(1))

nHigh = CLng(vData(2))

Randomize

nNumber = CLng((nHigh * Rnd) + nLow)

Session("AdMentor_RndNumber") = nNumber

End If

sHTML = sLeftHTML & CStr(nNumber) & sRightHTML

End If

If InStr( 1,CStr(sHTML), "<ADM_RANDOM" ) > 0 Then

fCont = True

Else

fCont = False

End If

Wend

FixupSpecialVariables = sHTML

End Function

 

 

Public Function GetAdminPagesBannerCode()

'Want to advertise on your admin pages?

'Then just change this function to what you want...

'What I do is just call AdMentorGetAd with a special banner id

'to get by Datais-banners showed

' Dim sRet

' sRet = AdMentor_GetAdASP("B=93")

GetAdminPagesBannerCode = ""

End Function

 

%>

[phscosta 0]

tdeecken,

 

Deu certo, muito obrigado mesmo.

Agora você sabe como configurar no ADmentor para usar um banco em MySQL?

Valew pela dica,

[]'s

Paulo

 

________________________________________________

Visite e Navegue Melhor - A Internet na direção certa!

http://www.naveguemelhor.com.br

Fórum Navegue Melhor - Navegue entre suas dúvidas e idéias!

http://www.naveguemelhor.com.br/forum

[tdeecken 0]

Prezado phscosta!Isso já não sei ao certo como fazer mas vou tentar ajudar, já que sei que o admentor suporta SQLServer.Bem, veja no arquivo admentorconfig.asp que tem isso:-------------------g_AdMentor_DatabaseType = "Access"'g_AdMentor_DatabaseType = "SQLServer"g_AdMentor_PathToAdServe = "http://tiago/admentorbr/"If Right(g_AdMentor_PathToAdServe,1) <> "/" Then g_AdMentor_PathToAdServe = g_AdMentor_PathToAdServe & "/"End If''''''''''''''''TODO: You might need to changeg_Admentor_strConnect = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=c:\inetpub\wwwroot\admentorbr\ad2k.mdb"-------------------Bem, quando for g é access e quando for 'g é sql, viu isso?Só que a meu ver você teria q fazer a string sql de conexão com o banco de dados, que se caham ,por padrão, 'ad2k.mdb'. Isso não sei bem como configurar.Além disso, você teria q ter as tabelas do Mysql... tem algo sobre isso na pasta do admentor, no arquivo 'sqlserver7-script.txt'.Lamento não poder lhe ajudar como gostaria mas q bom que conseguiu abrir em nova janela, beleza!

[Agente Linhares 0]

Aproveitando o embalo...Tenho uma dúvida, sei que é boba, mas é uma dúvida.Eu configurei o admentor, mas tava acostumado a configurar sistemas que utilizavam como caminho para o banco de dados, /bd ou coisa assim.Mas como fica pra mim enviar o config do admentor que tá o caminho completo C:/inetpub/admentor/db/banco.mdbPra mim enviar pro server como fica. Pois meu site sendo www.meusite.com.br, como coloco o caminho pro db?Desde já agradecido.

[tdeecken 0]

Prezado Agente Linhares,Para configurar o admentor para o seu site, abra o arquivo config.asp, como você disse e procure a linha que identifica o caminho. Na verdade são duas, veja:Onde diz:g_AdMentor_PathToAdServe = "http://www.seusite.com.br/admentor/db/banco.mdb/"eg_Admentor_strConnect = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=c:\inetpub\wwwroot\admentorbr\ad2k.mdb"A primeira já configurei no caso de ser 'www.seusite.com.br'. Vamos a segunda, ela deve ficar assim:g_Admentor_strConnect = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=c:\web\seusitecombr\www\admentorbr\ad2k.mdb"ATENÇÃO: Este é um caminho de exemplo. Na verdade, este caminho você precisa perguntar para o seu serviço de hospedagem, pois este é o caminho onde ficam os arquivos no seu servidor... perceba q após o www é que 'começa' o seu site, ali que ficaria a pasta do admentor, na raiz. Isso só com o seu serviço de hospedagem.Vale lembrar que normalmente se coloca o banco de dados fora da raiz do site, na pasta 'database'. Aí ficaria assim, a segunda configuração:g_Admentor_strConnect = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=c:\web\seusitecombr\database\admentorbr\ad2k.mdb"Qualquer dúvida, entre em contato com o seu host ou me diga qual é que procurarei ajudar.

[Agente Linhares 0]

Brigadão pela dica..!valeu!