Está Bom, Ou Nao?

[DELPHI-Man32]

<!--#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!

[Bicicleta]

A SQL q atualiza poderia ser assim:

UPDATE Hits SET hits = hits + 1 WHERE Canal="&Destino

você não precisa criar um recordset para pegar o resultado, somar e depois atualizar!

vlw

[DELPHI-Man32]

falowss bike! oop's! bicicleta!

abraços!