ASPTurkiye.com Forum: Çözemediğim Hata

implant

Aktif Konular

Üye Listesi

Arama

Yardım

Kayıt Ol

Giriş

ASP Uygulamaları
ASPTurkiye.com Forum : ASP Uygulamaları

Konu: Çözemediğim Hata

Yazanlarda

Mesaj

<< Önceki Konu | Sonraki Konu >>

maximir
Yeni Üye

Kayıt Tarihi: 04-Ekim-2006
Gönderilenler: 1

Gönderen: 04-Ekim-2006 Saat 20:26 \| Kayıtlı IP

Elimde denizgazetesi.com adlı bir siteni çok harika yazılmış bir hazır scripti var.

Scripti web alanına yükledikten sonra

Server object error 'ASP 0177 : 800401f3'
Server.CreateObject Failed
/admin/Eklendi.asp, line 30
Invalid ProgID. For additional information specific to this message please visit the Microsoft Online Support site located at: http://www.microsoft.com/contentredirect.asp.

Şeklinde hata aldım. Bunun serverde FSO desteği olmadıgından kaynakladığına dair makaleler okudum ve host firmamla görüşürüp sorunu gidermeleri için yardım istedim. fakat host firmam kendi serverlerinde FSO desteğinin olduğunu kodları kontrol etmem gerektiğini söylediler...

Eklendi.asp Kodları aşağıdaki gibidir...

<html>

<head>

<title>Çukurova Medya Admin Ekranı</title>

</head>

<body>

<td width="50%"><a href="Haberler.asp?Menu=HaberEkle" class="orta">Haber Ekle </a></td>

<td width="50%"><a href="Haberler.asp?Menu=HaberIslem" class="orta">Haber İşlemleri </a></td>

</tr>

</table> <br> <table width="50%" border="0" align="center" cellpadding="0" cellspacing="0">

<tr>

<td>

<tr>

<td height="22" align="center" class="tdbaslik">HABER EKLEME SONUCU </td>

</tr>

<tr>

<td height="22" align="center" class="td"><%

Dim upl, NewFileName, strFileName, FileName

Set upl = Server.CreateObject("ASPSimpleUpload.Upload")

'If Len(upl.Form("MResim")) > 0 Then

NewFileName = "/img/haber/manset/" & upl.ExtractFileName(upl.Form("MResim"))

strFileName = upl.ExtractFileName(upl.Form("MResim"))

Manset = trim(upl.form("Manset"))

Gobek = trim(upl.form("Gobek"))

Detay = replace(trim(upl.form("Detay")),chr(13),"<br>")

if Manset <> "" then Manset = "True" else Manset = "False"

if Gobek <> "" then Gobek = "True" else Gobek = "False"

Set objConn = server.CreateObject("ADODB.Connection")

Set objRs = Server.CreateObject("ADODB.Recordset")

objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/db/Cinar.mdb") & ";"

objRs.Open "HABER", objConn, 3,3

'Set objConn = Server.CreateObject("ADODB.Connection")

'Set objRs = Server.CreateObject("ADODB.Recordset")

'objConn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/db/Cinar.mdb")

'objRs.Open "HABER", objConn, 3, 3

objRs.AddNew

If upl.ExtractFileName(upl.Form("MResim"))="" Then

objRs.Fields("MResim").Value = upl.ExtractFileName(upl.Form("AResim"))

Else

objRs.Fields("MResim").Value = strFileName

End If

objRs.Fields("Grup").Value = upl.ExtractFileName(upl.Form("Grup"))

objRs.Fields("Baslik").Value = upl.ExtractFileName(upl.Form("Baslik"))

objRs.Fields("Spot1").Value = upl.ExtractFileName(upl.Form("Spot1"))

objRs.Fields("Spot2").Value = upl.ExtractFileName(upl.Form("Spot2"))

objRs.Fields("Detay").Value = Detay

objRs.Fields("AraBaslik").Value = upl.ExtractFileName(upl.Form("AraBaslik"))

objRs.Fields("Kaynak").Value = upl.ExtractFileName(upl.Form("Kaynak"))

objRs.Fields("Manset").Value = Manset

objRs.Fields("Gobek").Value = Gobek

objRs.Fields("Guncel").Value = TRUE

objRs.Fields("Tarih").Value = date()

objRs.Fields("Saat").Value = hour(time)&":"&minute(time)

objRs.Update

objRs.Close

'set rskayit = server.CreateObject("ADODB.Recordset")

'sql = "insert into HABER(Grup,Baslik,AraBaslik,Spot1,Spot2,Detay,Kaynak,Tarih,S aat,Manset,Gobek,MResim) values('" & grup & "','" & Baslik & "','" & AraBaslik & "','" & Spot1 & "','" & Spot2 & "','" & Detay & "','" & Kaynak & "','" & Tarih & "','" & Saat & "','" & Manset & "','" & Gobek & "','" & strFileName & ")"

'rskayit.open sql,conn,1,3

If upl.SaveToWeb("MResim",NewFileName) Then

Mesaj="<center><b>Bilgisayardan Resim Yüklediniz</b><br><br>Haber Başarıyla Kaydedildi.</center>"

Else

Mesaj="<center><b>Arşiv'den Resim Yüklediniz</b><br><br>Haber Başarıyla Kaydedildi.</center>"

End If

%><b><%=Mesaj%></b><br></td> ;</tr></table></td></tr></table&g t;<%

set objConn=Nothing

set objRs=Nothing

</body>

</html>

Bu konuda yardımcı olmanızı rica eder iyi çalışmalar dilerim....

Yukarı Dön

gerilla
Yeni Üye

Kayıt Tarihi: 01-Ocak-2007
Gönderilenler: 3

Gönderen: 01-Ocak-2007 Saat 15:57 \| Kayıtlı IP

tahminimce hata fso dan değil bu koddan kaynaklanıyor:

Set upl = Server.CreateObject("ASPSimpleUpload.Upload")

serverinde ASPSimpleUpload desteği yok sanırım. resimleri upload etmek için bu bileşen gerekli. host firmana ASPSimpleUpload desteğinin olup olmadığını sor.

Yukarı Dön

assos_truva
Yeni Üye

Kayıt Tarihi: 12-Ocak-2007
Ülke: Türkiye
Gönderilenler: 2

Gönderen: 12-Ocak-2007 Saat 15:03 \| Kayıtlı IP

hayır ne alaka hata scriptinde

Yukarı Dön

alenn34
Kıdemli Üye

Kayıt Tarihi: 26-Nisan-2013
Gönderilenler: 90

Gönderen: 28-Temmuz-2013 Saat 03:00 \| Kayıtlı IP

teşekkürler bilgi için....

Düzenleyen alenn34 17-Ekim-2013 Saat 17:46

__________________
koltuk tamir koltuklar,koltuk

Yukarı Dön

Eğer Bu Konuya Cevap Yazmak İstiyorsanız İlk Önce Giriş
Eğer Kayıtlı Bir Kullanıcı Değilseniz İlk Önce Kayıt Olmalısınız

Yazıcı Sürümü

Kapalı Foruma Yeni Konu Gönderme
Kapalı Forumdaki Konulara Cevap Yazma
Kapalı Forumda Cevapları Silme
Kapalı Forumdaki Cevapları Düzenleme
Kapalı Forumda Anket Açma
Kapalı Forumda Anketlerde Oy Kullanma