</HTML>
<script Language="VBScript">
<!--
function do_qry()
tempfound="0"
for i=0 to 2
if accuseform.item(i).checked then
tempfound="1"
end if
next
if tempfound="0" then
msgbox "请选择‘咨询类别’",64,"提示"
accuseform.item(0).focus()
exit function
end if
if (accuseform.item(2).checked ) and trim(accuseform.other.value)="" then
msgbox "请填写‘咨询类别’！",64,"提示"
accuseform.other.focus()
exit function
end if
if (not (accuseform.item(2).checked )) and trim(accuseform.other.value)<>"" then
msgbox "请选择‘咨询类别’！",64,"提示"
accuseform.item(2).focus()
exit function
end if
if trim(accuseform.content.value)="" then
msgbox "请填写‘技术支持’！",64,"提示"
accuseform.content.focus()
exit function
end if
if trim(accuseform.name.value)="" then
msgbox "请填写‘姓名’框！",64,"提示"
accuseform.name.focus()
exit function
end if
if trim(accuseform.department.value)="" then
msgbox "请填写‘部门’框！",64,"提示"
accuseform.department.focus()
exit function
end if
if trim(accuseform.company.value)="" then
msgbox "请填写‘公司’框！",64,"提示"
accuseform.company.focus()
exit function
end if
if trim(accuseform.telephone.value)="" then
msgbox "请填写‘电话’框！",64,"提示"
accuseform.telephone.focus()
exit function
end if
if trim(accuseform.fax.value)="" then
msgbox "请填写‘传真’框！",64,"提示"
accuseform.fax.focus()
exit function
end if
if (msgbox("确定要提交吗？",1,"提示")="1") then
accuseform.submit
end if
end function