Java applet, access denied!

Kode 

<applet codebase="TimeLine" code="MainForm.class" width=3500 height=200">
<%
        Try
            connect.Open()
            Dim reader As SqlDataReader = cmd.ExecuteReader()
            While reader.Read
%>
<param name="year" value="<%=reader("year").ToString%>" />
<param name="description" value="<%=reader("description").ToString%>" />
<%
            End While
        Finally
            connect.Close()
            connect.Dispose()
        End Try
%>
</applet>

Java kode 

 import java.awt.*;
 import java.sql.*;
 import java.applet.Applet;
 public class MainForm extends Applet {
     Connection con;
     public void dbConnect()
     {
         try
         {
             Class.forName("com.microsoft.sqlserver.jdbc.SQLServerDriver");
             con = DriverManager.getConnection("jdbc:sqlserver://mssql1.unoeuro.com;databaseName=************;user=************;password=************;");
         }
         catch (Exception e)
         {
             e.printStackTrace();
         }
     }
     public void init() {
         dbConnect();
     }
     public void paint(Graphics g){
         Graphics g2 = (Graphics2D)g;
         int year = 0;
         int i = 0;
         try{
             Statement state = con.createStatement();
             ResultSet r = state.executeQuery("SELECT * FROM TimeLine ORDER BY Year DESC");
             while (r.next()) {
                 if(i % 2 == 0){
                     year = r.getInt("Year");
                     g2.drawLine(year, 50, year, 85);
                     g2.drawString("År " + year, year + 1, 75);
                     g2.drawString(r.getString("Description"), year + 1, 85);
                 } else{
                     year = r.getInt("Year");
                     g2.drawLine(year, 50, year, 10);
                     g2.drawString("År " + year, year + 1, 20);
                     g2.drawString(r.getString("Description"), year + 1, 30);
                 }
                 i = i + 1;
             }
             state.close();
             g2.drawLine(1, 50, 2000, 50);
         }catch(Exception e){
             System.out.println(e.toString());
         }
     }

Kode 

<%@ Page Language="vb" AutoEventWireup="false" ContentType="image/gif"%>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.data.sqlclient" %>
<%@ Import Namespace = "System.Drawing" %>
<%@ Import Namespace = "System.Drawing.Imaging" %>

<script runat="server">
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim objBitmap As Bitmap
        Dim objGraphics As Graphics

        objBitmap = New Bitmap(5050, 100)
        objGraphics = Graphics.FromImage(objBitmap)
        objGraphics.DrawLine(New Pen(Color.Red), 0, 25, 0, 75)
        objGraphics.DrawString("År 2500 f.kr.", New Font("Times new roman", 10), Brushes.Red, 0, 60)
        objGraphics.DrawLine(New Pen(Color.Red), 2500, 25, 2500, 75)
        objGraphics.DrawString("År 0", New Font("Times new roman", 10), Brushes.Red, 2500, 60)
        objGraphics.DrawLine(New Pen(Color.Red), 5000, 25, 5000, 75)
        objGraphics.DrawString("År 2500", New Font("Times new roman", 10), Brushes.Red, 5000, 60)
        objGraphics.DrawLine(New Pen(Color.Red), 0, 50, 5000, 50)
        
        Dim connString As String = System.Configuration.ConfigurationManager.ConnectionStrings("Forum_dataConnectionString").ConnectionString
        Dim selectCmd As String
        selectCmd = "SELECT * FROM TimeLine ORDER BY Year DESC"
        Dim connect As SqlConnection
        connect = New SqlConnection(connString)
        Dim cmd As SqlCommand = New SqlCommand(selectCmd, connect)
        Dim i As Integer = 0
        Try
            connect.Open()
            Dim reader As SqlDataReader = cmd.ExecuteReader()
            Dim BC As String
            While reader.Read
                BC = reader("BC").ToString
                If BC.ToLower = "true" Then
                    If i Mod 2 = 0 Then
                        Dim Year As Integer = reader("Year")
                        objGraphics.DrawLine(New Pen(Color.Red), 2500 - Year, 50, 2500 - Year, 85)
                        objGraphics.DrawString("År " + Year.ToString + " f.kr.", New Font("Times new roman", 10), Brushes.Red, 2500 - (Year + 1), 60)
                        objGraphics.DrawString(reader("Description"), New Font("Times new roman", 10), Brushes.Red, 2500 - (Year + 1), 75)
                    Else
                        Dim Year As Integer = reader("Year")
                        objGraphics.DrawLine(New Pen(Color.Red), 2500 - Year, 50, 2500 - Year, 10)
                        objGraphics.DrawString("År " + Year.ToString + " f.kr.", New Font("Times new roman", 10), Brushes.Red, 2500 - (Year + 1), 10)
                        objGraphics.DrawString(reader("Description"), New Font("Times new roman", 10), Brushes.Red, 2500 - (Year + 1), 25)
                    End If
                Else
                    If i Mod 2 = 0 Then
                        Dim Year As Integer = reader("Year")
                        objGraphics.DrawLine(New Pen(Color.Red), Year + 2500, 50, Year + 2500, 85)
                        objGraphics.DrawString("År " + Year.ToString, New Font("Times new roman", 10), Brushes.Red, Year + 1 + 2500, 60)
                        objGraphics.DrawString(reader("Description"), New Font("Times new roman", 10), Brushes.Red, Year + 1 + 2500, 75)
                    Else
                        Dim Year As Integer = reader("Year")
                        objGraphics.DrawLine(New Pen(Color.Red), Year + 2500, 50, Year + 2500, 10)
                        objGraphics.DrawString("År " + Year.ToString, New Font("Times new roman", 10), Brushes.Red, Year + 1 + 2500, 10)
                        objGraphics.DrawString(reader("Description"), New Font("Times new roman", 10), Brushes.Red, Year + 1 + 2500, 25)
                    End If
                End If
                i = i + 1
            End While
        Finally
            connect.Close()
            connect.Dispose()
        End Try
        
        objBitmap.Save(Response.OutputStream, ImageFormat.Gif)

        objBitmap.Dispose()
        objGraphics.Dispose()
        
    End Sub
</script>