Hi,
Please could you help with the question below?
I am trying to pass the variable 'strRecordDtls' to the client. I am trying to get a message box to popup on the client asking the user to confirm deletion of the record.
Is this possible? If so how do you do this ?
Many Thanks
*******************************************************
<%
Dim adoCon
Dim rs
Dim strSQL
Dim lngRecordNo
lngRecordNo = CLng(Request.QueryString("ID"))
Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../db.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT TBLCONTACTS.* FROM TBLCONTACTS WHERE ID=" & lngRecordNo
rs.LockType = 3
rs.Open strSQL, adoCon
strRecordDtls = (rs("CONTACT"))
' response.write "MsgBox " & (strRecordDtls)
rs.Delete
rs.Close
Set rs = Nothing
Set adoCon = Nothing
Response.Redirect "delete.htm"
%>
Please could you help with the question below?
I am trying to pass the variable 'strRecordDtls' to the client. I am trying to get a message box to popup on the client asking the user to confirm deletion of the record.
Is this possible? If so how do you do this ?
Many Thanks
*******************************************************
<%
Dim adoCon
Dim rs
Dim strSQL
Dim lngRecordNo
lngRecordNo = CLng(Request.QueryString("ID"))
Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../db.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT TBLCONTACTS.* FROM TBLCONTACTS WHERE ID=" & lngRecordNo
rs.LockType = 3
rs.Open strSQL, adoCon
strRecordDtls = (rs("CONTACT"))
' response.write "MsgBox " & (strRecordDtls)
rs.Delete
rs.Close
Set rs = Nothing
Set adoCon = Nothing
Response.Redirect "delete.htm"
%>