ผมต้องการบวกเลข ตามโค้ทข้างล่างแลยครับ
มันขึ้น error ดังนี้ครับ
Microsoft VBScript runtime error '800a000d'
Type mismatch
รบกวนพี่ๆช่วยแนะนำวิธีแก้หน่อยครับ
ขอบคุณครับ
Code
<%
Dim intVar1,intVar2,intSum
intVar1=objRec1.Fields("Counter1")
intVar2=objRec2.Fields("Counter1")
Response.write (intVar1+intVar2)
%>
โค้ทแบบเต็มครับ
Code
<% Option Explicit %>
<html>
<head>
<title>SHOW</title>
</head>
<body>
<%
Dim Conn,strSQL1,objRec1,strSQL2,objRec2
Set Conn = Server.Createobject("ADODB.Connection")
Conn.Open "Driver={SQL Server};Server=IWEMC\CANONMGMTCONSOLE;Database=iWEMC;UID=sa;PWD=;"
strSQL1 = "SELECT McapTaskResultID,Counter1 FROM [iWEMC].[dbo].[McapRetrievedData] WHERE McapTaskResultID = (select max(McapTaskResultID) FROM [iWEMC].[dbo].[McapRetrievedData]); "
strSQL2 = "SELECT McapTaskResultID,Counter1 FROM [iWEMC].[dbo].[McapRetrievedData] WHERE McapTaskResultID = (select max(McapTaskResultID -1) FROM [iWEMC].[dbo].[McapRetrievedData]); "
Set objRec1 = Server.CreateObject("ADODB.Recordset")
Set objRec2 = Server.CreateObject("ADODB.Recordset")
objRec1.Open strSQL1, Conn, 1,3
objRec2.Open strSQL2, Conn, 1,3
%>
<%
While Not objRec1.EOF
%>
อ่านวันนี้ : <%=objRec1.Fields("Counter1").Value%><br>
อ่านเมื่อวาน : <%=objRec2.Fields("Counter1").Value%><br>
<%
Dim intVar1,intVar2,intSum
intVar1=objRec1.Fields("Counter1")
intVar2=objRec2.Fields("Counter1")
Response.write (intVar1+intVar2)
%>
<br>
<%
objRec1.MoveNext
Wend
%>
<%
objRec1.Close()
objRec2.Close()
Conn.Close()
Set objRec1 = Nothing
Set objRec2 = Nothing
Set Conn = Nothing
%>
</body>
</html>
Tag : ASP, Ms SQL Server 2005
