Arkadaşlar bu konuda pek bilgim olduğu söylenemez geçenlerde bir arkadaşıma html site yaptım oda bir asp servis scripti eklememi istedi nette bulduğum scripti ekledim ama aşşagıda verdiğim kodda bitiş tarihi girmeden de kayıda girmesini istiyoruz ama başaramıyoruz. Yardım edin lütfen.
Kod:
<title>Ariza Takip Yönetimi</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-9">
<META HTTP-EQUIV="content-language" content="TR">
<script type="text/javascript">
<!--
function disableTeslim(disable)
{
if(document.forms["form1"].elements["Teslimat"].checked){
{
document.forms["form1"].elements.TeslimAlan.disabled = false
document.forms["form1"].elements.TeslimTarihi.disabled = false
}
}
else
{
{
document.forms["form1"].elements.TeslimAlan.disabled = true
document.forms["form1"].elements.TeslimTarihi.disabled = true
}
}
}
//-->
</script>
<% If Session("AdminOk") = True Then %>
<!-- #include file=header.inc !-->
<!-- #include file=config.asp !-->
<%
FisNo = Request.QueryString("FisNo")
Set ConnData = Server.CreateOBject("ADODB.Connection")
Set RSData = Server.CreateObject("ADODB.RecordSet")
Yol = Server.MapPath("data/ariza.mdb")
ConnData.Open ("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Yol)
SQLStr = "Select * From arizatakip Where (FisNo Like'"& FisNo &"')"
RSData.Open SQLStr, ConnData, 3
%>
<style type="text/css">
<!--
.style1 {
color: #10108C;
font-weight: bold;
}
-->
</style>
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="2"><img src="../images/logo.gif" width="215" height="72"></td>
</tr>
<tr>
<td height="10" colspan="2" bgcolor="#000000"> </td>
</tr>
<tr>
<td width="107" height="379" align="center" valign="top" bgcolor="#DAD3FE">
<!-- #include file=menu.asp !--></td>
<td width="836" valign="top">
<form action=updaterecord.asp method=post id=form1 name=form1>
<table width="500" border="0" cellspacing="0" cellpadding="0">
<tr align="center" bgcolor="#DAD3FE">
<td height="25" colspan="3"><span class="style1 nice">Arızalı Ürün Detayları</span></td>
</tr>
<tr bgcolor="#f7f7f7">
<td width="186" height="20" align="right"><strong>Ariza No </strong>: </td>
<td width="23" height="20"> </td>
<td width="291" height="20"><%=RsData("ArizaNo")%></td>
</tr>
<tr>
<td height="20" align="right"><strong>Seri No</strong> : </td>
<td height="20"> </td>
<td height="20"><b><%=RsData("SeriNo")%></b></td>
</tr>
<tr>
<td height="20" align="right" bgcolor="#f7f7f7"><strong>Fiş No : </strong></td>
<td height="20" bgcolor="#f7f7f7"> </td>
<td height="20" bgcolor="#f7f7f7"><b><input type=hidden name=FisNo value=<%=RsData("FisNo")%>><%=RsData("FisNo")%></b></td>
</tr>
<tr>
<td height="20" align="right"><strong>Ürün Adı :</strong></td>
<td height="20"> </td>
<td height="20"><%=RsData("UrunAdi")%></td>
</tr>
<tr bgcolor="#f7f7f7">
<td height="20" align="right"><strong>Durum : </strong></td>
<td height="20"> </td>
<td height="20"><SELECT size=1 id=select name=Durum>
<OPTION <% if RsData("Durum") = True Then Response.Write "Selected" %> value=True>Hazır</OPTION>
<OPTION <% if RsData("Durum") = False Then Response.Write "Selected" %> value=False>Tamirde</OPTION>
</SELECT></td>
</tr>
<tr>
<td height="20" align="right"><strong>Geliş Tarihi : </strong></td>
<td height="20"> </td>
<td height="20"><%=RsData("GelisTarihi")%></td>
</tr>
<tr bgcolor="#f7f7f7">
<td height="20" align="right"><strong>Bitiş Tarihi : </strong></td>
<td height="20"> </td>
<td height="20">
<%if Trim(RsData("BitisTarihi")) <> "" Then
Response.Write Trim(RsData("BitisTarihi")) %>
<INPUT type="hidden" id=file1 name="BitisTarihi" Value="<% Response.Write Trim(RsData("BitisTarihi"))%>">
<%Else %>
<INPUT type="textfield" id=file1 name="BitisTarihi" Value="<% Response.Write Trim(Left(Now(),10))%>"> (gg.aa.yyyy)
<% end if %>
</td>
</tr>
<tr>
<td align="right" valign="top"><strong>Açıklama : </strong></td>
<td> </td>
<td><TEXTAREA rows=4 cols=40 id=textarea name=Aciklama><%=RsData("Aciklama")%> </TEXTAREA></td>
</tr>
<% if RsData("Durum") = True Then %>
<tr bgcolor="#f7f7f7">
<td height="20" align="right"><b>Teslim Edildi :</b></td>
<td height="20"> </td>
<td><input type=checkbox name="Teslimat" onClick="disableTeslim()"></td>
</tr>
<tr>
<td height="20" align="right"><b>Teslim Alan :</b></td>
<td height="20"> </td>
<td><input type="textfield" name="TeslimAlan" disabled></td>
</tr>
<tr bgcolor="#f7f7f7">
<td height="20" align="right"><b>Teslim Tarihi :</b></b></td>
<td height="20"> </td>
<td><input type="textfield" name="TeslimTarihi" value="<%=Left(now(),10)%>" disabled> (gg.aa.yyyy)</td>
</tr>
<% end if %>
<tr bgcolor="#f7f7f7">
<td align="right" colspan=3>
<table border=0 width=200 cellpadding=0 cellspacing=0 align=center>
<tr><td><input name="Submit" type="submit" value="Güncelle"><input type=hidden name=Update value=1></td></form>
<td><input name="button" type="submit" value=" İptal " onClick=JavaScript:history.back(1)> </td>
<td>
<form action=updaterecord.asp method=post>
<input type=hidden name=Update value=2>
<input type=hidden name=FisNo value=<%=RsData("FisNo")%>>
<input name="Submit" type="submit" value=" Sil ">
</td></form></tr></table>
</td>
</tr>
<% If Request.QueryString("Err") = "1" Then Response.Write "<tr><td colspan=3 Align=right><font color=red>Eksik giriş yaptığınız için ürün güncellenemedi</font></td></tr>" %>
<% If Request.QueryString("Err") = "2" Then Response.Write "<tr><td colspan=3 Align=right><font color=red>Bitis Tarihini yanlış yazdınız.</font></td></tr>" %>
<% If Request.QueryString("Err") = "3" Then Response.Write "<tr><td colspan=3 Align=right><font color=red>Böyle Bir kayıt yok.</font></td></tr>" %>
<% If Request.QueryString("Err") = "4" Then Response.Write "<tr><td colspan=3 Align=right><font color=red>Teslimat Bilgilerini Eksik Girdiniz.</font></td></tr>" %>
</table>
</td>
</tr>
<tr>
<td height="10" colspan="2" bgcolor="#000000"> </td>
</tr>
</table>
<%
Else
Response.Redirect "default.asp?Error=1"
End if %>
</body>
</html>