ASP编程中的类型不匹配问题，求助。

ASP编程中的类型不匹配问题，求助。
悬赏分：10 - 离问题结束还有 14 天 23 小时
<%
Option Explicit

If session("admin")<>"ok" Then
response.redirect"index.asp"
End If

Dim Id,zdmingcheng,Address,Name,Title,Tel1,Tel2,khleixing,Demo
Id=request.querystring("Id")
If Id="" Then
Dim strJS
strJS=strJS+"<script language='javascript'>"
strJS=strJS+"alert('页面参数不正确，请返回！');"
strJS=strJS+"location.href='main.asp';"
strJS=strJS+"</script>"

response.write strJS
End If
%>
<!--#include file="conn.asp"-->
<%
Dim objRS,strSQL
set objRS=Server.createobject("adodb.recordset")
strSQL="select * from customer where Id="&Id
objRS.Open strSQL,objConn,1,3
zdmingcheng=objRS("zdmingcheng")
Address=