Source Code

<%@ LANGUAGE="VBScript" %>
<%
FirstName = Replace(Request("FirstName"), "'", "''")
LastName = Replace(Request("LastName"), "'", "''")
Set Connection = Server.CreateObject("ADODB.Connection")

Connection.Open "DSN=Volcano"

SQLStmt = "DELETE DISTINCTROW FirstName "
SQLStmt = SQLStmt & "FROM Employees "
SQLStmt = SQLStmt & "WHERE (FirstName='" & FirstName & "') "
SQLStmt = SQLStmt & "AND (LastName='" & LastName & "') "
Set RS = Connection.Execute(SQLStmt)
%>

 

 

Back Back