greetings,
i'm trying to write a function that i can pass a record ID to then pop a confirm box asking whether they really want to delete the record, if yes then window.location.replace the querystring w/ the id to the delete.asp page.
heres the funtion thus far. the only problem is it deletes the first record always.
<script language="JavaScript">
<!--
function confirm_entry()
{
input_box=confirm("Are you sure you want to delete this product?");
if (input_box==true)
{
// Output when OK is clicked
window.location.replace("d
eleteProdu
ct.asp?fPr
odID=<%=ob
jRs("prodI
D")%>&fAcc
tNo=<%=req
uest.query
string("fA
cctNo")%>"
)
}
else
{
// Output when Cancel is clicked
alert ("Delete Cancelled");
}
}
-->
</script>
heres the link they click on to delete
<a href="javascript:confirm_e
ntry()"><i
mg src="Images/btn_delete.gif
" border="0" /></a>
link to project
http://www.luminopolis.com/x/ADMIN/products.asp?fAcctNo=3and heres the full code if needed.
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<head>
<title>luminopolis store admin</title>
<META NAME="Author" CONTENT="?">
<META NAME="Keywords" CONTENT="?">
<META NAME="Description" CONTENT="?">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script type='text/javascript' src='Includes/expandConten
t.js'></sc
ript>
<style type="text/css">
<!--
a:link {color:#999999;text-decora
tion:none;
}
a:visited {color:#999999;text-decora
tion:none;
}
a:hover {color:#ff9900;text-decora
tion:under
line;}
a:active {color:#ff9900;text-decora
tion:none;
}
body{margin:0;padding:0;co
lor:#66666
6;}
table,div, select, input, textarea{font-family:verda
na,tahoma,
times;font
-size:10px
;}
//-->
</style>
</head>
<body>
<!-- METADATA TYPE="typelib" FILE="C:\program files\common files\system\ado\msado15.d
ll" //-->
<CENTER><br /><br /><br />
<div style="width:800px;text-al
ign:left;"
>
<table width="800">
<tr>
<td width="50%"><span style="font-size:17px;colo
r:#003366;
font-weigh
t:bold;">P
roducts</s
pan></td>
<td width="50%" align="right"><img name="nav" src="Images/nav.gif" width="350" height="33" border="0" usemap="#nav" alt=""><!-- #include file="Includes/nav.asp" //--></td>
</tr>
</table><br />
<hr style="color:#000000;width
:100%;size
:1px;">
<br />
<div style="cursor:pointer;curs
or:hand;" onClick="expandcontent('sc
1')">+ <b>Add an Item</b></div>
<div id="sc1" class="switchcontent">
<span>
<form action="addProduct.asp" method="get" />
<input type="hidden" name="fAcctNo" value="<%=request.querystr
ing("fAcct
No")%>" />
<table width="100%">
<tr>
<td bgcolor="#cccccc" align="right" colspan="3"> </td>
</tr>
<tr>
<td bgcolor="#ccff99" align="right"><b>Name</b>:
</td>
<td bgcolor="#e7e7e7"><input type="text" name="fProdName" value="" size="44" /></td>
<td bgcolor="#e7e7e7" style="color:#666666;">&nb
sp;</td>
</tr>
<tr>
<td bgcolor="#ccff99" align="right"><b>Item No.</b>: </td>
<td bgcolor="#f6f6f6"><input type="text" name="fProdItemNo" value="" size="44" /></td>
<td bgcolor="#f6f6f6" style="color:#666666;">&nb
sp;</td>
</tr>
<tr>
<td bgcolor="#ccff99" align="right"><b>Price</b>
: </td>
<td bgcolor="#e7e7e7">$<input type="text" name="fProdPrice" value="" size="43" /></td>
<td bgcolor="#e7e7e7" style="color:#666666;">USD
</td>
</tr>
<tr>
<td bgcolor="#ccff99" align="right"><b>Descripti
on</b>: </td>
<td bgcolor="#f6f6f6"><textare
a name="fProdDesc" cols="43" rows="13"></textarea></td>
<td bgcolor="#f6f6f6" style="color:#666666;">&nb
sp;</td>
</tr>
<tr>
<td bgcolor="#ccff99" align="right"><b>Category<
/b>: </td>
<td bgcolor="#e7e7e7"><input type="text" name="fProdCategory" value="" size="44" /></td>
<td bgcolor="#e7e7e7" style="color:#666666;"><b>
HINT:</b> Add an 's' to the end of your Category names.</td>
</tr>
<tr>
<td bgcolor="#ccff99" align="right"><b>Weight</b
>: </td>
<td bgcolor="#f6f6f6"><input type="text" name="fProdWeight" size="44" /></td>
<td bgcolor="#f6f6f6" style="color:#666666;">&nb
sp;</td>
</tr>
<tr>
<td bgcolor="#ccff99" align="right"><b>Options Available</b>: </td>
<td bgcolor="#e7e7e7"><textare
a name="fProdOptions" cols="43" rows="13"></textarea></td>
<td bgcolor="#e7e7e7" style="color:#666666;"><b>
IE:</b><br
/>Red // XL<br />Black // L<br />Black // M<br />Rose Scent // 32oz<br />Rose Scent // 16oz<br /><br /><b>Please seperate combos with a line break [enter].</b></td>
</tr>
<tr>
<td bgcolor="#ccff99" align="right"><b>Handling Charge</b>: </td>
<td bgcolor="#f6f6f6">$<input type="text" name="fProdHandling" value="" size="43" /></td>
<td bgcolor="#f6f6f6" style="color:#666666;">If this product must ship in its own box or is oversized, enter the shipping amount to charge (per item bought) here.</td>
</tr>
<tr>
<td bgcolor="#ccff99" align="right"><b>Contact Override</b>: </td>
<td bgcolor="#e7e7e7"><input type="radio" name="fContactOver" value="1" /> Contact Override</td>
<td bgcolor="#e7e7e7" style="color:#666666;">If you DO NOT want this item to be ordered online and wish for the customer to call for details check this box</td>
</tr>
<tr>
<td bgcolor="#cccccc" align="right" colspan="2"><input type="submit" value="Add Item" /></td>
<td bgcolor="#cccccc"> </
td>
</tr>
</table>
</form>
<br /><br /><br /><br /><br /><br /><br /><br /><br /><br />
</span>
</div>
<br /><br />
<table style="width:100%;">
<tr>
<td>
<table style="width:100%;">
<%
Dim acctNo, prodID, prodName, prodSizeColorAvail, prodDesc, prodItemNo, prodCat, prodShipHandling, C, bgColor, cat, lastCat, options, optionsF
acctNo = request.querystring("fAcct
No")
Dim SQL, objConn, objRs
Set objConn = Server.CreateObject("ADODB
.Connectio
n")
Set objRs = Server.CreateObject("ADODB
.Recordset
")
SQL = "SELECT * FROM [products] WHERE prodAcctNo = '" & acctNo & "' AND prodImgType <> '' ORDER BY prodCat"
objConn.Open "Provider=Microsoft.Jet.OL
EDB.4.0;" & "Data Source=Provider=Microsoft.
Jet.OLEDB.
4.0;" & "Data Source=C:\Domains\luminopo
lis.com\db
\x\icarusM
erch.mdb;"
& "Persist Security Info=False"
objRs.Open SQL, objConn, adOpenForwardOnly, adLockReadOnly
%>
<script language="JavaScript">
<!--
function confirm_entry()
{
input_box=confirm("Are you sure you want to delete this product?");
if (input_box==true)
{
// Output when OK is clicked
window.location.replace("d
eleteProdu
ct.asp?fPr
odID=<%=ob
jRs("prodI
D")%>&fAcc
tNo=<%=req
uest.query
string("fA
cctNo")%>"
)
}
else
{
// Output when Cancel is clicked
alert ("Delete Cancelled");
}
}
-->
</script>
<%
If objRs.eof then
response.write "<tr><td colspan='3'>NO RESULTS FOUND</td></tr>"
else
While Not objRs.EOF
cat = objRs("prodCat")
If C Mod 2 = 0 Then
isEven = True
Else
isEven = False
End If
If isEven = False Then
bgColor = "e7e7e7"
Else
bgColor = "f6f6f6"
End If
%>
<tr>
<TD colspan="3" align="right">
<%
If cat = lastCat then
%>
<%
else
%>
<span style="font-size:17px;font
-weight:bo
ld;color:#
ff9900;"><
%=cat%></s
pan>
<%
end if
%>
</td>
</tr>
<tr bgColor="<%=bgColor%>" onmouseover="this.bgColor=
'#ccff99'"
onmouseout="this.bgColor='
<%=bgColor
%>'">
<td align="center"><input type="hidden" name="fProdID" value="<%=objRs("prodID")%
>" /><img src="
http://www.luminopolis.com/cgi-bin/x/prodImages/<%=
objRs("pro
dID")%><%=
objRs("pro
dImgType")
%>" width="100" height="100" /><br /><br /><a href="upload/product/uploa
dF.asp?fPr
odID=<%=ob
jRs("prodI
D")%>&fAcc
tNo=<%=req
uest.query
string("fA
cctNo")%>"
><img src="Images/btn_changeImag
e.gif" border="0" /></a></td>
<td style="padding:5;">
<b><%=objRs("prodName")%><
/b><br /><BR />
<%=objRs("prodDesc")%><br /><br />
<b>$</b><%=objRs("prodPric
e")%><br />
<b>Options:</b> <% if objRs("prodSizeColorAvail"
) = "" then response.write "N/A" else response.write replace(objRs("prodSizeCol
orAvail"),
"_", " * ") end if%><br />
<b>#</b> <%=objRs("prodItemNo")%><b
r />
<b>Category:</b> <%=objRs("prodCat")%><br />
<b>Handling Charge:</b> <%=objRs("prodShipHandling
")%><br />
<b>Contact Override</b> <%if objRs("prodContactOverride
") = "1" then response.write "ON" else response.write "OFF" end if%><br /><br /><a href="editProduct.asp?fPro
dID=<%=obj
Rs("prodID
")%>&fAcct
No=<%=requ
est.querys
tring("fAc
ctNo")%>">
<img src="Images/btn_editInfo.g
if" border="0" /></a></td>
<td align="center"><a href="javascript:confirm_e
ntry()"><i
mg src="Images/btn_delete.gif
" border="0" /></a></td>
</tr>
<%
lastCat = objRs("prodCat")
C = C + 1
objRs.MoveNext
Wend
End If
objRs.Close
objConn.Close
Set objRs = Nothing
Set objConn = Nothing
%>
</table>
</td>
</tr>
</table>
<br /><br /><hr style='color:#000000;width
:100%;size
:1px;'></d
iv>
<br /><br /><br />
<center><!-- #include file="Includes/bNav.asp" //--><br /><br /></center>
</body>
</html>
Start Free Trial
