hello... everyone~ here i faced some problems over my asp script while selecting the profile of member by EMAIL. Below are my script :-
admin_member.asp will connect to admin_membername.asp afetr click on the first name
this for admin_member.asp script
<%
Dim strOutputString
Dim objCommand, memberid, objRSAccessory, CEmail
Set objCommand = Server.CreateObject("ADODB.Command")
objCommand.ActiveConnection = strConnect
objCommand.CommandText = "SELECT DISTINCT MemberProfile.MemberID, MemberProfile.CEmail, MemberProfile.FirstName, MemberProfile.LastName " & _
"FROM MemberProfile order by FirstName"
objCommand.CommandType = adCmdText
Set objRSAccessory = objCommand.Execute
Set objCommand = Nothing
If objRSAccessory.EOF Then
Response.Write " Sorry no member found"
Else
strOutputString = "<TABLE BORDER=1>" & _
"<TR><TD><B>First Name</B></TD>" & _
"<TD><B>Last Name</B></TD></TR>"
While Not objRSAccessory.EOF
strOutputString = strOutputString & "<TR>" & _
"<TD><A HREF= "&"admin_membername.asp?"&"email="& objRSAccessory("CEmail") &">" &objRSAccessory("FirstName")& "</a></TD>" & _
"<TD>" & objRSAccessory("LastName") & "</TD>" & _
"</TR>"
objRSAccessory.MoveNext
Wend
strOutputString = strOutputString & "</TABLE>"
End If
objRSAccessory.Close
Set objRSAccessory = Nothing
Response.Write strOutputString
%>
this is admin_membername.asp script
<%
Dim strOutputString
Dim objCommand, memberid, objRSAccessory,CEmail
memberid = CLng(Request.QueryString("MemberID"))
CEmail = Request.QueryString("CEmail")
Set objCommand = Server.CreateObject("ADODB.Command")
objCommand.ActiveConnection = strConnect
objCommand.CommandText = "SELECT MemberProfile.MemberID, MemberProfile.FirstName, MemberProfile.LastName, MemberProfile.CStreet, City.CityName, State.StateName, " & _
"Country.CountryName, MemberProfile.PostCode, MemberProfile.CPhone, MemberProfile.CEmail, MemberProfile.CPassword, MemberProfile.NewsLetter " & _
"FROM Country INNER JOIN ((MemberProfile INNER JOIN City ON MemberProfile.CityID = City.CityID) INNER JOIN State ON MemberProfile.StateID = " & _
"State.StateID) ON Country.CountryID = MemberProfile.CountryID " & _
"WHERE ((MemberProfile.CEmail)=" &CEmail& ")"
objCommand.CommandType = adCmdText
Set objRSAccessory = objCommand.Execute
Set objCommand = Nothing
strOutputString = "<TABLE BORDER=1>" & _
"<TR><TD><B>First Name</B></TD>" & _
"<TD><B>Last Name</B></TD>" & _
"<TD><B>Street</B></TD>" & _
"<TD><B>City</B></TD>" & _
"<TD><B>State</B></TD>" & _
"<TD><B>Country</B></TD>" & _
"<TD><B>Post Code</B></TD>" & _
"<TD><B>Phone</B></TD>" & _
"<TD><B>Sign-In Name</B></TD>" & _
"<TD><B>Password</B></TD>" & _
"<TD><B>Newsletter</B></TD>"
While Not objRSAccessory.EOF
strOutputString = strOutputString & "<TR>" & _
"<TD>" & objRSAccessory("FirstName") & "</TD>" & _
"<TD>" & objRSAccessory("LastName") & "</TD>" & _
"<TD>" & objRSAccessory("CStreet") & "</TD>" & _
"<TD>" & objRSAccessory("CityName") & "</TD>" & _
"<TD>" & objRSAccessory("StateName") & "</TD>" & _
"<TD>" & objRSAccessory("CountryName") & "</TD>" & _
"<TD>" & objRSAccessory("PostCode") & "</TD>" & _
"<TD>" & objRSAccessory("CPhone") & "</TD>" & _
"<TD>" & objRSAccessory("CEmail") & "</TD>" & _
"<TD>" & objRSAccessory("CPassword") & "</TD>" & _
"<TD>" & objRSAccessory("NewsLetter") & "</TD>" & _
"</TR>"
objRSAccessory.MoveNext
Wend
strOutputString = strOutputString & "</TABLE>"
objRSAccessory.Close
Set objRSAccessory = Nothing
Response.Write strOutputString
%>
after i try this i got the error as below :-
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[Microsoft][ODBC Microsoft Access Driver] Extra ) in query expression '((MemberProfile.CEmail)=)'.
/admin_membername.asp, line 63
anyone can tell me what wrong with my code?? i really have no idea on this error.
Thanks a lot.
Linear Mode
