ASP

Main Index

ASP Index

Update

<% Dim dcnDB 'As ADODB.Connection
Dim rsQuery 'As ADODB.Recordset
Dim datCurrent
Dim datFuture
%>

<%

Set dcnDB = server.createobject("ADODB.Connection")
dcnDB.open "edit"

vardat = Date
varTime = (time)

'---------------------------------------------------------------------------------------------

Sub DateTime
   Dim dcnDB
   Dim rsQuery

   Set dcnDB = server.createobject("ADODB.Connection")
   dcnDB.open "edit"

   Set rsQuery = Server.CreateObject("ADODB.Recordset")
   rsQuery.Open "SELECT * FROM test WHERE ID='1'", dcnDB, 2, 3

   rsQuery("date") = vardat
   rsQuery("time") = varTime
   rsQuery.Update
   rsQuery.Close
   dcnDB.Close
End Sub
'---------------------------------------------------------------------------------------------

Sub Inches
   Dim dcnDB
   Dim rsQuery

   Set dcnDB = server.createobject("ADODB.Connection")
   dcnDB.open "edit"

   Set rsQuery = Server.CreateObject("ADODB.Recordset")
   rsQuery.Open "SELECT * FROM test WHERE ID='1'", dcnDB, 2, 3

   If request.form("txtinches") = "" Then
     Exit Sub
   Else
     rsQuery("inches") = request.form("txtinches")
     rsQuery.Update
     rsQuery.Close
     dcnDB.Close
   End If
End Sub

'---------------------------------------------------------------------------------------------
Call DateTime
Call Inches

   dcnDB.Close

%>

<center><font face="verdana","arial","helvetica" size="2" color="#"><b>
The information has been updated. </b></font></center>

<meta http-equiv="refresh" content="0; URL=http://www.parkandpipe.com/brianhead/show.asp">