Darkart' Alıntı:

:alkış::alkış::alkış::alkış:TŞK.

Bu hatanın sebebi girmeye çalıştığınız veriyle veritabanı alanınızdaki tanımın uyuşmazlığıdır. Örneğin siz metin giriş yapmak istiyorsunuz ancak vt alanınız sayı ise bu hata ortaya çıkar. Bunu bir kontrol edin.

Anlamadım ama sormaya da yüzüm yok açıkçası. Yardımlarınız için tekrar tekrar teşekkürler. Çok sağolun...:alkış::alkış::alkış:

&lt;% @ Language=VBScript %&gt; &lt;% Option Explicit %&gt; &lt;!--#include file=&quot;inc_ayarlar. asp&quot;--&gt; &lt;!--#include file=&quot;inc_fonksiyonlar. asp&quot;--&gt; &lt;% ' ' MyDesign Haber ' http://www.mydesign.gen.tr ' Anketler Sayfası Kodları ' Son Düzenleme: 30 Eylül 2008 (v0.6) ' '// Sayfanın önbellekten alnması önleniyor Response. Buffer = True Response. Expires = -1 Response. ExpiresAbsolute = Now - 2 Response. AddHeader &quot;pragma&quot;,&quot;no-cache&quot; Response. AddHeader &quot;cache-control&quot;,&quot;private&quot; Response. CacheControl = &quot;No-Store&quot; '// Değişkenler Tanımlanıyor Dim SQL Dim intToplam Dim intLooper Dim intOySayisi Dim intGenislik Dim intSecenek Dim intAnketID Dim intGenislik2 Dim strOrderBy2 Dim intOySayisi2 %&gt; &lt;! DOCTYPE html PUBLIC &quot;-//W3C//DTD XHTML 1.0 Transitional//EN&quot; &quot;http://www. w3. org/TR/xhtml1/DTD/xhtml1-transitional. dtd&quot;&gt; &lt;html xmlns=&quot;http://www. w3. org/1999/xhtml&quot;&gt; &lt;head&gt; &lt;title&gt;Anketler - &lt;%=strSiteAdi%&gt;&lt;/title&gt; &lt;!--#include file=&quot;inc/head. asp&quot;--&gt; &lt;link rel=&quot;stylesheet&quot; type=&quot;text/css&quot; href=&quot;&lt;%=strScriptYolu%&gt;inc/stil. css&quot; /&gt; &lt;meta name=&quot;generator&quot; content=&quot;MyDesign Haber &lt;%=strVersiyon%&gt;&quot; /&gt; &lt;!-- Uygulama: MyDesign Haber Versiyon: &lt;%=strVersiyon%&gt; Download: http://www.mydesign.gen.tr --&gt; &lt;script type=&quot;text/javascript&quot; src=&quot;&lt;%=strScriptYolu%&gt;inc/ajax. js&quot;&gt;&lt;/script&gt; &lt;!--#include file=&quot;inc/ajax. asp&quot;--&gt; &lt;/head&gt; &lt;body&gt; &lt;table id=&quot;main&quot; cellpadding=&quot;0&quot; border=&quot;0&quot; cellspacing=&quot;0&quot;&gt; &lt;tr&gt; &lt;td colspan=&quot;3&quot; id=&quot;son-dakika&quot;&gt;&lt;!--#include file=&quot;blok/son_dakika. asp&quot;--&gt;&lt;/td&gt;&lt;/tr&gt; &lt;tr&gt; &lt;td colspan=&quot;3&quot; id=&quot;ust&quot;&gt;&lt;!--#include file=&quot;inc/ust. asp&quot;--&gt;&lt;/td&gt;&lt;/tr&gt; &lt;tr&gt; &lt;td colspan=&quot;3&quot; id=&quot;bant&quot;&gt;&lt;!--#include file=&quot;inc/ust_menu. asp&quot;--&gt;&lt;/td&gt;&lt;/tr&gt; &lt;tr&gt; &lt;td id=&quot;sol&quot;&gt; &lt;div id=&quot;kategoriler&quot;&gt; &lt;h3&gt;KATEGORİLER&lt;/h3&gt; &lt;ul&gt; &lt;li&gt;&lt;a href=&quot;&lt;%=strScriptYolu%&gt;&quot;&gt;Anasayfa&lt;/a&gt;&lt;/li&gt; &lt;% Call KategoriListele(&quot;&quot;, &quot;&quot;, &quot;&lt;li&gt;&quot;, &quot;&lt;/li&gt;&quot;, 0, False, &quot;&quot;, &quot;&quot;, &quot;&quot;, &quot;&quot;) %&gt; &lt;/ul&gt; &lt;/div&gt; &lt;!--#include file=&quot;blok/arama. asp&quot;--&gt; &lt;!--#include file=&quot;blok/en_cok_okunanlar. asp&quot;--&gt; &lt;!--#include file=&quot;blok/en_son_yorumlananlar. asp&quot;--&gt; &lt;/td&gt; &lt;td id=&quot;orta&quot;&gt;&lt;% Response. Write &quot;&lt;h1&gt;Anketler&lt;/h1&gt;&quot; '// Formdan Veriler Alınıyor intSecenek = Temizle(Request. Form intAnketID = Temizle(Request. Form If intAnketID &lt;&gt; &quot;&quot; AND IsNumeric AND intSecenek &lt;&gt; &quot;&quot; AND IsNumeric Then '// Veri, sayıysa veritabanı kontrolü yapılıyor SQL = &quot;SELECT tblAnketSorular. Aktif, tblAnketSorular. Soru, tblAnketSecenekler. Oy, tblAnketSecenekler. Anket_ID, tblAnketSecenekler. Secenek_ID &quot; SQL = SQL &amp; &quot; FROM tblAnketSorular, tblAnketSecenekler &quot; SQL = SQL &amp; &quot; WHERE tblAnketSorular. Oy = &quot;&amp; strDBTrue &amp;&quot; AND tblAnketSorular. Anket_ID = tblAnketSecenekler. Anket_ID AND tblAnketSorular. Anket_ID = &quot;&amp; intAnketID SQL = SQL &amp; &quot; AND tblAnketSecenekler. Secenek_ID = &quot;&amp; intSecenek &amp;&quot; And tblAnketSorular. Aktif = &quot;&amp; strDBTrue kdGenel. Open SQL, adoCon, 1, 3 If Not kdGenel. EOF Then intCerezAnketID = Temizle(Request. Cookies (&quot;Anket&quot;&amp; kdGenel If intCerezAnketID &lt;&gt; &quot;&quot; Then Response. Write &quot;Daha önce oy kullandınız.&quot; Else Call OyEkle Response. Cookies = intSecenek Response. Cookies . Expires = Date + 30 Response. Redirect &quot;anketler. asp&quot; End If kdGenel. Close End If End If kdGenel. open &quot;SELECT FROM tblAnketSorular WHERE Aktif = &quot;&amp; strDBTrue &amp;&quot; ORDER BY tarih DESC&quot;, adoCon, 1, 3 If kdGenel. EOF Then Response. Write &quot;&lt;p&gt;Henüz anket oluşturulmadı.&lt;/p&gt;&quot; Else Response. Write &quot;&lt;table width=&quot;&quot;100%&quot;&quot; cellpadding=&quot;&quot;0&quot;&quot; cellspacing=&quot;&quot;0&quot;&quot;&gt;&lt;tr&gt;&quot; intLooper = 1 Do While Not kdGenel. Eof Response. Write &quot;&lt;td style=&quot;&quot;width:50%; vertical-align:top; padding:3px;&quot; If intLooper Mod 2 = 0 Then Response. Write &quot;background:url top left repeat-y; padding-left:15px;&quot; Response. Write &quot;&quot;&quot;&gt;&quot; intCerezAnketID = Temizle(Request. Cookies (&quot;Anket&quot;&amp; kdGenel If intCerezAnketID &lt;&gt; &quot;&quot; Then kdFonksiyon. Open &quot;SELECT FROM tblAnketSorular WHERE Anket_ID = &quot;&amp; kdGenel &amp;&quot; ORDER BY Tarih DESC&quot;, adoCon, 1, 3 If Not kdFonksiyon. Eof Then kdYardimci. Open &quot;SELECT SUM AS Toplam FROM tblAnketSecenekler WHERE Anket_ID = &quot;&amp; kdFonksiyon &amp;&quot;&quot;, adoCon, 1, 3 intOySayisi2 = CInt(kdYardimci kdYardimci. Close If DBBool(kdFonksiyon = strDBTrue Then strOrderBy2 = &quot; ORDER BY Oy DESC&quot; kdYardimci. Open &quot;SELECT FROM tblAnketSecenekler WHERE Anket_ID = &quot;&amp; kdFonksiyon &amp; strOrderBy2 &amp;&quot;&quot;, adoCon, 1, 3 If Not kdYardimci. Eof Then Response. Write &quot;&lt;p class=&quot;&quot;anket-baslik-2&quot;&quot;&gt;&quot;&amp; kdFonksiyon &amp;&quot;&lt;/p&gt;&quot; Do While Not kdYardimci. Eof If kdYardimci = 0 Then intGenislik2 = 0 Else intGenislik2 = kdYardimci 100/intOySayisi2 End If If DBBool(kdFonksiyon = strDBTrue Then %&gt; &lt;p&gt;&lt;div class=&quot;oy_bg_2&quot;&gt;&lt;img src=&quot;&lt;%=strScriptYolu%&gt;img/oy_sol. gif&quot; /&gt;&lt;img src=&quot;&lt;%=strScriptYolu%&gt;img/oy. gif&quot; height=&quot;7&quot; width=&quot;&lt;%=186 (intGenislik2)/100%&gt;&quot; alt=&quot;%&lt;%=Round(intGenislik2,0)%&gt;&quot; /&gt;&lt;img src=&quot;&lt;%=strScriptYolu%&gt;img/oy_sag. gif&quot; /&gt;&lt;/div&gt; &lt;%=kdYardimci %&gt;&lt;br /&gt; &lt;span class=&quot;yuzde_2&quot;&gt;%&lt;%=Round(intGenislik2,0)%&gt; | &lt;%=kdYardimci %&gt; Oy&lt;/span&gt;&lt;/p&gt;&lt;% Else Response. Write &quot;&lt;p&gt;&lt;div class=&quot;&quot;oy_bg_2&quot;&quot;&gt; &lt;/div&gt;&quot;&amp; kdYardimci &amp;&quot;&lt;/p&gt;&quot; End If kdYardimci. Movenext Loop If DBBool(kdFonksiyon = strDBFalse Then Response. Write &quot;&lt;p&gt;&lt;em&gt;Anket sonucu gösterimi kapatılmıştır.&lt;/em&gt;&lt;/p&gt;&quot; End If kdYardimci. Close End If kdFonksiyon. Close Else If DBBool(kdGenel = strDBTrue Then kdYardimci. Open &quot;SELECT FROM tblAnketSecenekler WHERE Anket_ID = &quot;&amp; kdGenel &amp;&quot;&quot;, adoCon, 1, 3 If Not kdYardimci. Eof Then %&gt; &lt;div id=&quot;anket-sonuc&lt;%=kdGenel %&gt;&quot;&gt; &lt;form action=&quot;anketler. asp&quot; method=&quot;post&quot; style=&quot;margin:0; padding:0; display:inline;&quot;&gt; &lt;input type=&quot;hidden&quot; style=&quot;display:none;&quot; name=&quot;AnketID&quot; id=&quot;AnketID&quot; value=&quot;&lt;%=kdGenel %&gt;&quot; /&gt; &lt;p class=&quot;anket-baslik&quot;&gt;&lt;%=kdGenel %&gt;&lt;/p&gt;&lt;% Do While Not kdYardimci. Eof %&gt; &lt;input type=&quot;radio&quot; id=&quot;anket_secenek&quot; value=&quot;&lt;%=kdYardimci %&gt;&quot; name=&quot;anket_secenek&quot; /&gt; &lt;label for=&quot;anket_secenek_&lt;%=kdYardimci %&gt;&quot;&gt;&lt;%=kdYardimci %&gt;&lt;/label&gt;&lt;br /&gt;&lt;% kdYardimci. Movenext Loop %&gt; &lt;p&gt;&lt;input type=&quot;submit&quot; value=&quot; Oy Ver &quot; class=&quot;buton&quot; /&gt;&lt;/p&gt; &lt;/form&gt; &lt;/div&gt;&lt;% End If kdYardimci. Close Else Call AnketSonuc(kdGenel End If End If Response. Write &quot;&lt;/td&gt;&quot; If intLooper Mod 2 = 0 Then Response. Write &quot;&lt;/tr&gt;&lt;/tr&gt;&lt;td colspan=&quot;&quot;2&quot;&quot; style=&quot;&quot;background:url bottom left repeat-x;&quot;&quot;&gt; &lt;/td&gt;&lt;/tr&gt;&lt;tr&gt;&quot; End If intLooper = intLooper + 1 kdGenel. Movenext Loop Response. Write &quot;&lt;/table&gt;&quot; End If kdGenel. Close %&gt; &lt;/td&gt; &lt;td id=&quot;sag&quot;&gt; &lt;!--#include file=&quot;blok/yazarlar. asp&quot;--&gt; &lt;!--#include file=&quot;blok/galeri. asp&quot;--&gt; &lt;!--#include file=&quot;blok/anket. asp&quot;--&gt; &lt;/td&gt; &lt;/tr&gt; &lt;tr&gt; &lt;td colspan=&quot;3&quot; id=&quot;alt&quot;&gt; &lt;p&gt;&lt;%=strCopyright%&gt;&lt;br /&gt;&lt;a href=&quot;&lt;%=strScriptYolu%&gt;rss. asp&quot; target=&quot;_blank&quot;&gt;RSS Kaynağı&lt;/a&gt; | &lt;a href=&quot;&lt;%=strScriptYolu%&gt;yonetim. asp&quot; target=&quot;_blank&quot;&gt;Yazar Girişi&lt;/a&gt;&lt;/p&gt; &lt;!--#include file=&quot;inc/alt. asp&quot;--&gt; &lt;% ' Bu kısmı değiştirmek lisans anlaşmasına aykırıdır Response. Write &quot;&lt;p&gt;Altyapı: &lt;a href=&quot;&quot;http://www.mydesign.gen.tr&quot;&quot; target=&quot;&quot;_blank&quot;&quot; title=&quot;&quot;MyDesign | Kod Arşivi&quot;&quot;&gt;MyDesign Haber Sistemi&lt;/a&gt;&lt;/p&gt;&quot; ' Bu kısmı değiştirmek lisans anlaşmasına aykırıdır %&gt; &lt;/td&gt; &lt;/tr&gt; &lt;/table&gt; &lt;/body&gt; &lt;/html&gt; Bu sayfanın orta kısmı hariç sağ sol üst alt menünün kodlarını ayırabilirmisiniz. Yani henüz anket oluşturmadınız yazan yere bişiler eklemek istiyorum tarihçe vs. ama kodları ayrıştıramadım. Ayrıştıran olursa çok yardımı olur. Şimdiden teşekkürler...

&lt;td id=&quot;sol&quot;&gt; &lt;div id=&quot;kategoriler&quot;&gt; &lt;h3&gt;KATEGORİLER&lt;/h3&gt; &lt;ul&gt; &lt;li&gt;&lt;a href=&quot;&lt;%=strScriptYolu%&gt;&quot;&gt;Anasayfa&lt;/a&gt;&lt;/li&gt; &lt;% Call KategoriListele(&quot;&quot;, &quot;&quot;, &quot;&lt;li&gt;&quot;, &quot;&lt;/li&gt;&quot;, 0, False, &quot;&quot;, &quot;&quot;, &quot;&quot;, &quot;&quot;) %&gt; &lt;/ul&gt; &lt;/div&gt; &lt;!--#include file=&quot;blok/arama. asp&quot;--&gt; &lt;!--#include file=&quot;blok/en_cok_okunanlar. asp&quot;--&gt; &lt;!--#include file=&quot;blok/en_son_yorumlananlar. asp&quot;--&gt; &lt;/td&gt;

İlgilendiğiniz için tekrar tekrar teşekkürler. Dediğiniz gibi ANSI yaptım bu seferde bu hatayı verdi. KATEGORİLER Anasayfa Microsoft VBScript runtime error '800a000d' Type mismatch: 'KategoriListele' /haber/anket. asp, line 6

Bu hata kodlarda değişik yaptığın için değil asp dosyasını Unicode kaydettiğin için oluyor. Notepad ile açarak kayıt sırasında ANSI olarak seçim yapman bu hatayı ortadan kaldırır.