<%@ Language=VBScript %> <%Response.Buffer=True%> <% Updated = Request.QueryString("Updated") %> <% PageTitle = "SiteManager - Details of Inquiry" %> <%PageID=1300%> <% Header %> <% Menu PageID %> <%' Main body of page goes here ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ %> <%CustomerDetails%> <%' End Of Main body ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ %> <% Footer %> <% Sub CustomerDetails RequestID=Request.QueryString("RID")%>

<%= FormatDateTime(Date,1) %>

<% OpenConnection1 Set rs=Server.CreateObject("ADODB.Recordset") Sel="SELECT * FROM Requests WHERE RequestID=" & RequestID rs.Open Sel,DB,1,3 If rs.EOF then Response.Redirect("SMInquiries.asp")%> <%If trim(rs("txtTitle"))<>"" then%> <%End If%> <%If trim(rs("txtOrganization"))<>"" then%> <%End If%> <%If trim(rs("txtStreetAddress"))<>"" Or trim(rs("txtCity"))<>"" Or trim(rs("txtProvince"))<>"" 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 txtBusiness=rs("txtBusiness") Else txtBusiness="Not Specified" End If%> <%If Trim(rs("nEmployees"))<>"" then empno=Trim(rs("nEmployees")) Else empno="Not Specified" End If%> <% If Trim(rs("txtProduct"))<>"" then%> <%End If%> <%If Trim(rs("txtInquiry"))<>"" then%> <%End If archive=rs("booArchive") rs.Close%> Name: <%=rs("txtName")%> Email: " title="Click here to send an email to <%=rs("txtName")%>" style="{text-decoration:none; color:rgb(0,0,0)}"><%=rs("txtEmail")%> Title: <%=rs("txtTitle")%> Organization: <%=rs("txtOrganization")%> Address: <%If trim(rs("txtStreetAddress"))<>"" then Response.Write rs("txtStreetAddress") & " " End If%> <%If trim(rs("txtCity"))<>"" then Response.Write rs("txtCity") & ", " & rs("txtProvince") & " " End If%> <%If trim(rs("txtCountry"))<>"" then Response.Write rs("txtCountry") & " " & rs("txtPostal") & " " End If%> Phone: <%=rs("txtPhone")%> Fax: <%=rs("txtFax")%> URL: <%=rs("txtURL")%> Business: <%=txtBusiness%> Employees: <%=empno%> Product: <%=rs("txtProduct")%> Inquiry: <%=DisPrepText(rs("txtInquiry"))%>

<%If archive="YES" then%> <%Else%> <%End If%>

<%If archive="YES" then%> <%Else%> <%End If%>

<%End Sub %>