IIS Issue With Dreamweaver CS3

stevo.s wrote:
> Eureka!...Worked first time!...Tx for your perseverance, I had reached a point
> where i couldnt move on with any other part of my project as I knew it was
> pointless as unless I can update records in the various other areas where it is
> neccessary, the whole thing would have been a waste of time.
>
> Now I can update, I can move on to validating the forms and populating list
> boxes etc with any repeating data.
>
> Thanks again

Fantastic, I am glad its working :)

Dooza

--
Posting Guidelines
http://www.adobe.com/support/forums/guidelines.html
How To Ask Smart Questions
http://www.catb.org/esr/faqs/smart-questions.html

Eureka!...Worked first time!...Tx for your perseverance, I had reached a point where i couldnt move on with any other part of my project as I knew it was pointless as unless I can update records in the various other areas where it is neccessary, the whole thing would have been a waste of time.

Now I can update, I can move on to validating the forms and populating list boxes etc with any repeating data.

Thanks again

Steve

I have done as you suggested and the update record server behaviour has disappeared and the the target page does not open..." file not found. This is what happened when I tried to alter the code as you previously suggested...any other suggestions???

Tx for your help
steve

"stevo.s" <webforumsuser@macromedia.com> wrote in message
news:gbqlu5$age$1@forums.macromedia.com...
> Soz for delay..have been out of office...here is the full code:
[snip]
> ' append the query string to the redirect URL
> Dim MM_editRedirectUrl
> MM_editRedirectUrl = "/Inetpub/wwwroot/Samson Beta/Main.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
> %>

you didn't change that code I was telling you about. try this instead of the
above:

' append the query string to the redirect URL
Dim MM_editRedirectUrl
MM_editRedirectUrl = "/Inetpub/wwwroot/Samson Beta/Main.asp"
If (Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then
MM_editRedirectUrl = MM_editRedirectUrl
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If
Response.Redirect(MM_editRedirectUrl)
End If
End If
%>

Soz for delay..have been out of office...here is the full code:

<%@LANGUAGE="VBSCRIPT"%>
<!--#include virtual="/samson beta/Connections/Samson.asp" -->
<%
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_update")) = "form1") Then
If (Not MM_abortEdit) Then
' execute the update
Dim MM_editCmd

Set MM_editCmd = Server.CreateObject ("ADODB.Command")
MM_editCmd.ActiveConnection = MM_Samson_STRING
MM_editCmd.CommandText = "UPDATE CLAIMS SET Comments = ? WHERE [Claim Number] = ?"
MM_editCmd.Prepared = true
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 255, Request.Form("Comments")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 5, 1, -1, MM_IIF(Request.Form("MM_recordId"), Request.Form("MM_recordId"), null)) ' adDouble
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close

' append the query string to the redirect URL
Dim MM_editRedirectUrl
MM_editRedirectUrl = "/Inetpub/wwwroot/Samson Beta/Main.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 rsClaimUpdate__MMColParam
rsClaimUpdate__MMColParam = "1"
If (Request.QueryString("Claim Number") <> "") Then
rsClaimUpdate__MMColParam = Request.QueryString("Claim Number")
End If
%>
<%
Dim rsClaimUpdate
Dim rsClaimUpdate_cmd
Dim rsClaimUpdate_numRows

Set rsClaimUpdate_cmd = Server.CreateObject ("ADODB.Command")
rsClaimUpdate_cmd.ActiveConnection = MM_Samson_STRING
rsClaimUpdate_cmd.CommandText = "SELECT * FROM CLAIMS WHERE [Claim Number] = ?"
rsClaimUpdate_cmd.Prepared = true
rsClaimUpdate_cmd.Parameters.Append rsClaimUpdate_cmd.CreateParameter("param1", 5, 1, -1, rsClaimUpdate__MMColParam) ' adDouble

Set rsClaimUpdate = rsClaimUpdate_cmd.Execute
rsClaimUpdate_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = 10
Repeat1__index = 0
rsSitedAssets_numRows = rsSitedAssets_numRows + Repeat1__numRows
%>
<%

%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
" http://www.w3.org/TR/html4/loose.dtd">
<html>
<!-- DW6 -->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Service Calls</title>
<link rel="stylesheet" href="2col_leftNav.css" type="text/css">
<style type="text/css">
<!--
.style1 {
font-family: "Courier New", Courier, mono;
font-size: x-large;
}
.style15 {font-weight: bold}
.style17 {
font-weight: bold;
background-color: #F9F9F7;
}
body {
background-color: #FFFFFF;
}
.style22 {color: #000000; font-weight: bold; font-family: Tahoma; }
.style28 {color: #000000; font-family: Tahoma; }
.style30 {color: #FFFFFF; font-weight: bold; font-family: Tahoma; font-style: italic; }
body,td,th {
font-family: Tahoma;
color: #000000;
}
.style33 {color: #000000}
-->
</style>
<div align="left"></div>
</head>
<!-- The structure of this file is exactly the same as 2col_rightNav.html;
the only difference between the two is the stylesheet they use -->
<body>
<div class="style15" id="masthead">
<div class="style33" id="globalNav">
<div align="center">


<p><span class="style1"><img src="Game%20On%204.gif" width="710" height="88"></span></p>
</div>
</div>
</div>
<div align="center"></div>


<table width="752" border="0" align="center">
<tr>
<th width="41" scope="col"><a href="Site%20Faults.asp"><img src="Images/cooltext90622309.png"width="144" height="54" border="0" onMouseOver="this.src='Images/cooltext90622309MouseOver.png'" onMouseOut="this.src='Images/cooltext90622309.png'"></a></th>
<th width="220" scope="col"><a href="Site%20Claims.asp"><img src="Images/cooltext90622213.png"width="144" height="54" border="0" onmouseover="this.src='Images/cooltext90622213MouseOver.png'" onmouseout="this.src='Images/cooltext90622213.png'"></a></th>
<th width="96" scope="col"><a href="Site%20Collections.asp"><img src="Images/cooltext90623725.png"width="144" height="54" border="0" onMouseOver="this.src='Images/cooltext90623725MouseOver.png'" onMouseOut="this.src='Images/cooltext90623725.png'"></a></th>
<th width="138" scope="col"><a href="Site%20Movements.asp"><img src="Images/cooltext90622434.png"width="144" height="54" border="0" onmouseover="this.src='Images/cooltext90622434MouseOver.png'" onmouseout="this.src='Images/cooltext90622434.png'"></a></th>
<th width="138" scope="col"><a href="Site%20Diary.asp"><img src="Images/cooltext90622597.png"width="144" height="54" border="0" onmouseover="this.src='Images/cooltext90622597MouseOver.png'" onmouseout="this.src='Images/cooltext90622597.png'"></a></th>
<th width="93" scope="col"><a href="Log%20In.asp"><img src="Images/cooltext90621857.png"width="144" height="54" border="0" onmouseover="this.src='Images/cooltext90621857MouseOver.png'" onmouseout="this.src='Images/cooltext90621857.png'"></a></th>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
<div align="center"></div>
<p align="center"> </p>
<p align="center"> </p>
<div>
<h3 align="center">Welcome Username, </h3>
<p align="center">  </p>

<form method="POST" action="<%=MM_editAction%>" name="form1">
<table align="center">
<tr valign="baseline">
<td nowrap align="right">Claim Number:</td>
<td><input type="text" name="Claim_Number" value="<%=(rsClaimUpdate.Fields.Item("Claim Number").Value)%>" size="32">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right">Comments:</td>
<td><input type="text" name="Comments" value="<%=(rsClaimUpdate.Fields.Item("Comments").Value)%>" size="32">
</td>
</tr>
<tr valign="baseline">
<td nowrap align="right"> </td>
<td><input type="submit" value="Update record">
</td>
</tr>
</table>
<input type="hidden" name="MM_update" value="form1">
<input type="hidden" name="MM_recordId" value="<%= rsClaimUpdate.Fields.Item("Claim Number").Value %>">
</form>
<p> </p>
<p align="center"> </p>
</div>
<div>
<h3 align="center"> </h3>
</div>
<div></div>
</div>
<div align="left"><strong>
<!--end content -->

</strong>
</div>
<div class="style17" id="siteInfo">
<div align="center">&copy;2005
Game On! Services </div>
</div>

</body>
</html>
<%
rsClaimUpdate.Close()
Set rsClaimUpdate = Nothing
%>

Soz...I meant that I modified the line rather than take it out completely...

"stevo.s" <webforumsuser@macromedia.com> wrote in message
news:gbdmc9$s7h$1@forums.macromedia.com...
> Thanks for your input. I have been looking in the same area that you have
> highlighted and I do think the issue is in there! However if I take the
> line
> out which u have indicated the update behaviour disappears, also I still
> get
> the same error. I have also tried removing the redirect aspect of the
> update
> behaviour and the record is updated fine and the page refreshes ok. I'm
> pretty
> sure that whatever the issue is it is in the area you have pointed out.

I didn't "take out the line", I modified it if you re-look at it :)

Thanks for your input. I have been looking in the same area that you have highlighted and I do think the issue is in there! However if I take the line out which u have indicated the update behaviour disappears, also I still get the same error. I have also tried removing the redirect aspect of the update behaviour and the record is updated fine and the page refreshes ok. I'm pretty sure that whatever the issue is it is in the area you have pointed out.

Steve

stevo.s wrote:
> Thanks for your help!
>
> This is the error mesage in Explorer...
>
> Error Type:
> Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
> No value given for one or more required parameters.
> /samson beta/Edit Claims.asp, line 37

This says your not passing all the required parameters to the statement.

> This is the code:
>
> 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_update")) = "frmUpdateClaim") Then
> If (Not MM_abortEdit) Then
> ' execute the update
> Dim MM_editCmd
>
> Set MM_editCmd = Server.CreateObject ("ADODB.Command")
> MM_editCmd.ActiveConnection = MM_Samson_STRING
> MM_editCmd.CommandText = "UPDATE CLAIMS SET PERSONNEL_ID = ?, [Engineers
> Comments] = ? WHERE [Claim Number] = ?"
> MM_editCmd.Prepared = true
> MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 5, 1,
> 50, MM_IIF(Request.Form("lstStaff"), Request.Form("lstStaff"), null)) ' adDouble
> MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1,
> 255, Request.Form("txtEngineersComments")) ' adVarWChar
>
> (This is line 37) MM_editCmd.Execute

Your statement requires 3 parameters, you have only given it 2.

Dooza

Thanks for your help!

This is the error mesage in Explorer...

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
No value given for one or more required parameters.
/samson beta/Edit Claims.asp, line 37


Browser Type:
Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)

Page:
POST 89 bytes to /samson beta/Edit Claims.asp

POST Data:
lstStaff=1&txtEngineersComments=&Submit=Submit&MM_update=frmUpdateClaim&MM_recordId=12344

Time:
Monday, September 22, 2008, 1:44:09 PM


More information:
Microsoft Support

This is the code:

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_update")) = "frmUpdateClaim") Then
If (Not MM_abortEdit) Then
' execute the update
Dim MM_editCmd

Set MM_editCmd = Server.CreateObject ("ADODB.Command")
MM_editCmd.ActiveConnection = MM_Samson_STRING
MM_editCmd.CommandText = "UPDATE CLAIMS SET PERSONNEL_ID = ?, [Engineers Comments] = ? WHERE [Claim Number] = ?"
MM_editCmd.Prepared = true
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 5, 1, 50, MM_IIF(Request.Form("lstStaff"), Request.Form("lstStaff"), null)) ' adDouble
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 255, Request.Form("txtEngineersComments")) ' adVarWChar

(This is line 37) MM_editCmd.Execute