The following code for pictures.asp
1
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
2
<HTML>
3
<% strExpander = Request.QueryString("Who")%>
4
<%
5
Set db = Server.CreateObject("ADODB.Connection")
6
dbPath = "DBQ=" & Server.MapPath("pictures.mdb")
7
db.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & dbPath
8
sqlCommand = "SELECT * FROM Data WHERE (((Data.UID)='" & strExpander & "'))"
9
Set dbRs = db.Execute(sqlCommand)
10
if NOT dbrs.EOF then
11
do While Not dbRs.EOF
12
%>
13
14
<HEAD>
15
<TITLE><%= dbRs.Fields("Fname")%> <%= dbRs.Fields("LName")%></TITLE>
16
</HEAD>
17
18
<BODY>
19
FName:<%= dbRs.Fields("Fname")%><br>
20
LName:<%= dbRs.Fields("Lname")%><br>
21
<% set Picname = dbRs.Fields("Picture")%>
22
<%
23
PicName="nopic.jpg"
24
End If
25
%>
26
Picture:<%= dbRs.Fields("Picture") %><br>
27
Picname:<%= picname %><br>
28
<table cellspacing="1" cellpadding="3" border=0 align=center>
29
<tr valign=middle>
30
<td><font size="+1"><%= dbRs.Fields("Fname")%><br><%= dbRs.Fields("Lname")%></font><br></td>
31
<% set Picname = dbRs.Fields("Picture")%>
32
<%
33
PicName="nopic.jpg"
34
End If
35
%>
36
<td><img src="<%=PicName%>" alt="<%=PicName%>" border=0></td>
37
</tr>
38
</table>
39
<%
40
dbRs.MoveNext
41
Loop
42
%>
43
<br>
44
<%
45
else
46
response.write "<b>Invalid User ID!</b>
47
end if
48
dbrs.close
49
set dbrs = nothing
50
db.Close
51
Set db = Nothing
52
%>
53
</BODY>
54
</HTML>