Gabe,
Here is the code the calculated cell (CELL 2 * CELL3 *4) is the cell that does not come back recalculated
Thnks for taking the interest
EXCELTEST3.ASP
<% @LANGUAGE="VBScript" %>
<% Option Explicit %>
<%
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection"
objConn.Open ("TestGDickExcel"
Dim RS
Dim SQL
SQL = "Select * FROM input;"
SET RS = objConn.Execute(SQL)
If err.number>0 then
response.write "VBScript Errors Occured:" & "<P>"
response.write "Error Number=" & err.number & "<P>"
response.write "Error Descr.=" & err.description & "<P>"
response.write "Help Context=" & err.helpcontext & "<P>"
response.write "Help Path=" & err.helppath & "<P>"
response.write "Native Error=" & err.nativeerror & "<P>"
response.write "Source=" & err.source & "<P>"
response.write "SQLState=" & err.sqlstate & "<P>"
'If you don't receive any errors, then
'you must have connected to the database successfully
Else
response.write "You have successfully connected to the excel spreadsheet."%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>New Page 1</title>
</head
<body>
<br>
<p>
<%
While NOT RS.EOF
response.write RS("Name"
%>... <%
response.write RS("Value"
%><br><%
RS.movenext
WENd
End If
%>
<form ACTION="
METHOD=GET >
<input type="text" name="CELL2" ><font size ="1">CELL2
<input type="text" name="CELL3" ><font size ="1">CELL3
<p><input type="submit" value="Proceed" name="B1"><input type="reset" value="Reset" name="B2"></p>
</form>
<%
rs.close
Set rs = nothing
objConn.close
Set ObjConn = nothing
%>
<p><a href="testexcel4.asp">
exceltest4</a>
<br>
</html>
EXCELTEST4.ASP
<%
Dim objConn1
Set objConn1 = Server.CreateObject("ADODB.Connection"
objConn1.Open ("TestGDickExcel"
Dim CELL2
Dim CELL3
CELL2 = Cint(Request.QueryString("CELL2"
)
CELL3 = Cint(Request.QueryString("CELL3"
)
Dim updateSQL
Dim updateSQL1
updateSQL = "UPDATE ID SET ID = '" & CELL2 & "' WHERE Name LIKE 'Jim' "
objConn1.Execute(updateSQL)
updateSQL1 = "UPDATE ID SET ID = '" & CELL3 & "' WHERE Name LIKE 'John' "
objConn1.Execute(updateSQL1)
Dim newSQL
newSQL= "Select * FROM ID;"
Dim newRS
Set newRS = objConn1.Execute(newSQL)
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>New Page 1</title>
</head>
<body>
<a href="testexcel3.asp">exceltest3</a><br><%
While NOT newRS.EOF
response.write newRS("ID"
%>... <%
response.write newRS("Name"
%><br><%
newRS.movenext
WENd
'Close your connection and ensure you're finished using the rs variable.
%>
<p>
<%
newRS.close
Set RS = nothing
objConn1.close
Set objConn1= nothing
%>
</body></html>
ID Name
1 Joe
6 John
5 Jim
120 CELL 2 * CELL3 *4
