<%
Dim objStream, objRS, strConnString, strSQL, objConn

' Excel dosyasının yüklendiği klasör yolunu belirleyin
Dim strFolderPath
strFolderPath = "C:\uploads\"

' Yüklenen dosyanın adını alın
Dim strFileName
strFileName = Request.Form("fileUpload").FileName

' Dosyanın tam yolu
Dim strFilePath
strFilePath = strFolderPath & strFileName

' Excel verilerini okumak için kullanılacak bağlantı dizesi
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFilePath & ";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";"

' Bağlantı nesnesi oluşturun ve veritabanına bağlanın
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConnString

' Excel verilerini içeren sorguyu oluşturun
strSQL = "SELECT * FROM [Sheet1$]"

' Recordset nesnesi oluşturun ve verileri çekin
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strSQL, objConn

' Verileri döngüyle okuyun
Do Until objRS.EOF
    Response.Write "Ad: " & objRS("Ad") & "<br>"
    Response.Write "Soyad: " & objRS("Soyad") & "<br>"
    Response.Write "E-posta: " & objRS("E-posta") & "<br>"
    objRS.MoveNext
Loop

' Nesneleri temizleyin
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>