Data input in forms

Hi,
In our data form,we are having a member of percntage type. Percentages values are displayed correctly but input has to be done in values between 0 and 1. Is there a way to input the % values between 0 and 100?
As an example,if we want to input 50%,we need to input 0.5 instead of 50.But our requirement is to input 50 in place of 0.5.
Thanks in advance,

Just get them to type the value in with the percentage sign, so for example type in 55%
Cheers
John
http://john-goodwin.blogspot.com/

Similar Messages

Use data input form in workflow

Greetings,
I need to input some fixed asset information from FI-AA master data in a data input form and route through a workflow process before finally update the asset master data. Does anyone does something similar before? Is it technically possible? Is there any guide available here.
Thanks
Steve

Hi,
you can put several table controls / alv grids on one dynpro.
find example in :
SE38 - environment - reuse library
Andreas

Supporting Detail in Data Input Form

Hello,
I would like to ask except HSP_Object, hsp_column_detail and hsp_column_detail_item these 3 tables store data of Supporting detail, is there any other table store it? Because I would like to know which data input form contain supporting detail. I can't find it in these 3 tables.
Thanks

Hi,
Yes it is the tables :-
hsp_column_detail
hsp_column_detail_item item
hsp_object
that contain the information, have a look at the following post it should contain all the information you require :- Re: Recover Supporting Detail notes in Planning
Cheers
John
http://john-goodwin.blogspot.com/

GP doubt in Data Input form

Hi Experts,
I have a doubt in GP Input Data Form callable object.
When i insert a callable object of type "Data Input Form" and test it.
It should display Input box and a button only. But i'm getting "Edit/View Attributes Values" and below i'm getting the input box, button. (u can view in following link https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/d027c966-b6de-2910-0681-cdb0be7e1b59 )
My question is, How to avoid "Edit/View Attributes Values"?
I was following the tutotial
SAP Composite Application Framework - CAF Tutorial Center [original link is broken]
Tutotial name: 33 Creating a Callable Object in Group - Data Forms (GP)
Valuable answers will b rewarded.
Thanks in Advance,
Suba

Hi,
You are creating Data Input Form callable Object. The template for Data Input Form is provided by SAP. So you can not change the template. It is fixed.
Which Service Pack are you using? The screen short within the link (https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/docs/library/uuid/1f589ed1-0c01-0010-9988-e3a67384acd9) are taken from SP7 or before that. But from SP8 onwards you will not get that type of Data Inout Form template. So I think you are using SP8 or nowards. Now staing on your current SP level If you want to hide the "Edit/View Attributes Values" then you need to create your own (custom) Form either using Web Dynpro Application or VC application.
Please set your requirement which technique and which SP you will use.
Thanks
Chandan

How to read data in binary form from file?

Hi,
i try to write an implementation of LZW. I need to read data in binary form from a file. How can i do that? I cannot find something like "binary input stream" ...
Thanks

Hi,
i try to write an implementation of LZW. I need to
read data in binary form from a file. How can i do
that? I cannot find something like "binary input
stream" ...
ThanksInputStream reads bytes. I don't understand your question.

How to get date from html form through php to show table from oracle sql

I have a form method post.Also an input date like input date (html 5,the one that picks the date from a window below)
I want to take the date the user inputs and use it in a php which contains a contains a select statement that is like that $stid = DBExecute($conn, "select customer_name,product_name,order_date,quantity and ends like this.. and order_date>='".$_POST['date']."'");
Then i have echo "<table....
And while ($row = oci_fetch_array($stid, OCI_ASSOC)) {......
But I have a problem on that. No results shown. Why?
Does anybody know to help me?
What value the date input gives in HTML5 and in which format? How can i fix that?

There's not enough info posted to help. Do some googling. Do some debugging - add some 'var_dump' calls in PHP to check everything
e.g. var_dump($_POST);
And never, ever, ever do concatenation like you do with $_POST to build up a query string. This is a major "SQL Injection" security risk.
instead, use an OCI8 bind variable. See PHP: OCI8 - Manual

Help with entering a date in a form

Not sure what's going on here, but its probably something simple, and me missing something obvious...
Basically I have a form to add a record to a database table.
I have two date fields in the table, of the type, Date.
This is my code for adding the record :
// Add columns
$ins_clients->setTable("clients");
$ins_clients->addColumn("name", "STRING_TYPE", "POST", "name");
$ins_clients->addColumn("company", "STRING_TYPE", "POST", "company");
$ins_clients->addColumn("website", "STRING_TYPE", "POST", "website");
$ins_clients->addColumn("tel", "STRING_TYPE", "POST", "tel");
$ins_clients->addColumn("mobile", "STRING_TYPE", "POST", "mobile");
$ins_clients->addColumn("email", "STRING_TYPE", "POST", "email");
$ins_clients->addColumn("enquirydate", "DATE_TYPE", "POST", "enquirydate");
$ins_clients->addColumn("business", "STRING_TYPE", "POST", "business");
$ins_clients->addColumn("future", "STRING_TYPE", "POST", "future");
$ins_clients->addColumn("potential", "STRING_TYPE", "POST", "potential");
$ins_clients->addColumn("callback", "DATE_TYPE", "POST", "callback");
$ins_clients->addColumn("notes", "STRING_TYPE", "POST", "notes");
$ins_clients->setPrimaryKey("ID", "NUMERIC_TYPE");
And these are the form fields for the dates :
<input type="text" name="enquirydate" id="enquirydate" value="<?php echo KT_formatDate($row_rsclients['enquirydate']); ?>" size="32" />
<input type="text" name="callback" id="callback" value="<?php echo KT_formatDate($row_rsclients['callback']); ?>" size="32" />
All of which seems about right.
But even when I enter dates in the format 2010-09-23, all that's being written back to the database is 0000-00-00.
Any ideas where I'm going wrong?
Thanks.

I've never seen the method you're using to modify a table before, so I can only add some speculation.
I'm not familiar with the commands that you're using but it looks like you're trying to create a new table instead of adding a record to a table and that would explain why the database isn't returning the values you're intending - I could be wrong though .
Are you using a MySQL database? If so, try using a different method to add information to the database and see if that leads to some successful results.
Use this method to create a table.
Use this method to insert information into a table.
Good luck!

How to set todays date in message date input field in uix

Hello everybody,
Im using jdeveloper 9015+adf+uix
I am having an input form and in that i want to set the date input field with the current date(default value).
Does anybody of you know how I should do this.
Any help is appreciated,
Thanks in advance

Hi,
Did you figure out on how to default system date in a date input field??
I have a similar requirement in OA framework. Please let me know if you have any ideas.
Thanks,
vinay.

How to print the data on the form (smartform)...

Hi,
i got a requirement that i have to create a selection screen and from that i process the data according to the inputs in the selection screen, and after i collect the entire data in an internal table, now i want that data to be displayed in the form ,
what is the process for this, can anybody explain me in detail.
Regards,
Ram

Hi!
To create new smartform
How to create a New smartfrom, it is having step by step procedure
http://sap.niraj.tripod.com/id67.html
Here is the procedure
1. Create a new smartforms
Transaction code SMARTFORMS
Create new smartforms call ZSMART
2. Define looping process for internal table
Pages and windows
First Page -> Header Window (Cursor at First Page then click Edit -> Node -> Create)
Here, you can specify your title and page numbering
&SFSY-PAGE& (Page 1) of &SFSY-FORMPAGES(Z4.0)& (Total Page)
Main windows -> TABLE -> DATA
In the Loop section, tick Internal table and fill in
ITAB1 (table in ABAP SMARTFORM calling function) INTO ITAB2
3. Define table in smartforms
Global settings :
Form interface
Variable name Type assignment Reference type
ITAB1 TYPE Table Structure
Global definitions
Variable name Type assignment Reference type
ITAB2 TYPE Table Structure
4. To display the data in the form
Make used of the Table Painter and declare the Line Type in Tabstrips Table
e.g. HD_GEN for printing header details,
IT_GEN for printing data details.
You have to specify the Line Type in your Text elements in the Tabstrips Output options.
Tick the New Line and specify the Line Type for outputting the data.
Declare your output fields in Text elements
Tabstrips - Output Options
For different fonts use this Style : IDWTCERTSTYLE
For Quantity or Amout you can used this variable &GS_ITAB-AMOUNT(12.2)&
5. Calling SMARTFORMS from your ABAP program
REPORT ZSMARTFORM.
Calling SMARTFORMS from your ABAP program.
Collecting all the table data in your program, and pass once to SMARTFORMS
SMARTFORMS
Declare your table type in :-
Global Settings -> Form Interface
Global Definintions -> Global Data
Main Window -> Table -> DATA
Written by : SAP Hints and Tips on Configuration and ABAP/4 Programming
http://sapr3.tripod.com
TABLES: MKPF.
DATA: FM_NAME TYPE RS38L_FNAM.
DATA: BEGIN OF INT_MKPF OCCURS 0.
INCLUDE STRUCTURE MKPF.
DATA: END OF INT_MKPF.
SELECT-OPTIONS S_MBLNR FOR MKPF-MBLNR MEMORY ID 001.
SELECT * FROM MKPF WHERE MBLNR IN S_MBLNR.
MOVE-CORRESPONDING MKPF TO INT_MKPF.
APPEND INT_MKPF.
ENDSELECT.
At the end of your program.
Passing data to SMARTFORMS
call function 'SSF_FUNCTION_MODULE_NAME'
exporting
formname = 'ZSMARTFORM'
VARIANT = ' '
DIRECT_CALL = ' '
IMPORTING
FM_NAME = FM_NAME
EXCEPTIONS
NO_FORM = 1
NO_FUNCTION_MODULE = 2
OTHERS = 3.
if sy-subrc <> 0.
WRITE: / 'ERROR 1'.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
call function FM_NAME
EXPORTING
ARCHIVE_INDEX =
ARCHIVE_INDEX_TAB =
ARCHIVE_PARAMETERS =
CONTROL_PARAMETERS =
MAIL_APPL_OBJ =
MAIL_RECIPIENT =
MAIL_SENDER =
OUTPUT_OPTIONS =
USER_SETTINGS = 'X'
IMPORTING
DOCUMENT_OUTPUT_INFO =
JOB_OUTPUT_INFO =
JOB_OUTPUT_OPTIONS =
TABLES
GS_MKPF = INT_MKPF
EXCEPTIONS
FORMATTING_ERROR = 1
INTERNAL_ERROR = 2
SEND_ERROR = 3
USER_CANCELED = 4
OTHERS = 5.
if sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
for Smartforms material
http://www.sap-basis-abap.com/sapsf001.htm
http://www.sap-press.com/downloads/h955_preview.pdf
http://www.ossincorp.com/Black_Box/Black_Box_2.htm
http://www.sap-img.com/smartforms/sap-smart-forms.htm
http://www.sap-img.com/smartforms/smartform-tutorial.htm
http://www.sapgenie.com/abap/smartforms.htm
How to trace smartform
http://help.sap.com/saphelp_47x200/helpdata/en/49/c3d8a4a05b11d5b6ef006094192fe3/frameset.htm
http://www.help.sap.com/bp_presmartformsv1500/DOCU/OVIEW_EN.PDF
http://www.sap-img.com/smartforms/smart-006.htm
http://www.sap-img.com/smartforms/smartforms-faq-part-two.htm
check most imp link
http://www.sapbrain.com/ARTICLES/TECHNICAL/SMARTFORMS/smartforms.html
step by step good ex link is....
http://smoschid.tripod.com/How_to_do_things_in_SAP/How_To_Build_SMARTFORMS/How_To_Build_SMARTFORMS.html
Or an another one:
just check it step by step with lots of screen shots.
http://smoschid.tripod.com/How_to_do_things_in_SAP/How_To_Build_SMARTFORMS/How_To_Build_SMARTFORMS.html
Reward all helpfull answers
Regards
Tamá

ADF 11g Date input

I am using date input component in ADF 11g.
This component let u select only date. but I want the user be able to select date and time as well.
which date component should I drop on page ?
thx
p

All you have to do to see it in action is give your ADF BC EO date field the type of Timestemp instead of Date, and possibly add a nice format mask under the UI hints like: yyyy-MM-dd HH:mm:ss
But, I do not have Entity Object in my application. ADF page was generated as part of "right click BPEL Human Task ---- Auto generate ADF Task Form".
How do I have time as well in this case ?
thx
p

Combine year + period as one dimension for data input

Existing Hyperion Planning has 2 dimension to keep the year and period. Our users would like to have the data entry web form title to show the year+period e.g. Jan 2009 instead of two rows. Is it very difficult to build such a label or a dimension for data input?
Thanks in advance.

Jake_Turrell wrote:
You could do this with custom JavaScript, although I have to say the work would outweigh the benefits.
Why is it important that they see the year and month with a specific layout on a web input form? Are they printing the form, or using it as a "report"? If so, I would direct them to Financial Reporting, where it is much easier to format labels, etc. Forms shouldn't be used as reports as a general rule.
- JakeI am referring to the web form. Because there are 12 months in a year and they need to input more than 10 years budget, the label on the web form is not easy to view from our end user point of view. They say that sometimes they will input data in the wrong year. So they prefer to the column label as Jan2009, Feb2009, etc instead.
Thanks for your help.

Offline scenario - post data from saved form to SQLServer

This is the scenario am struggling to develop. User downloads the interactive form. Goes offline. I mean no connection to the Web Application Server. But he will have access to a SQLServer database (it may be on his machine or in his intranet). He will fill the form and save it on his local hard disk. Now, I want his saved form data to be posted to the SQLServer. I thought about a couple of ways to do this.
1) Is it possible to change the control type of 'Submit' button to submit and then in the URL field, call some ASP page (this page is deployed on a local IIS) and then submit the form fields to that ASP page which takes care of database connection, posting etc. So user downloads form only once. But fills it with different data each time and clicks submit. First of all, will submit button work when the form is not opened in web browser? I mean when it is saved on a local hard disk opened in a standalone Adobe Reader?
2) Is it possible to write some java program using any APIs and extract the data from the form saved on local hard disk? It may be possible because I have the .xdp file for the form. But I dont know if there are some APIs available to do the same.
Any inputs whether these ideas are feasible? Any other new ideas are also welcome. Thanks in advance.

Hi Narayana,
if you want to export xml data from Reader to local disk you can use a command:
xfa.host.exportData("",0);
It works like from menu Export data from Forms.
To your second post:
Yes, you can save form in Adobe Live cycle designer as pdf and you can open it in Adobe Reader and test it. It will work.
In tab Submit for your button set these properties:
Submit Format: XML Data (XML)
Submit to URL: url of your page
Encoding: UTF8
Here is a sample code in c# for asp.net. Insert method save to your asp.net page and call it from method Page_Load.
          using System;
          using System.IO;
          using System.Web;
          private void save()
               const int coniBufferLen=1024;
               string lsTmpFile;
               try
                    lsTmpFile="c:\adobe\body.pdf.xml.txt"; // File on local disk where to save xml data sent by Reader. IIS needs rights to write here.
                    FileStream loFS=null;
                    try {loFS=File.Create(lsTmpFile);}
                    catch (Exception e1)
                         // TODO
                         return;
                    int liCelkem=Request.ContentLength;
                    int liNacteno=0;
                    byte[] laResponse=null;
                    int liLen=Math.Min(coniBufferLen,liCelkem-liNacteno);
                    while (liLen>0)
                         try
                              laResponse=Request.BinaryRead(liLen);
                              loFS.Write(laResponse,0,liLen);
                         catch (Exception e1)
                              try {loFS.Close();}
                              catch {}
                              try {File.Delete(lsTmpFile);}
                              catch {}
                              // TODO
                              return;
                         liNacteno+=liLen;
                         liLen=Math.Min(coniBufferLen,liCelkem-liNacteno);
                    loFS.Close();
               catch (Exception e2)
                    // TODO
                    return;
Michal

GP - CAF : How to capture data from impersonalized form.

Hi All,
I have a requirement where in I have submit the data offline using an Adobe form and this data should be fed to an RFC any no if times.
I have created a interactive callable object (Impersonalized form) using a form template. I'm able to download the form and submit any no of times.
But the problem I have here is: I do not see any way to capture the data from the form and input it to the RFC. Please let me know if any of you have any ideas.
Version: Netweaver 2004s SP15
Thank you,
Vasu Mullapudi

I got the solution.
GP Process in design mode have a tab Forms. Here, we can add the Interactive form callable object (Impersonalised form) and can map the fields to the process context.
Thats it. Whenever you submit the form, the process is run with the form data and the job is done.
Note: If the data is not sent to the process, try from the callable object in design mode -> Configuration tab.
Here while selecting the Start process Upon completion, you have a option for mapping fields.
Thank you,
Vasu

How do I properly pass values into an input parameter form and app module?

Using JDeveloper 11.1.1.4
I created an application module that calls a PL/SQL procedure that uses input parameters. I exposed this to the data control and dropped the object on a jsff as a input parameter form. I need to set some of the input parameters on this form from values gathered and stored in a pageFlowScope bean. What is the proper way so that the values will: 1. show on the form, and 2. get to the java code in the application module that calls my procedure? An example field from my form is:
        <af:inputText value="#{bindings.pPayerId.inputValue}" label="Payer ID"
                      required="#{bindings.pPayerId.hints.mandatory}"
                      columns="#{bindings.pPayerId.hints.displayWidth}"
                      maximumLength="#{bindings.pPayerId.hints.precision}"
                      shortDesc="#{bindings.pPayerId.hints.tooltip}" id="it8">
          <f:validator binding="#{bindings.pPayerId.validator}"/>
          <af:convertNumber groupingUsed="false" pattern="#{bindings.pPayerId.format}"/>
        </af:inputText>Thanks,
Troy

Thanks Shay for pointing me in that direction.
I didn't find the NDValue in the bindings, so I went to the pagedef xml and found it there. Changing the NDValue successfully delivered the value to the app module when the method was executed, but didn't show the value on the form. I had to add the same #{pageFlowScope.paramsBean.fileFormatParam} to the value of the input field and it now is working as needed.

Date input & differences between MX & CS

Have got several forms that I use & they all input dates, all ASP VB. The ones that I have created in dreammweaver MX input the date in the correct, UK format for me. eg: dd-mm-yy
If I create in CS3 or CS5.5 dates appear in US format eg: mm-dd-yy
If I just enter <% Response.Write(Date()) %> the webpage will display 05/12/2013 which is correct. My conclusion from this is that LCID & computer settings are correct because date is displayed in correct UK format.
If I enter <% Response.Write(Date()) %> into a form field & insert this into a Access database it is entered as 12-05-13, 12th May in UK format. Dreamweaver is entering incorrectly & I can't see why. I have looked at many forums, discussion pages etc but can't find anything that explains why MX enters date correctly but CS doesn't.
Can anyone please offer any suggestions, many thanks in advance.

attached are 2 sample pages, one created in CS, one in MX.
MX version:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
' *** Edit Operations: declare variables
Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd
Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId
Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If
' boolean to abort record edit
MM_abortEdit = false
' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: set variables
If (CStr(Request("MM_insert")) = "form1") Then
MM_editConnection = MM_MOcopy_STRING
MM_editTable = "mxDate"
MM_editRedirectUrl = ""
MM_fieldsStr = "dateFld|value"
MM_columnsStr = "dateEntry|',none,NULL"
' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, "|")
MM_columns = Split(MM_columnsStr, "|")
' set the form values
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
Next
' append the query string to the redirect URL
If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
    If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
      MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
    Else
      MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
    End If
End If
End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it
Dim MM_tableValues
Dim MM_dbValues
If (CStr(Request("MM_insert")) <> "") Then
' create the sql insert statement
MM_tableValues = ""
MM_dbValues = ""
For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_formVal = MM_fields(MM_i+1)
    MM_typeArray = Split(MM_columns(MM_i+1),",")
    MM_delim = MM_typeArray(0)
    If (MM_delim = "none") Then MM_delim = ""
    MM_altVal = MM_typeArray(1)
    If (MM_altVal = "none") Then MM_altVal = ""
    MM_emptyVal = MM_typeArray(2)
    If (MM_emptyVal = "none") Then MM_emptyVal = ""
    If (MM_formVal = "") Then
      MM_formVal = MM_emptyVal
    Else
      If (MM_altVal <> "") Then
        MM_formVal = MM_altVal
      ElseIf (MM_delim = "'") Then ' escape quotes
        MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
      Else
        MM_formVal = MM_delim + MM_formVal + MM_delim
      End If
    End If
    If (MM_i <> LBound(MM_fields)) Then
      MM_tableValues = MM_tableValues & ","
      MM_dbValues = MM_dbValues & ","
    End If
    MM_tableValues = MM_tableValues & MM_columns(MM_i)
    MM_dbValues = MM_dbValues & MM_formVal
Next
MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"
If (Not MM_abortEdit) Then
    ' execute the insert
    Set MM_editCmd = Server.CreateObject("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_editConnection
    MM_editCmd.CommandText = MM_editQuery
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close
    If (MM_editRedirectUrl <> "") Then
      Response.Redirect(MM_editRedirectUrl)
    End If
End If
End If
%>
<%
Dim rsDate
Dim rsDate_numRows
Set rsDate = Server.CreateObject("ADODB.Recordset")
rsDate.ActiveConnection = MM_MOcopy_STRING
rsDate.Source = "SELECT * FROM mxDate ORDER BY ID DESC"
rsDate.CursorType = 0
rsDate.CursorLocation = 2
rsDate.LockType = 1
rsDate.Open()
rsDate_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 10
Repeat1__index = 0
rsDate_numRows = rsDate_numRows + Repeat1__numRows
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>MX dates</title>
</head>
<body>
<form name="form1" method="POST" action="<%=MM_editAction%>">
<p>
    <input name="dateFld" type="text" id="dateFld" value="<% Response.Write(Date()) %>">
    <input type="submit" name="Submit" value="Submit">
</p>
<table width="400" border="1" cellspacing="0" cellpadding="0">
    <tr>
      <td>ID</td>
      <td>Date</td>
    </tr>
    <%
While ((Repeat1__numRows <> 0) AND (NOT rsDate.EOF))
%>
    <tr>
      <td><%=(rsDate.Fields.Item("ID").Value)%></td>
      <td><%=(rsDate.Fields.Item("dateEntry").Value)%></td>
    </tr>
    <%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rsDate.MoveNext()
Wend
%>
    </table>
<p>basic date:
    <% Response.Write(Date()) %>
</p>
<p>long date:
      <% response.write(FormatDateTime(date(),vblongdate)) %>
</p>
<p>   </p>
<input type="hidden" name="MM_insert" value="form1">
</form>
</body>
</html>
<%
rsDate.Close()
Set rsDate = Nothing
%>
=========================================================================================
CS version:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

<%
Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If
' boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%>
<%
' IIf implementation
Function MM_IIf(condition, ifTrue, ifFalse)
If condition = "" Then
    MM_IIf = ifFalse
Else
    MM_IIf = ifTrue
End If
End Function
%>
<%
If (CStr(Request("MM_insert")) = "form1") Then
If (Not MM_abortEdit) Then
    ' execute the insert
    Dim MM_editCmd
    Set MM_editCmd = Server.CreateObject ("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_MOcopy_STRING
    MM_editCmd.CommandText = "INSERT INTO CSdate (dateEntry) VALUES (?)"
    MM_editCmd.Prepared = true
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 135, 1, -1, MM_IIF(Request.Form("dateFld"), Request.Form("dateFld"), null)) ' adDBTimeStamp
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close
    ' append the query string to the redirect URL
    Dim MM_editRedirectUrl
    MM_editRedirectUrl = "CSdate.asp"
    If (Request.QueryString <> "") Then
      If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then
        MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
      Else
        MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
      End If
    End If
    Response.Redirect(MM_editRedirectUrl)
End If
End If
%>
<%
Dim rsDate
Dim rsDate_cmd
Dim rsDate_numRows
Set rsDate_cmd = Server.CreateObject ("ADODB.Command")
rsDate_cmd.ActiveConnection = MM_MOcopy_STRING
rsDate_cmd.CommandText = "SELECT * FROM CSdate ORDER BY ID ASC"
rsDate_cmd.Prepared = true
Set rsDate = rsDate_cmd.Execute
rsDate_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 10
Repeat1__index = 0
rsDate_numRows = rsDate_numRows + Repeat1__numRows
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>CS dates</title>
</head>
<body>
<form id="form1" name="form1" method="POST" action="<%=MM_editAction%>">
<p>
    <label for="dateFld"></label>
    <input name="dateFld" type="text" id="dateFld" value="<% Response.Write(Date()) %>" />
    <input type="submit" name="submit" id="submit" value="Submit" />
</p>
<table width="400" border="1" cellspacing="0" cellpadding="0">
    <tr>
      <td>ID</td>
      <td>Date</td>
    </tr>
    <%
While ((Repeat1__numRows <> 0) AND (NOT rsDate.EOF))
%>
<tr>
    <td><%=(rsDate.Fields.Item("ID").Value)%></td>
    <td><%=(rsDate.Fields.Item("dateEntry").Value)%></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rsDate.MoveNext()
Wend
%>
</table>
<p>basic date:
    <% Response.Write(Date()) %>
</p>
<p>long date:
    <% response.write(FormatDateTime(date(),vblongdate)) %>
</p>
<p> </p>
<input type="hidden" name="MM_insert" value="form1" />
</form>
</body>
</html>
<%
rsDate.Close()
Set rsDate = Nothing
%>

Data input in forms

Similar Messages

Maybe you are looking for