asp页面出错

销魂的拖拉机 2009-06-04 03:21:29

在内网测试没有问题,但在外网就出错.
反馈错误如下:
--------------------------------------------------------------------
Microsoft VBScript compilation error '800a0401'

Expected end of statement

/cn_password.asp, line 115

Response.Write year(rst.Fields("transaction date"))&"å¹?&month(rst.Fields("transaction date"))&"æœ?&day(rst.Fields("transaction date"))&"æ—?
-----------------------------------------------------------------------^

--------------------------------------------------------------------
处理页面部分内容如下:
--------------------------------------------------------------------

	<table class="zhaoping STYLE1">

  	<tr>

  		<td>

		<div class="zhaoping" style="text-align:left;">

		<%

dim idn,rs,rst,rstl,cn,strconn,idno

set cn=server.createobject("ADODB.connection")

strconn="Driver={SQL Server};SERVER=10.200.253.61;UID=sa;PWD=2829ftc;DATABASE=ctf_vip;" 

cn.Open strconn

   Set rs = Server.CreateObject("ADODB.Recordset")

   Set rst = Server.CreateObject("ADODB.Recordset")

   Set rst1 = Server.CreateObject("ADODB.Recordset")

'dim idn

idno=session("vipno")

 rst1.open "select * from [VIP Customer Master] where [Card No]=" & idno,cn,1,3

            if not rst1.eof then

			   idn=rst1("Customer ID")

			end if  

   rst1.close

%>

<script language="vbscript" type="text/vbscript">

 sub ret_onclick()

 history.go(-1)

 end sub

</script>

<%

  rst.open "select * from [VIP Credit Transaction] where [customer id]=" & idn & " order by [transaction date]" ,cn,1,3

   while not rst.eof  

        rs.open "select [Card No] from [VIP Customer Master] where [Customer ID]=" & rst.Fields("Customer ID") ,cn,1,3

        rs.close 

        response.write "<b>></b> "

        Response.Write year(rst.Fields("transaction date"))&"年"&month(rst.Fields("transaction date"))&"月"&day(rst.Fields("transaction date"))&"日"

        'response.write "<br>"

	   

        rs.Open "select * from [VIP Tran Code] where [tran code]=" & rst.Fields("transaction code"),cn,1,3

        

                select case rst.fields("transaction code")

		  case "1" Response.write "       销售加分     "

		  case "2" Response.write "       换取礼品减分"

		  case "3" Response.write "       退货减分     "

		  case "4" Response.write "       申请新卡加分"

		  case "5" Response.write "       由ICS系统减分"

		  case "6" Response.write "       调整加分     "

		  case "7" Response.write "       续约初始积分"

		  case "8" Response.write "       总部补充积分"

		  case "9" Response.write "       续约申请加分"

		  case "10" Response.write "       调整减分     "

		  case "11" Response.write "       奖励加分     "

          case else Response.write "       您好"

		end select      

        rs.Close 

         

		if  rst.Fields("transaction code")=2 or rst.Fields("transaction code")=3 or rst.Fields("transaction code")=5 or rst.Fields("transaction code")=10 then

		    response.write "       减"

		else

		    response.write "       加"

		end if

        

		Response.Write rst.Fields("credit")

		response.write"分 "

        

		      

        rst.MoveNext

     response.write "<br>"

  wend   

%>

		</div>

		</td>

	</tr>

</table>