basit bir alışveriş sitesi hazırlıyorum yorum kısmını falan ekledim yalnız yorumu yapanın adının user.identityname ile çektikten sonra resmini de göstermek istiyorum fakat üstte çalışan kod altta çalışmıyor hata verior aşağıda kodalr ve hata var yardımcı olan olursa sevinirim.
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Label5.Text = User.Identity.Name
ID = Request.QueryString.Get(0) TextBox1.Text = Convert.ToString(ID)
Dim c As New Data.OleDb.OleDbConnection c.ConnectionString = "provider=microsoft.jet.oledb.4.0;Data source=" + Server.MapPath("~\app_data\urun.mdb") c.Open()
Dim co As New Data.OleDb.OleDbCommand co.Connection = c
co.CommandText = String.Format("select * from urun ")
Dim dr As Data.OleDb.OleDbDataReader
dr = co.ExecuteReader
Do While dr.Read = True If ID = dr(0) Then
Label2.Text = dr(2) Label3.Text = dr(3).ToString End If Loop
c.Close() Dim cc As New Data.OleDb.OleDbConnection cc.ConnectionString = "provider=microsoft.jet.oledb.4.0;Data source=" + Server.MapPath("~\app_data\urun.mdb")
cc.Open()
Dim coco As New Data.OleDb.OleDbCommand coco.Connection = cc
coco.CommandText = String.Format("select * from uyeler ")
Dim drdr As Data.OleDb.OleDbDataReader
drdr = co.ExecuteReader
Do While drdr.Read = True If User.Identity.Name = dr(1) Then