Daha önce trde çalışan asp sayfam şimdi abd deki hostta çalışmıyor.. Microsoft OLE DB Provider for ODBC Drivers error '80040e07' [Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression. /ilanvtekle.asp, line 158 bu hatayı veriyor...aşagıda hata veren kodlar var...lütfen hata numarasının genel açıklamasını ,çözümünü yazmayın hepsini denedim sanırım server taraflı bir hata.. <% Set kategoribul = bag.Execute("SELECT * FROM ilan_kategoriler ORDER BY kategori_ismi") %> <% WHILE NOT kategoribul.EOF %> <% if kategoribul("kategori_id") = TRIM(REQUEST.Form("kategori_ismi")) then %> <% tipi = kategoribul("kategori_ismi")%> <% end if %> <% kategoribul.MoveNext Wend %> <!--#INCLUDE file="mail_ayarlar.asp"--> <% '----------------------------------------------------------------------------------------------------- ad_soyad=TRIM(REQUEST.Form("adsoyad")) uye_adi=TRIM(REQUEST.Form("uye")) email=TRIM(REQUEST.FORM("email")) sehir=TRIM(REQUEST.Form("sehir")) telefon=TRIM(REQUEST.FORM("telefon")) ceptel=TRIM(REQUEST.FORM("ceptel")) faxtel=TRIM(REQUEST.FORM("faxtel")) urun=TRIM(REQUEST.FORM("urun")) cephesi=TRIM(REQUEST.FORM("cephesi")) bosmu=TRIM(REQUEST.FORM("bosmu")) adresi=TRIM(REQUEST.FORM("adresi")) sehiri=TRIM(REQUEST.FORM("sehiri")) metrekare=TRIM(REQUEST.FORM("metrekare")) kat=TRIM(REQUEST.FORM("kat")) balkon=TRIM(REQUEST.FORM("balkon")) bahce=TRIM(REQUEST.FORM("bahce")) isitmasi=TRIM(REQUEST.FORM("isitmasi")) odasayi=TRIM(REQUEST.FORM("odasayi")) yapimyili=TRIM(REQUEST.FORM("yapimyili")) resim="" resim2="" resim3="" banyosu=TRIM(REQUEST.FORM("banyosu")) urun_aciklama=TRIM(REQUEST.FORM("urun_aciklama")) kategori_ismi=TRIM(REQUEST.FORM("kategori_ismi")) fiyat=TRIM(REQUEST.FORM("fiyat")) fiyat_id=TRIM(REQUEST.FORM("fiyat_id")) ilan_sure=TRIM(REQUEST.FORM("ilan_sure")) guvenlik__kod=TRIM(REQUEST.FORM("guvenlik__kod")) ip = Request.ServerVariables("REMOTE_ADDR") Dim ilan_skt ilan_skt = DATEADD ( "m",ilan_sure,Date() ) ilan_skt = Day(ilan_skt) & "." & Month(ilan_skt) & "." & Year(ilan_skt) ilan_starih = ilan_skt ilan_ktarih = date() '- Kayıt Form Bilgileri Kontrol --------------------------------------------------------------------- '----------------------------------------------------------------------------------------------------- If telefon="" or Len(telefon)<7 Then Response.write "Telefon Alanını Boş Bıraktınız ! (Örn:4440444)" Response.write "<br></br>" Response.write "<a href=javascript:history.go(-1);> Geri Dönmek için Tıklayın !</a>" Else '----------------------------------------------------------------------------------------------------- If not IsNumeric(telefon) Then Response.write "Lütfen Geçerli Bir Telefon Numarası Girin !" Response.write "<br></br>" Response.write "<a href=javascript:history.go(-1);> Geri Dönmek için Tıklayın !</a>" Else '----------------------------------------------------------------------------------------------------- If urun="" or Len(urun)>75 Then Response.write "İlan Başlığı Alanını Boş Bıraktınız ! ( En Çok 75 Karakter )" Response.write "<br></br>" Response.write "<a href=javascript:history.go(-1);> Geri Dönmek için Tıklayın !</a>" Else '----------------------------------------------------------------------------------------------------- If urun_aciklama="" Then Response.write "İlan Açıklama Alanını Boş Bıraktınız !" Response.write "<br></br>" Response.write "<a href=javascript:history.go(-1);> Geri Dönmek için Tıklayın !</a>" Else '----------------------------------------------------------------------------------------------------- If Len(urun_aciklama)>2000 Then Response.write "İlan Açıklama Alanı En Çok 1000 Karakter Alır !" Response.write "<br></br>" Response.write "<a href=javascript:history.go(-1);> Geri Dönmek için Tıklayın !</a>" Else '----------------------------------------------------------------------------------------------------- If kategori_ismi="_" Then Response.write "Kategori Alanını Boş Bıraktınız !" Response.write "<br></br>" Response.write "<a href=javascript:history.go(-1);> Geri Dönmek için Tıklayın !</a>" Else '----------------------------------------------------------------------------------------------------- If fiyat="" or not IsNumeric(fiyat) or len(fiyat)>25 Then Response.write "Lütfen Geçerli Bir Fiyat Girin !" Response.write "<br></br>" Response.write "<a href=javascript:history.go(-1);> Geri Dönmek için Tıklayın !</a>" Else '----------------------------------------------------------------------------------------------------- If guvenlik__kod="" Then Response.write "Güvenlik Kodu Alanını Boş Bıraktınız !" Response.write "<br></br>" Response.write "<a href=javascript:history.go(-1);> Geri Dönmek için Tıklayın !</a>" Else '----------------------------------------------------------------------------------------------------- If not guvenlik__kod = Session("Guvenlik__Kod__Info") Then Response.write "Güvenlik Kodu Geçersiz, Tekrar Deneyin !" Response.write "<br></br>" Response.write "<a href=javascript:history.go(-1);> Geri Dönmek için Tıklayın !</a>" Else '----------------------------------------------------------------------------------------------------- FUNCTION TIRNAK(THESTRING) TIRNAK=REPLACE(THESTRING,"'","''") END FUNCTION '----------------------------------------------------------------------------------------------------- sqlString= "INSERT INTO ilanlar" &_ "(ad_soyad, uye_adi, email, sehir, telefon, ceptel, faxtel, kategori_ismi, tipi, urun, urun_aciklama, resim, resim2, resim3, fiyat, fiyat_id, ilan_sure, ilan_starih, ilan_ktarih, cephesi, bosmu, adresi, sehiri, metrekare, kat, balkon, bahce, isitmasi, odasayi, yapimyili, banyosu, ip) VALUES (" &_ " '" & ad_soyad & "' , "&_ " '" & uye_adi & "' , "&_ " '" & email & "' , "&_ " '" & sehir & "' , "&_ " '" & telefon & "' , "&_ " '" & ceptel & "' , "&_ " '" & faxtel & "' , "&_ " '" & kategori_ismi & "' , "&_ " '" & tipi & "' , "&_ " '" & TIRNAK(urun) & "' , "&_ " '" & TIRNAK(urun_aciklama) & "' , "&_ " '" & resim & "' , "&_ " '" & resim2 & "' , "&_ " '" & resim3 & "' , "&_ " '" & fiyat & "' , "&_ " '" & fiyat_id & "' , "&_ " '" & ilan_sure & "' , "&_ " '" & ilan_starih & "' , "&_ " '" & ilan_ktarih & "' , "&_ " '" & cephesi & "' , "&_ " '" & bosmu & "' , "&_ " '" & adresi & "' , "&_ " '" & sehiri & "' , "&_ " '" & metrekare & "' , "&_ " '" & kat & "' , "&_ " '" & balkon & "' , "&_ " '" & bahce & "' , "&_ " '" & isitmasi & "' , "&_ " '" & odasayi & "' , "&_ " '" & yapimyili & "' , "&_ " '" & banyosu & "' , "&_ " '" & ip & "')" bag.execute sqlString (158.satır) '----------------------------------------------------------------------------------------------------- MyBody_3 = "Merhaba, " & vbCrLf MyBody_3 = MyBody_3 & " Sayın,"& ad_soyad & vbCrLf MyBody_3 = MyBody_3 & " Sitemize İlan Verdiğiniz İçin Teşekkür Ederiz." & vbCrLf MyBody_3 = MyBody_3 & " İlanınız site yöneticisi tarafından onaylandıktan sonra gösterime başlanacaktır." & vbCrLf MyBody_3 = MyBody_3 & " Web Adresi: "&site_url&" ©2008" & vbCrLf '----------------------------------------------------------------------------------------------------- Dim objMailKelebek Set objMailKelebek = Server.CreateObject("CDO.Message") objMailKelebek.From = admin_mail objMailKelebek.To = email objMailKelebek.Subject = "ilanınız Bize Ulaştı" objMailKelebek.TextBody = MyBody_3 on Error Resume Next objMailKelebek.Send Set objMailKelebek = Nothing '----------------------------------------------------------------------------------------------------- Dim R_SayiUret Randomize R_SayiUret2=RND Session("Guvenlik__Kod__Info")=R_SayiUret '----------------------------------------------------------------------------------------------------- '----------------------------------------------------------------------------------------------------- Response.Write "<b>Teşekkürler, İlanınız Başarılı Bir Şekilde Kaydedildi.</b>" Response.write "<br></br>" Response.Write "İlanınız Onay Bekliyor..." '----------------------------------------------------------------------------------------------------- End If End If End If End If End If End If End If End If End If %>
|