<%@ Page Title="" Language="VB" MasterPageFile="~/MasterPage.master" %>

<%@ Import NameSpace="System.Data" %>
<%@ Import NameSpace="System.Data.OleDb" %>
<%@ Import Namespace="System.Drawing" %>
<%@ Import Namespace="System.Collections" %>
<%@ Import Namespace="System.IO" %>

<%@ Import Namespace="System.Web.Mail" %>
<%@ Import Namespace="System.Net" %>
<%@ Import Namespace="System.Net.mail.mailmessage" %>

<%@ Import NameSpace="System.Globalization" %>

<script runat="server">
    Dim cn As OleDbConnection
    Dim dap As OleDbDataAdapter
    Dim dst As DataSet
    Dim dap1 As OleDbDataAdapter
    Dim dst1 As DataSet
    Dim dbc As New OleDbCommand
    Dim cmd As OleDbCommand
    Dim Password As String
    Dim sql As String
    Dim Nome As String, k As Integer, p As Integer, x As Integer
    Dim Randi As New Random()

    
    
    
    
    Public Class RewriteUrlOfferte
        
        Implements IHttpHandlerFactory
        
        Public Function GetHandler(ByVal context As HttpContext, ByVal requestType As String, ByVal url As String, ByVal pathTranslated As String) As IHttpHandler
            Implements IHttpHandlerFactory.GetHandler
   
            Dim id As String = Nothing
            Dim n As Integer
            Dim controllo As Boolean = False
            Dim fine, inizio As Integer
   
            For n = 1 To Len(url)
                If Mid(url, n, 1) = "" Then
                    inizio = n + 1
                End If
   
                If Mid(url, n, 1) = "" Then
                    fine = n
                End If
            Next
   
            id = Mid(url, inizio, fine - inizio)
   
            If IsNumeric(id) = True Then
                context.Request.RequestType = "GET"
                context.RewritePath(context.Request.Path, String.Empty, "id=" & id)
            End If
   
            Return PageParser.GetCompiledPageInstance(context.Request.ApplicationPath & "/dettaglio_offerte.aspx", context.Server.MapPath(context.Request.ApplicationPath & "/dettaglio_offerte.aspx"), context)
   
        End Function
   
        Public Sub ReleaseHandler(ByVal handler As IHttpHandler)
            Implements  IHttpHandlerFactory.ReleaseHandler()
   
        End Sub
   
    End Class