`2 ' FP_ASP ASP Automatically generated by a Frontpage Component. Do not Edit.
`3 On Error Resume Next
`4
`5 strErrorUrl = ""
`6
`7 If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
`8 If Request.Form("VTI-GROUP") = "0" Then
`9
`Err.Clear
`10
`Set fp_conn = Server.CreateObject("ADODB.Connection")
`11
`12
`FP_DumpError strErrorUrl, "Cannot create connection"
`13
`Set fp_rs = Server.CreateObject("ADODB.Recordset")
`14
`15
`FP_DumpError strErrorUrl, "Cannot create record set"
`16
`17
`fp_conn.Open Application("pict_inpt_ConnectionString")
`18
`FP_DumpError strErrorUrl, "Cannot open database"
`19
`20
`fp_rs.Open "Picts", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable
`21
`FP_DumpError strErrorUrl, "Cannot open record set"
`22
`23
`fp_rs.AddNew
`24
`FP_DumpError strErrorUrl, "Cannot add new record set to the database"
`Dim arFormFields0(5)
`25
`Dim arFormDBFields0(5)
`26
`27
`28
`arFormFields0(0) = "File_name"
`29
`arFormDBFields0(0) = "File_name"
`30
`arFormFields0(1) = "Date"
`31
`arFormDBFields0(1) = "Date"
`32
`arFormFields0(2) = "People"
`33
`arFormDBFields0(2) = "People"
`34
`arFormFields0(3) = "Location"
`35
`arFormDBFields0(3) = "Location"
`36
`arFormFields0(4) = "Description"
`37
`arFormDBFields0(4) = "Description"
`38
`39
`FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0
`40
`41
`42
`43
`44
`45
`46
`47
`48
`49
`50
`51
`52
`53
`54 End If
`55 End If
`56
`57 %>
`58 <html>
`59
`60 <head>
`61 <meta http-equiv="Content-Language" content="en-us">
`62 <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
`63 <meta name="GENERATOR" content="Microsoft FrontPage 4.0">
`64 <meta name="ProgId" content="FrontPage.Editor.Document">
`65 <title>add photo</title>
`66
`
`fp_rs.Update
`FP_DumpError strErrorUrl, "Cannot update the database"
`fp_rs.Close
`fp_conn.Close
`FP_FormConfirmation "text/html; charset=windows-1252",_
`"Form Confirmation",_
`"Thank you for submitting the following information:",_
`"pict_inpt.asp",_
`"Return to the form."
`
`Angel Tech Exhibit 2006
`Meta v. Angel Tech
`IPR2023-00059
`
`
`
`67 <!--mstheme--><link rel="stylesheet" type="text/css" href="_themes/cmalone/cmal1111.css"
`><meta name="Microsoft Theme" content="cmalone 1111, default">
`68 <meta name="Microsoft Border" content="tl, default">
`69 </head>
`70
`71 <body><!--msnavigation--><table border="0" cellpadding="0" cellspacing="0" width="100%"
`><tr><td>
`72
`73 <p align="center"><font size="6"><strong><img src=
`"_derived/pict_inpt.asp_cmp_cmalone110_bnr.gif" width="600" height="60" border="0" alt=
`"add photo"></strong></font>
`74 </p>
`75 <p align="center"> </p>
`76
`77 </td></tr><!--msnavigation--></table><!--msnavigation--><table border="0" cellpadding="0"
`cellspacing="0" width="100%"><tr><td valign="top" width="1%">
`78
`79 <p><a href="http://" target="_top"><script language="JavaScript"><!--
`80 MSFPhover =
`81 (((navigator.appName == "Netscape") &&
`82 (parseInt(navigator.appVersion) >= 3 )) ||
`83 ((navigator.appName == "Microsoft Internet Explorer") &&
`84 (parseInt(navigator.appVersion) >= 4 )));
`85 function MSFPpreload(img)
`86 {
`87 var a=new Image(); a.src=img; return a;
`88 }
`89 // --></script><script language="JavaScript"><!--
`90 if(MSFPhover) { MSFPnav1n=MSFPpreload("_derived/home_cmp_cmalone110_vbtn.gif"); MSFPnav1h
`=MSFPpreload("_derived/home_cmp_cmalone110_vbtn_a.gif"); }
`91 // --></script><a href="./" language="JavaScript" onmouseover="if(MSFPhover)
`document['MSFPnav1'].src=MSFPnav1h.src" onmouseout="if(MSFPhover)
`document['MSFPnav1'].src=MSFPnav1n.src"><img src="_derived/home_cmp_cmalone110_vbtn.gif"
`width="140" height="60" border="0" alt="Home" name="MSFPnav1"></a><br><script language=
`"JavaScript"><!--
`92 if(MSFPhover) { MSFPnav2n=MSFPpreload("chat/_derived/chat.html_cmp_cmalone110_vbtn.gif");
`MSFPnav2h=MSFPpreload("chat/_derived/chat.html_cmp_cmalone110_vbtn_a.gif"); }
`93 // --></script><a href="chat/chat.html" language="JavaScript" onmouseover="if(MSFPhover)
`document['MSFPnav2'].src=MSFPnav2h.src" onmouseout="if(MSFPhover)
`document['MSFPnav2'].src=MSFPnav2n.src"><img src=
`"chat/_derived/chat.html_cmp_cmalone110_vbtn.gif" width="140" height="60" border="0" alt=
`"chat" name="MSFPnav2"></a><br><script language="JavaScript"><!--
`94 if(MSFPhover) { MSFPnav3n=MSFPpreload("_derived/messages_frm.htm_cmp_cmalone110_vbtn.gif"
`); MSFPnav3h=MSFPpreload("_derived/messages_frm.htm_cmp_cmalone110_vbtn_a.gif"); }
`95 // --></script><a href="messages_frm.htm" language="JavaScript" onmouseover=
`"if(MSFPhover) document['MSFPnav3'].src=MSFPnav3h.src" onmouseout="if(MSFPhover)
`document['MSFPnav3'].src=MSFPnav3n.src" target="_top"><img src=
`"_derived/messages_frm.htm_cmp_cmalone110_vbtn.gif" width="140" height="60" border="0"
`alt="messages" name="MSFPnav3"></a><br><script language="JavaScript"><!--
`96 if(MSFPhover) { MSFPnav4n=MSFPpreload("_derived/work.htm_cmp_cmalone110_vbtn.gif");
`MSFPnav4h=MSFPpreload("_derived/work.htm_cmp_cmalone110_vbtn_a.gif"); }
`97 // --></script><a href="work.htm" language="JavaScript" onmouseover="if(MSFPhover)
`document['MSFPnav4'].src=MSFPnav4h.src" onmouseout="if(MSFPhover)
`document['MSFPnav4'].src=MSFPnav4n.src"><img src=
`"_derived/work.htm_cmp_cmalone110_vbtn.gif" width="140" height="60" border="0" alt="work"
`name="MSFPnav4"></a><br><script language="JavaScript"><!--
`98 if(MSFPhover) { MSFPnav5n=MSFPpreload("flash/_derived/flash.asp_cmp_cmalone110_vbtn.gif"
`); MSFPnav5h=MSFPpreload("flash/_derived/flash.asp_cmp_cmalone110_vbtn_a.gif"); }
`99 // --></script><a href="flash/flash.asp" language="JavaScript" onmouseover=
`"if(MSFPhover) document['MSFPnav5'].src=MSFPnav5h.src" onmouseout="if(MSFPhover)
`document['MSFPnav5'].src=MSFPnav5n.src"><img src=
`"flash/_derived/flash.asp_cmp_cmalone110_vbtn.gif" width="140" height="60" border="0" alt
`="private" name="MSFPnav5"></a></a>
`100 </p>
`101
`102 </td><td valign="top" width="24"></td><!--msnavigation--><td valign="top">
`
`
`
`103
`104
`105 <form method="POST" action="pict_inpt.asp" webbot-action="--WEBBOT-SELF--">
`106
`<!--webbot bot="SaveDatabase" startspan SuggestedExt="asp"
`107 U-ASP-Include-Url="_fpclass/fpdbform.inc" S-DataConnection="pict_inpt"
`108 S-RecordSource="Picts" U-Database-URL="fpdb/picture.mdb"
`109 S-Form-Fields="File_name Date People Location Description"
`110 S-Form-DBFields="File_name Date People Location Description" --><input TYPE="hidden"
`NAME="VTI-GROUP" VALUE="0"><!--#include file="_fpclass/fpdbform.inc"--><!--webbot
`111 bot="SaveDatabase" endspan i-checksum="40548" -->
`<table border="0" width="676">
`112
`113
`<tr>
`<td width="110" valign="top">File name</td>
`114
`<td width="550" valign="top"><input type="file" name="File_name" size="20"
`115
`></td>
`116
`</tr>
`<tr>
`117
`<td width="110" valign="top">Location</td>
`118
`<td width="550" valign="top"><input type="text" name="Location" size="20"
`119
`></td>
`120
`</tr>
`<tr>
`121
`<td width="110" valign="top">Date</td>
`122
`<td width="550" valign="top"><input type="text" name="Date" size="20" value=
`123
`"In "mm/dd/yy" format"></td>
`124
`</tr>
`<tr>
`125
`<td width="110" valign="top">People</td>
`126
`<td width="550" valign="top"><input type="text" name="People" size="20"></td>
`127
`128
`</tr>
`129
`<tr>
`<td width="110" valign="top">Caption</td>
`130
`<td width="550" valign="top"><input type="text" name="Caption" size="20"
`131
`></td>
`132
`</tr>
`<tr>
`133
`<td width="110" valign="top">Commentary</td>
`134
`<td width="550" valign="top"><textarea rows="3" name="Commentary" cols="66">
`135
`Describe the picture</textarea></td>
`136
`</tr>
`</table>
`137
`<p><input type="submit" value="Submit" name="B1"><input type="reset" value=
`138
`"Reset" name="B2"></p>
`139
`</form>
`<p> </p>
`140
`141
`142 <!--msnavigation--></td></tr><!--msnavigation--></table></body>
`143
`144 </html>
`145
`
`