How do I move tracking code from master page to an aspx page without a master

I'm in the process of integrating a third-party forum application into my asp.net 3.5 website.  I'm using Visual Studio 2008.  I'm new to .net development but have gotten the basic functionality of the forum to work.  I've been unable to integrate the forum pages with the master page of my main site, but that's an issue for another time.  Right now I'm trying to add tracking code directly to each forum page.  The code works successfully on the master page, but since the forum pages are not code-behind, I'm not sure exactly how to add it to the aspx page.

The code snippet contains the tracking code and the attachment contains the aspx file I'm adding it to, with extension changed from aspx to txt
thanks
Partial Class MasterPage
    Inherits System.Web.UI.MasterPage
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
        Dim SessionDate As DateTime = Now
        Session("SessionDate") = SessionDate
        SessionDate = CType(Session.Item("SessionDate"), String)
 
        Dim sIPAddress As String
        sIPAddress = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
        If sIPAddress = "" Then
            sIPAddress = Request.ServerVariables("REMOTE_ADDR")
        End If
 
 
        Dim SCRIPT_NAME As String = Request.ServerVariables("SCRIPT_NAME")
        Dim HTTP_USER_AGENT As String = Request.ServerVariables("HTTP_USER_AGENT")
        Dim HTTP_REFERER As String = "ref: " + Request.ServerVariables("HTTP_REFERER")
        Dim AspSessionId As String = HttpContext.Current.Session.SessionID
        Dim IpAddress As String = sIPAddress
 
 
 
        Dim PageFile As String = System.IO.Path.GetFileName(System.Web.HttpContext.Current.Request.Url.AbsolutePath)
        Dim UserId As String = "anonymous"
 
 
 
        If (Request.IsAuthenticated = True) Then
            UserId = Membership.GetUser.ProviderUserKey.ToString()
        End If
 
 
        ' Insert a new record into Sessions
        If AspSessionId = HttpContext.Current.Session.SessionID Then
            Dim connectionString As String = ConfigurationManager.ConnectionStrings("SQL2005_529500_havConnectionString1").ConnectionString
            Dim updateSql As String = "INSERT INTO UserSessions (AspSessionId, IpAddress,http_referer,pagefile,UserId,script_name,http_user_agent) Values (@AspSessionId, @IpAddress,@http_referer,@pagefile,@UserId,@script_name,@http_user_agent)"
 
            Using myConnection As New Data.SqlClient.SqlConnection(connectionString)
                myConnection.Open()
                Dim myCommand As New Data.SqlClient.SqlCommand(updateSql, myConnection)
                myCommand.Parameters.AddWithValue("@AspSessionId", AspSessionId)
                myCommand.Parameters.AddWithValue("@IpAddress", IpAddress)
                myCommand.Parameters.AddWithValue("@Http_Referer", HTTP_REFERER)
                myCommand.Parameters.AddWithValue("@pagefile", PageFile)
                myCommand.Parameters.AddWithValue("@UserId", UserId)
                myCommand.Parameters.AddWithValue("@script_name", SCRIPT_NAME)
                myCommand.Parameters.AddWithValue("@http_user_agent", HTTP_USER_AGENT)
                myCommand.ExecuteNonQuery()
                myConnection.Close()
            End Using
        End If
    End Sub
 
End Class

Open in new window

userList.txt
lotzaquestionsAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

M3mph15Commented:
Hi,
You can add the code into a <script> tag in the aspx pages. E.g.


<head runat="server">
<title>Untitled Page</title>
<script type="text/VB">
       'VB Functions go here
</script>
</head>
0
lotzaquestionsAuthor Commented:
thanks, M3mph15, I appreciate the prompt response.  When I structure the head as you say, the page executes without an error but the function doesn't seem to run.  I've reduced the head to a simplified version in the snippet - if I can get it to run I'll replace it with the database insert.
<%@ Page language="VB" Inherits="dotForumClientUsers.viewAllUsers" %>
 
<head  runat="server"> 
<title>Untitled Page</title> 
<script type="text/VB"> 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Response.write("testing script")
    End Sub
</script>
        <link href="gfx/forum/themes/fixed1024/fixed1024.css" rel="stylesheet" 
        type="text/css" />
</head>

Open in new window

0
lotzaquestionsAuthor Commented:
ok, I fixed it.  However, suggested structure was:

<head runat="server">
<title>Untitled Page</title>
<script type="text/VB">
       'VB Functions go here
</script>
</head>

but this didn't work for me - the script didn't execute.   the actual structure that worked is:

<head>
<title>Untitled Page</title>
<script runat="server" language="VB">      
'VB Functions go here
</script>
</head>




0
M3mph15Commented:
Ah silly me. lol. Atleast you got it working now
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
lotzaquestionsAuthor Commented:
Your response put me on the right track.  thanks
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
ASP.NET

From novice to tech pro — start learning today.