dim usename
dim password
dim str
usename=trim(request.form("susername"))
password=trim(request.form("password"))
set conn=server.CreateObject("adodb.connection")
conn.open "filedsn=C:\Program Files\Common Files\ODBC\Data Sources\information.dsn"
set rs=server.CreateObject("adodb.recordset")
str=" select * from information where username='"&usename&"'
and password='"&password&"'"
rs.open str,conn

出错提示为:
错误类型：
Microsoft VBScript 编译器错误 (0x800A0409)
未结束的字符串常量
/源程序/tj.asp, line 15, column 61
str=" select * from information where username='"&usename&"'


告诉我为什么啊!!