<!-- #include virtual="/!_Constants.asp" -->
<!-- #include virtual="/!_Functions.asp" -->
<%
	If Request.QueryString("ID") = "" Then
		If Request.ServerVariables("HTTP_REFERER") <> "" Then
			Response.Redirect Request.ServerVariables("HTTP_REFERER")
		Else
			Response.Redirect "/News/"
		End If
	Else
		Dim dbLinks, rsLinks
	
		If OpenDataBase(dbLinks, Application("alakazoo_ConnectionString"), Application("alakazoo_RuntimeUserName"), Application("alakazoo_RuntimePassword")) Then 

			SQL = "Update Links Set Nbclick = Nbclick + 1 Where ID = " & Request.QueryString("ID")
			Call DataBaseExecute(dbLinks, SQL)
			
			SQL = "Select * From Links Where ID = " & Request.QueryString("ID")
			
			If OpenRecordSet(dbLinks, rsLinks, SQL, adOpenForwardOnly, adLockReadOnly) Then 
				
				If rsLinks.EOF Then
					If Request.ServerVariables("HTTP_REFERER") <> "" Then
						Response.Redirect Request.ServerVariables("HTTP_REFERER")
					Else
						Response.Redirect "/News/"
					End If
				Else
					If rsLinks("Link") <> "" Then
						Link  = rsLinks("wwwOrNot") & rsLinks("Link")
						Response.Redirect "http://" & Link
					Else
						If Request.ServerVariables("HTTP_REFERER") <> "" Then
							Response.Redirect Request.ServerVariables("HTTP_REFERER")
						Else
							Response.Redirect "/News/"
						End If
					End If
					
				End If
			End If
			
			Call CloseRecordSet	(rsLinks)
			Call CloseDataBase	(dbLinks)
		End If
	End If
%>