DB
|
Posted: 08/04/2004, 4:39 PM |
|
I am new to .Net and trying to convert ASP to ASP.Net VB. I am using the following code to create session variables and to redirect on login, I get the message: "System FormatException: Input String was not in correct format." Any help or suggestions on what is wrong with the code would be greatly appreciated!
'Button Button_DoLogin Event OnClick. Action Custom Code @9-73254650
' -------------------------
If Not ErrorFlag Then
Session("s_Hospice") = Settings.HDSDataAccessObject.ExecuteScalar("SELECT Hospice FROM tblLoginInfo WHERE UserId=" & DBUtility.UserId)
Session("s_FirstName") = Settings.HDSDataAccessObject.ExecuteScalar("SELECT UserFirstName FROM tblLoginInfo WHERE UserId=" & DBUtility.UserId)
Session("s_LastName") = Settings.HDSDataAccessObject.ExecuteScalar("SELECT UserLastName FROM tblLoginInfo WHERE UserId=" & DBUtility.UserId)
Session("s_Division") = Settings.HDSDataAccessObject.ExecuteScalar("SELECT Division FROM tblLoginInfo WHERE UserId=" & DBUtility.UserId)
Session("s_Class")=Settings.HDSDataAccessObject.ExecuteScalar("SELECT PriceLevel FROM HospiceInfo WHERE HospiceAcct=" &Session("s_Hospice"))
Session("s_HospiceName")=Settings.HDSDataAccessObject.ExecuteScalar("SELECT HospiceName FROM HospiceInfo WHERE HospiceAcct=" &Session("s_Hospice"))
Select Case Session("GroupID").ToString()
Case "1"
RedirectUrl="HOSMENU.aspx"
Case "2"
RedirectUrl="DivisionMenu.aspx"
Case "3"
RedirectUrl="case.aspx"
Case "4"
RedirectUrl="admin_site.aspx"
End Select
End If
' -------------------------
'End Button Button_DoLogin Event OnClick. Action Custom Code
|
|
|
|