Too few parameters. Expected error

[THE BIG MAN]

"Ken Schaefer" <kenREMOVE@THISadOpenStatic.com> wrote in message news:<OEuOwifODHA.2224@TK2MSFTNGP10.phx.gbl>...

> Response.Write(recordset.Source)
> Response.End
>
> put that *before* the line that's generating the error. Response.End will
> stop execution of further code (so the error is not generated)
>
> Cheers
> Ken
>
>
> "THE BIG MAN" <alanmurray28@yahoo.co.uk> wrote in message
> news:e0febae8.0306231239.76ca1870@posting.google.c om...
> : How do I do a write response when I am getting an error message?

Sorry still having problems with this, I am just a beginner in asp. I
am not getting an line number with my error message.
I have tried putting
Response.Write(recordset.Source)

> Response.End

In the code but that just gives an error message.

[THE BIG MAN]

"Mark Schupp" <mschupp@ielearning.com> wrote in message news:<egr8ZlxPDHA.4024@tk2msftngp13.phx.gbl>...

> What is the error message?
> Show all of your code (if it is too cumbersome, remove extraneous code until
> you have a small script the demonstrates the problem).
>
> --
> Mark Schupp
> --
> Head of Development
> Integrity eLearning
> Online Learning Solutions Provider
> [email]mschupp@ielearning.com[/email]
> [url]http://www.ielearning.com[/url]
> 714.637.9480 x17
>
>
> "THE BIG MAN" <alanmurray28@yahoo.co.uk> wrote in message
> news:e0febae8.0306290322.534db082@posting.google.c om...

> > "Ken Schaefer" <kenREMOVE@THISadOpenStatic.com> wrote in message

> news:<OEuOwifODHA.2224@TK2MSFTNGP10.phx.gbl>...

> > > Response.Write(recordset.Source)
> > > Response.End
> > >
> > > put that *before* the line that's generating the error. Response.End

> will

> > > stop execution of further code (so the error is not generated)
> > >
> > > Cheers
> > > Ken
> > >
> > >
> > > "THE BIG MAN" <alanmurray28@yahoo.co.uk> wrote in message
> > > news:e0febae8.0306231239.76ca1870@posting.google.c om...
> > > : How do I do a write response when I am getting an error message?

> >
> > Sorry still having problems with this, I am just a beginner in asp. I
> > am not getting an line number with my error message.
> > I have tried putting
> > Response.Write(recordset.Source)

> > > Response.End

> >
> > In the code but that just gives an error message.

I posted the code on my first post.
The error message is Error Type:
Microsoft VBScript compilation (0x800A0400)
Expected statement
/intranet/SPEED/TMPm95hehgtkh.asp, line 20

> Response.End

[THE BIG MAN]

I still can not response write the sql statment my code is
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../Connections/speedcon1.asp" -->
<%
Dim speed__v_name
speed__v_name = "%"
if (Request.QueryString("v_name") <> "") then speed__v_name =
Request.QueryString("v_name")
%>
<%
set speed = Server.CreateObject("ADODB.Recordset")
speed.ActiveConnection = MM_speedcon1_STRING
speed.Source = "SELECT * FROM speed WHERE FNname LIKE '%" +
Replace(speed__v_name, "'", "''") + "%'"
speed.CursorType = 0
speed.CursorLocation = 2
speed.LockType = 3
speed.Open()
speed_numRows = 0

%>
<%

Dim speed__MMColParam
speed__MMColParam = "1"
If (Request.Form("FName") <> "") Then
speed__MMColParam = Request.Form("FName")
End If
%>
<%
Dim speed
Dim speed_numRows

Set speed = Server.CreateObject("ADODB.Recordset")
speed.ActiveConnection = MM_speed2_STRING
speed.Source = "SELECT * FROM speed WHERE FName = '" +
Replace(speed__MMColParam, "'", "''") + "' ORDER BY FName ASC"
speed.CursorType = 0
speed.CursorLocation = 2
speed.LockType = 1
speed.Open()
Response.Write(speed.source)

> Response.End

speed_numRows = 0
%>

What I am doing wrong in the write resopnse part to bring up the
error.Error Type:
Microsoft VBScript compilation (0x800A0400)
Expected statement

[John Blessing]

"THE BIG MAN" <alanmurray28@yahoo.co.uk> wrote in message
news:e0febae8.0307060804.19bfcd5@posting.google.co m...

> I still can not response write the sql statment my code is
> <%@LANGUAGE="VBSCRIPT"%>
> <!--#include file="../Connections/speedcon1.asp" -->
> <%
> Dim speed__v_name
> speed__v_name = "%"
> if (Request.QueryString("v_name") <> "") then speed__v_name =
> Request.QueryString("v_name")
> %>
> <%
> set speed = Server.CreateObject("ADODB.Recordset")
> speed.ActiveConnection = MM_speedcon1_STRING
> speed.Source = "SELECT * FROM speed WHERE FNname LIKE '%" +
> Replace(speed__v_name, "'", "''") + "%'"
> speed.CursorType = 0
> speed.CursorLocation = 2
> speed.LockType = 3
> speed.Open()
> speed_numRows = 0
>
> %>
> <%
>
> Dim speed__MMColParam
> speed__MMColParam = "1"
> If (Request.Form("FName") <> "") Then
> speed__MMColParam = Request.Form("FName")
> End If
> %>
> <%
> Dim speed
> Dim speed_numRows
>
> Set speed = Server.CreateObject("ADODB.Recordset")
> speed.ActiveConnection = MM_speed2_STRING
> speed.Source = "SELECT * FROM speed WHERE FName = '" +
> Replace(speed__MMColParam, "'", "''") + "' ORDER BY FName ASC"
> speed.CursorType = 0
> speed.CursorLocation = 2
> speed.LockType = 1
> speed.Open()
> Response.Write(speed.source)

> > Response.End

>
> speed_numRows = 0
> %>
>
> What I am doing wrong in the write resopnse part to bring up the
> error.Error Type:
> Microsoft VBScript compilation (0x800A0400)
> Expected statement

> speed.Source = "SELECT * FROM speed WHERE FName = '" +

Surely this should be & not + to concatenate two strings? Also, if it
really is split over two lines then you should have a line continuation
character ( _ ) i.e.:

speed.Source = "SELECT * FROM speed WHERE FName = '" & _
Replace(speed__MMColParam, "'", "''") + "' ORDER BY FName ASC"

--
John Blessing
[url]http://www.LbeHelpdesk.com[/url] - Help Desk software at affordable prices
[url]http://www.free-helpdesk.com[/url] - Completely free help desk software !
[url]http://www.lbetoolbox.com[/url] - Remove Duplicates from MS Outlook
[url]http://www.lbesync.com[/url] - Synchronize two Outlook Personal Folders