merhaba,
bir asp scriptim var. bu scriptte bir html tablo oluşturuyorum ve sütunlardan biride radio. bu radio ya tıkladığımda javascriptle tıklanan satırın hangi kayıda ait olduğunu anlamak için id'si hidden bir alana yazdırılıyor fakat bir türlü yazdıramadım, sürekli sayfanın sol alt köşesinde javascript hatası olduğunu gösteriyor.
document.frmIndex.txtID[...] value is null or not an object gibi bir hata veriyor.
Index.asp aşağıdaki gibi ayrıca ekte de var.
<!--#Include File="adovbs.inc"-->
<!--#include file="pages_support.asp"-->
<%
Dim Conn,rs,SQL
Set Conn=Server.CreateObject("ADODB.Connection")
Set rs=Server.CreateObject("ADODB.RecordSet")
Conn.ConnectionString="Provider=Microsoft.Jet.OLED B.4.0;Data Source=" & server.MapPath("Dat1.mdb") & " ;Persist Security Info=False"
conn.Open
%>
<HTML>
<HEAD>
<LINK title="style" href="Global.css" type="text/css" rel="stylesheet">
<title>Grid Demo</title>
<script>
function ClickChk(i)
{
document.frmIndex.asd.value=document.frmIndex.txtI D[i].value;
}
function New()
{
window.open("ProductEntry.asp?qs=0","myWin","width =400, height=165, top=200, left=200,toolbar=0, menubar=0, location=0, status=0, scrollbars=0, resizable=0,directories=no")
}
function Edit(ID)
{
var qs;
qs=ID
if(qs=="0")
{
abc()
return false;
}
window.open("ProductEntry.asp?qs="+ID,"myWin","wid th=400, height=165, top=200, left=200,toolbar=0, menubar=0, location=0, status=0, scrollbars=0, resizable=0")
}
function Upload(ID)
{
var qs;
qs=ID
if(qs=="0")
{
abc()
return false;
}
window.open("UploadImg.asp?qs="+ID,"myWin","width= 400, height=40, top=220, left=200,toolbar=0, menubar=0, location=0, status=0, scrollbars=0, resizable=0")
}
</script>
<SCRIPT LANGUAGE="vbscript">
Function abc()
msgbox "Select A Record First.",vbInformation,"Edit"
End Function
Function Delete(ID)
Dim qs
qs=ID
If ID="0" Then
msgbox "Select A Record First.",vbInformation,"Delete"
Exit Function
End If
If msgbox("Delete Record!!! " & vbCrLf & "Are You Sure ?",vbYesNo+vbQuestion,"Delete")=vbYes Then
document.frmIndex.action="Delete.asp?qs="&ID
document.frmIndex.method="post"
document.frmIndex.submit()
End If
End Function
</SCRIPT>
</HEAD>
<body topmargin="10" leftmargin="0" bgcolor="#ffffff">
<form name="frmIndex" action="Index.asp" method="post">
<table width="500" cellpadding="0" cellspacing="0" align="center" border="1" bordercolor="#191970"
ID="Table1">
<tr>
<td height="20" align="center" bgcolor="#191970">
<font face="verdana" size="1" color="#ffffff"><b>SEARCH</b></font>
</td>
</tr>
<tr>
<td>
<table width="400" cellpadding="0" cellspacing="0" align="center" border="0" bordercolor="#191970"
bgcolor="Ivory">
<tr>
<td height="10"></td>
</tr>
<tr>
<td align="right"><font face="verdana" size="1">Product Name</font></td>
<td><font face="verdana" size="1">:</font></td>
<td><input type="text" name="txtProductName" value='<%=Request.Form("txtProductName")%>' class="in" size="15"></td>
</tr>
<tr>
<td align="right"><font face="verdana" size="1">Category</font></td>
<td><font face="verdana" size="1">:</font></td>
<td><input type="text" name="txtCategory" value='<%=Request.Form("txtCategory")%>' class="in" size="15"></td>
<td align="right"><font face="verdana" size="1">Price</font></td>
<td><font face="verdana" size="1">:</font></td>
<td><input type="text" name="txtPrice" value='<%=Request.Form("txtPrice")%>' class="in" size="15" ID="txtPrice"></td>
</tr>
<tr>
<td align="right"><font face="verdana" size="1">Stock Count</font></td>
<td><font face="verdana" size="1">:</font></td>
<td><input type="text" name="txtStockCount" value='<%=Request.Form("txtStockCount")%>' class="in" size="15" ID="txtStockCount"></td>
<td align="right"><font face="verdana" size="1">Picture</font></td>
<td><font face="verdana" size="1">:</font></td>
<td>
<input type="text" name="txtPicture" value='<%=Request.Form("txtPicture")%>' class="in" size="15" ID="txtPicture">
<input type="Submit" value="Go" class="btn" style="width:25;" ID="Button1" NAME="Button1">
</td>
</tr>
<tr>
<td height="10"></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="500" cellpadding="0" cellspacing="0" align="center" border="0" bordercolor="yellow">
<tr>
<td height="1"></td>
</tr>
</table>
<table width="550" cellpadding="0" cellspacing="0" align="center" border="1" bordercolor="#191970">
<tr>
<td bgcolor="#191970" width="20" align="center">
<font face="verdana" size="1" color="#ffffff"><b>Product</b></font>
</td>
<td bgcolor="#191970" align="center" width="200">
<font face="verdana" size="1" color="#ffffff"><b>Name</b></font>
</td>
<td bgcolor="#191970" align="center" width="100">
<font face="verdana" size="1" color="#ffffff"><b>Category ID</b></font>
</td>
<td bgcolor="#191970" align="center" width="100">
<font face="verdana" size="1" color="#ffffff"><b>Price</b></font>
</td>
<td bgcolor="#191970" align="center" width="150">
<font face="verdana" size="1" color="#ffffff"><b>Stock Count</b></font>
</td>
<td bgcolor="#191970" align="center" width="50">
<font face="verdana" size="1" color="#ffffff"><b>Image</b></font>
</td>
<td bgcolor="#191970" width="3" align="center">
<font face="verdana" size="1" color="#ffffff"><b> </b></font>
</td>
</tr>
<%
SQL = "Select * From urunTablosu Where UrunID<>0 "
IF Request.Form("txtProductName") <> "" Then SQL = SQL & " AND Ad like '" & Request.Form("txtProductName") & "%'"
IF Request.Form("txtCategory") <> "" Then SQL = SQL & " AND KategoriID like '" & Request.Form("txtCategory") & "%'"
IF Request.Form("txtPrice") <> "" Then SQL = SQL & " AND Fiyat like '" & Request.Form("txtPrice") & "%'"
IF Request.Form("txtStockCount") <> "" Then SQL = SQL & " AND StokAdeti like '" & Request.Form("txtStockCount") & "%'"
IF Request.Form("txtPicture") <> "" Then SQL = SQL & " AND Resim like '" & Request.Form("txtPicture") & "%'"
rs.Open SQL,Conn,adOpenStatic,adLockReadOnly,adcmdtext
If rs.RecordCount>0 Then
i=-1
Dim IntPageSize, PageIndex, TotalPages, TotalRecords
Dim RecordCount, RecordNumber,PageCount
IntPageSize = 5
PageIndex = Request("PageIndex")
If PageIndex = "" Then PageIndex = 1
RecordCount = rs.RecordCount
RecordNumber = (PageIndex * IntPageSize) - (IntPageSize)
rs.PageSize = intPageSize
rs.AbsolutePage = PageIndex
TotalPages = rs.PageCount
Dim intPrev, intNext
intPrev = PageIndex - 1
intNext = PageIndex + 1
If rs.EOF=True Then rs.MoveFirst%>
<%Dim Count%>
<%Count = 1%>
<%Do while NOT rs.EOF AND Count <= IntPageSize%>
<%If rs.EOF=False Then%>
<%i=i+1%>
<tr bgcolor="Ivory">
<td align="center" bgcolor="#191970"><input type="radio" value='<%=rs.Fields("UrunID")%>' onclick=ClickChk(<%=i%>); name="txtID"></td>
<td><font face="verdana" size="1"> <%=rs.Fields("Ad")%></font></td>
<td><font face="verdana" size="1"> <%=rs.Fields("KategoriID")%></font></td>
<td><font face="verdana" size="1"> <%=rs.Fields("Fiyat")%></font></td>
<td><font face="verdana" size="1"> <%=rs.Fields("StokAdeti")%></font></td>
<td align="center">
<%If rs.Fields("Resim")<>"" Then%>
<a href="<%=rs.Fields("Resim")%>" target=_blank><font face="verdana" size="1" color="#003366"><b>[View]</b></font></a>
<%Else%>
<%End If%>
</td>
<td align="center" bgcolor="#191970"> </td>
</tr>
<input type="hidden" value='<%=rs.Fields("Ad")%>' name="EName"> <input type="hidden" value='<%=rs.Fields("KategoriID")%>' name="Phone">
<input type="hidden" value='<%=rs.Fields("Fiyat")%>' name="Mobile"> <input type="hidden" value='<%=rs.Fields("StokAdeti")%>' name="Designation">
<input type="hidden" value='<%=rs.Fields("Resim")%>' name="Department">
<%End IF%>
<%count = count + 1%>
<%rs.MoveNext%>
<%loop%>
<%Response.Write "<tr><td Colspan=8 height=20 bgcolor=#191970 Align=Center>"%>
<%call BuildNav2 (intPrev,IntNext,TotalPages)%>
<%response.write "</td></tr>"%>
<%rs.close%>
<%Else%>
<tr>
<td align="center" bgcolor="#ffffff" colspan="8">
<font face="verdana" size="2" color="#cc3333"><b>No Record Found</b></font>
</td>
</tr>
<%End IF%>
</table>
<table width="750" cellpadding="0" cellspacing="0" align="center" border="0" bordercolor="#191970">
<tr height="20">
<td bgcolor="#ffffff" align="center" width="200"></td>
<td colspan="2" align="center" bgcolor="#ffffff">
<font face="verdana" size="1" color="#000000">
<label onclick="New()">
<span style="cursor: hand">[ ADD ]</span>
</label>
</font>
<font face="verdana" size="1" color="#000000">
<label onclick="Upload(document.frmIndex.asd.value);">
<span style="cursor: hand">[ UPLOAD ]</span>
</label>
</font>
<font face="verdana" size="1" color="#000000">
<label onclick="Edit(document.frmIndex.asd.value);">
<span style="cursor: hand">[ EDIT ]</span>
</label>
</font>
<font face="verdana" size="1" color="#000000">
<label onclick="Delete(document.frmIndex.asd.value);">
<span style="cursor: hand">[ DELETE ]</span>
</label>
</font>
</td>
<td align="center" width="250" bgcolor="#ffffff"></td>
</tr>
<input type="hidden" value="0" Name="asd">
</table>
</form>
</body>
</HTML>