<%@ Language=VBScript %>
<%Response.Buffer=True%>
<%PageID=602%>
<%
Header
Menu PageID
ApplicationApprove
Footer
%>
<%
Sub ApplicationApprove
ApplicationID = Request.QueryString("AID")
OpenConnection1
Set rs=Server.CreateObject("ADODB.Recordset")
Sel="SELECT * FROM Applications WHERE ApplicationID=" & ApplicationID
rs.Open Sel,DB,1,3
If rs.EOF then Response.Redirect("Application_List.asp")
txtName=rs("txtFname") & " " & rs("txtLname")
If Trim(rs("txtCompany"))<>"" then txtCompany="(" & rs("txtCompany")& ") "
rs.Close%>
<%= FormatDateTime(Date,1) %>
| |
Approve the application from
<%=txtName & " " &txtCompany%>? |
| |
| YES |
NO |
<%End Sub%>