<%@Import Namespace="System.Data" %>
			<%@ Import Namespace="System.Data.SqlClient" %>
			<%@ Control Language="vb" AutoEventWireup="false" Inherits="ExternalAuth"
			TargetSchema="http://schemas.microsoft.com/intellisense/ie5" %>
			
			<script language="vb" runat="server">

			 Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs)_
			 Handles MyBase.Init
			
			 'Check if the cookie exists
			 If Request.Cookies("mysitecookie") Is Nothing Then
			  'If cookie does not exists
			   're-direct to your login template.
				Response.Redirect("http://www.mywebsite.com/login.aspx")
			 End If
			
			 'If the cookie exists
			
			 'Prepare Variables needed to run a query to get the required user information
			 Dim Con As System.Data.SqlClient.SqlConnection
			 Dim cmd As System.Data.SqlClient.SqlCommand
			 Dim ds As System.Data.DataSet
			 Dim sqlData As System.Data.SqlClient.SqlDataAdapter
			
			 'Define the Query
			
			 Dim Query As String = "select username, emailaddress, firstname, lastname from myusers
			 where userid = " & Request.Cookies("mysitecookie").Value
			
			 'Open a connection (Replace YOUR CONNECTION STRING HERE with a valid connection
			 string to your user database.
			 'i.e. server=127.0.0.1;database=myusers;uid=myuser;pwd=mypassword;
			 Con = New System.Data.SqlClient.SqlConnection("YOUR CONNECTION STRING HERE")
			 Con.Open()
			
			 'Execute the query and fill the dataset
			 cmd = New System.Data.SqlClient.SqlCommand(Query, Con)
			 ds = New System.Data.DataSet
			 sqlData = New System.Data.SqlClient.SqlDataAdapter(cmd)
			 sqlData.Fill(ds, "qCheckUser")
			
			 'If no records are found, redirect the user to your login template
			 If ds.Tables(0).Rows.Count = 0 Then
			   Response.Redirect("http://www.mywebsite.com/login.aspx")
			 End If
			
			 'Populate the FuseTalk Variables with the information which you gathered from the
			 database.
			
			 UserName = ds.Tables(0).Rows(0).Item("username")
			 EmailAddress = ds.Tables(0).Rows(0).Item("emailaddress")
			 FirstName = ds.Tables(0).Rows(0).Item("firstname")
			 LastName = ds.Tables(0).Rows(0).Item("lastname")
			End Sub
			</script>