Error de uso de código VS.NEt con Javascript

[msantiagod]

Buenas noches a todos.

Migré un proyecto de VS2003 a vs2008 y este código funcionaba con vs2003 pero con vs2008 no, me pedia agregar el type y se lo agregue, ya hice todas las combinaciones posibles y me manda error en las declaraciones de Dim, agradecería me apoyaran indicandome que es lo que me falta.

<script type="text/javascript" language="javascript">

var txt="SEGURIDAD";
var Trabajador = "";
function resetIt() {
var timerID = null;
var timerRunning = false;
if(timerRunning)
clearTimeout(timerID);
timerRunning = false;

var timeNow = new Date();
var hours = timeNow.getHours();
var minutes = timeNow.getMinutes();
var seconds = timeNow.getSeconds();
var timeValue = "" + ((hours >12) ? hours -12 :hours)
timeValue = ((timeValue <10)? "0":"") + timeValue
timeValue += ((minutes < 10) ? ":0" : ":") + minutes
timeValue += ((seconds < 10) ? ":0" : ":") + seconds
timeValue += (hours >= 12) ? " PM | " : " AM | "
timerID = setTimeout("resetIt()",100);
timerRunning = true;

var dateNow = new Date();
var days = new Array('Domingo','Lunes','Martes','Miercoles','Juev es','Viernes','Sabado');
var months = new Array('Enero','Febrero','Marzo','Abril','Mayo','Ju nio','Julio','Agosto','Septiembre','Octubre','Novi embre','Diciembre');
var date = ((dateNow.getDate()<10) ? "0" : "")+ dateNow.getDate();
function y2k(number){return (number < 1000) ? number + 1900 : number;}

today = timeValue + days[dateNow.getDay()] + " " +
date + " de " +
months[dateNow.getMonth()] + " del " +
(y2k(dateNow.getYear())) + "@ ";

txt = today.toString() + "SEGURIDAD";
self.status = txt
}
resetIt();

var mydate=new Date()
var year=mydate.getYear()
if (year < 1000)
year+=1900
var day=mydate.getDay()
var month=mydate.getMonth()
var daym=mydate.getDate()
if (daym<10)
daym="0"+daym
var dayarray=new Array("Domingo","Lunes","Martes","Miercoles","Juev es","Viernes","Sabado")
var montharray=new Array("Enero","Febrero","Marzo","Abril","Mayo","Ju nio","Julio","Agosto","Septiembre","Octubre","Novi embre","Diciembre")


<%

Dim usrticket As System.Web.Security.FormsAuthenticationTicket = System.Web.Security.FormsAuthentication.Decrypt(Re quest.Cookies.Get(System.Web.Security.FormsAuthent ication.FormsCookieName).Value)
Dim ConnectionS As New System.Data.SqlClient.SqlConnection(System.Configu ration.ConfigurationManager.AppSettings("DSN_SEGUR IDAD"))
Dim ReaderS As System.Data.SqlClient.SqlDataReader
Dim CommandS As System.Data.SqlClient.SqlCommand
Dim strTrabajador As String
ConnectionS.Open()
CommandS = New System.Data.SqlClient.SqlCommand("Select emp.nom_emple as trabajador from EMP, USR where usr.idusuario = " + usrticket.UserData + " and '00'+CONVERT(VARCHAR(10),usr.ficha) = emp.ficha", ConnectionS)
ReaderS = CommandS.ExecuteReader()
Do While (ReaderS.Read())
strTrabajador = ReaderS("trabajador").ToString()
Loop
ReaderS.Close()
CommandS.Dispose()

%>

document.write("<small><font color='000099' face='Verdana'><b>Bienvenido(a) <%=strTrabajador%> al sistema. </b></font></small>")
</script>

De antemano agradezco el apoyo que me puedan proporcionar al respecto.
Saludos