小问题,大家快看看,给分!!!!
cdh 2003-05-14 02:54:03 Sub Bt_onclick
dim str,pro,city,name,No,orgtype
str="select OrgName,well,bad,AssessorCount,Achievement from"
pro=Request.Form("province")
city=Request.form("city")
Name=Request.form("OrgName")
No=Request.form("code")
OrgType=Request.form("type")
if No="" then
str=str&" OrgInfo_view"
else
str=str&" yejiOrg_view"
end if
str=str&" where" '说此行缺少then
if pro!="" then
str=Str&" Provice="&Pro&""
if city!="" then
str=str&" and city="&city&""
end if
if name!="" then
str=str&" and orgname="&name&""
end if
if No!="" then
str=str&" and ReportNo="&No&""
end if
if OrgType!="" then
str=str&" and OrgType="&OrgType&""
end if
End if
end sub
如上,说一行缺少then