Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

« önceki sonraki »
Sayfa: [1]   Aşağı git

Gönderen Konu: VBScript çalışma hatası (0x800A000D) tür uyumsuz  (Okunma sayısı 1188 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı Musdi42

  • Delphi 1 Level 5
  • *****
  • İleti: 45
  • Rep: +0/-0
VBScript çalışma hatası (0x800A000D) tür uyumsuz
« : 29 Temmuz 2008 15:39:34 »
selam arkadaşlar üye kayıt formu benzeri bir form hazırlamaya çalışıyorum ama kayıt sonrası bilgileri kullanıya göstermek istiyorum VBScript çalışma hatası (0x800A000D ) tür uyumsuz hatası alıyorum kodlarım şu şekilde:

<!--#include file="Connectionmdb.asp"-->
<%
if Request.QueryString("cmd" )= "add"then
set kampanya=Server.CreateObject("ADODB.Recordset" )
kampanya_Sql ="select *from tbkampanya"
kampanya.open kampanya_Sql,cmd,1,3
kampanya.addnew
kampanya("stad" ) = Request.Form("ad" )
kampanya("stsoyad" ) = Request.Form("soyad" )
kampanya("sttc" ) = Request.Form("tcno" )
kampanya("sttel" ) = Request.Form("tel" )
kampanya("stgsm" ) = Request.Form("gsm" )
kampanya("stmail" ) = Request.Form("mail" )
kampanya("stil" ) = Request.Form("il" )
kampanya("stilce" ) = Request.Form("ilce" )
kampanya.Update
Response.Redirect("kampanya.asp?cmd=ok" )
end if
%>
<head>
« Son Düzenleme: 31 Temmuz 2008 10:11:07 by Musdi42 »
Kayıtlı

Çevrimdışı sairadam

  • Delphi 1 Level 3
  • ***
  • İleti: 28
  • Rep: +0/-0
  • Cinsiyet: Bay
    • Sair Adam
Ynt: VBScript çalışma hatası (0x800A000D) tür uyumsuz
« Yanıtla #1 : 30 Temmuz 2008 03:23:05 »
if Request.("submit" )<>"" then seklinde kullanırsanız sorun çözülür...
Kayıtlı
Hobim kod yazmak sevdamsa sensin.
Haydi bir el atında şu neşem düzelsin.

Çevrimdışı Musdi42

  • Delphi 1 Level 5
  • *****
  • İleti: 45
  • Rep: +0/-0
Ynt: VBScript çalışma hatası (0x800A000D) tür uyumsuz
« Yanıtla #2 : 30 Temmuz 2008 09:58:39 »
sairadam akadaşım yardımın için teşekkürler ALLAH razı olsun  ama tavsiye ettiğiniz
<% if Request.QueryString("submit" )<>"" then %> şeklinde yazınca ise kayıt sonuçlarını kullanıcıya gösteremiyorum acaba yanlışmı yazıyorum keşke aspnin de delphi gibi eventleri olsaydı sanırım daha kolay olurdu kodlaması..
Kayıtlı

Çevrimdışı sairadam

  • Delphi 1 Level 3
  • ***
  • İleti: 28
  • Rep: +0/-0
  • Cinsiyet: Bay
    • Sair Adam
Ynt: VBScript çalışma hatası (0x800A000D) tür uyumsuz
« Yanıtla #3 : 30 Temmuz 2008 10:17:28 »
:) asp daha basit emin ol. Sadece farklı düşünmek gerekiyor...
Kod: [Seç]
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9" />
<title>Untitled Document</title>
<body>
<%
if Request("submit" )<>""then
dim musid
set kampanya=Server.CreateObject("ADODB.Recordset" )
kampanya_Sql ="select *from tbkampanya"
kampanya.open kampanya_Sql,cmd,1,3
kampanya.addnew
kampanya("stad" ) = Request.Form("ad" )
kampanya("stsoyad" ) = Request.Form("soyad" )
kampanya("sttc" ) = Request.Form("tcno" )
kampanya("sttel" ) = Request.Form("tel" )
kampanya("stgsm" ) = Request.Form("gsm" )
kampanya("stmail" ) = Request.Form("mail" )
kampanya("stil" ) = Request.Form("il" )
kampanya("stilce" ) = Request.Form("ilce" )
kampanya.Update
kampanya.close

set rsid=Server.CreateObject("ADODB.Recordset" )
Sql ="select id from tbkampanya where sttc='"&Request.Form("tcno" )&"'"
rsid.open Sql,cmd,1,3
musid=rsid("id" )
rsid.close
cmd.close
end if
%>
<form name="form1" method="post" action="kampanyabasvuru.asp"onsubmit="return kampanyabasvuru(this )">
<table width="450" border="0" bgcolor="#FFFFFF" cellpadding="0" style="border-collapse: collapse">
<tr>
<td colspan="2" background="images/ust.jpg" height="23"><div align="center">
<font face="Verdana" style="font-size: 9pt; font-weight: 700" color="#FFFFFF">Sözleşme </font> </div></td>
</tr>
<tr>
<td width="131"> Adınız:</td>
<td width="313"><input name="ad" type="text" id="ad">
<font face="Verdana" style="font-size: 7pt">(<font color="#FF0000">*</font> )</font></td>
</tr>
<tr>
<td> Soyadınız:</td>
<td><input name="soyad" type="text" id="soyad">
<font face="Verdana" style="font-size: 7pt">(<font color="#FF0000">*</font> )</font></td>
</tr>
<tr>
<td> Tc kimlik no: </td>
<td><input name="tcno" type="text" id="tcno">
<font face="Verdana" style="font-size: 7pt">(<font color="#FF0000">*</font> )</font></td>
</tr>
<tr>
<td> Telefon No: </td>
<td><input name="tel" type="text" id="tel">
<font face="Verdana" style="font-size: 7pt">(<font color="#FF0000">*</font> )</font></td>
</tr>
<tr>
<td> Gsm:</td>
<td><input name="gsm" type="text" id="gsm">
<font face="Verdana" style="font-size: 7pt">(<font color="#FF0000">*</font> )</font></td>
</tr>
<tr>
<td> E-mail Adresiniz: </td>
<td><input name="mail" type="text" id="mail">
<font face="Verdana" style="font-size: 7pt">(<font color="#FF0000">*</font> )</font></td>
</tr>
<tr>
<td> İl:</td>
<td><input name="il" type="text" id="il">
<font face="Verdana" style="font-size: 7pt">(<font color="#FF0000">*</font> )</font></td>
</tr>
<tr>
<td> İlçe</td>
<td><input name="ilce" type="text" id="ilce">
<font face="Verdana" style="font-size: 7pt">(<font color="#FF0000">*</font> )</font></td>
</tr>
<% 'java döngü kontrol başlangıcı %>
</head>
<script language="JavaScript">
function kampanya(form1 )
{

if (document.form1.ad.value == "" )
{
alert("Lütfen adınızı yazınız..." );
document.form1.ad.focus( );
return false;
}

if (document.form1.soyad.value == "" )
{
alert("Lütfen soyadınızı yazınız..." );
document.form1.soyad.focus( );
return false;
}

if (document.form1.tcno.value == "" )
{
alert("Lütfen kimlik numaranızı yazınız..." );
document.form1.tcno.focus( );
return false;
}

if (document.form1.tel.value == "" )
{
alert("Lütfen telefon numaranızı yazınız..." );
document.form1.tel.focus( );
return false;
}

if (document.form1.gsm.value == "" )
{
alert("Lütfen cep numaranızı yazınız..." );
document.form1.gsm.focus( );
return false;
}

if (document.form1.mail.value == "" )
{
alert("Lütfen e-mail adresinizi yazınız..." );
document.form1.mail.focus( );
return false;
}

if (document.form1.il.value == "" )
{
alert("Lütfen bulunduğunuz ili yazınız..." );
document.form1.il.focus( );
return false;
}

if (document.form1.ilce.value == "" )
{
alert("Lütfen bulunduğunuz ilçeyi yazınız..." );
document.form1.ilce.focus( );
return false;
}

}
</script>
</HEAD>
<% 'java döngü kontrol bitimi %>
<tr>
<td colspan="2" valign="top"><div align="center"><font face="Arial"><span style="font-size: 9pt">


!Not yukarıdaki (<font color="#FF0000">*</font> ) yıldız ile belirtilen
tüm alanların doldurulması zorunludur..

</span></font></div></td>
</tr>

<tr>
<td colspan="2" valign="middle">


<input type="submit" name="Submit" value="Formu Gönder">
<input type="reset" name="Submit2" value="Formu Temizle">



</td>
</tr>

<tr>
<td colspan="2">

</tr>

</table>
<table border="1" width="451" bgcolor="#FFFFFF">
<tr>
<% if musid<>""then %>
<td colspan="2"><div align="center">!Başvuru talebiniz başarı ile alınmıştır
lütfen müşeri numaranızı unutmayın..</div></td>
</tr>
<tr>
<td width="141">Adınız : </td>
<td width="294"><font face="Arial" size="2" color="#000000"><%=Request.Form("ad" )%></font></td>
</tr>
<tr>
<td>Soyadınız : </td>
<td><font face="Arial" size="2" color="#000000"><%=Request.Form("soyad" )%></font></td>
</tr>
<tr>
<td>Tc no : </td>
<td><font face="Arial" size="2" color="#000000"><%=Request.Form("tcno" )%></font></td>
</tr>
<tr>
<td>Telefon numaranız : </td>
<td><font face="Arial" size="2" color="#000000"><%=Request.Form("tel" )%></font></td>
</tr>
<tr>
<td>gsm numaranız : </td>
<td><font face="Arial" size="2" color="#000000"><%=Request.Form("gsm" )%></font></td>
</tr>
<tr>
<td>E-mail adresiniz : </td>
<td><font face="Arial" size="2" color="#000000"><%=Request.Form("mail" )%></font></td>
</tr>
<tr>
<td>İliniz : </td>
<td><font face="Arial" size="2" color="#000000"><%=Request.Form("il" )%></font></td>
</tr>
<tr>
<td>İlçeniz : </td>
<td><font face="Arial" size="2" color="#000000"><%=Request.Form("ilce" )%></font></td>
</tr>
<tr>
<td>Müsteri numaranız : </td>
<td><font face="Arial" size="2" color="#000000"><%=id%></font></td>
</tr>
<% end if %>
</table>


</form>
<p> </p>
</body>
</html>


« Son Düzenleme: 30 Temmuz 2008 11:30:35 by sairadam »
Kayıtlı
Hobim kod yazmak sevdamsa sensin.
Haydi bir el atında şu neşem düzelsin.
Sayfa: [1]   Yukarı git
« önceki sonraki »