Ir para conteúdo
Fórum Script Brasil
  • 0

Está Bom, Ou Nao?


DELPHI-Man32

Pergunta

<!--#include file="conex.asp"-->
<%

'pega o valor do canal
Destino = request.QueryString("canal")
Dim Novo, Atual

'cria a instrução SQL da consulta
sql = "Select * from Hits where Canal="&Destino

'Cria o objeto para manipulação dos dados do canal
Set visitar = Server.CreateObject("ADODB.Recordset")
	visitar.open sql, Conex, 3,3
	Atual = visitar("Hits")
	Novo = Atual + 1
	visitar("hits") = Novo
	visitar.update

'Cria o select para verificar qual e o canal a ser direcionado
Select Case (Destino)
Case 1
	'Verifica se há parametro para cidades passando pelo link
	Dim City_Page
  City_Page = Request.QueryString("page")	
  if City_Page <> "default" then 
  Destino = "regiao/cidade.asp?nome="&City_Page
  else
  Destino = "regiao/default.asp"
  end if
Case 2
	Destino = "amazonia/default.asp"
Case 3
	Destino = "pesseios/default.asp"
Case 4
	Destino = "pesca_esportiva/default.asp"
Case 5
	Destino = "estadas/default.asp"
Case 6
	Destino = "mapas/default.asp"
Case 7
	Destino = "tucunare/default.asp"
Case 8
	Destino = "tucunare/peixes.asp"
Case 9
	Destino = "social/default.asp"
Case 10
	'Verifica se há parametro de anuciantes passando pelo link
	Dim id
  'Pega o codigo passado no parametro do link
  id = Request.QueryString("id")
  if id <> 0 then
  Destino = "associados/profile.asp?codigo="&id
  else
  Destino = "associados/default.asp"
  end if	
Case 11
	Destino = "agencias/default.asp"
Case 12
	Destino = "fotos/default.asp"
Case 13
	Destino = "comunica/default.asp"
Case 14
	Destino = "parques/default.asp"
Case 15
	Destino = "subdominios/default.asp"
Case 16
	Destino = "marketing/default.asp"
Case 17
	Destino = "locadoras/default.asp"
Case 18
	Destino = "eco_turismo/default.asp"
Case 19
	Destino = "anuncios/default.asp"
Case 20
	Destino = "english/default.asp"
Case 21
	Destino = "ma/default.asp"
Case 22
	Destino = "estados/AC.asp"
Case 23
	Destino = "estados/AM.asp"
Case 24
	Destino = "estados/AP.asp"
Case 25
	Destino = "estados/PI.asp"
Case 26
	Destino = "estados/RO.asp"
Case 27
	Destino = "estados/RR.asp"
Case 28
	Destino = "capa/default.asp"
Case 29
	'Verifica se há parametro de cidades passando pelo link
	Dim Cidade
	ver = Request.QueryString("city")
	Destino = "news/default.asp?cidade="&ver&"&idCanal="&Destino  
Case 30
	Destino = "servicos/default.asp" 
End Select

'Fecha a conexao com o bando de dados
Conex.Close
'Destroi o objeto Conex
Set Conex = Nothing

'Direciona o visitante para o canal do Select
response.redirect (Destino)
%>

bom é isso ae povo, fiz este script para redirecionar o visitante para o link clicado mas antes como pode-se ver, ele atualiza o banco de dados atualizando os cliques!

quero que me digam se é isso mesmo ou podemos melhorar isso ae!

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...