Imports System
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Globalization
Imports System.Resources
Imports System.Threading
Imports System.Reflection
Imports System.Data
Imports System.Data.OleDb
Imports System.Configuration
Imports Microsoft.VisualBasic
Public Class schedaimmobile : Inherits System.Web.UI.UserControl
Dim a As [Assembly]
Public IdOfferta As Integer
'Public lErrore As Label
Dim rm As Resources.ResourceManager
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
IdOfferta = Request("IdOfferta")
Dim percorsofoto As String = "scheda/foto/"
Dim DSN As String = ConfigurationSettings.AppSettings("connessione")
Dim Conn As OleDbConnection
Conn = New OleDbConnection(DSN)
Conn.Open()
'Verifico se ha la foto
Dim sqlf As String = "Select * From Offerte_File Where ID_OFFERTA=" & IdOfferta & " AND TipoFile='Foto'"
Dim Cmdf As New OleDbCommand(sqlf, Conn)
Dim Readerf As OleDbDataReader = Cmdf.ExecuteReader()
If Readerf.Read Then
percorsofoto = percorsofoto & Readerf("Nome_File")
End If
Readerf.Close()
conn.close
Response.Write("[img] & percorsofoto & [/img]")
.......