I am using Frontpage to maintain an online Inventory database for my company. I can add and view entries, but I can't make changes. Here is what I did.
Initial page lists all records, and uses the "autonumber" as a link to pull up an individual record.
When clicking on an autonumber, the individual record shows up in a new form, which is populated with the existing data. I am then supposed to be able to change or remove data, and hit submit.
Hitting submit "posts" the data to a forms results wizard which has a custom SQL script for updating. It then takes you back to the list of records.
Well, hitting submit brings up a Frontpage error: "Database Results Wizard Error"
Keep in mind, that I am just trying to get it all working first, before I make it truly functional. Posted below is the code used in the results wizard.
--------
--------
--------
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<% ' FP_ASP -- ASP Automatically generated by a FrontPage Component. Do not Edit.
FP_CharSet = "windows-1252"
FP_CodePage = 1252 %>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Execute Tech Update</title>
<style>
<!--
body { font-family: Arial; font-size: 10pt; color: #000000 }
-->
</style>
</head>
<body>
<table width="100%" border="0"><tr>
<td width="50%" align="center"><a href="TechAddNewRecord.asp">Tech Add Record</a></td>
<td width="50%" align="center"><a href="TechViewAllRecords.asp">Tech View Records</a></td>
</tr></table>
<!--webbot bot="DatabaseRegionStart" s-columnnames s-columntypes s-dataconnection="TestInventory" b-tableformat="FALSE" b-menuformat="FALSE" s-menuchoice s-menuvalue b-tableborder="TRUE" b-tableexpand="TRUE" b-tableheader="TRUE" b-listlabels="TRUE" b-listseparator="FALSE" i-listformat="0" b-makeform="FALSE" s-recordsource s-displaycolumns s-criteria s-order s-sql="UPDATE Tech SET Bldg='::Bldg::', Room='::Room::', User='::User::', UserGroup='::UserGroup::', PCMake=':CMake::', PCModel=':CModel::', PCSerial=':CSerial::', MonitorMake='::MonitorMake::', MonitorModel='::MonitorModel::', MonitorType='::MonitorType::', MonitorSize='::MonitorSize::', MonitorSerial='::MonitorSerial::', OS='::OS::', CPU='::CPU::', Speed='::Speed::', FSB='::FSB::', RAM='::RAM::', Dimms=':imms::', HDD='::HDD::', Optical='::Optical::', NIC='::NIC::', Networked='::Networked::', DatePurchased=':atePurchased::', WarrantyYears='::WarrantyYears::', WarrantyEnd='::WarrantyEnd::', RepairNotes='::RepairNotes::' WHERE ID=::ID::" b-procedure="FALSE" clientside suggestedext="asp" s-defaultfields="Bldg=&amp;Room=&amp;User=&amp;UserGroup=
&amp;PCMake=&amp;PCModel=&amp;PCSerial=&amp;MonitorMake=
&amp;MonitorModel=&amp;MonitorType=&amp;MonitorSize=
&amp;MonitorSerial=&amp;OS=&amp;CPU=&amp;Speed=
&amp;FSB=&amp;RAM=&amp;Dimms=&amp;HDD=&amp;Optical=
&amp;NIC=&amp;Networked=&amp;DatePurchased=
&amp;WarrantyYears=&amp;WarrantyEnd=&amp;RepairNotes=
&amp;ID=" s-norecordsfound="No records returned." i-maxrecords="0" i-groupsize="0" botid="0" u-dblib="../_fpclass/fpdblib.inc" u-dbrgn1="../_fpclass/fpdbrgn1.inc" u-dbrgn2="../_fpclass/fpdbrgn2.inc" tag="BODY" preview="<table border=0 width="100%"><tr><td bgcolor="#FFFF00"><font color="#000000">This is the start of a Database Results region. The page must be fetched from a web server with a web browser to display correctly; the current web is stored on your local disk or network.</font></td></tr></table>" b-UseDotNET="FALSE" CurrentExt sa-InputTypes b-DataGridFormat="FALSE" b-DGridAlternate="TRUE" sa-CritTypes b-WasTableFormat="FALSE" startspan --><!--#include file="../_fpclass/fpdblib.inc"-->
<% if 0 then %>
<SCRIPT Language="JavaScript">
document.write("<div style='background: yellow; color: black;'>The Database Results component on this page is unable to display database content. The page must have a filename ending in '.asp', and the web must be hosted on a server that supports Active Server Pages.</div>");
</SCRIPT>
<% end if %>
<%
fp_sQry="UPDATE Tech SET Bldg='::Bldg::', Room='::Room::', User='::User::', UserGroup='::UserGroup::', PCMake=':CMake::', PCModel=':CModel::', PCSerial=':CSerial::', MonitorMake='::MonitorMake::', MonitorModel='::MonitorModel::', MonitorType='::MonitorType::', MonitorSize='::MonitorSize::', MonitorSerial='::MonitorSerial::', OS='::OS::', CPU='::CPU::', Speed='::Speed::', FSB='::FSB::', RAM='::RAM::', Dimms=':imms::', HDD='::HDD::', Optical='::Optical::', NIC='::NIC::', Networked='::Networked::', DatePurchased=':atePurchased::', WarrantyYears='::WarrantyYears::', WarrantyEnd='::WarrantyEnd::', RepairNotes='::RepairNotes::' WHERE ID=::ID::"
fp_sDefault="Bldg=&Room=&User=&UserGroup=&PCMake=&PCModel=&PCSerial=
&MonitorMake=&MonitorModel=&MonitorType=&MonitorSize=&MonitorSerial=&OS=
&CPU=&Speed=&FSB=&RAM=&Dimms=&HDD=&Optical=&NIC=&Networked=&DatePurchased=
&WarrantyYears=&WarrantyEnd=&RepairNotes=&ID="
fp_sNoRecords="No records returned."
fp_sDataConn="TestInventory"
fp_iMaxRecords=0
fp_iCommandType=1
fp_iPageSize=0
fp_fTableFormat=False
fp_fMenuFormat=False
fp_sMenuChoice=""
fp_sMenuValue=""
fp_sColTypes="&"
fp_iDisplayCols=16
fp_fCustomQuery=True
BOTID=0
fp_iRegion=BOTID
%>
<!--#include file="../_fpclass/fpdbrgn1.inc"-->
<!--webbot bot="DatabaseRegionStart" endspan i-checksum="32503" --><!--webbot bot="DatabaseRegionEnd" b-tableformat="FALSE" b-menuformat="FALSE" u-dbrgn2="../_fpclass/fpdbrgn2.inc" i-groupsize="0" clientside tag="BODY" preview="<table border=0 width="100%"><tr><td bgcolor="#FFFF00"><font color="#000000">This is the end of a Database Results region.</font></td></tr></table>" startspan --><!--#include file="../_fpclass/fpdbrgn2.inc"-->
<!--webbot bot="DatabaseRegionEnd" endspan i-checksum="56926" --></body></html>
Initial page lists all records, and uses the "autonumber" as a link to pull up an individual record.
When clicking on an autonumber, the individual record shows up in a new form, which is populated with the existing data. I am then supposed to be able to change or remove data, and hit submit.
Hitting submit "posts" the data to a forms results wizard which has a custom SQL script for updating. It then takes you back to the list of records.
Well, hitting submit brings up a Frontpage error: "Database Results Wizard Error"
Keep in mind, that I am just trying to get it all working first, before I make it truly functional. Posted below is the code used in the results wizard.
--------
--------
--------
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<% ' FP_ASP -- ASP Automatically generated by a FrontPage Component. Do not Edit.
FP_CharSet = "windows-1252"
FP_CodePage = 1252 %>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Execute Tech Update</title>
<style>
<!--
body { font-family: Arial; font-size: 10pt; color: #000000 }
-->
</style>
</head>
<body>
<table width="100%" border="0"><tr>
<td width="50%" align="center"><a href="TechAddNewRecord.asp">Tech Add Record</a></td>
<td width="50%" align="center"><a href="TechViewAllRecords.asp">Tech View Records</a></td>
</tr></table>
<!--webbot bot="DatabaseRegionStart" s-columnnames s-columntypes s-dataconnection="TestInventory" b-tableformat="FALSE" b-menuformat="FALSE" s-menuchoice s-menuvalue b-tableborder="TRUE" b-tableexpand="TRUE" b-tableheader="TRUE" b-listlabels="TRUE" b-listseparator="FALSE" i-listformat="0" b-makeform="FALSE" s-recordsource s-displaycolumns s-criteria s-order s-sql="UPDATE Tech SET Bldg='::Bldg::', Room='::Room::', User='::User::', UserGroup='::UserGroup::', PCMake=':CMake::', PCModel=':CModel::', PCSerial=':CSerial::', MonitorMake='::MonitorMake::', MonitorModel='::MonitorModel::', MonitorType='::MonitorType::', MonitorSize='::MonitorSize::', MonitorSerial='::MonitorSerial::', OS='::OS::', CPU='::CPU::', Speed='::Speed::', FSB='::FSB::', RAM='::RAM::', Dimms=':imms::', HDD='::HDD::', Optical='::Optical::', NIC='::NIC::', Networked='::Networked::', DatePurchased=':atePurchased::', WarrantyYears='::WarrantyYears::', WarrantyEnd='::WarrantyEnd::', RepairNotes='::RepairNotes::' WHERE ID=::ID::" b-procedure="FALSE" clientside suggestedext="asp" s-defaultfields="Bldg=&amp;Room=&amp;User=&amp;UserGroup=
&amp;PCMake=&amp;PCModel=&amp;PCSerial=&amp;MonitorMake=
&amp;MonitorModel=&amp;MonitorType=&amp;MonitorSize=
&amp;MonitorSerial=&amp;OS=&amp;CPU=&amp;Speed=
&amp;FSB=&amp;RAM=&amp;Dimms=&amp;HDD=&amp;Optical=
&amp;NIC=&amp;Networked=&amp;DatePurchased=
&amp;WarrantyYears=&amp;WarrantyEnd=&amp;RepairNotes=
&amp;ID=" s-norecordsfound="No records returned." i-maxrecords="0" i-groupsize="0" botid="0" u-dblib="../_fpclass/fpdblib.inc" u-dbrgn1="../_fpclass/fpdbrgn1.inc" u-dbrgn2="../_fpclass/fpdbrgn2.inc" tag="BODY" preview="<table border=0 width="100%"><tr><td bgcolor="#FFFF00"><font color="#000000">This is the start of a Database Results region. The page must be fetched from a web server with a web browser to display correctly; the current web is stored on your local disk or network.</font></td></tr></table>" b-UseDotNET="FALSE" CurrentExt sa-InputTypes b-DataGridFormat="FALSE" b-DGridAlternate="TRUE" sa-CritTypes b-WasTableFormat="FALSE" startspan --><!--#include file="../_fpclass/fpdblib.inc"-->
<% if 0 then %>
<SCRIPT Language="JavaScript">
document.write("<div style='background: yellow; color: black;'>The Database Results component on this page is unable to display database content. The page must have a filename ending in '.asp', and the web must be hosted on a server that supports Active Server Pages.</div>");
</SCRIPT>
<% end if %>
<%
fp_sQry="UPDATE Tech SET Bldg='::Bldg::', Room='::Room::', User='::User::', UserGroup='::UserGroup::', PCMake=':CMake::', PCModel=':CModel::', PCSerial=':CSerial::', MonitorMake='::MonitorMake::', MonitorModel='::MonitorModel::', MonitorType='::MonitorType::', MonitorSize='::MonitorSize::', MonitorSerial='::MonitorSerial::', OS='::OS::', CPU='::CPU::', Speed='::Speed::', FSB='::FSB::', RAM='::RAM::', Dimms=':imms::', HDD='::HDD::', Optical='::Optical::', NIC='::NIC::', Networked='::Networked::', DatePurchased=':atePurchased::', WarrantyYears='::WarrantyYears::', WarrantyEnd='::WarrantyEnd::', RepairNotes='::RepairNotes::' WHERE ID=::ID::"
fp_sDefault="Bldg=&Room=&User=&UserGroup=&PCMake=&PCModel=&PCSerial=
&MonitorMake=&MonitorModel=&MonitorType=&MonitorSize=&MonitorSerial=&OS=
&CPU=&Speed=&FSB=&RAM=&Dimms=&HDD=&Optical=&NIC=&Networked=&DatePurchased=
&WarrantyYears=&WarrantyEnd=&RepairNotes=&ID="
fp_sNoRecords="No records returned."
fp_sDataConn="TestInventory"
fp_iMaxRecords=0
fp_iCommandType=1
fp_iPageSize=0
fp_fTableFormat=False
fp_fMenuFormat=False
fp_sMenuChoice=""
fp_sMenuValue=""
fp_sColTypes="&"
fp_iDisplayCols=16
fp_fCustomQuery=True
BOTID=0
fp_iRegion=BOTID
%>
<!--#include file="../_fpclass/fpdbrgn1.inc"-->
<!--webbot bot="DatabaseRegionStart" endspan i-checksum="32503" --><!--webbot bot="DatabaseRegionEnd" b-tableformat="FALSE" b-menuformat="FALSE" u-dbrgn2="../_fpclass/fpdbrgn2.inc" i-groupsize="0" clientside tag="BODY" preview="<table border=0 width="100%"><tr><td bgcolor="#FFFF00"><font color="#000000">This is the end of a Database Results region.</font></td></tr></table>" startspan --><!--#include file="../_fpclass/fpdbrgn2.inc"-->
<!--webbot bot="DatabaseRegionEnd" endspan i-checksum="56926" --></body></html>