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 2 gündür uğraşıyorum yapamadım henüz asp konusunda yeniyim yardımcı olursanız inanın çok seviniri 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>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9" />
<title>Untitled Document</title>
<body>
<form name="form1" method="post" action="kampanyabasvuru.asp?cmd=add"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"> </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"><br>
!Not yukarıdaki (<font color="#FF0000">*</font> ) yıldız ile belirtilen
tüm alanların doldurulması zorunludur..<br>
</span></font></div></td>
</tr>
<tr>
<td colspan="2" valign="middle"><br>
<input type="submit" name="Submit" value="Formu Gönder">
<input type="reset" name="Submit2" value="Formu Temizle">
<br>
<br></td>
</tr>
<tr>
<td colspan="2">
</tr>
</table>
<table border="1" width="451" bgcolor="#FFFFFF">
<tr>
<% if Request.QueryString("cmd" )= "ok"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"><%=kampanya("stad" )%></font></td>
</tr>
<tr>
<td>Soyadınız : </td>
<td><font face="Arial" size="2" color="#000000"><%=kampanya("stsoyad" )%></font></td>
</tr>
<tr>
<td>Tc no : </td>
<td><font face="Arial" size="2" color="#000000"><%=kampanya("sttc" )%></font></td>
</tr>
<tr>
<td>Telefon numaranız : </td>
<td><font face="Arial" size="2" color="#000000"><%=kampanya("sttel" )%></font></td>
</tr>
<tr>
<td>gsm numaranız : </td>
<td><font face="Arial" size="2" color="#000000"><%=kampanya("stgsm" )%></font></td>
</tr>
<tr>
<td>E-mail adresiniz : </td>
<td><font face="Arial" size="2" color="#000000"><%=kampanya("stmail" )%></font></td>
</tr>
<tr>
<td>İliniz : </td>
<td><font face="Arial" size="2" color="#000000"><%=kampanya("stil" )%></font></td>
</tr>
<tr>
<td>İlçeniz : </td>
<td><font face="Arial" size="2" color="#000000"><%=kampanya("stilce" )%></font></td>
</tr>
<tr>
<td>Müsteri numaranız : </td>
<td><font face="Arial" size="2" color="#000000"><%=kampanya("id" )%></font></td>
</tr>
<% end if %>
</table>
<br>
</form>
<p> </p>
</body>
</html>
________________________________________________
yukarıdaki
<% if Request.QueryString("cmd" )= "ok"then %>
satırını <% if Request.QueryString("cmd" )= "add"then %>
yapınca ise java kodları çalışmıyor ve sayfayı yeniledikçe boş kayıt ekliyor
ben ise boş kayıt eklemesini istemiyorum.....nasıl yapabilirim..saygılar...
VBScript çalışma hatası (0x800A000D) tür uyumsuz
VBScript çalışma hatası (0x800A000D) tür uyumsuz
En son Musdi42 tarafından 30 Tem 2008 01:28 tarihinde düzenlendi, toplamda 1 kere düzenlendi.
Re: VBScript çalışma hatası (0x800A000D) tür uyumsuz
şeklinde kampanyabasvuru diye bir fonksiyon çağırmışsınız. Ancak Java içinde fonksiyonu kampanya diye tanımlamışsınız. http://gunce.mkysoft.com/?p=111 adresindeki kurallara dikkat ederseniz iyi olur.onsubmit="return kampanyabasvuru(this )"
Kod: Tümünü seç
<script language="JavaScript" type="text/javascript">