COMANDO NAO FUNCIONA NO SERVIDOR

POWER.SKILFUL 25/04/2011 13:30:05
#372350
PEssoal to tentando mandar um site que fiz em asp.net para o servidor e tem alguns comando que nao funciona


Por exemplo:
        
        Dim context As HttpContext = HttpContext.Current
        Dim objCookie As New HttpCookie([Ô]saudacao[Ô])


        Dim strConn As String = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\DZHosts\LocalUser    ukraphapc\www.enterprisebook.somee.com\dados.mdb[Ô]
        Dim MySQL As String = [Ô]Select Código , Nome , usuario , Senha  from usuario Where usuario = [ô][Ô] & lguid.Text & [Ô][ô] and Senha = [ô][Ô] & lgpwd.Text & [Ô][ô][Ô]

        Dim MyConn As New OleDbConnection(strConn)
        Dim Cmd As New OleDbCommand(MySQL, MyConn)

        MyConn.Open()
        objDR = Cmd.ExecuteReader(System.Data.CommandBehavior.CloseConnection)

        If Not objDR.Read() Then
            Label1.Text = [Ô]<h1><b>Chave / Senha Inválidas !</b></h1></p>[Ô]
            objDR.Close()
            MyConn.Close()
        Else


            While objDR.Read()

                strNome = objDR([Ô]usuario[Ô])
                intCode = objDR([Ô]código[Ô])

            End While

            Session([Ô]Codigo[Ô]) = lguid
            Session([Ô]nome[Ô]) = strNome

            context.Items([Ô]Nome[Ô]) = lguid.Text
            context.Items([Ô]Email[Ô]) = intCode
 
            Response.Cookies([Ô]userName1[Ô]).Value = lguid.Text
            Response.Cookies([Ô]userName1[Ô]).Expires = DateTime.Now.AddDays(1)

            Server.Transfer([Ô]default2.aspx[Ô])


        End If


NEste codigo ele ate consegue abrir o banco de dados e verificar se o nome de usuario e senha esta correto ou nao mas qdo ele vai acessar o default2 da problema.

           While objDR.Read()

                strNome = objDR([Ô]usuario[Ô])
                intCode = objDR([Ô]código[Ô])

            End While

            Session([Ô]Codigo[Ô]) = lguid
            Session([Ô]nome[Ô]) = strNome

            context.Items([Ô]Nome[Ô]) = lguid.Text
            context.Items([Ô]Email[Ô]) = intCode
 
            Response.Cookies([Ô]userName1[Ô]).Value = lguid.Text
            Response.Cookies([Ô]userName1[Ô]).Expires = DateTime.Now.AddDays(1)

            Server.Transfer([Ô]default2.aspx[Ô])


Qdo eu uso esse codigo no play do visual studio funciona td redondinho mas qdo uso o servidor
Da problema. Por um acaso esse tipo de comando o servidor nao consegue ler.
(esse comando serve para pegar o nome do usuario e mandar para default2 para que o banco de dados ultilize o mesmo pra usar como consulta.)
JUNIORNET 29/04/2011 16:37:59
#372829
Qual o erro que ta sendo gerado no default2.aspx?
Tópico encerrado , respostas não são mais permitidas
Voltar