|
billyd380 -> RE: No results being displayed. (9/15/2004 10:17:30)
|
Oh Yeah, I guess that would be good. I do it all the time too. Here ya go.[:)] <% ' FP_ASP ASP Automatically generated by a FrontPage Component. Do not Edit. On Error Resume Next Session("FP_OldCodePage") = Session.CodePage Session("FP_OldLCID") = Session.LCID Session.CodePage = 1252 Err.Clear strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "0" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Cannot create connection" Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Cannot create record set" fp_conn.Open Application("LogBook1_ConnectionString") FP_DumpError strErrorUrl, "Cannot open database" fp_rs.Open """LogBook""", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Cannot open record set" fp_rs.AddNew FP_DumpError strErrorUrl, "Cannot add new record set to the database" Dim arFormFields0(4) Dim arFormDBFields0(4) Dim arFormValues0(4) arFormFields0(0) = "Names" arFormDBFields0(0) = "Name" arFormValues0(0) = Request("Names") arFormFields0(1) = "Reason" arFormDBFields0(1) = "Reason" arFormValues0(1) = Request("Reason") arFormFields0(2) = "TimeOut" arFormDBFields0(2) = "TimeOut" arFormValues0(2) = Request("TimeOut") arFormFields0(3) = "TimeIn" arFormDBFields0(3) = "TimeIn" arFormValues0(3) = Request("TimeIn") FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Browser_type1" End If If Request.ServerVariables("REMOTE_HOST") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Remote_computer_name1" End If FP_SaveFieldToDB fp_rs, Now, "Timestamp1" If Request.ServerVariables("REMOTE_USER") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "User_name1" End If 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:",_ "Default.asp",_ "Return to the form." End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <meta name="GENERATOR" content="Microsoft FrontPage 6.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <title>Log Book Entry</title> <meta name="Microsoft Theme" content="network-blitz-2 0011, default"> <meta name="Microsoft Border" content="tb"> </head> <body topmargin="0" leftmargin="0"><table border="0" width="98%" cellspacing="0" cellpadding="0"> <tr> <td valign="top" width="170"></td> <td valign="top"></td> </tr> <tr> <td valign="top" width="170"> <!--webbot bot="Navigation" S-Type="children" S-Orientation="vertical" S-Rendering="graphics" B-Include-Home="FALSE" B-Include-Up="FALSE" S-Theme="DeepBlue 0110" --> <p> </p> </td> <td valign="top"> <form method="POST" name="Logbook" action="--WEBBOT-SELF--"> <!--webbot bot="SaveDatabase" SuggestedExt="asp" S-DataConnection="LogBook" S-RecordSource="LogBook" U-Database-URL="../fpdb/logbook.mdb" S-Builtin-Fields="HTTP_USER_AGENT REMOTE_HOST Timestamp REMOTE_USER" S-Builtin-DBFields="Browser_type1 Remote_computer_name1 Timestamp1 User_name1" S-Form-Fields="Names Reason TimeOut TimeIn" S-Form-DBFields="Name Reason TimeOut TimeIn" startspan U-ASP-Include-Url="../_fpclass/fpdbform.inc" --><!--webbot bot="SaveDatabase" endspan --> <p> </p> <p><span style="vertical-align: top">Name:</span> <select size="3" name="Names" multiple> <option>Amy</option> <option>Bill</option> <option>Bev</option> <option>Diane</option> <option>Don</option> <option>Greg</option> <option>Heather</option> <option>Jim</option> <option>Josh</option> <option>Mike</option> <option>R.J.</option> </select> Time Out: <input type="text" name="TimeOut" size="20"></p> <p>Time In: <input type="text" name="TimeIn" size="20"> Reason: <input type="text" name="Reason" size="20"></p> <p><input type="submit" value="Submit" name="B1"><input type="reset" value="Reset" name="B2"></p> </form> <p> </p> <p><b><font face="Verdana" size="2">Note</font></b><font face="Verdana" size="2"> Microsoft Office 2000 and Internet Explorer 5 or greater are required to use these applications. </font><a href="http://www.microsoft.com/windows/ie/downloads/critical/ie6sp1/default.mspx"><font size="2">Download the latest Internet Explorer.</font></a></p> </td> </tr> </table></body> </html>
|
|
|
|