Microsoft VBScript compilation (0x800A03EE)

[sonasiva]

{asp code}
Error Type:
Microsoft VBScript compilation (0x800A03EE)
Expected ')'
/web/company_ind.asp , line 35, column 37
Response.Write( objrs("investor _name")""<a href=""investor _ind.asp?invest or_name="&objrs ("investor_name ")&""">"</a>"

[jai80]

{asp code}
Error Type:
Microsoft VBScript compilation (0x800A03EE)
Expected ')'
/web/company_ind.asp , line 35, column 37
Response.Write( objrs("investor _name")""<a href=""investor _ind.asp?invest or_name="&objrs ("investor_name ")&""">"</a>"

hi sonasiva,

try with line in your code,

<% Response.Write( objrs("investor _name"))%><a href="investor_ ind.asp?investo r_name= "&objrs("invest or_name")&""> "<%= objrs("investor _name")%>"</a>

and let me know if it has solved your error. Gud luck!

cheers,
jai

[sonasiva]

Hi jai
my problem got solved i got output for that query


thankss........ ..............

and i didnt get output for my register code
I need to write a code for register page of my website
i have written the following code,
<%
DIM strusername, strpassword, stremail
strUsername =request.form(" username")
strPassword = request.form("p assword")
strEmail = request.form("e mail")


DIM my_SQL, objRS

my_sql= "SELECT username FROM User_list WHERE username='"&str username&"'"
Set objRS = Server.CreateOb ject("ADODB.Rec ordset")
objRS.CursorTyp e = 1
objRS.lockType = 3
objRS.Open mySQL, objConn
if objrs.EOF Then


objRS.AddNew
objRS("Username ")=strUsern ame
objRS("Password ")=strPassw ord
objRS("Email")= strEmail
objRS("date")=d ate()
objRS.Update
objRS.Close
Set objRS = Nothing
Response.Write "You have been successfully registered as: " & strUsername

ELSE

DIM X, strTempUsername , intCount, mySQL2, objRS2
DO UNTIL X=True
intCount = intCount + 1
strTempUsername = strUsername & intCount
strUsername = strTempUsername

mySQL2 = "SELECT * FROM tblMembers WHERE fUsername = ' " & strUsername & " ' "
Set objRS2 = Server.CreateOb ject("ADODB.Rec ordset")
objRS2.Open mySQL2, objConn, adOpenKeyset, adLockPessimist ic, adCmdText
IF objRS2.EOF THEN
X=True
ELSE
intCount = intCount
END IF
LOOP

objRS2.Close
Set objRS2 = Nothing

Response.Write "That username has already been registered. Please click Back on your browser and try a different username. "
Response.Write "We suggest you try the below available username:</p>"
Response.Write "<b>• " & strUsername2 & "</b>"
END IF
%>
problem is without checking existing username ,data are storing in database

please guide me to correct this logic ....

Regards
sona