<%@ LANGUAGE="VBScript" %> <% If Not IsEmpty(Request("Lastname")) Then lastname = Replace(Request("Lastname"), "'", "''") Elseif Not IsEmpty(Request("L")) Then lastname = Replace(Request("L"), "'", "''") Else lastname="XXXXX" End If If Not IsEmpty(Request("Firstname")) Then firstname = Replace(Request("Firstname"), "'", "''") Elseif Not IsEmpty(Request("F")) Then firstname = Replace(Request("F"), "'", "''") Else firstname="XXXXX" End If Set Connection = Server.CreateObject("ADODB.Connection") Connection.Mode = adModeRead Connection.Open phdb_rd SQLStmt = "select * " SQLStmt = SQLStmt & "from secretary.phobos_contacts " If firstname<>"XXXXX" Then SQLStmt = SQLStmt & "where lastname='" & lastname & "' and " & " firstname='" & firstname & "' " Else SQLStmt = SQLStmt & "where lastname='" & lastname & "' " End If 'response.write(SQLStmt) Set RS = Connection.Execute(SQLStmt) Response.Expires = 3 If Not RS.EoF Then person_name= RS("Firstname") & " " & RS("Middlename") & " " & RS("Lastname") & " " & RS("Suffix") If RS("BusinessCountry") = "United States of America" Then address_line =RS("BusinessCity") & ", " & RS("BusinessState") & " " & RS("BusinessPostalCode") Else address_line = RS("BusinessPostalCode") & " " & RS("BusinessCity") End If If RS("BusinessPhone2") <> " " Then b_phone=RS("BusinessPhone") & " or " & RS("BusinessPhone2") Else b_phone=RS("BusinessPhone") End If ' ' check if photo exists ' photo= webdisk & "\pub\www\PublicDatabase\" & CStr(Lcase(lastname)) & ".jpg" Set fso = CreateObject("Scripting.FileSystemObject") ' response.write(msg) %> Phobos User [../../template_head.htm]
[../../template.htm]  

<%= person_name %>

<% 'temporary fix for Krakow's vbscript problems If webdisk="F:" Then If (fso.FileExists(photo)) Then response.write("") response.write("") response.write("") response.write("") response.write("
") response.write ("") response.write("
") End If End If %>

HH01580A.gif (1311 bytes)  
<%= RS("Department") %>
<%= RS("Company") %>
<%= RS("BusinessStreet") %>
<%= RS("BusinessStreet2") %>
<% =address_line %>
<%= RS("BusinessCountry") %>
BS00864A.gif (2535 bytes)  
Voice: <% = b_phone %>
Fax: <%= RS("BusinessFax") %>
E-mail "><%= RS("Emailaddress") %> <% If RS("Email2address") <> "" Then %> or "><%= RS("Email2Address") %><% End If %>
<% If RS("WebPage") <> "" Then %>

Web:<% End If %>

"><%= RS("Webpage") %>
<% If RS("PAGER") <> "" Then %>

Pager:<% End If %>

<%= RS("PAGER") %>
More Info

Send comments and corrections to Webmaster


<% Connection.Close %> <% Else Response.Write("Person Unknown...") End If %>