Forums

This topic is locked

updating

Posted 18 Apr 2002 23:57:59
1
has voted
18 Apr 2002 23:57:59 seth weathers posted:
Hi,

For some reason I can't get anything to update in my database... I'm even
using the Record Update Form. Once I make a change and hit submit it is
supposed to put it in the database and then redirect to a different page...
but when I do it, it goes to the same page that it was on yet is just says
'Page Cannot be Displayed'.

Does anyone have any ideas as to what's happening? I've done this very thing
before and never had any troubles...

I have recently installed a lot of different extensions... could this be
part of the problem? I'm not using any of them in the page but I thought it
still make affect it...

Thanks!
Seth
<font face='Verdana'></font id='Verdana'><font size=2></font id=size2>

-Seth Weathers
www.weathersdesign.com

Replies

Replied 19 Apr 2002 16:01:09
19 Apr 2002 16:01:09 Viktor Farcic replied:
Better tell us what is the error message. If it's not displayed: Tools &gt; Internet Options &gt; uncheck Show Friendly Error Messages.

<BLOCKQUOTE id=quote><font size=1 face="Verdana, Arial, Helvetica" id=quote>quote:<hr height=1 noshade id=quote>
Hi,

For some reason I can't get anything to update in my database... I'm even
using the Record Update Form. Once I make a change and hit submit it is
supposed to put it in the database and then redirect to a different page...
but when I do it, it goes to the same page that it was on yet is just says
'Page Cannot be Displayed'.

Does anyone have any ideas as to what's happening? I've done this very thing
before and never had any troubles...

I have recently installed a lot of different extensions... could this be
part of the problem? I'm not using any of them in the page but I thought it
still make affect it...

Thanks!
Seth
<font face='Verdana'></font id='Verdana'><font size=2></font id=size2>

-Seth Weathers
www.weathersdesign.com
<hr height=1 noshade id=quote></BLOCKQUOTE id=quote></font id=quote><font face="Verdana, Arial, Helvetica" size=2 id=quote>

Viktor Farcic

TalkZone Manager
Replied 19 Apr 2002 16:20:55
19 Apr 2002 16:20:55 seth weathers replied:
here's the error message.

you've probably seen it before!<img src=../images/dmxzone/forum/icon_smile.gif border=0 align=middle>

thanks!
Seth


The page cannot be displayed
There is a problem with the page you are trying to reach and it cannot be displayed.

--------------------------------------------------------------------------------

Please try the following:

Open the www.yourdealershiponline.com home page, and then look for links to the information you want.
Click the Refresh button, or try again later.

Click Search to look for information on the Internet.
You can also see a list of related sites.




HTTP 500 - Internal server error
Internet Explorer


-Seth Weathers
www.weathersdesign.com
Replied 19 Apr 2002 16:54:23
19 Apr 2002 16:54:23 Andrew Watson replied:
Are you sure the redirect URL is OK?
the error isnt an ASP error.

If there is nothing changing in the database then first try removing the behaviour and re-pplying it.

If that dont work then you should debug your command string (the sql that is being executed on the database)

one way to do this easily is to put a single apostrophe (') in front of the line that executes the update and thenm write the command line to the browser so you can see it as it would be executed.

The bit in your code that looks like this...


<pre id=code><font face=courier size=2 id=code>
If (Not MM_abortEdit) Then
' execute the update
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 &lt;&gt; "" Then
Response.Redirect(MM_editRedirectUrl)
End If
End If
</font id=code></pre id=code>


Alter this to read (changes in RED)


<pre id=code><font face=courier size=2 id=code>
If (Not MM_abortEdit) Then
' execute the update
Set MM_editCmd = Server.CreateObject("ADODB.Command"
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
<font color=red>'</font id=red>MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close

If (MM_editRedirectUrl &lt;&gt; "" Then
Response.Redirect(MM_editRedirectUrl)
End If
End If

<font color=red>Response.Write MM_editQuery</font id=red>
</font id=code></pre id=code>

Now you can see (at the top of your page) the SQL string that IS the update, check the SQL syntax.......

If it still don't work then you should post your code here....

Cheers
Leed

:: Son, im Thirty.... ::

Edited by - leed on 19 Apr 2002 16:55:25
Replied 19 Apr 2002 17:11:37
19 Apr 2002 17:11:37 seth weathers replied:
Yeah I know it's not an ASP error...

I'm positive that the redirect page is correct!<img src=../images/dmxzone/forum/icon_smile.gif border=0 align=middle> Besides, even if the redirect page was not correct it would still go into the database.

I've also added and removed the behavior many times... I've even wiped the page clean and started from scratch... I've gotten out the UltraDev book from Macromedia and done it step by step.

I can get you the code that it is writing if you like.

Thanks!!!
Seth



<BLOCKQUOTE id=quote><font size=1 face="Verdana, Arial, Helvetica" id=quote>quote:<hr height=1 noshade id=quote>
Are you sure the redirect URL is OK?
the error isnt an ASP error.

If there is nothing changing in the database then first try removing the behaviour and re-pplying it.

If that dont work then you should debug your command string (the sql that is being executed on the database)

one way to do this easily is to put a single apostrophe (') in front of the line that executes the update and thenm write the command line to the browser so you can see it as it would be executed.

The bit in your code that looks like this...


<pre id=code><font face=courier size=2 id=code>
If (Not MM_abortEdit) Then
' execute the update
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 &lt;&gt; "" Then
Response.Redirect(MM_editRedirectUrl)
End If
End If
</font id=code></pre id=code>


Alter this to read (changes in RED)


<pre id=code><font face=courier size=2 id=code>
If (Not MM_abortEdit) Then
' execute the update
Set MM_editCmd = Server.CreateObject("ADODB.Command"
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
<font color=red>'</font id=red>MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close

If (MM_editRedirectUrl &lt;&gt; "" Then
Response.Redirect(MM_editRedirectUrl)
End If
End If

<font color=red>Response.Write MM_editQuery</font id=red>
</font id=code></pre id=code>

Now you can see (at the top of your page) the SQL string that IS the update, check the SQL syntax.......

If it still don't work then you should post your code here....

Cheers
Leed

:: Son, im Thirty.... ::

Edited by - leed on 19 Apr 2002 16:55:25
<hr height=1 noshade id=quote></BLOCKQUOTE id=quote></font id=quote><font face="Verdana, Arial, Helvetica" size=2 id=quote>

-Seth Weathers
www.weathersdesign.com
Replied 19 Apr 2002 17:19:14
19 Apr 2002 17:19:14 seth weathers replied:
<font color=red>I just realized something!!! I told you that I was updating but I'm really trying to ADD a record!!! I must have been thinking about something else when I wrote that... But all the same, i'm still having the problem.

Sorry for the confusion!
Seth</font id=red>

-Seth Weathers
www.weathersdesign.com
Replied 19 Apr 2002 17:24:57
19 Apr 2002 17:24:57 seth weathers replied:
okay,

I tried putting the response.write command in there... and i commented out the execute code...

once i did this i tried it on the site and it went through the the redirect page fine. it also still uploaded the photo... but obviously it didn't add anything to the database.

i can send you my page with the code if you like?

Thanks!
Seth

-Seth Weathers
www.weathersdesign.com
Replied 02 May 2002 18:20:58
02 May 2002 18:20:58 Saeed Abdi replied:
I'm having the same problems as the above person, I followed your advised but still doesn't update the database so I was wondering if you can look at my code and tell me what the problem is.

Thanks in advance

---------------------------------------------
&lt;%@LANGUAGE="VBSCRIPT"%&gt;
&lt;!--#include file="Connections/tblCircuits.asp" --&gt;
&lt;%
' *** Edit Operations: declare variables

MM_editAction = CStr(Request("URL")
If (Request.QueryString &lt;&gt; "" Then
MM_editAction = MM_editAction & "?" & Request.QueryString
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%&gt;
&lt;%
' *** Update Record: set variables

If (CStr(Request("MM_update") &lt;&gt; "" And CStr(Request("MM_recordId") &lt;&gt; "" Then

MM_editConnection = MM_tblCircuits_STRING
MM_editTable = "tblCircuits"
MM_editColumn = "ID"
MM_recordId = "" + Request.Form("MM_recordId" + ""
MM_editRedirectUrl = "Aaa.asp"
MM_fieldsStr = "CustomerName|value|CDD|value|CircuitNo|value|FibernetRef|value|ServiceType|value|POP|value|Notes|value|CDOINFO|value|Field10|value"
MM_columnsStr = "CustomerName|',none,''|CDD|',none,NULL|CircuitNo|',none,''|FibernetRef|',none,''|ServiceType|',none,''|POP|',none,''|Notes|',none,''|CDOINFO|',none,''|Field10|',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 &lt;&gt; "" And Request.QueryString &lt;&gt; "" Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString &lt;&gt; "" Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If

End If
%&gt;
&lt;%
' *** Update Record: construct a sql update statement and execute it

If (CStr(Request("MM_update") &lt;&gt; "" And CStr(Request("MM_recordId") &lt;&gt; "" Then

' create the sql update statement
MM_editQuery = "update " & MM_editTable & " set "
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 &lt;&gt; "" Then
FormVal = AltVal
ElseIf (Delim = "'" Then ' escape quotes
FormVal = "'" & Replace(FormVal,"'","''" & "'"
Else
FormVal = Delim + FormVal + Delim
End If
End If
If (i &lt;&gt; LBound(MM_fields)) Then
MM_editQuery = MM_editQuery & ","
End If
MM_editQuery = MM_editQuery & MM_columns(i) & " = " & FormVal
Next
MM_editQuery = MM_editQuery & " where " & MM_editColumn & " = " & MM_recordId

If (Not MM_abortEdit) Then
' execute the update
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 &lt;&gt; "" Then
Response.Redirect(MM_editRedirectUrl)
End If
End If
Response.Write MM_editQuery

End If
%&gt;
&lt;%
Dim modifycircuit__MMColParam
modifycircuit__MMColParam = "1"
if (Request.QueryString("ID" &lt;&gt; "" then modifycircuit__MMColParam = Request.QueryString("ID"
%&gt;
&lt;%
set modifycircuit = Server.CreateObject("ADODB.Recordset"
modifycircuit.ActiveConnection = MM_tblCircuits_STRING
modifycircuit.Source = "SELECT * FROM tblCircuits WHERE ID = " + Replace(modifycircuit__MMColParam, "'", "''" + ""
modifycircuit.CursorType = 0
modifycircuit.CursorLocation = 2
modifycircuit.LockType = 3
modifycircuit.Open()
modifycircuit_numRows = 0
%&gt;
&lt;%
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

' set the record count
modifycircuit_total = modifycircuit.RecordCount

' set the number of rows displayed on this page
If (modifycircuit_numRows &lt; 0) Then
modifycircuit_numRows = modifycircuit_total
Elseif (modifycircuit_numRows = 0) Then
modifycircuit_numRows = 1
End If

' set the first and last displayed record
modifycircuit_first = 1
modifycircuit_last = modifycircuit_first + modifycircuit_numRows - 1

' if we have the correct record count, check the other stats
If (modifycircuit_total &lt;&gt; -1) Then
If (modifycircuit_first &gt; modifycircuit_total) Then modifycircuit_first = modifycircuit_total
If (modifycircuit_last &gt; modifycircuit_total) Then modifycircuit_last = modifycircuit_total
If (modifycircuit_numRows &gt; modifycircuit_total) Then modifycircuit_numRows = modifycircuit_total
End If
%&gt;
&lt;%
' *** Move To Record and Go To Record: declare variables

Set MM_rs = modifycircuit
MM_rsCount = modifycircuit_total
MM_size = modifycircuit_numRows
MM_uniqueCol = ""
MM_paramName = ""
MM_offset = 0
MM_atTotal = false
MM_paramIsDefined = false
If (MM_paramName &lt;&gt; "" Then
MM_paramIsDefined = (Request.QueryString(MM_paramName) &lt;&gt; ""
End If
%&gt;
&lt;%
' *** Move To Record: handle 'index' or 'offset' parameter

if (Not MM_paramIsDefined And MM_rsCount &lt;&gt; 0) then

' use index parameter if defined, otherwise use offset parameter
r = Request.QueryString("index"
If r = "" Then r = Request.QueryString("offset"
If r &lt;&gt; "" Then MM_offset = Int(r)

' if we have a record count, check if we are past the end of the recordset
If (MM_rsCount &lt;&gt; -1) Then
If (MM_offset &gt;= MM_rsCount Or MM_offset = -1) Then ' past end or move last
If ((MM_rsCount Mod MM_size) &gt; 0) Then ' last page not a full repeat region
MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
Else
MM_offset = MM_rsCount - MM_size
End If
End If
End If

' move the cursor to the selected record
i = 0
While ((Not MM_rs.EOF) And (i &lt; MM_offset Or MM_offset = -1))
MM_rs.MoveNext
i = i + 1
Wend
If (MM_rs.EOF) Then MM_offset = i ' set MM_offset to the last possible record

End If
%&gt;
&lt;%
' *** Move To Record: if we dont know the record count, check the display range

If (MM_rsCount = -1) Then

' walk to the end of the display range for this page
i = MM_offset
While (Not MM_rs.EOF And (MM_size &lt; 0 Or i &lt; MM_offset + MM_size))
MM_rs.MoveNext
i = i + 1
Wend

' if we walked off the end of the recordset, set MM_rsCount and MM_size
If (MM_rs.EOF) Then
MM_rsCount = i
If (MM_size &lt; 0 Or MM_size &gt; MM_rsCount) Then MM_size = MM_rsCount
End If

' if we walked off the end, set the offset based on page size
If (MM_rs.EOF And Not MM_paramIsDefined) Then
If (MM_offset &gt; MM_rsCount - MM_size Or MM_offset = -1) Then
If ((MM_rsCount Mod MM_size) &gt; 0) Then
MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
Else
MM_offset = MM_rsCount - MM_size
End If
End If
End If

' reset the cursor to the beginning
If (MM_rs.CursorType &gt; 0) Then
MM_rs.MoveFirst
Else
MM_rs.Requery
End If

' move the cursor to the selected record
i = 0
While (Not MM_rs.EOF And i &lt; MM_offset)
MM_rs.MoveNext
i = i + 1
Wend
End If
%&gt;
&lt;%
' *** Move To Record: update recordset stats

' set the first and last displayed record
modifycircuit_first = MM_offset + 1
modifycircuit_last = MM_offset + MM_size
If (MM_rsCount &lt;&gt; -1) Then
If (modifycircuit_first &gt; MM_rsCount) Then modifycircuit_first = MM_rsCount
If (modifycircuit_last &gt; MM_rsCount) Then modifycircuit_last = MM_rsCount
End If

' set the boolean used by hide region to check if we are on the last record
MM_atTotal = (MM_rsCount &lt;&gt; -1 And MM_offset + MM_size &gt;= MM_rsCount)
%&gt;
&lt;%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName &lt;&gt; "" Then MM_removeList = MM_removeList & "&" & MM_paramName & "="
MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone=""

' add the URL parameters to the MM_keepURL string
For Each Item In Request.QueryString
NextItem = "&" & Item & "="
If (InStr(1,MM_removeList,NextItem,1) = 0) Then
MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item))
End If
Next

' add the Form variables to the MM_keepForm string
For Each Item In Request.Form
NextItem = "&" & Item & "="
If (InStr(1,MM_removeList,NextItem,1) = 0) Then
MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item))
End If
Next

' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
if (MM_keepBoth &lt;&gt; "" Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
if (MM_keepURL &lt;&gt; "" Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)
if (MM_keepForm &lt;&gt; "" Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)

' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
If (firstItem &lt;&gt; "" Then
MM_joinChar = "&"
Else
MM_joinChar = ""
End If
End Function
%&gt;
&lt;%
' *** Move To Record: set the strings for the first, last, next, and previous links

MM_keepMove = MM_keepBoth
MM_moveParam = "index"

' if the page has a repeated region, remove 'offset' from the maintained parameters
If (MM_size &gt; 0) Then
MM_moveParam = "offset"
If (MM_keepMove &lt;&gt; "" Then
params = Split(MM_keepMove, "&"
MM_keepMove = ""
For i = 0 To UBound(params)
nextItem = Left(params(i), InStr(params(i),"=" - 1)
If (StrComp(nextItem,MM_moveParam,1) &lt;&gt; 0) Then
MM_keepMove = MM_keepMove & "&" & params(i)
End If
Next
If (MM_keepMove &lt;&gt; "" Then
MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1)
End If
End If
End If

' set the strings for the move to links
If (MM_keepMove &lt;&gt; "" Then MM_keepMove = MM_keepMove & "&"
urlStr = Request.ServerVariables("URL" & "?" & MM_keepMove & MM_moveParam & "="
MM_moveFirst = urlStr & "0"
MM_moveLast = urlStr & "-1"
MM_moveNext = urlStr & Cstr(MM_offset + MM_size)
prev = MM_offset - MM_size
If (prev &lt; 0) Then prev = 0
MM_movePrev = urlStr & Cstr(prev)
%&gt;
&lt;html&gt;
&lt;head&gt;
&lt;title&gt;Modify Customer Details&lt;/title&gt;
&lt;meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"&gt;
&lt;style type="text/css"&gt;
&lt;!--
.update { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 10px; font-weight: bold; color: #FFFFFF; background-color: #0066CC}
--&gt;
&lt;/style&gt;
&lt;/head&gt;
&lt;body bgcolor="#FFFFFF" text="#000000" background="Images/texture.gif" topmargin="0" leftmargin="0" marginheight="0" marginwidth="0"&gt;
&lt;table width="100%" border="0" cellspacing="0" cellpadding="0"&gt;
&lt;tr&gt;
&lt;td bgcolor="#0069D2"&gt;
&lt;div align="center"&gt;&lt;font face="Verdana, Arial, Helvetica, sans-serif" size="2"&gt;&lt;b&gt;&lt;font color="#FFFFFF"&gt;Update
Clients Details&lt;/font&gt;&lt;/b&gt;&lt;/font&gt;&lt;/div&gt;
&lt;/td&gt;
&lt;/tr&gt;
&lt;/table&gt;
&lt;form method="POST" action="&lt;%=MM_editAction%&gt;" name="Modifydb"&gt;
&lt;table align="center" bgcolor="#CCCCCC" cellspacing="1" cellpadding="1" border="0" width="85%"&gt;
&lt;tr valign="baseline" bgcolor="#FFFFFF"&gt;
&lt;td nowrap align="right"&gt;&lt;font face="Verdana, Arial, Helvetica, sans-serif" size="2"&gt;CustomerName:&lt;/font&gt;&lt;/td&gt;
&lt;td&gt; &lt;font face="Verdana, Arial, Helvetica, sans-serif" size="2"&gt;
&lt;input type="text" name="CustomerName" value="&lt;%=(modifycircuit.Fields.Item("CustomerName".Value)%&gt;" size="32"&gt;
&lt;/font&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr valign="baseline" bgcolor="#FFFFFF"&gt;
&lt;td nowrap align="right"&gt;&lt;font face="Verdana, Arial, Helvetica, sans-serif" size="2"&gt;CDD:&lt;/font&gt;&lt;/td&gt;
&lt;td&gt; &lt;font face="Verdana, Arial, Helvetica, sans-serif" size="2"&gt;
&lt;input type="text" name="CDD" value="&lt;%=(modifycircuit.Fields.Item("CDD".Value)%&gt;" size="32"&gt;
&lt;/font&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr valign="baseline" bgcolor="#FFFFFF"&gt;
&lt;td nowrap align="right"&gt;&lt;font face="Verdana, Arial, Helvetica, sans-serif" size="2"&gt;CircuitNo:&lt;/font&gt;&lt;/td&gt;
&lt;td&gt; &lt;font face="Verdana, Arial, Helvetica, sans-serif" size="2"&gt;
&lt;input type="text" name="CircuitNo" value="&lt;%=(modifycircuit.Fields.Item("CircuitNo".Value)%&gt;" size="32"&gt;
&lt;/font&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr valign="baseline" bgcolor="#FFFFFF"&gt;
&lt;td nowrap align="right"&gt;&lt;font face="Verdana, Arial, Helvetica, sans-serif" size="2"&gt;FibernetRef:&lt;/font&gt;&lt;/td&gt;
&lt;td&gt; &lt;font face="Verdana, Arial, Helvetica, sans-serif" size="2"&gt;
&lt;input type="text" name="FibernetRef" value="&lt;%=(modifycircuit.Fields.Item("FibernetRef".Value)%&gt;" size="32"&gt;
&lt;/font&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr valign="baseline" bgcolor="#FFFFFF"&gt;
&lt;td nowrap align="right"&gt;&lt;font face="Verdana, Arial, Helvetica, sans-serif" size="2"&gt;ServiceType:&lt;/font&gt;&lt;/td&gt;
&lt;td&gt; &lt;font face="Verdana, Arial, Helvetica, sans-serif" size="2"&gt;
&lt;input type="text" name="ServiceType" value="&lt;%=(modifycircuit.Fields.Item("ServiceType".Value)%&gt;" size="32"&gt;
&lt;/font&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr valign="baseline" bgcolor="#FFFFFF"&gt;
&lt;td nowrap align="right"&gt;&lt;font face="Verdana, Arial, Helvetica, sans-serif" size="2"&gt;POP:&lt;/font&gt;&lt;/td&gt;
&lt;td&gt; &lt;font face="Verdana, Arial, Helvetica, sans-serif" size="2"&gt;
&lt;input type="text" name="POP" value="&lt;%=(modifycircuit.Fields.Item("POP".Value)%&gt;" size="32"&gt;
&lt;/font&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr valign="baseline" bgcolor="#FFFFFF"&gt;
&lt;td nowrap align="right"&gt;&lt;font face="Verdana, Arial, Helvetica, sans-serif" size="2"&gt;CircuitTailed
to Super POP:&lt;/font&gt;&lt;/td&gt;
&lt;td&gt; &lt;font face="Verdana, Arial, Helvetica, sans-serif" size="2"&gt;
&lt;input type="text" name="CircuitTailed_to_Super_POP" value="&lt;%=(modifycircuit.Fields.Item("CircuitTailed".Value)%&gt;" size="32"&gt;
&lt;/font&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr valign="baseline" bgcolor="#FFFFFF"&gt;
&lt;td nowrap align="right"&gt;&lt;font face="Verdana, Arial, Helvetica, sans-serif" size="2"&gt;Notes:&lt;/font&gt;&lt;/td&gt;
&lt;td&gt; &lt;font face="Verdana, Arial, Helvetica, sans-serif" size="2"&gt;
&lt;input type="text" name="Notes" value="&lt;%=(modifycircuit.Fields.Item("Notes".Value)%&gt;" size="32"&gt;
&lt;/font&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr valign="baseline" bgcolor="#FFFFFF"&gt;
&lt;td nowrap align="right"&gt;&lt;font face="Verdana, Arial, Helvetica, sans-serif" size="2"&gt;Axis
Shelf :&lt;/font&gt;&lt;/td&gt;
&lt;td&gt; &lt;font face="Verdana, Arial, Helvetica, sans-serif" size="2"&gt;
&lt;input type="text" name="CDOINFO" value="&lt;%=(modifycircuit.Fields.Item("CDOINFO".Value)%&gt;" size="32"&gt;
&lt;/font&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr valign="baseline" bgcolor="#FFFFFF"&gt;
&lt;td nowrap align="right"&gt;&lt;font face="Verdana, Arial, Helvetica, sans-serif" size="2"&gt;Axis
Port :&lt;/font&gt;&lt;/td&gt;
&lt;td&gt; &lt;font face="Verdana, Arial, Helvetica, sans-serif" size="2"&gt;
&lt;input type="text" name="Field10" value="&lt;%=(modifycircuit.Fields.Item("Field10".Value)%&gt;" size="32"&gt;
&lt;/font&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;tr valign="baseline" bgcolor="#FFFFFF"&gt;
&lt;td nowrap align="right"&gt;&lt;font face="Verdana, Arial, Helvetica, sans-serif" size="2"&gt;&lt;/font&gt;&lt;/td&gt;
&lt;td&gt; &lt;font face="Verdana, Arial, Helvetica, sans-serif" size="2"&gt;
&lt;input type="submit" value="Update Record" name="update" class="update"&gt;
&lt;/font&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;/table&gt;
&lt;table border="0" width="50%" align="center"&gt;
&lt;tr&gt;
&lt;td width="23%" align="center"&gt;
&lt;% If MM_offset &lt;&gt; 0 Then %&gt;
&lt;a href="&lt;%=MM_moveFirst%&gt;"&gt;First&lt;/a&gt;
&lt;% End If ' end MM_offset &lt;&gt; 0 %&gt;
&lt;/td&gt;
&lt;td width="31%" align="center"&gt;
&lt;% If MM_offset &lt;&gt; 0 Then %&gt;
&lt;a href="&lt;%=MM_movePrev%&gt;"&gt;Previous&lt;/a&gt;
&lt;% End If ' end MM_offset &lt;&gt; 0 %&gt;
&lt;/td&gt;
&lt;td width="23%" align="center"&gt;
&lt;% If Not MM_atTotal Then %&gt;
&lt;a href="&lt;%=MM_moveNext%&gt;"&gt;Next&lt;/a&gt;
&lt;% End If ' end Not MM_atTotal %&gt;
&lt;/td&gt;
&lt;td width="23%" align="center"&gt;
&lt;% If Not MM_atTotal Then %&gt;
&lt;a href="&lt;%=MM_moveLast%&gt;"&gt;Last&lt;/a&gt;
&lt;% End If ' end Not MM_atTotal %&gt;
&lt;/td&gt;
&lt;/tr&gt;
&lt;/table&gt;
&lt;br&gt;
&lt;input type="hidden" name="MM_update" value="true"&gt;
&lt;input type="hidden" name="MM_recordId" value="&lt;%= modifycircuit.Fields.Item("ID".Value %&gt;"&gt;
&lt;/form&gt;
&lt;p&gt;&nbsp;&lt;/p&gt;
&lt;/body&gt;
&lt;/html&gt;
&lt;%
modifycircuit.Close()
%&gt;
---------------------------------------------<img src=../images/dmxzone/forum/icon_smile_big.gif border=0 align=middle>
Replied 02 May 2002 19:38:10
02 May 2002 19:38:10 scre wdanger replied:
Check out your key ID, the parameter (url/ form)you are passing to the update page. This could be the only reason as far as i can guess. Otherwise on making the whole page from the begining wouldn't have given the same error.
So again check the key Parameter that you pass from the form (where you input data) to the actual update page.

Please do mention if this resolves the problem.
Replied 13 May 2002 15:20:17
13 May 2002 15:20:17 Saeed Abdi replied:
I can add to the database but I still cannot update any of the records, I'm new to this so please go easy on me <img src=../images/dmxzone/forum/icon_smile.gif border=0 align=middle> , I created two pages one using the UD wizard and the other one I started from scratch and both have the same problem

Reply to this topic