Microsoft VBScript 编译器错误 错误 '800a03ea'

[csxsjt]

<!--#include file="conn.asp"-->
<%

set rs=server.createobject("ADODB.RecordSet")
if select0.value="?" then request.Form(select0)=1
else request.Form("select0")=0
end if
sql="insert into expert values("&"'"&trim(request.Form("textfield0"))&"',"&"'"&trim(request.Form ("select0"))&"',"&"'"&trim(request.Form("textfield0"))&"',"&"'"&trim(request.Form("select1"))&"',"&"'"&trim(request.Form("select2"))&"',"&"'"&trim(request.Form("textfield2"))&"',"&"'"&trim(request.Form("textfield3"))&"',"&"'"&trim(request.Form("textfield4"))&"',"&"'"&trim(request.Form("textfield5"))&"',"&"'"&trim(request.Form("birthday"))&"',"&"'"&trim(request.Form("textfield6"))&"',"&"'"&trim(request.Form("textfield7"))&"',"&"'"&trim(request.Form("textfield8"))&"',"&"'"&trim(request.Form("textfield9"))&"',"&"'"&trim(request.Form("textfield10"))&"',"&"'"&trim(request.Form("textfield11"))&"',"&"'"&trim(request.Form("textfield12"))&"',"&"'"&trim(request.Form("textfield13"))&"',"&"'"&trim(request.Form("textarea0"))&"',"&"'"&trim(request.Form("textarea1"))&"')"
rs.open sql,conn,1,3
set rs=nothing
response.redirect"ok.asp"
rs.close
%>
request.form(selecto)是一个性别选择的下拉框
代码执行后出现如下错误


Microsoft VBScript 编译器错误 错误 '800a03ea'

语法错误

/expertsave.asp，行6

else request.Form("select0")=0

[lj5858]

if select0.value="?" then
request.Form(select0)=1
else
request.Form("select0")=0
end if

[csxsjt]

if语句错在那里

[是是非非]

if select0.value="?" then request.Form(select0)=1
else request.Form("select0")=0
end if

else 后面要换行