implant


  Aktif KonularAktif Konular  Forum Üyelerini GösterÜye Listesi  Forumu AraArama  YardımYardım
  Kayıt OlKayıt Ol  GirişGiriş
ASP Uygulamaları
 ASPTurkiye.com Forum : ASP Uygulamaları
Konu Konu: Çözemediğim Hata Yanıt YazYeni Konu Gönder
Yazanlarda
Mesaj << Önceki Konu | Sonraki Konu >>
maximir
Yeni Üye
Yeni Üye


Kayıt Tarihi: 04-Ekim-2006
Gönderilenler: 1
Gönderen: 04-Ekim-2006 Saat 20:26 | Kayıtlı IP Alıntı maximir

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>

<meta http-equiv="Content-Language" content="tr">

<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">

<meta http-equiv="content-type" content="text/html;charset=ISO-8859-9">

<meta name="description" content="Çukurova Medya Tanıtım">

<meta name="WebDesigner" content="editor// editor@cukurovamedya.com - http://www.cukurovamedya.com">

<link href="Admin.css" rel="stylesheet" type="text/css">

<SCRIPT language=javascript src="Admin.js"></SCRIPT>

</head>

<body>

<table width="50%" border="1" align="center" cellpadding="0" cellspacing="3" bordercolor="dddddd">

<tr align="center" class="td">

<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>

<table width="100%" border="0" cellpadding="5" cellspacing="3" bordercolor="dddddd">

<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 Göster maximir's Özellikler Diğer Mesajlarını Ara: maximir
 
gerilla
Yeni Üye
Yeni Üye


Kayıt Tarihi: 01-Ocak-2007
Gönderilenler: 3
Gönderen: 01-Ocak-2007 Saat 15:57 | Kayıtlı IP Alıntı gerilla

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 Göster gerilla's Özellikler Diğer Mesajlarını Ara: gerilla
 
assos_truva
Yeni Üye
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 Alıntı assos_truva

hayır ne alaka hata scriptinde
Yukarı Dön Göster assos_truva's Özellikler Diğer Mesajlarını Ara: assos_truva
 
alenn34
Kıdemli Üye
Kıdemli Üye


Kayıt Tarihi: 26-Nisan-2013
Gönderilenler: 90
Gönderen: 28-Temmuz-2013 Saat 03:00 | Kayıtlı IP Alıntı alenn34

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


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


__________________
koltuk tamirkoltuklar,koltuk
Yukarı Dön Göster alenn34's Özellikler Diğer Mesajlarını Ara: alenn34
 

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

  Yanıt YazYeni Konu Gönder
Yazıcı Sürümü Yazıcı Sürümü

Forum Atla
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

Powered by Web Wiz Forums version 7.91
Copyright ©2001-2004 Web Wiz Guide

Bu Sayfa 0,0938 Saniyede Yüklendi.