请教insert into 语句的问题

[minghua100]

	
	'自动生成卡号
	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

用这个我给3个数据表写进了数据 但是我其他数据表还是需要值 不能是空的 该怎么写 还有3个数据表是

rs("ListPrice") = money
	   rs("StartDate") = now()
           rs("Cardstatus") = 0

[ynyn]

3个数据表?你这不是1个表的3个字段么....其他字段接着写呗

[minghua100]

是字段 怎么写呢

[ynyn]

你都会写3个字段了,6个字段还不是一样的吗??

[chinastorm]

sql="insert into CardNumber([CardNo],[CardPassword],[money]，ListPrice,StartDate,Cardstatus) values('"&markcard(cardbefore)&"','"&markpwd()&"',"&money&","&money&"，Now(),0)"