p2p.wrox.com Forums

Need to download code?

View our list of code downloads.


  Return to Index  

proasp_codeclinic thread: Expected End


Message #1 by tomlawton@f... on Wed, 11 Apr 2001 16:53:30
Hi everyone,

You were right the error was in the confirm.asp file.  It's working fine 
again now!

Thanks

Tom

> yes of course!
> 
> did you  take a look at your includes?  are all of the structures 
complete, 
> etc...?
> 
> 
> 
> 
> 
> At 09:59 AM 4/11/2001, you wrote:
> >You mean this one?
> >
> >
> >
> >-You need to look in the confirm.asp file (and if not there, one of the
> >-other included files before the line that is blowing up).  Since your
> >-code on this page looks ok, the problem must be in one of the included
> >-files (you probably have an unclosed if in there that already has an
> >-else (which is why it is blowing up on the ELSE line).
> >
> >-- Jeremy
> >
> >-----Original Message-----
> >From: Robert Chartier [mailto:rchartierh@a...]
> >Sent: Wednesday, April 11, 2001 06:34 PM
> >To: Code Clinic
> >Subject: Re: Expected End
> >
> >
> >Weird...i could swear that this was just posted already.
> >
> >did you get Jeremy's response?
> >
> >
> >
> >
> >At 09:03 AM 4/11/2001, you wrote:
> > >Hi all
> > >
> > >I've had this page working before but now it generates the following 
error:
> > >-----------------------------
> > >Microsoft VBScript compilation error '800a03f6'
> > >
> > >Expected 'End'
> > >
> > >/craftsbury/checkout.asp, line 44
> > >
> > >ELSE
> > >^
> > >-----------------------------
> > >
> > >Here's the code for the page:
> > >
> > >---------------------
> > ><!-- #INCLUDE FILE="adovbs.inc" -->
> > ><!-- #INCLUDE FILE="storefuncs.asp" -->
> > ><!-- #INCLUDE FILE="DataStore.asp" -->
> > >
> > ><%
> > >' Get Login Information
> > >username = TRIM( Request( "username" ))
> > >password = TRIM( Request( "password" ))
> > >register = TRIM( Request( "register" ))
> > >error = TRIM( Request( "error" ))
> > >
> > >' Open Database Connection
> > >Set Con = Server.CreateObject( "ADODB.Connection" )
> > >Con.Open strConnect
> > >
> > >sqlString = "SELECT * FROM users " &_
> > >         "WHERE user_username='" & username & "'"
> > >SET RS = Con.Execute( sqlString )
> > >IF NOT RS.EOF THEN
> > >userID = RS( "user_id" )
> > >username = RS( "user_username" )
> > >password = RS( "user_password" )
> > >email = RS( "user_email" )
> > >name = RS( "user_name" )
> > >address = RS( "user_address" )
> > >town = RS( "user_town" )
> > >county = RS( "user_county" )
> > >country = RS( "user_country" )
> > >postcode = RS( "user_postcode" )
> > >telephone = RS( "user_telephone" )
> > >fax = RS( "user_fax" )
> > >END IF
> > >
> > >' Check For Errors
> > >IF register <> "" AND error = "" THEN
> > >updateUser
> > >END IF
> > >
> > >IF userID > 0 AND username <> "" AND password <> "" AND email <> "" 
AND
> > >name <> "" AND address <> "" AND TOWN <> "" THEN
> > >%>
> > ><!-- #INCLUDE FILE="confirm.asp"-->
> > ><%
> > >ELSE 'This is the line generating the error
> > >%>
> > ><!-- #INCLUDE FILE="register.asp"-->
> > ><%
> > >END IF
> > >%>
> > >
> > >Any sugestions?
> > >
> > >Thanks for any help.
> > >
> > >Tom
>

  Return to Index