doing bannerads Rotation want send ADS ( IMAGEURL , ADVERTISERURL) in JSON format from BANNERADSDBF sqlserver databaSE
to JQUERY AJAX AT ASP PROGRAM. The JQUERY AJAX API is working on a PHP Music Website program using WAMPSERVER with BANNERADS.PHP sending ADS. but need to get Bannerads Rotation working on ASP PROGRAM "DOWNLOAD.ASP". So Server side
BANNERADS.ASPX you see below is not working. can you help me please.
<%@ Page Language="VB" %>
<%@ Import NAMESPACE="system.data" %>
<%@ Import NAMESPACE="system.data.sqlclient" %>
<%@ Import NAMESPACE="system.data.collections" %>
<%@ Import Namespace="system.Runtime.Serialization.Json.DataContractJsonSerializer" %>
<%@ Import Namespace="System.IO" %>
<%@ Import Namespace="System" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<script runat="server">
Sub Page_Load(Object sender, EventArgs e)
Dim CONSTRING As String
CONSTRING = " ServerName=localhost ; DatabaseName=BANNERADSDBF, uid=BOBBY ; pwd=BOBBY"
Dim CONNECTION As New SqlConnection(CONSTRING)
CONNECTION.Open()
Dim SQLADS As String
Dim RecordNumber As Integer
Dim FADNUMBER As SqlDataReader
Dim SQLNUMBER As String
SQLNUMBER = " SELECT MAX(BANNERID) AS MaxID FROM BANNERADS "
Dim CMDNUMBER As New SqlCommand(SQLNUMBER, CONNECTION)
FADNUMBER = CMDNUMBER.ExecuteReader
FADNUMBER.Read()
MAXCOUNT = FADNUMBER.GetInt32(FADNUMBER.GetOrdinal("MaxID"))
Randomize()
RecordNumber = CInt(MAXCOUNT * Rnd() + 1)
SQLADS = " SELECT * FROM BANNERADS "
SQLADS = SQLADS & " WHERE BANNERID=" & RecordNumber
Dim FBANNERADS As New SqlDataAdapter(SQLADS, CONNECTION)
Dim BANNERADS = New ADVERTISEMENT()
Dim BANNERADLIST = New ArrayList()
Dim DTADS = New DataTable
FBANNERADS.Fill(DTADS)
Dim row As DataRow
Dim column As DataColumn
For Each row In DTADS.Rows
For Each column In DTADS.Columns
If column = "IMAGEURL" Then
BANNERADS.IMAGEURL = row(column)
End If
If column = "ADVERTISERURL" Then
BANNERADS.ADVERTISERURL = row(column)
End If
Next
BANNERADLIST.Add(BANNERADS)
Next
Dim stream As New MemoryStream
Dim serializer As DataContractJsonSerializer
serializer.WriteObject(stream, BANNERADLIST)
stream.Position = 0
Dim INPUT As New StreamReader(stream)
Response.Write(INPUT.ReadToEnd)
End Sub
</script>
rleahong
Member
8 Points
34 Posts
BANNERADS.ASPX NOT SENDING ADS IN JSON FORMAT TO JQUERY AJAX BANNERADS ROTATION SCRIPT
Jul 09, 2012 03:50 PM|LINK
doing bannerads Rotation want send ADS ( IMAGEURL , ADVERTISERURL) in JSON format from BANNERADSDBF sqlserver databaSE
to JQUERY AJAX AT ASP PROGRAM. The JQUERY AJAX API is working on a PHP Music Website program using WAMPSERVER with BANNERADS.PHP sending ADS. but need to get Bannerads Rotation working on ASP PROGRAM "DOWNLOAD.ASP". So Server side
BANNERADS.ASPX you see below is not working. can you help me please.
<%@ Page Language="VB" %> <%@ Import NAMESPACE="system.data" %> <%@ Import NAMESPACE="system.data.sqlclient" %> <%@ Import NAMESPACE="system.data.collections" %> <%@ Import Namespace="system.Runtime.Serialization.Json.DataContractJsonSerializer" %> <%@ Import Namespace="System.IO" %> <%@ Import Namespace="System" %> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <script runat="server"> Sub Page_Load(Object sender, EventArgs e) Dim CONSTRING As String CONSTRING = " ServerName=localhost ; DatabaseName=BANNERADSDBF, uid=BOBBY ; pwd=BOBBY" Dim CONNECTION As New SqlConnection(CONSTRING) CONNECTION.Open() Dim SQLADS As String Dim RecordNumber As Integer Dim FADNUMBER As SqlDataReader Dim SQLNUMBER As String SQLNUMBER = " SELECT MAX(BANNERID) AS MaxID FROM BANNERADS " Dim CMDNUMBER As New SqlCommand(SQLNUMBER, CONNECTION) FADNUMBER = CMDNUMBER.ExecuteReader FADNUMBER.Read() MAXCOUNT = FADNUMBER.GetInt32(FADNUMBER.GetOrdinal("MaxID")) Randomize() RecordNumber = CInt(MAXCOUNT * Rnd() + 1) SQLADS = " SELECT * FROM BANNERADS " SQLADS = SQLADS & " WHERE BANNERID=" & RecordNumber Dim FBANNERADS As New SqlDataAdapter(SQLADS, CONNECTION) Dim BANNERADS = New ADVERTISEMENT() Dim BANNERADLIST = New ArrayList() Dim DTADS = New DataTable FBANNERADS.Fill(DTADS) Dim row As DataRow Dim column As DataColumn For Each row In DTADS.Rows For Each column In DTADS.Columns If column = "IMAGEURL" Then BANNERADS.IMAGEURL = row(column) End If If column = "ADVERTISERURL" Then BANNERADS.ADVERTISERURL = row(column) End If Next BANNERADLIST.Add(BANNERADS) Next Dim stream As New MemoryStream Dim serializer As DataContractJsonSerializer serializer.WriteObject(stream, BANNERADLIST) stream.Position = 0 Dim INPUT As New StreamReader(stream) Response.Write(INPUT.ReadToEnd) End Sub </script>chetan.sarod...
All-Star
65839 Points
11163 Posts
Re: BANNERADS.ASPX NOT SENDING ADS IN JSON FORMAT TO JQUERY AJAX BANNERADS ROTATION SCRIPT
Jul 10, 2012 03:46 AM|LINK
http://www.9lessons.info/2010/04/load-banner-advertisement-with-jquery.html
http://forum.jquery.com/topic/bannerads-no-rotating-using-jquery-ajax-api
Senior Software Engineer,
Approva Systems Pvt Ltd, Pune, India.