Getting error "500 internal server error" in ASP Win Server 2008

[Matsam]

Hello,

I have an application developed in ASP with Access as back end. The code starts as follows

<%@ Language=VBScript %>
<%
set cn=nothing
set rs=nothing 
set rsUser=nothing
set rsVisit=nothing

set cn=server.createobject("ADODB.connection")
set rs=server.createobject("ADODB.recordset")
set rsUser=server.createobject("ADODB.recordset")

'if cn.state=adstateopen then cn.close
Connectstr = "DRIVER={Microsoft Access Driver (*.mdb, *.accdb)};DBQ=C:\inetpub\wwwroot\payment\empdata.accdb;UID=;PWD="


cn.open connectstr


Response.Write Request("connectstr")
dim loginname, pwd

userid = trim(Request.Form.Item("txtLogin"))
pwd = trim(Request.Form.Item("txtPwd"))

Response.Write Request("userid")


if Request("userid") <> "" then
	empcode = Request("userid")
end if

if userid <> "" then
	sqlUser = "Select Password from employee where empcode = " & userid
	rsUser.Open sqlUser, cn, adOpenStatic
end if

'Response.Write Request("FName")
'Response.Write (userid)


if Request("userid") = "" then
	if not rsUser.EOF then
		if pwd <> trim(rsUser(0)) then
			Response.Redirect("default.htm")
			request("txtLogin").setfocus				
		end if
	else
		Response.Redirect("Invalid.htm")
	end if
else
	if trim(Request.Form.Item("txtPwdOld")) <> pwd then
		Response.Redirect("Invalid.htm")
	end if
end if

It works fine in the system (windows 7) where it was developed. When I installed the same in the server (Windows Server 2008), the login html page is displayed. After giving the password, the following error is displayed:

"500 internal server error - There is a problem with the resource you are looking for"

Can anybody help me in resolving this issue.
Thanks in advance

Matsam