游戏行业培训机构:求救!!!关于动态网页(asp)的问题?高手请进!

先定义一个sub过程:sub focusto(x)
document.form1.elements(x).focus()
end sub
表单的定义如下:
<form method=post action=messageadd.asp name=form1><hr>
<table width="500" border="1" align=center cellspacing="0" cellpadding="1">
<tr>
<td width="120" height=35 align=center>留言者</td>
<td width="380" colspan="3"><input name="user" type="text" maxlength="30">
</td>
</tr>
<tr>
<td height=35 align=center >email</td>
<td colspan="3"><input name="email" type="text"></td>
</tr>
<tr>
<td height=35 align=center>标题</td>
<td colspan="3"><input type="text" name="subject" size=40></td>
</tr>
<tr>
<td height=35 align=center>留给谁</td>
<td colspan="3"><input name="towho" type="text"></td>
</tr>
<tr>
<td height=130 align=center>内容</td>
<td colspan="3"><textarea name="content" cols="51" rows="8"></textarea></td>
</tr>
<tr>
<td colspan="4" height=40 align=center><input type=button value="提交" onClick="check()">   <input type="reset" value="重写"></td>
</tr>
</table>

</form>
调用函数的过程如下:
if form1.user.value=empty then
msgbox"请输入您的名字!"
exit sub
elseif form1.email.value=empty then
msgbox"请输入您的电子邮件地址"
focusto(1)
exit sub
elseif position1=0 or instr(strdomainname,".")=0 then
msgbox "请正确输入您的电子邮件地址"
focusto(1)
exit sub
elseif form1.content.value=empty then
msgbox"请输入您的留言内容"
focusto(2)
exit sub
在这里我不知道(1),(2),(0)是什么意思?
我删除一个语句部分如
elseif position1=0 or instr(strdomainname,".")=0 then
msgbox "请正确输入您的电子邮件地址"
focusto(1)
exit sub
在调试时出现出错提示,我不知道问题出在哪?请各位指教!