I've created ASP page that can delete specific row in my database but when i click the button it shows nothing... but i am sure that i put a correct syntax in my SQL code... Pls. Help me in this thread... thank you in advance.
THIS IS MY FORM
THIS IS THE PROCESS... of the form Created.. i've wondered if my SQL syntax in deleting is correct...
my database has autonumber [UNIQUE ID]...
THIS IS MY FORM
Code:
<html>
<link href="css/dslam style.css" rel="stylesheet" type="text/css" />
<body>
<!--#include file="top.inc"-->
<%
set conn = server.CreateObject ("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath ("storage.mdb")
set rs = server.CreateObject ("ADODB.Recordset")
'Open all records from table 1
rs.Open "SELECT * FROM viewALL WHERE [" & Session("category") &"] LIKE '%" & Session("txtQuery") & "%'",conn,3,3
%>
<form method="post" action="mode.asp">
<div align="left">
<table BORDER="0" BGCOLOR="transparent" CELLSPACING="0" align="left" width="1400">
<THEAD>
<tr>
<th valign="top" bgcolor="green" align="center" width="5"><font face="Arial" color="white"></font></th>
<th valign="top" bgcolor="green" align="center"><font face="Arial" color="white">RNOC</font></th>
<th valign="top" bgcolor="green" align="center"><font face="Arial" color="white">BD</font></th>
<th valign="top" bgcolor="green" align="center"><font face="Arial" color="white">Location</font></th>
<th valign="top" bgcolor="green" align="center"><font face="Arial" color="white">Dslam ID</font></th>
<th valign="top" bgcolor="green" align="center""><font face="Arial" color="white">No. of Subs</font></th>
<th valign="top" bgcolor="green" align="center"><font face="Arial" color="white">Down Date/Time</font></th>
<th valign="top" bgcolor="green" align="center"><font face="Arial" color="white">Restoration Date/Time</font></th>
<th valign="top" bgcolor="green" align="center"><font face="Arial" color="white">Total Duration</font></th>
<th valign="top" bgcolor="green" align="center"><font face="Arial" color="white">Network Fault No.</font></th>
<th valign="top" bgcolor="green" align="center"><font face="Arial" color="white">Alarm Description</font></th>
<th valign="top" bgcolor="green" align="center"><font face="Arial" color="white">SA / NSA</font></th>
<th valign="top" bgcolor="green" align="center"><font face="Arial" color="white">Subs Experience</font></th>
<th valign="top" bgcolor="green" align="center"><font face="Arial" color="white">Action Taken</font></th>
<th valign="top" bgcolor="green" align="center"><font face="Arial" color="white">Remarks</font></th>
<th valign="top" bgcolor="green" align="center"><font face="Arial" color="white">IP Author</font></th>
</tr>
</THEAD>
<TBODY>
<%
On Error Resume Next
rs.MoveFirst
do while Not rs.eof
%>
<tr VALIGN="TOP">
<td width="10" ALIGN="left" valign="top">
<font face="Arial" color="#000000">
<% Response.write "<input type=radio name=ID value=" & rs("UNIQUE ID") & "/>" %>
</font></td>
<td ALIGN="left" valign="top">
<font face="Arial" color="#000000">
<%= rs("RNOC") %>
</font></td>
<td ALIGN="left" valign="top">
<font face="Arial" color="#000000">
<%= rs("BD") %>
</font></td>
<td ALIGN="left" valign="top">
<font face="Arial" color="#000000">
<%= rs("LOCATION") %>
</font></td>
<td ALIGN="left" valign="top">
<font face="Arial" color="#000000">
<%= rs("DSLAM ID") %>
</font></td>
<td ALIGN="left" valign="top">
<font face="Arial" color="#000000">
<%= rs("NO OF SUBS") %>
</font></td>
<td ALIGN="left" valign="top">
<font face="Arial" color="#000000">
<%= rs("Down DATE/TIME") %>
</font></td>
<td ALIGN="left" valign="top">
<font face="Arial" color="#000000">
<%= rs("Restoration DATE/TIME") %>
</font></td>
<td ALIGN="left" valign="top">
<font face="Arial" color="#000000">
<%= rs("Total Duration") %>
</font></td>
<td ALIGN="left" valign="top">
<font face="Arial" color="white">
<b><%= rs("Network Fault No") %></b>
</font></td>
<td ALIGN="left" valign="top">
<font face="Arial" color="#000000">
<%= rs("ALARM DESCRIPTION") %>
</font></td>
<td ALIGN="left" valign="top">
<font face="Arial" color="#000000">
<%= rs("SA/NSA") %>
</font></td>
<td ALIGN="left" valign="top">
<font face="Arial" color="#000000">
<%= rs("Subs Experience") %>
</font></td>
<td ALIGN="left" valign="top">
<font face="Arial" color="#000000">
<%= rs("Action Taken") %>
</font></td>
<td ALIGN="left" valign="top">
<font face="Arial" color="#000000">
<%= rs("Remarks") %>
</font></td>
<td ALIGN="left" valign="top">
<font face="Arial" color="#000000">
<%= rs("Author") %>
</font></td>
</tr>
<%
rs.MoveNext
loop
%>
</TBODY>
<TFOOT>
<tr>
<td><td><br>
<input class="submitspecial" name="submit" type="submit" value="Update" onmouseover=this.className='submitspecial1' onmouseout=this.className='submitspecial' />
</td></td><td><br>
<input class="submitspecial" name="submit" type="submit" value="Delete" onmouseover=this.className='submitspecial1' onmouseout=this.className='submitspecial' />
</td></tr>
</TFOOT>
</table>
</div>
</form>
<%
rs.Close
Set Rs = Nothing
Set Conn = Nothing
%>
<%
QStr = Request.QueryString("submit")
if Qstr = "error" then
Response.Write "<script type=""text/javascript"">" & vbCrLf
Response.Write "<!--" & vbCrLf
Response.Write "alert ('Please Select Record!');" & vbCrLf
Response.Write "-->" & VbCrLf
Response.Write "</script>" & vbCrLf
elseif Qstr = "delete" then
Response.Write "<script type=""text/javascript"">" & vbCrLf
Response.Write "<!--" & vbCrLf
Response.Write "alert ('Record Successfully Deleted!');" & vbCrLf
Response.Write "-->" & VbCrLf
Response.Write "</script>" & vbCrLf
end if
%>
<!--#include file="bottom.inc"-->
</body>
</html>
THIS IS THE PROCESS... of the form Created.. i've wondered if my SQL syntax in deleting is correct...
my database has autonumber [UNIQUE ID]...
Code:
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''MODE.ASP''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
<%
Session("ID")=Request.Form("ID")
Session("submit")=Request.Form("submit")
if Session("ID")="" then
Response.Redirect "dslam search.html?submit=error"
Else
if Session("submit")="Delete" Then
Dim Conn
Dim Rs
Dim sql
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("storage.mdb")
sql = "DELETE FROM DSLAM WHERE [UNIQUE ID]='" & Session("ID") & "'"
rs.ActiveConnection = Conn
rs.Source = sql
rs.Open
Set rs = Nothing
Set Conn = Nothing
Response.Redirect "dslam search.html?submit=delete"
End If
End If
%>
Comment