[dba-SQLServer] Wend Statement Not Allowed

in RS where are you placing this code?

On 2/28/06, Darren HALL <darrend at nimble.com.au> wrote:
>
> Hello all
> In reporting services if I run the code below (from Lambert over at
> AccessD) I
> get the error message...
> "Wend statements are no longer supported . Use "End While" statements
> instead
>
> So If I replace wend with End while  I don't get the desired result
>
> The desired result is
> From..... .C:\Program Files\Some Folder\some cool file.dll
> I want.....some cool file.dll
> But
> I am getting.....C:\Program Files\Some Folder
>
> any suggestions??
> Many thanks
>
> Darren
>
>
> Code Start>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
>
> Function GetPath(aPath) As String
> Dim foo As Integer, aSlash As Integer
>     aSlash = 0
>     foo = InStr(aPath, "\")
>     While (foo > 0)
>         aSlash = foo
>         foo = InStr(aSlash + 1, aPath, "\")
>     end while
>     If aSlash > 0 Then
>         GetPath = Left$(aPath, aSlash)
>     Else
>         GetPath = aPath
>     End If
> End Function
> _______________________________________________
> dba-SQLServer mailing list
> dba-SQLServer at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/dba-sqlserver
> http://www.databaseadvisors.com
>
>


--
-Francisco
http://pcthis.blogspot.com |PC news with out the jargon!
http://sqlthis.blogspot.com | Tsql and More...