Hola, tengo un problema que me trae de cabeza y creo que es el problema que hace que nada vaya bien.
Tengo mi default.aspx y mi default.aspx.vb. Pues bien en el code behind no me aparece ningún error. Es decir, no me marca nada como erróneo, sin embargo si miro los errores mi marca 17 y estos 17 errores se refieren a los id que trato de mi default.aspx. Obtengo 2 tipos de errores (solo pongo 2)
Error 1 'popupcabeceracondiciones' no está declarado. Puede que esté inaccesible debido a su nivel de protección. C:\Desarrollo_Webs\Web_Puntech\Web_Puntech\Default .aspx.vb 12 13 Web_Puntech
Error 6 'btnshow' no es un miembro de 'Web_Puntech.WebForm1'. C:\Desarrollo_Webs\Web_Puntech\Web_Puntech\Default .aspx.vb 22 13 Web_Puntech
Code Behind:
Código:
Imports System.IO
Imports System.Data
Imports System.Data.SqlClient
Public Class WebForm1
Inherits System.Web.UI.Page
Public Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
popupcabeceracondiciones.InnerHtml = ReadFile(Server.MapPath("./Textos/condiciones_cabecera_es.txt"))
popupcuerpocondiciones.InnerHtml = ReadFile(Server.MapPath("./Textos/condiciones_cuerpo_es.txt"))
popupcabeceraprivacidad.InnerHtml = ReadFile(Server.MapPath("./Textos/privacidad_cabecera_es.txt"))
popupcuerpoprivacidad.InnerHtml = ReadFile(Server.MapPath("./Textos/privacidad_cuerpo_es.txt"))
popupcabeceracontacto.InnerHtml = ReadFile(Server.MapPath("./Textos/contacto_cabecera_es.txt"))
Dim cadenaConexion As String = ConfigurationManager.ConnectionStrings("MiConexion").ConnectionString
ElseIf ((Not Session("usuario_web") Is DBNull.Value) And (Page.IsPostBack)) Then
Me.btnshow.Visible = False
Me.lblusu.Visible = True
Me.lblusu.Text = Session("usuario_web")
Me.btnModificarClave.Visible = True
Me.btnDesconectar.Visible = True
End If
End Sub
Public Shared Function ReadFile(ByVal stFilePath As String) As String
Dim mySR As StreamReader = Nothing
Dim stReturn As String = Nothing
Try
If File.Exists(stFilePath) Then
mySR = File.OpenText(stFilePath)
stReturn = mySR.ReadToEnd()
mySR.Close()
End If
Return stReturn
Catch ex As Exception
Return Nothing
End Try
End Function
Public Sub btnLogueo_Click()
Dim usuario As String = Me.txtUsername.Text
Dim clave As String = Me.txtClave.Text
'Session.Add(“usuario_web”,valordelaconsultaSQL)
End Sub
Public Sub btnDesLogueo_Click()
Me.btnshow.Visible = True
Me.lblusu.Visible = False
Me.lblusu.Text = ""
Me.btnModificarClave.Visible = False
Me.btnDesconectar.Visible = False
End Sub
End Class