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">©2005
Game On! Services </div>
</div>
</body>
</html>
<%
rsClaimUpdate.Close()
Set rsClaimUpdate = Nothing
%>
20
Replies
AdChoices