asp ile excel e yazma

[aliyaman]

arkadaşlar basit düzeyde asp sayfasından ad-soyad-telefon 3 başlık altında başvuru yapılıp excel dosyasına yazacak bir başvuru forma ihtiyacım var yardımcı olabilir misiniz lütfen

 

[aliyaman]

arkadaşlar çalıştıramadım bakabilir misiniz

<%

Ad=Request.Form("ad" )
Soyad=Request.Form("soyad" )

Dim Veritabani
Dim Baglan
Dim KayitSeti


Veritabani = Server.MapPath("Deneme.xls" )
Set Baglan= Server.CreateObject("ADODB.Connection" )
Set KayitSeti = Server.CreateObject("ADODB.Recordset" )

Baglan.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Veritabani & ";" & _
"Extended Properties=Excel 8.0;"



Sorgu = "Select * From [Data$] Where Ad='" & Ad & "'"

KayitSeti.Open Sorgu, Baglan, 1, 3

If KayitSeti.RecordCount = 0 Then
KayitSeti.AddNew

KayitSeti("Ad" ) = ad
KayitSeti("Soyad" ) = soyad

KayitSeti.Update
KayitSeti.Close

Response.Write Ad &" İsimli Kişinin Kaydı Yapıldı"

Else

Response.Write Ad & " İsimli Kişi Mevcut!! Aynı Kişiyi İki Kere Kayıt Yapamazsınız..."
End If

Baglan.Close
Set Baglan= Nothing

%>