Problema que não sei resolver :(

[BrunoHP 0]

É o seguinte, um amigo meu que monto um banner rotativo para mim (não temos mais contato).

Na época ele me mostro e estava normal!

 

Agora da isso:

 

Microsoft VBScript runtime error '800a0411'

 

Name redefined: 'adOpenKeyset'

 

/banners/banner.asp, line 18

 

Dentro do banner.asp tem a seguinte programação:

 

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

<%Dim strbanners_strAlreadyOnPageg_banners_DatabaseType = "Access"g_banners_strConnect = Application("te_banners")g_banners_MaxRecords = 50g_banners_bannersRedirPath = site & "redireciona.asp"g_banners_Demo = FalseDim g_MaxLongInt, g_MaxEndDate g_MaxLongInt = 2147483647 g_MaxEndDate = "2020-01-01"'---- CursorTypeEnum Values ----'Const adOpenForwardOnly = 0Const adOpenKeyset = 1Const adOpenDynamic = 2Const adOpenStatic = 3'---- CursorOptionEnum Values ----Const adHoldRecords = &H00000100Const adMovePrevious = &H00000200Const adAddNew = &H01000400Const adDelete = &H01000800Const adUpdate = &H01008000Const adBookmark = &H00002000Const adApproxPosition = &H00004000Const adUpdateBatch = &H00010000Const adResync = &H00020000Const adNotify = &H00040000'---- LockTypeEnum Values ----Const adLockReadOnly = 1Const adLockPessimistic = 2Const adLockOptimistic = 3Const adLockBatchOptimistic = 4'---- ExecuteOptionEnum Values ----Const adRunAsync = &H00000010'---- ObjectStateEnum Values ----Const adStateClosed = &H00000000Const adStateOpen = &H00000001Const adStateConnecting = &H00000002Const adStateExecuting = &H00000004'---- CursorLocationEnum Values ----Const adUseServer = 2Const adUseClient = 3'---- DataTypeEnum Values ----Const adEmpty = 0Const adTinyInt = 16Const adSmallInt = 2Const adInteger = 3Const adBigInt = 20Const adUnsignedTinyInt = 17Const adUnsignedSmallInt = 18Const adUnsignedInt = 19Const adUnsignedBigInt = 21Const adSingle = 4Const adDouble = 5Const adCurrency = 6Const adDecimal = 14Const adNumeric = 131Const adBoolean = 11Const adError = 10Const adUserDefined = 132Const adVariant = 12Const adIDispatch = 9Const adIUnknown = 13Const adGUID = 72Const adDate = 7Const adDBDate = 133Const adDBTime = 134Const adDBTimeStamp = 135Const adBSTR = 8Const adChar = 129Const adVarChar = 200Const adLongVarChar = 201Const adWChar = 130Const adVarWChar = 202Const adLongVarWChar = 203Const adBinary = 128Const adVarBinary = 204Const adLongVarBinary = 205'---- FieldAttributeEnum Values ----Const adFldMayDefer = &H00000002Const adFldUpdatable = &H00000004Const adFldUnknownUpdatable = &H00000008Const adFldFixed = &H00000010Const adFldIsNullable = &H00000020Const adFldMayBeNull = &H00000040Const adFldLong = &H00000080Const adFldRowID = &H00000100Const adFldRowVersion = &H00000200Const adFldCacheDeferred = &H00001000'---- EditModeEnum Values ----Const adEditNone = &H0000Const adEditInProgress = &H0001Const adEditAdd = &H0002Const adEditDelete = &H0004'---- RecordStatusEnum Values ----Const adRecOK = &H0000000Const adRecNew = &H0000001Const adRecModified = &H0000002Const adRecDeleted = &H0000004Const adRecUnmodified = &H0000008Const adRecInvalid = &H0000010Const adRecMultipleChanges = &H0000040Const adRecPendingChanges = &H0000080Const adRecCanceled = &H0000100Const adRecCantRelease = &H0000400Const adRecConcurrencyViolation = &H0000800Const adRecIntegrityViolation = &H0001000Const adRecMaxChangesExceeded = &H0002000Const adRecObjectOpen = &H0004000Const adRecOutOfMemory = &H0008000Const adRecPermissionDenied = &H0010000Const adRecSchemaViolation = &H0020000Const adRecDBDeleted = &H0040000'---- GetRowsOptionEnum Values ----Const adGetRowsRest = -1'---- PositionEnum Values ----Const adPosUnknown = -1Const adPosBOF = -2Const adPosEOF = -3'---- enum Values ----Const adBookmarkCurrent = 0Const adBookmarkFirst = 1Const adBookmarkLast = 2'---- MarshalOptionsEnum Values ----Const adMarshalAll = 0Const adMarshalModifiedOnly = 1'---- AffectEnum Values ----Const adAffectCurrent = 1Const adAffectGroup = 2Const adAffectAll = 3'---- FilterGroupEnum Values ----Const adFilterNone = 0Const adFilterPendingRecords = 1Const adFilterAffectedRecords = 2Const adFilterFetchedRecords = 3Const adFilterPredicate = 4'---- SearchDirection Values ----Const adSearchForward = 1Const adSearchBackward = -1'---- ConnectPromptEnum Values ----Const adPromptAlways = 1Const adPromptComplete = 2Const adPromptCompleteRequired = 3Const adPromptNever = 4'---- ConnectModeEnum Values ----Const adModeUnknown = 0Const adModeRead = 1Const adModeWrite = 2Const adModeReadWrite = 3Const adModeShareDenyRead = 4Const adModeShareDenyWrite = 8Const adModeShareExclusive = &HcConst adModeShareDenyNone = &H10'---- IsolationLevelEnum Values ----Const adXactUnspecified = &HffffffffConst adXactChaos = &H00000010Const adXactReadUncommitted = &H00000100Const adXactBrowse = &H00000100Const adXactCursorStability = &H00001000Const adXactReadCommitted = &H00001000Const adXactRepeatableRead = &H00010000Const adXactSerializable = &H00100000Const adXactIsolated = &H00100000'---- XactAttributeEnum Values ----Const adXactCommitRetaining = &H00020000Const adXactAbortRetaining = &H00040000'---- PropertyAttributesEnum Values ----Const adPropNotSupported = &H0000Const adPropRequired = &H0001Const adPropOptional = &H0002Const adPropRead = &H0200Const adPropWrite = &H0400'---- ErrorValueEnum Values ----Const adErrInvalidArgument = &Hbb9Const adErrNoCurrentRecord = &HbcdConst adErrIllegalOperation = &Hc93Const adErrInTransaction = &HcaeConst adErrFeatureNotAvailable = &Hcb3Const adErrItemNotFound = &Hcc1Const adErrObjectInCollection = &Hd27Const adErrObjectNotSet = &Hd5cConst adErrDataConversion = &Hd5dConst adErrObjectClosed = &He78Const adErrObjectOpen = &He79Const adErrProviderNotFound = &He7aConst adErrBoundToCommand = &He7bConst adErrInvalidParamInfo = &He7cConst adErrInvalidConnection = &He7dConst adErrStillExecuting = &He7fConst adErrStillConnecting = &He81'---- ParameterAttributesEnum Values ----Const adParamSigned = &H0010Const adParamNullable = &H0040Const adParamLong = &H0080'---- ParameterDirectionEnum Values ----Const adParamUnknown = &H0000Const adParamInput = &H0001Const adParamOutput = &H0002Const adParamInputOutput = &H0003Const adParamReturnValue = &H0004'---- CommandTypeEnum Values ----Const adCmdUnknown = &H0008Const adCmdText = &H0001Const adCmdTable = &H0002Const adCmdStoredProc = &H0004'---- SchemaEnum Values ----Const adSchemaProviderSpecific = -1Const adSchemaAsserts = 0Const adSchemaCatalogs = 1Const adSchemaCharacterSets = 2Const adSchemaCollations = 3Const adSchemaColumns = 4Const adSchemaCheckConstraints = 5Const adSchemaConstraintColumnUsage = 6Const adSchemaConstraintTableUsage = 7Const adSchemaKeyColumnUsage = 8Const adSchemaReferentialContraints = 9Const adSchemaTableConstraints = 10Const adSchemaColumnsDomainUsage = 11Const adSchemaIndexes = 12Const adSchemaColumnPrivileges = 13Const adSchemaTablePrivileges = 14Const adSchemaUsagePrivileges = 15Const adSchemaProcedures = 16Const adSchemaSchemata = 17Const adSchemaSQLLanguages = 18Const adSchemaStatistics = 19Const adSchemaTables = 20Const adSchemaTranslations = 21Const adSchemaProviderTypes = 22Const adSchemaViews = 23Const adSchemaViewColumnUsage = 24Const adSchemaViewTableUsage = 25Const adSchemaProcedureParameters = 26Const adSchemaForeignKeys = 27Const adSchemaPrimaryKeys = 28Const adSchemaProcedureColumns = 29' Version 1.11 contains contribution from Shawn Willmon - traceclicks codeFunction Internal_bannersdb_GetDateFunction()	If g_banners_DatabaseType = "SQLServer" Then		Internal_bannersdb_GetDateFunction = "getdate()"	Else		Internal_bannersdb_GetDateFunction = "date()"	End IfEnd FunctionFunction Internal_bannersdb_GetBoolValue( fTrue )	If g_banners_DatabaseType = "SQLServer" Then		If fTrue = True Then			Internal_bannersdb_GetBoolValue = "1"		Else			Internal_bannersdb_GetBoolValue = "0"		End If				Else		If fTrue = True Then			Internal_bannersdb_GetBoolValue = "True"		Else			Internal_bannersdb_GetBoolValue = "False"		End If		End If	End FunctionFunction banners_DBOpenConnection()	   Dim oConn		Set oConn = Server.CreateObject("ADODB.Connection")		oConn.Open g_banners_strConnect		Set banners_DBOpenConnection = oConnEnd FunctionFunction banners_DBGetBannersInFarm( oConn, nBannerFarm )	 Dim oRS	Set oRS = CreateObject("ADODB.Recordset")	oRS.CursorLocation = adUseClient	oRS.MaxRecords = g_banners_MaxRecords	oRS.CacheSize = g_banners_MaxRecords	oRS.CursorType = adOpenForwardOnly	oRS.Open "select bannerid, gifurl, weight, target, alttext, undertext, xsize, ysize from banner  where farmid=" & nBannerFarm & " and weight > 0 and showcount < maximpressions AND clickcount+underclickcount < maxclicks AND validtodate >= " & Internal_bannersdb_GetDateFunction() & " AND validfromdate <= " & Internal_bannersdb_GetDateFunction(), oConn		Set oRS.ActiveConnection = Nothing	Set  banners_DBGetBannersInFarm = oRSEnd FunctionSub banners_DBAddShowCount( oConn, nBanner )	oConn.Execute "update banner set showcount=showcount+1 where bannerid=" & nBannerEnd Sub Sub banners_DBUpdateClickCount( oConn, nBanner, fUnderText )	Dim sSQL	Dim oRSTC	If fUnderText = True Then		sSQL = "update banner set underclickcount = underclickcount +1 where bannerid = " & nBanner	Else		sSQL = "update banner set clickcount = clickcount +1 where bannerid = " & nBanner	End if	oConn.Execute ( sSQL )	Set oRSTC = Server.CreateObject("ADODB.Recordset")	Set oRSTC.ActiveConnection = oConn	oRSTC.Open "select * from traceclicks where bannerid = -1 ", ,adOpenKeyset,adLockOptimistic	oRSTC.AddNew()	oRSTC("bannerid")=nBanner	oRSTC("page")=Request.ServerVariables("HTTP_REFERER")	oRSTC("dt") = now()	oRSTC("ip")=Request.ServerVariables( "REMOTE_ADDR" )	oRSTC("undertext")=fUndertext	oRSTC.Update	oRSTC.Close		Set oRSTC = NothingEnd SubFunction  banners_DBGetUrl( oConn, nBanner, fUnderText )			Dim oRS	Dim sSQL2	If fUnderText = True Then		sSQL2 = "select underurl as url from banner where bannerid= " & nBanner	Else		sSQL2 = "select redirurl as url from banner where bannerid= " & nBanner	End if		Set oRS = oConn.Execute ( sSQL2 )	banners_DBGetUrl = oRS("url")	oRS.Close	Set oRS = NothingEnd FunctionFunction AdSQL_AddAndWhere( strWhere, strWhat )	If strWhere = "" Then		strWhere = " WHERE "	Else		strWhere = strWhere & " AND "	End If	strWhere = strWhere & " " & strWhat	AdSQL_AddAndWhere = strWhereEnd FunctionFunction banners_DBGetAvailBanners( oConn, fASP, strZones, nFarm, nBannerId, fCanUseHTML  )	 Dim oRS	Set oRS = CreateObject("ADODB.Recordset")	oRS.CursorLocation = adUseClient	oRS.MaxRecords = g_banners_MaxRecords	oRS.CacheSize = g_banners_MaxRecords	oRS.CursorType = adOpenStatic	oRS.Open GetAdSQL(fASP, strZones, nFarm, nBannerId, fCanUseHTML ), oConn		Set oRS.ActiveConnection = Nothing	Set  banners_DBGetAvailBanners = oRSEnd FunctionFunction banners_GetHTMLCode( oConn, nBannerId )	 Dim oRS	Set oRS = CreateObject("ADODB.Recordset")	oRS.CursorLocation = adUseClient	oRS.MaxRecords = 1	oRS.CacheSize = 1	oRS.CursorType = adOpenForwardOnly	oRS.Open "select htmlcode from banner where bannerid="&nBannerId, oConn	banners_GetHTMLCode = oRS("htmlcode").Value		oRS.Close	Set oRS = Nothing		End FunctionFunction GetAdSQL( fASP, sZone, nFarm, nBannerId, fCanUseHTML  )	Dim strSQL	Dim strWhere		strSQL = 	"select distinct banner.bannerid, banner.gifurl, banner.weight, banner.target " 	If fASP Then		strSQL = strSQL & ", banner.AltText, banner.UnderText, banner.xsize, banner.ysize "	End If	If fCanUseHTML Then		strSQL = strSQL & ",ishtml"	End If		If 	strbanners_strAlreadyOnPage <> "" Then		strWhere = AdSQL_AddAndWhere( strWhere, "banner.bannerid not in ( " & 	strbanners_strAlreadyOnPage & ")" )	End If		strSQL = strSQL & " from banner "	If sZone <> "0" Then			strSQL = strSQL & ",banzone "			strWhere = AdSQL_AddAndWhere( strWhere, "banner.bannerid=banzone.bannerid" )			strWhere = AdSQL_AddAndWhere( strWhere, "banzone.zoneid in ( " & sZone & ")" )	End If				If nBannerId <> "" Then		strWhere = AdSQL_AddAndWhere( strWhere, "banner.bannerid=" & nBannerId )	Else		If nFarm <> 0 Then			strWhere = AdSQL_AddAndWhere( strWhere, "banner.farmid=" & nFarm )		End If		strWhere = AdSQL_AddAndWhere( strWhere, "weight > 0 and showcount < maximpressions AND validtodate >= " & Internal_bannersdb_GetDateFunction() & " AND validfromdate <= " & Internal_bannersdb_GetDateFunction() )		If fCanUseHTML = True Then			strWhere = AdSQL_AddAndWhere( strWhere, " ( ( clickcount+underclickcount < maxclicks ) OR ishtml=" & Internal_bannersdb_GetBoolValue(True) & " )"  )		Else			strWhere = AdSQL_AddAndWhere( strWhere, "ishtml <> " & Internal_bannersdb_GetBoolValue(True)  )		End If	End If			strSQL = strSQL & strWhere	GetAdSQL = strSQL	End FunctionPublic Function banners_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		banners_GetAdASP = banners_GetAdEx( True, sZones, nFarm, nBannerId, nBannerOnPage, True )End FunctionPublic Function banners_GetAdNonSSI()	'Setable parameters	Dim sZones, nFarm, nBannerId, nBannerOnPage		sZones = Request.QueryString("Z")	nFarm = Request.QueryString("F")	nBannerId = Request.QueryString("B")	nBannerOnPage = Request.QueryString("N")		banners_GetAdNonSSI = banners_GetAdEx( False, sZones, nFarm, nBannerId, nBannerOnPage, False )End FunctionPrivate Function banners_AddToUsedList( nBannerId )	If strbanners_strAlreadyOnPage <> "" Then		strbanners_strAlreadyOnPage = strbanners_strAlreadyOnPage & ","			End If	strbanners_strAlreadyOnPage = strbanners_strAlreadyOnPage & CStr(nBannerId)End FunctionPrivate Function banners_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 = banners_DBOpenConnection()		If strZone = "" Then		strZone = "0"	End If	If nFarm = "" Then		nFarm = "0"	End If		Set oRS = banners_DBGetAvailBanners( oConn, fASP, strZone, nFarm, nBannerId, fCanUseHTML  )	If oRS.EOF Then		oRS.Close		Set oRS = Nothing		oConn.Close		Set oConn = Nothing	   banners_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		banners_AddToUsedList nBanner		If Not fASP Then	   oRS.Close		Set oRS = Nothing		banners_GetAdEx = nBanner & "---" & oRS("gifurl").Value		banners_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 = banners_GetHTMLCode( oConn, nBanner )		banners_GetAdEx = FixupSpecialVariables(sHTMCode)		banners_DBAddShowCount oConn, nBanner 		oConn.Close		Set oConn = Nothing		Exit Function	End If	Dim sRedirUrl	Dim sGifUrl	Dim sAltText	Dim sUnderText	Dim sUnderUrl	Dim sRet	Dim nXSize	Dim nYSize	 Dim target			sRedirUrl = g_banners_bannersRedirPath & "?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		target = oRS("target").Value		If IsNull( oRS("UnderText").Value ) Then		sUnderText = ""	Else		sUnderText = oRS("UnderText").Value	End if	sUnderUrl = g_banners_bannersRedirPath & "?id=" & nBanner & "&way=txt"		nXSize=oRS("xsize").Value	nYSize=oRS("ysize").Value		' verificar se é imagem ou swf	a = right(sGifUrl,3)	if a = "swf" or a = "SWF" then	   sRet = sRet & " <OBJECT classid=""clsid:D27CDB6E-AE6D-11cf-96B8-444553540000""  codebase=""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0"" WIDTH=" & nXSize & " HEIGHT=" & nYSize &"  id=ShockwaveFlash1><PARAM NAME=movie VALUE=""" & sGifUrl & """>"   sRet = sRet & " <PARAM NAME=quality VALUE=high><PARAM NAME=bgcolor VALUE=#FFFFFF>"   sRet = sRet & "<EMBED src=""" & sGifUrl &  """ quality=high bgcolor=#FFFFFF WIDTH=" & nXSize & """ HEIGHT=""" & nYSize & """ TYPE=""application/x-shockwave-flash"" PLUGINSPAGE=""http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash"">"   sRet = sRet & "</EMBED>"   sRet = sRet & "</OBJECT>"	else			sRet = "<a href=""" & sRedirUrl & """ target=" & target & ">" & "<img src=""" & sGifUrl & """" & " alt=""" & sAltText & """" & " border=0 width=""" & nXSize & """" & " height=""" & nYSize & """" &  ">"  & "</a>" end if   If sUnderText <> "" Then		sRet = sRet & "<br><font face=""arial"" size=""1""><a href=""" & sUnderUrl & """" & "><center>" & sUnderText & "</center></a></font>"	Else		'	End If		banners_GetAdEx = sRet		' Lets update impression for it	banners_DBAddShowCount oConn, nBanner 	oRS.Close	Set oRS = Nothing	 	oConn.Close	Set oConn = NothingEnd FunctionPublic Function banners_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		Set oConn = banners_DBOpenConnection()	   	banners_DBUpdateClickCount oConn, nBannerId, fIsUnderText 	sRedir = banners_DBGetUrl( oConn, nBannerId, fIsUnderText )				oConn.Close	Set oConn = Nothing		banners_ClickAd = sRedirEnd FunctionPrivate 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("banners_RndNumber")			Else				nLow = CLng(vData(1))				nHigh = CLng(vData(2))				Randomize				nNumber = CLng((nHigh * Rnd) + nLow)				Session("banners_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 = sHTMLEnd FunctionPublic Function GetAdminPagesBannerCode()	Dim sRet	sRet = banners_GetAdASP("B=93")	GetAdminPagesBannerCode = ""End Function%>

Algum sangue bom poderia me ajudar? http://forum.imasters.com.br/public/style_emoticons/default/assobiando.gif

 

Obs: A conexão com o banco de dados já esta em funcao.asp

 

Abraços!

[quintelab 91]

Verifica se não esta declarado em dois lugares a variavel adOpenKeyset.

Talvez tem ela declarada no config.asp e no banner.asp

[BrunoHP 0]

Verifica se não esta declarado em dois lugares a variavel adOpenKeyset.Talvez tem ela declarada no config.asp e no banner.asp

Mais não aparece na config ja tentei de tudo mais não consigo mesmo, não entendo esse erro e o site está hospedado na locaweb, banco de dados access. Me ajudem plx!config.asp

<%'Titulo do SiteTS = Application("te_nome_loja")'Caminho do Banco de Dados'bannersbd = Application("te_banners")For i = 1 to len(StrReverse(Request.ServerVariables("PATH_INFO")))  If Mid(StrReverse(Request.ServerVariables("PATH_INFO")),i,1) = "/" Then Exit ForNextendereco = "/" & Left(Request.ServerVariables("PATH_INFO"),Len(Request.ServerVariables("PATH_INFO"))-i)endereco = Replace(endereco,"admin","")endereco = Replace(endereco,"//","")endereco = "http://" & Request.ServerVariables("HTTP_HOST") & "/" & endereco & "/"site = endereco%>