>
<%
EncryptedCrewId=Request("CrewId")
If (ValidIndexCode(EncryptedCrewId)) Then
CrewId=IndexDecode(EncryptedCrewId)
LoadCrewMember(CrewId)
Else
Response.Write "ERROR: invalid index."
Response.End
End If
If Request("Confirm")="Yes" Then
Set DBConn=Server.CreateObject("ADODB.Connection")
DBConn.Open DB_LOGON_STRING
SQL="DELETE FROM CrewList WHERE CrewId="&CrewId
DBConn.Execute(SQL)
%>
<%=Session("Crewmember_Name")%>
Has been deleted. <%
Session.Abandon
Else
%> Are you sure you want to delete <%=Session("Crewmember_Name")%>?