<%@ Language=VBScript %> <%Response.Buffer=True%> <% Updated = Request.QueryString("Updated") %> <% PageTitle = "SiteManager - Details of Application" %> <%PageID=602%> <% Header %> <% Menu PageID %> <%' Main body of page goes here ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ %> <%ApplicationDetails%> <%' End Of Main body ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ %> <% Footer %> <% Sub ApplicationDetails ApplicationID=Request.QueryString("AID")%>

<%= FormatDateTime(Date,1) %>

<% 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")%> <%If trim(rs("txtTitle"))<>"" then%> <%End If%> <%If trim(rs("txtCompany"))<>"" then%> <%End If%> <%If trim(rs("txtAddress"))<>"" Or trim(rs("txtCity"))<>"" Or trim(rs("txtProvince"))<>"" then%> <%End If%> <%If trim(rs("txtSAddress"))<>"" Or trim(rs("txtSCity"))<>"" Or trim(rs("txtSProvince"))<>"" then%> <%End If%> <%If trim(rs("txtPhone"))<>"" then%> <%End If%> <%If trim(rs("txtFax"))<>"" then%> <%End If%> <%If trim(rs("txtURL"))<>"" then%> <%End If If Trim(rs("txtBusiness"))<>"" then%> <%End If If Trim(rs("nEmployees"))<>"" then%> <%End If If Trim(rs("txtComments"))<>"" then%> <%End If rs("txtViewed")="YES" rs.Update rs.Close%> This application was submitted on <%=formatdatetime(rs("datApply"),1)%>. Name: <%=rs("txtFname")&" "&rs("txtLname")%> Email: " title="Click here to send an email to <%=rs("txtFname")& " " & rs("txtLname")%>" style="{text-decoration:none; color:rgb(0,0,0)}"><%=rs("txtEmail")%> Title: <%=rs("txtTitle")%> Company: <%=rs("txtCompany")%> Address: <%If trim(rs("txtAddress"))<>"" then Response.Write rs("txtAddress") & " " End If%> <%If trim(rs("txtCity"))<>"" then Response.Write rs("txtCity") & ", " & rs("txtProvince") & " " End If%> <%If rs("nCountry")=1 then txtCountry="Canada" Else txtCountry="United States" End If Response.Write txtCountry & " " & rs("txtPostal") & " "%> Ship To: <%If trim(rs("txtSAddress"))<>"" then Response.Write rs("txtSAddress") & " " End If%> <%If trim(rs("txtSCity"))<>"" then Response.Write rs("txtSCity") & ", " & rs("txtSProvince") & " " End If%> <%If rs("nSCountry")=1 then txtSCountry="Canada" Else txtSCountry="United States" End If Response.Write txtSCountry & " " & rs("txtSPostal") & " "%> Phone: <%=rs("txtPhone")%> Fax: <%=rs("txtFax")%> URL: " style="{text-decoration:none}"><%=rs("txtURL")%> Business: <%=rs("txtBusiness")%> Employees: <%=rs("nEmployees")%> Comments: <%=DisPrepText(rs("txtComments"))%>

<%End Sub %>