|
 |
asp_web_howto thread: form validation? or ?
Message #1 by "Evan Kozel" <raisorsharp@h...> on Sun, 20 May 2001 17:17:13
|
|
Hi there everyone,
Currently I've got a form that posts information to my ACCESS 2000
database and puts in a new event, everything works great I'm very happy
how everything is working out at the moment, just one little thing I
haven't quite figured out yet.
Part of the form I Have a begindate and an enddate, now I want to have the
form posted that when the enddate is left blank it will take the begindate
data and post that as the enddate data. This for reasons when showing
events in the events calendar that I have made. Currently ofcourse a user
will have to put in the data twice him/herself......but to prevent a
little accident to happen I WOULD like the form to do a check? - to see
whether or not the enddate field is left blank and if so it will grab the
information from the begindate before posting it to the database.
Thank you very much for all your help,
Evan Kozel
Below is the page that submits / inserts the event.....
---------------------------------------------
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../Connections/calasp.asp" -->
<%
' *** Edit Operations: declare variables
MM_editAction = CStr(Request("URL"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & 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")) <> "") Then
MM_editConnection = MM_calasp_STRING
MM_editTable = "tblevents"
MM_editRedirectUrl = "index.asp"
MM_fieldsStr
= "title|value|category|value|begindate|value|enddate|value|eventtime|value
|town|value|location|value|phone|value|description|value|yourname|value|you
remail|value"
MM_columnsStr
= "title|',none,''|category|none,none,NULL|begindate|#,none,NULL|enddate|#,
none,NULL|eventtime|',none,''|town|',none,''|location|',none,''|phone|',non
e,''|description|',none,''|yourname|',none,''|youremail|',none,''"
' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, "|")
MM_columns = Split(MM_columnsStr, "|")
' set the form values
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(i+1) = CStr(Request.Form(MM_fields(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
If (CStr(Request("MM_insert")) <> "") Then
' create the sql insert statement
MM_tableValues = ""
MM_dbValues = ""
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
FormVal = MM_fields(i+1)
MM_typeArray = Split(MM_columns(i+1),",")
Delim = MM_typeArray(0)
If (Delim = "none") Then Delim = ""
AltVal = MM_typeArray(1)
If (AltVal = "none") Then AltVal = ""
EmptyVal = MM_typeArray(2)
If (EmptyVal = "none") Then EmptyVal = ""
If (FormVal = "") Then
FormVal = EmptyVal
Else
If (AltVal <> "") Then
FormVal = AltVal
ElseIf (Delim = "'") Then ' escape quotes
FormVal = "'" & Replace(FormVal,"'","''") & "'"
Else
FormVal = Delim + FormVal + Delim
End If
End If
If (i <> LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End if
MM_tableValues = MM_tableValues & MM_columns(i)
MM_dbValues = MM_dbValues & 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
%>
<%
set rscategory = Server.CreateObject("ADODB.Recordset")
rscategory.ActiveConnection = MM_calasp_STRING
rscategory.Source = "SELECT * FROM tblcategory ORDER BY categoryname ASC"
rscategory.CursorType = 0
rscategory.CursorLocation = 2
rscategory.LockType = 3
rscategory.Open()
rscategory_numRows = 0
%>
<html>
<head>
<title>insert event</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<p><b><font size="4" face="Arial, Helvetica, sans-serif">INSERT
EVENT</font></b></p>
<form method="post" action="<%=MM_editAction%>" name="form1">
<table>
<tr valign="baseline">
<td nowrap align="right"><font size="2" face="Verdana, Arial,
Helvetica, sans-serif">Title:</font></td>
<td>
<input type="text" name="title" value="" size="32">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right"><font size="2" face="Verdana, Arial,
Helvetica, sans-serif">Category:</font></td>
<td>
<input type="text" name="category" value="" size="32">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right"><font size="2" face="Verdana, Arial,
Helvetica, sans-serif">Begindate:</font></td>
<td>
<input type="text" name="begindate" value="" size="32">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right"><font size="2" face="Verdana, Arial,
Helvetica, sans-serif">Enddate:</font></td>
<td>
<input type="text" name="enddate" value="" size="32">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right"><font size="2" face="Verdana, Arial,
Helvetica, sans-serif">Eventtime:</font></td>
<td>
<input type="text" name="eventtime" value="" size="32">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right"><font size="2" face="Verdana, Arial,
Helvetica, sans-serif">Town:</font></td>
<td>
<input type="text" name="town" value="" size="32">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right"><font size="2" face="Verdana, Arial,
Helvetica, sans-serif">Location:</font></td>
<td>
<input type="text" name="location" value="" size="32">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right"><font size="2" face="Verdana, Arial,
Helvetica, sans-serif">Phone:</font></td>
<td>
<input type="text" name="phone" value="" size="32">
</td>
</tr>
<tr>
<td nowrap align="right" valign="top"><font size="2" face="Verdana,
Arial, Helvetica, sans-serif">Description:</font></td>
<td valign="baseline">
<textarea name="description" cols="50" rows="5"></textarea>
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right"><font size="2" face="Verdana, Arial,
Helvetica, sans-serif">Yourname:</font></td>
<td>
<input type="text" name="yourname" value="" size="32">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right"><font size="2" face="Verdana, Arial,
Helvetica, sans-serif">Youremail:</font></td>
<td>
<input type="text" name="youremail" value="" size="32">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right"><font size="2" face="Verdana, Arial,
Helvetica, sans-serif"></font></td>
<td>
<input type="submit" value="Insert Record">
</td>
</tr>
</table>
<input type="hidden" name="MM_insert" value="true">
</form>
<p> </p>
</body>
</html>
<%
rscategory.Close()
%>
---------------------------------------------
Message #2 by "Ken Schaefer" <ken@a...> on Tue, 22 May 2001 14:19:09 +1000
|
|
I don't know why you are posting all that code...
If Request.Form("EndDate") & "" = "" then
dteEndDate = Request.Form("BeginDate")
Else
dteEndDate = Request.Form("EndDate")
End If
Cheers
Ken
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
----- Original Message -----
From: "Evan Kozel" <raisorsharp@h...>
To: "ASP Web HowTo" <asp_web_howto@p...>
Sent: Sunday, May 20, 2001 5:17 PM
Subject: [asp_web_howto] form validation? or ?
: Hi there everyone,
:
: Currently I've got a form that posts information to my ACCESS 2000
: database and puts in a new event, everything works great I'm very happy
: how everything is working out at the moment, just one little thing I
: haven't quite figured out yet.
:
: Part of the form I Have a begindate and an enddate, now I want to have the
: form posted that when the enddate is left blank it will take the begindate
: data and post that as the enddate data. This for reasons when showing
: events in the events calendar that I have made. Currently ofcourse a user
: will have to put in the data twice him/herself......but to prevent a
: little accident to happen I WOULD like the form to do a check? - to see
: whether or not the enddate field is left blank and if so it will grab the
: information from the begindate before posting it to the database.
:
: Thank you very much for all your help,
:
: Evan Kozel
:
: Below is the page that submits / inserts the event.....
:
: ---------------------------------------------
: <%@LANGUAGE="VBSCRIPT"%>
: <!--#include file="../Connections/calasp.asp" -->
: <%
: ' *** Edit Operations: declare variables
:
: MM_editAction = CStr(Request("URL"))
: If (Request.QueryString <> "") Then
: MM_editAction = MM_editAction & "?" & 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")) <> "") Then
:
: MM_editConnection = MM_calasp_STRING
: MM_editTable = "tblevents"
: MM_editRedirectUrl = "index.asp"
: MM_fieldsStr
:
"title|value|category|value|begindate|value|enddate|value|eventtime|value
:
|town|value|location|value|phone|value|description|value|yourname|value|you
: remail|value"
: MM_columnsStr
:
"title|',none,''|category|none,none,NULL|begindate|#,none,NULL|enddate|#,
:
none,NULL|eventtime|',none,''|town|',none,''|location|',none,''|phone|',non
: e,''|description|',none,''|yourname|',none,''|youremail|',none,''"
:
: ' create the MM_fields and MM_columns arrays
: MM_fields = Split(MM_fieldsStr, "|")
: MM_columns = Split(MM_columnsStr, "|")
:
: ' set the form values
: For i = LBound(MM_fields) To UBound(MM_fields) Step 2
: MM_fields(i+1) = CStr(Request.Form(MM_fields(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
:
: If (CStr(Request("MM_insert")) <> "") Then
:
: ' create the sql insert statement
: MM_tableValues = ""
: MM_dbValues = ""
: For i = LBound(MM_fields) To UBound(MM_fields) Step 2
: FormVal = MM_fields(i+1)
: MM_typeArray = Split(MM_columns(i+1),",")
: Delim = MM_typeArray(0)
: If (Delim = "none") Then Delim = ""
: AltVal = MM_typeArray(1)
: If (AltVal = "none") Then AltVal = ""
: EmptyVal = MM_typeArray(2)
: If (EmptyVal = "none") Then EmptyVal = ""
: If (FormVal = "") Then
: FormVal = EmptyVal
: Else
: If (AltVal <> "") Then
: FormVal = AltVal
: ElseIf (Delim = "'") Then ' escape quotes
: FormVal = "'" & Replace(FormVal,"'","''") & "'"
: Else
: FormVal = Delim + FormVal + Delim
: End If
: End If
: If (i <> LBound(MM_fields)) Then
: MM_tableValues = MM_tableValues & ","
: MM_dbValues = MM_dbValues & ","
: End if
: MM_tableValues = MM_tableValues & MM_columns(i)
: MM_dbValues = MM_dbValues & 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
: %>
: <%
: set rscategory = Server.CreateObject("ADODB.Recordset")
: rscategory.ActiveConnection = MM_calasp_STRING
: rscategory.Source = "SELECT * FROM tblcategory ORDER BY categoryname ASC"
: rscategory.CursorType = 0
: rscategory.CursorLocation = 2
: rscategory.LockType = 3
: rscategory.Open()
: rscategory_numRows = 0
: %>
: <html>
: <head>
: <title>insert event</title>
: <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
: </head>
: <body bgcolor="#FFFFFF" text="#000000">
: <p><b><font size="4" face="Arial, Helvetica, sans-serif">INSERT
: EVENT</font></b></p>
: <form method="post" action="<%=MM_editAction%>" name="form1">
: <table>
: <tr valign="baseline">
: <td nowrap align="right"><font size="2" face="Verdana, Arial,
: Helvetica, sans-serif">Title:</font></td>
: <td>
: <input type="text" name="title" value="" size="32">
: </td>
: </tr>
: <tr valign="baseline">
: <td nowrap align="right"><font size="2" face="Verdana, Arial,
: Helvetica, sans-serif">Category:</font></td>
: <td>
: <input type="text" name="category" value="" size="32">
: </td>
: </tr>
: <tr valign="baseline">
: <td nowrap align="right"><font size="2" face="Verdana, Arial,
: Helvetica, sans-serif">Begindate:</font></td>
: <td>
: <input type="text" name="begindate" value="" size="32">
: </td>
: </tr>
: <tr valign="baseline">
: <td nowrap align="right"><font size="2" face="Verdana, Arial,
: Helvetica, sans-serif">Enddate:</font></td>
: <td>
: <input type="text" name="enddate" value="" size="32">
: </td>
: </tr>
: <tr valign="baseline">
: <td nowrap align="right"><font size="2" face="Verdana, Arial,
: Helvetica, sans-serif">Eventtime:</font></td>
: <td>
: <input type="text" name="eventtime" value="" size="32">
: </td>
: </tr>
: <tr valign="baseline">
: <td nowrap align="right"><font size="2" face="Verdana, Arial,
: Helvetica, sans-serif">Town:</font></td>
: <td>
: <input type="text" name="town" value="" size="32">
: </td>
: </tr>
: <tr valign="baseline">
: <td nowrap align="right"><font size="2" face="Verdana, Arial,
: Helvetica, sans-serif">Location:</font></td>
: <td>
: <input type="text" name="location" value="" size="32">
: </td>
: </tr>
: <tr valign="baseline">
: <td nowrap align="right"><font size="2" face="Verdana, Arial,
: Helvetica, sans-serif">Phone:</font></td>
: <td>
: <input type="text" name="phone" value="" size="32">
: </td>
: </tr>
: <tr>
: <td nowrap align="right" valign="top"><font size="2" face="Verdana,
: Arial, Helvetica, sans-serif">Description:</font></td>
: <td valign="baseline">
: <textarea name="description" cols="50" rows="5"></textarea>
: </td>
: </tr>
: <tr valign="baseline">
: <td nowrap align="right"><font size="2" face="Verdana, Arial,
: Helvetica, sans-serif">Yourname:</font></td>
: <td>
: <input type="text" name="yourname" value="" size="32">
: </td>
: </tr>
: <tr valign="baseline">
: <td nowrap align="right"><font size="2" face="Verdana, Arial,
: Helvetica, sans-serif">Youremail:</font></td>
: <td>
: <input type="text" name="youremail" value="" size="32">
: </td>
: </tr>
: <tr valign="baseline">
: <td nowrap align="right"><font size="2" face="Verdana, Arial,
: Helvetica, sans-serif"></font></td>
: <td>
: <input type="submit" value="Insert Record">
: </td>
: </tr>
: </table>
: <input type="hidden" name="MM_insert" value="true">
: </form>
: <p> </p>
: </body>
: </html>
: <%
: rscategory.Close()
: %>
Message #3 by "nobody knows! nobody knows!" <raisorsharp@h...> on Tue, 22 May 2001 15:12:27 -0000
|
|
Because I don't know where and how to implement the little piece of coding
:o(.....I'm new to all of this, and working hard to try to learn and
understand how it works and write it all myself.....
Just need some little help....and I have tried, but have been unsuccessfull
implementing it.
Sorry :o(
Evan
>From: "Ken Schaefer" <ken@a...>
>Reply-To: "ASP Web HowTo" <asp_web_howto@p...>
>To: "ASP Web HowTo" <asp_web_howto@p...>
>Subject: [asp_web_howto] Re: form validation? or ?
>Date: Tue, 22 May 2001 14:19:09 +1000
>
>I don't know why you are posting all that code...
>
>If Request.Form("EndDate") & "" = "" then
> dteEndDate = Request.Form("BeginDate")
>Else
> dteEndDate = Request.Form("EndDate")
>End If
>
>Cheers
>Ken
>
>~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
>----- Original Message -----
>From: "Evan Kozel" <raisorsharp@h...>
>To: "ASP Web HowTo" <asp_web_howto@p...>
>Sent: Sunday, May 20, 2001 5:17 PM
>Subject: [asp_web_howto] form validation? or ?
>
>
>: Hi there everyone,
>:
>: Currently I've got a form that posts information to my ACCESS 2000
>: database and puts in a new event, everything works great I'm very happy
>: how everything is working out at the moment, just one little thing I
>: haven't quite figured out yet.
>:
>: Part of the form I Have a begindate and an enddate, now I want to have
>the
>: form posted that when the enddate is left blank it will take the
>begindate
>: data and post that as the enddate data. This for reasons when showing
>: events in the events calendar that I have made. Currently ofcourse a user
>: will have to put in the data twice him/herself......but to prevent a
>: little accident to happen I WOULD like the form to do a check? - to see
>: whether or not the enddate field is left blank and if so it will grab the
>: information from the begindate before posting it to the database.
>:
>: Thank you very much for all your help,
>:
>: Evan Kozel
>:
>: Below is the page that submits / inserts the event.....
>:
>: ---------------------------------------------
>: <%@LANGUAGE="VBSCRIPT"%>
>: <!--#include file="../Connections/calasp.asp" -->
>: <%
>: ' *** Edit Operations: declare variables
>:
>: MM_editAction = CStr(Request("URL"))
>: If (Request.QueryString <> "") Then
>: MM_editAction = MM_editAction & "?" & 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")) <> "") Then
>:
>: MM_editConnection = MM_calasp_STRING
>: MM_editTable = "tblevents"
>: MM_editRedirectUrl = "index.asp"
>: MM_fieldsStr
>:
>"title|value|category|value|begindate|value|enddate|value|eventtime|value
>:
>|town|value|location|value|phone|value|description|value|yourname|value|you
>: remail|value"
>: MM_columnsStr
>:
>"title|',none,''|category|none,none,NULL|begindate|#,none,NULL|enddate|#,
>:
>none,NULL|eventtime|',none,''|town|',none,''|location|',none,''|phone|',non
>: e,''|description|',none,''|yourname|',none,''|youremail|',none,''"
>:
>: ' create the MM_fields and MM_columns arrays
>: MM_fields = Split(MM_fieldsStr, "|")
>: MM_columns = Split(MM_columnsStr, "|")
>:
>: ' set the form values
>: For i = LBound(MM_fields) To UBound(MM_fields) Step 2
>: MM_fields(i+1) = CStr(Request.Form(MM_fields(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
>:
>: If (CStr(Request("MM_insert")) <> "") Then
>:
>: ' create the sql insert statement
>: MM_tableValues = ""
>: MM_dbValues = ""
>: For i = LBound(MM_fields) To UBound(MM_fields) Step 2
>: FormVal = MM_fields(i+1)
>: MM_typeArray = Split(MM_columns(i+1),",")
>: Delim = MM_typeArray(0)
>: If (Delim = "none") Then Delim = ""
>: AltVal = MM_typeArray(1)
>: If (AltVal = "none") Then AltVal = ""
>: EmptyVal = MM_typeArray(2)
>: If (EmptyVal = "none") Then EmptyVal = ""
>: If (FormVal = "") Then
>: FormVal = EmptyVal
>: Else
>: If (AltVal <> "") Then
>: FormVal = AltVal
>: ElseIf (Delim = "'") Then ' escape quotes
>: FormVal = "'" & Replace(FormVal,"'","''") & "'"
>: Else
>: FormVal = Delim + FormVal + Delim
>: End If
>: End If
>: If (i <> LBound(MM_fields)) Then
>: MM_tableValues = MM_tableValues & ","
>: MM_dbValues = MM_dbValues & ","
>: End if
>: MM_tableValues = MM_tableValues & MM_columns(i)
>: MM_dbValues = MM_dbValues & 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
>: %>
>: <%
>: set rscategory = Server.CreateObject("ADODB.Recordset")
>: rscategory.ActiveConnection = MM_calasp_STRING
>: rscategory.Source = "SELECT * FROM tblcategory ORDER BY categoryname ASC"
>: rscategory.CursorType = 0
>: rscategory.CursorLocation = 2
>: rscategory.LockType = 3
>: rscategory.Open()
>: rscategory_numRows = 0
>: %>
>: <html>
>: <head>
>: <title>insert event</title>
>: <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
>: </head>
>: <body bgcolor="#FFFFFF" text="#000000">
>: <p><b><font size="4" face="Arial, Helvetica, sans-serif">INSERT
>: EVENT</font></b></p>
>: <form method="post" action="<%=MM_editAction%>" name="form1">
>: <table>
>: <tr valign="baseline">
>: <td nowrap align="right"><font size="2" face="Verdana, Arial,
>: Helvetica, sans-serif">Title:</font></td>
>: <td>
>: <input type="text" name="title" value="" size="32">
>: </td>
>: </tr>
>: <tr valign="baseline">
>: <td nowrap align="right"><font size="2" face="Verdana, Arial,
>: Helvetica, sans-serif">Category:</font></td>
>: <td>
>: <input type="text" name="category" value="" size="32">
>: </td>
>: </tr>
>: <tr valign="baseline">
>: <td nowrap align="right"><font size="2" face="Verdana, Arial,
>: Helvetica, sans-serif">Begindate:</font></td>
>: <td>
>: <input type="text" name="begindate" value="" size="32">
>: </td>
>: </tr>
>: <tr valign="baseline">
>: <td nowrap align="right"><font size="2" face="Verdana, Arial,
>: Helvetica, sans-serif">Enddate:</font></td>
>: <td>
>: <input type="text" name="enddate" value="" size="32">
>: </td>
>: </tr>
>: <tr valign="baseline">
>: <td nowrap align="right"><font size="2" face="Verdana, Arial,
>: Helvetica, sans-serif">Eventtime:</font></td>
>: <td>
>: <input type="text" name="eventtime" value="" size="32">
>: </td>
>: </tr>
>: <tr valign="baseline">
>: <td nowrap align="right"><font size="2" face="Verdana, Arial,
>: Helvetica, sans-serif">Town:</font></td>
>: <td>
>: <input type="text" name="town" value="" size="32">
>: </td>
>: </tr>
>: <tr valign="baseline">
>: <td nowrap align="right"><font size="2" face="Verdana, Arial,
>: Helvetica, sans-serif">Location:</font></td>
>: <td>
>: <input type="text" name="location" value="" size="32">
>: </td>
>: </tr>
>: <tr valign="baseline">
>: <td nowrap align="right"><font size="2" face="Verdana, Arial,
>: Helvetica, sans-serif">Phone:</font></td>
>: <td>
>: <input type="text" name="phone" value="" size="32">
>: </td>
>: </tr>
>: <tr>
>: <td nowrap align="right" valign="top"><font size="2" face="Verdana,
>: Arial, Helvetica, sans-serif">Description:</font></td>
>: <td valign="baseline">
>: <textarea name="description" cols="50" rows="5"></textarea>
>: </td>
>: </tr>
>: <tr valign="baseline">
>: <td nowrap align="right"><font size="2" face="Verdana, Arial,
>: Helvetica, sans-serif">Yourname:</font></td>
>: <td>
>: <input type="text" name="yourname" value="" size="32">
>: </td>
>: </tr>
>: <tr valign="baseline">
>: <td nowrap align="right"><font size="2" face="Verdana, Arial,
>: Helvetica, sans-serif">Youremail:</font></td>
>: <td>
>: <input type="text" name="youremail" value="" size="32">
>: </td>
>: </tr>
>: <tr valign="baseline">
>: <td nowrap align="right"><font size="2" face="Verdana, Arial,
>: Helvetica, sans-serif"></font></td>
>: <td>
>: <input type="submit" value="Insert Record">
>: </td>
>: </tr>
>: </table>
>: <input type="hidden" name="MM_insert" value="true">
>: </form>
>: <p> </p>
>: </body>
>: </html>
>: <%
>: rscategory.Close()
>: %>
>
>
|
|
|
View Cart
