Compilering af Vb porblemmer

Jeg har et stort problem , hver gang jeg prøver at combilere en VB fil.

Jeg får f.eks denne fejl:

vbc : Command line error BC2017 : could not find
library 'System.IO'
vbc : Fatal error BC2000 : compiler initialization failed
unexpectedly: =
0x0070003

Nedenstående er et stykke kode der fungere fint som vb  codebehind fil , men heller ikke kan combileres, er det noget galt med det mangler der noget.


NameSpace loginpage

Public Class loginpage : Inherits System.Web.UI.Page

'*****************************************************

' EMAIL...........................pcl@pcl.dk

' PROGRAMMING.....................Peter Cort Larsen

' CREATED.........................September 2002

'*****************************************************

Public objConnect As New System.Data.SqlClient.SqlConnection(System.Configuration.ConfigurationSettings.AppSettings("dsn"))

Public UserEmail,UserPass,txtEmail As System.Web.UI.WebControls.Textbox

Public PersistCookie as System.Web.UI.WebControls.CheckBox

Public Msg,Msg2 As System.Web.UI.WebControls.Label

Public ForgottenPanel,General As System.Web.UI.WebControls.panel

Public Sub Login_Click(sender As Object, E As System.EventArgs)

Dim cmd As New System.Data.SqlClient.SqlCommand("pclValidateUser", objConnect)


cmd.CommandType = System.Data.CommandType.StoredProcedure

Dim prmEmail As New System.Data.SqlClient.SqlParameter("@Email", System.Data.SqlDbType.NVarChar, 50)

prmEmail.Value = UserEmail.Text

cmd.Parameters.Add(prmEmail)


Dim prmPassword As New System.Data.SqlClient.SqlParameter("@Password", System.Data.SqlDbType.NVarChar, 50)

prmPassword.Value = UserPass.Text

cmd.Parameters.Add(prmPassword)


Dim prmUserID As New System.Data.SqlClient.SqlParameter("@LoginID", System.Data.SqlDbType.Int, 4)

prmUserID.Direction = System.Data.ParameterDirection.Output

cmd.Parameters.Add(prmUserID)

Try

objConnect.Open()

cmd.ExecuteNonQuery()

Catch eo As System.Exception

Throw eo

Finally

If objConnect.State = System.Data.ConnectionState.Open Then

objConnect.Close()

End If

End Try

If CInt(prmUserID.Value) > 0 Then


' The User ID was found, validate the user

System.Web.Security.FormsAuthentication.RedirectFromLoginPage(UserEmail.Text, PersistCookie.Checked)

Msg.Text = "Credentials were valid!"

Else

' Not found or incorrect

Msg.Text = "Invalid Credentials!" + "<br>" + "Please try again."

End If

End Sub


Sub ShowForgotten(sender As Object, e As System.EventArgs)

ForgottenPanel.Visible = true

General.Visible = false

End Sub


Sub Forgotten_Click(sender As Object, e As System.EventArgs)

Dim strPassword As String

Dim strEmail As String = txtEmail.text

Dim intID As Integer

Dim strCommandText As String = "pclGetUserCredentials"

Dim objCommand As New System.Data.SqlClient.SqlCommand(strCommandText,objConnect)


objCommand.CommandType = System.Data.CommandType.StoredProcedure


Dim objParam AS System.Data.SqlClient.SqlParameter


objParam = objCommand.Parameters.Add("@Email", System.Data.SqlDbType.NVarChar, 50)

objParam.Direction = System.Data.ParameterDirection.Input

objParam.Value = strEmail


objParam = objCommand.Parameters.Add("@LoginID", System.Data.SqlDbType.Int)

objParam.Direction = System.Data.ParameterDirection.Output


objParam = objCommand.Parameters.Add("@Password", System.Data.SqlDBType.nvarchar, 50)

objParam.Direction = System.Data.ParameterDirection.Output

objConnect.Open()

objCommand.ExecuteNonQuery()


strPassword = objCommand.Parameters("@Password").Value.ToString()

intID = objCommand.Parameters("@LoginID").Value

objConnect.Close()

If CInt(intID) > 0 Then

Msg2.Text = "An email has been send to this address: " & strEmail & "<br>You will recieve it, in a few minutes."

Dim mail As New System.Web.Mail.MailMessage

mail.From = "info@betfigueras.com"

mail.To = strEmail

mail.Subject = "Your user credentials to webadministration: www.BetFigueras.com"

mail.Body = "<font face=arial>Your password to [<strong>webadministration: www.BetFigueras.com</strong>] is &raquo;<b>" & strPassword & "</b>&laquo;<p>Click here to logon : <a href=""www.BetFigueras.com</a></font>"" target="_blank">http://www.betfigueras.com/webadmin/"">www.BetFigueras.com</a></font>"

mail.BodyFormat = System.Web.Mail.MailFormat.Html

System.Web.Mail.SmtpMail.SmtpServer = "smtp.betfigueras.com"

System.Web.Mail.SmtpMail.Send(mail)

Else

Msg2.Text = "Sorry, the provided emaill address dont exists in the system."

End If

End Sub

End Class

end NameSpace 'loginpage