%@ 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
%>
|
<%= RS("Department") %>
|
<%= RS("Company") %>
|
<%= RS("BusinessStreet") %>
|
<%= RS("BusinessStreet2") %>
|
<% =address_line %>
|
<%= RS("BusinessCountry") %>
|
|
Send comments and corrections to
Webmaster
|
<%
Connection.Close %>
<%
Else
Response.Write("Person Unknown...")
End If
%>