请教insert into 语句的问题

	

	'自动生成卡号

	if addtype = 2 then 

		

		function markcard(letter)

		Randomize

		dim i,n1,n2,rndnum,num1

		Do While (Len(rndnum)<12 ) and (rndnum<99999999999999)  

			num1=CStr(Chr((57-48)*rnd+48))

			rndnum=rndnum&num1

			loop

			  n1=rndnum

		n2=ucase(letter) & n1 

		markcard=n2

		end function

		

'密码

function markpwd()

dim RndValue,pwd,c

c=1

Randomize

while  len(pwd)<=8

RndValue=CStr(Chr((57-48)*rnd+48))

	pwd=pwd & RndValue

wend

markpwd=Ucase(md5(pwd))

end function

		

		nums=int(trim(cardcount))

		for  i=1 to nums

		sql="insert into CardNumber([CardNo],[CardPassword],[money]) values('"&markcard(cardbefore)&"','"&markpwd()&"',"&money&")"

		Conn.Execute(Sql)

		next

		response.Redirect("ac_cards_make.asp?money="&money&"&addtype="&addtype&"&a=ok&x="&nums)





	

	end if

rs("ListPrice") = money

	   rs("StartDate") = now()

           rs("Cardstatus") = 0