Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,038

HOME > ASP > ASP Forum > ช่วยดูปัญหาที่เกิดขึ้นให้หน่อยค่ะ ปัญหาที่พบ Microsoft VBScript runtime error '800a000d' T

ช่วยดูปัญหาที่เกิดขึ้นให้หน่อยค่ะ ปัญหาที่พบ Microsoft VBScript runtime error '800a000d' T

เริ่มหัวข้อใหม่

Guest

ปัญหาที่พบ

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'CInt'

/stock/criteria_stock_item.asp, line 59

code ที่เขียน

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874">
<style type="text/css">

</style></head>
<body>
<div align="center"><form action="" method="post">

<table width="658" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="646" bgcolor="00689D" class="txt"><div align="center"></div></td>
</tr>
<tr>
<td valign="top" bgcolor="00689D" class="txt"><div align="center" class="style3">STOCK
AVAILABLE SEARCHING TOOL </div></td>
</tr>
<tr>
<td valign="top" bgcolor="00689D" class="txt"><div align="center"></div></td>
</tr>
<tr>
<td bgcolor="00689D" class="txt"> <table width="634" border="0" align="center" cellpadding="2" cellspacing="2">
<tr>
<td colspan="3" class="txt"> </td>
</tr>
<tr>
<td width="206" class="txt"><font size="2" color="#FFFF00">ITEM KEY :</font></td>
<td width="156"><input type="text" name="itemkey" value="<%=request.QueryString("itemkey")%>"> </td>
<td width="252"><div align="left"><a href ="itemsearch.asp" target="_blank"><img src="look.gif" alt="ค้นหา Item key" width="22" height="15" border="0"></a></div></td>
</tr>
<tr>
<td class="txt"> </td>
<td><div align="LEFT"><font size="2" color="#FFFF00"><%
'เปิดทำออกเมื่อเอาขึ้นserver
datemfcopy=date
if mid(datemfcopy,7,2)="20" then
datemf=right(datemfcopy,4)&"-"&mid(datemfcopy,4,2)&"-"&left(datemfcopy,2)
'response.write(datemf)

else
ymf=CInt(right(datemfcopy,4))-543
datemf=ymf&"-"&mid(datemfcopy,4,2)&"-"&left(datemfcopy,2)
'response.write(datemf)

end if

%><input name="datemf" type="hidden" value="<%=datemf%>"></font></div><div>
</td>
<td></td>
</tr>
<tr>
<td colspan="3" class="txt"> <div align="left"></div></td>
</tr>
</table></td>
</tr>
<tr>
<td valign="top" bgcolor="00689D" class="txt"> </td>
</tr>
<tr>
<td valign="top" bgcolor="00689D" class="txt"><div align="center">
<input type="submit" name="Submit" value="view">
</div></td>
</tr>
<tr>
<td valign="top" bgcolor="00689D" class="txt"><div align="right" class="style2">copyright@ by seg</div></td>
</tr>
<tr>
<td valign="top" bgcolor="00689D" class="txt"><div align="center" class="style1">

</div></td>
</tr>
</table>
<p> </p>
<table width="497" height="78" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><div align="center">
<%
if request.form("Submit")="view" OR request.Form("itemkey")<>"" then
dim strerr(2)
itemkey=trim(request.form("itemkey"))
if itemkey="" then
strerr(0)="กรุณาใส่ITEM KEY"
else
strerr(0)=""
end if

datemf=trim(request.form("datemf"))

if strerr(0)="" then

response.Redirect("stockitem.asp?itemkey="&itemkey&"&datemf="&datemf)

end if

for i=0 to 2
response.write(strerr(i)&"<br>")
next
end if

%></div></td>
</tr>
</table>
<p> </p>
</form></div>
<%
Function Convertdate(dmy)

dfrom=left(dmy,2)
mfrom=mid(dmy,4,2)
yfrom=year(dmy)
dmy=yfrom&"-"&mfrom&"-"&dfrom
Convertdate=dmy
End Function
%>

</body>
</html>

ใครทราบช่วยบอกทีนะค่ะ

Tag : - - - -

Date : 28 เม.ย. 2549 11:09:14

By : vava

View : 2365

Reply : 1

No. 1

Guest

ค่า datemfcopy น่าจะเป็นวันที่ แต่อยากจะ -543 ให้เป็นปีค.ศ.
น่าจะต้องเปลี่ยนเป็น

ymf=Cdate(right(datemfcopy,4))-543

หรือแยกออกเป็นส่วน ๆ แล้วค่อยรวมกันใหม่

bkknow = now()
d1= day(bkknow)
m1= month(bkknow)
y1= year(bkknow)-543
dt1= d1 &"/"& m1& "/" & y1

Date : 28 เม.ย. 2549 11:24:01

By : ake

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : ช่วยดูปัญหาที่เกิดขึ้นให้หน่อยค่ะ ปัญหาที่พบ Microsoft VBScript runtime error '800a000d' T

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก

<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)

Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 02

Registered : 109,038

document.write("<font color=996600>[ASP]</font>"); ช่วยดูปัญหาที่เกิดขึ้นให้หน่อยค่ะ ปัญหาที่พบ Microsoft VBScript runtime error '800a000d' T

No. 1

ค้นหาข้อมูล

อัพโหลดแทรกรูปภาพ

Notice

ช่วยดูปัญหาที่เกิดขึ้นให้หน่อยค่ะ ปัญหาที่พบ Microsoft VBScript runtime error '800a000d' T