fabrica ha scritto:
Posta il codice altrimenti la vedo dura.
ECCCCCOOOOLLLOOOOOOOOOOOOOOOo
<%@ import Namespace = "System.Data" %>
<%@ import Namespace = "System.Data.sqlClient" %>
<%@ OutputCache Duration ="1" Location="None" %>
<script runat="server">
Private urldESTINAZIONE As String = ""
Private pathImage As String
Private errore As String = ""
Private idRecord As Long = 0
Protected Sub Page_Load(ByVal sender As Object, ByVal a As System.EventArgs) Handles Me.Load
Dim clsDB As New ClasseDB
Dim connString As String
Dim strSQL As String
Dim testoAlternativo As String = ""
Dim numeroVisualizzazioni As Long
Dim dataCorrente As Date = Today
If Not IsPostBack Then
urldESTINAZIONE = Request.ServerVariables("SCRIPT_NAME")
'Routine Che preleva il Banner
connString = ConfigurationManager.ConnectionStrings("STR_CONN").ConnectionString
Dim conn As New SqlConnection(connString)
strSQL = "SELECT TOP 1 * FROM Banner_Dati where NomeInMappa = 'TOPALTO1' AND dataInizio <= " & "'" & dataCorrente & "'" & " and (contaVisualizzazioni < MaxVisualizzazioni or contaclick < MaxClick) ORDER BY NEWID()"
Dim Command As New SqlCommand(strSQL, conn)
Try
conn.Open()
Dim myreader As SqlDataReader = Command.ExecuteReader()
While myreader.Read()
pathImage = myreader("urlImage")
testoAlternativo = myreader("testoAlternativo")
numeroVisualizzazioni = myreader("contaVisualizzazioni")
idRecord = myreader("ID")
urldESTINAZIONE = myreader("URLdestinazione")
End While
myreader.Close()
conn.Close()
If idRecord > 0 Then 'Se ha trovato un record allora procede ad incrementare la visualizzazione Altrimenti no
conn = New SqlConnection(connString)
conn.Open()
Dim cmd As SqlCommand = conn.CreateCommand
cmd.CommandText = "UPDATE banner_Dati SET contaVisualizzazioni = contaVisualizzazioni + 1 where id = " & idRecord
'variabile che contiene il valore di ritorno del metodo
Dim result As Integer = cmd.ExecuteNonQuery()
conn.Close()
Else
pathImage = "No_Banner_728_90.jpg"
End If
Catch EX As Exception
conn.Close()
errore = "Errore di riceca Immagine. " & EX.Message.ToString
Finally
End Try
End If
clsDB = Nothing
End Sub
</script>
<html>
<head>
<meta content="text/JScript" http-equiv="content-script-type" />
</head>
<body topmargin="0" leftmargin="0" style="font-family: Verdana">
<div align="center">
<center>
</center>
<center>
<%If errore = "" Then%>
<a href="ContaClick.aspx?index=<%=idrecord%>&GoTO=<%=urldESTINAZIONE %>"><img border="0" src=<%="ImmaginiBanner/" & pathImage %>></a>
<%Else
Response.Write(errore)
End If%>
</center>
</div>
</body>
</html>