# Asp :: end? where?

**URL:** <https://forum.kirupa.com/t/asp-end-where/83557>\
**Category:** Uncategorized\
**Created:** [March 20, 2005, 2:57am UTC](https://forum.kirupa.com/t/asp-end-where/83557 "2005-03-20T02:57:29Z")\
**Posts on this page:** 1\
**Page:** 1

<div class="post-metadata">

**Author:** ![dinkumrocks](https://avatars.discourse-cdn.com/v4/letter/d/7feea3/32.png) [@dinkumrocks](https://forum.kirupa.com/u/dinkumrocks)\
**Post date:** [March 20, 2005, 2:57am UTC](https://forum.kirupa.com/t/asp-end-where/83557/1 "2005-03-20T02:57:29Z")

</div>

OK. this is the error i get on the asp script following the error.

error.

```auto
[font=Arial] [/font]

Microsoft VBScript compilation [font=Arial][size=2]error '800a03f6'[/size][/font][font=Times New Roman][size=3] [/size][/font]

[font=Arial][size=2]Expected 'End'[/size][/font] [font=Arial][size=2]/home.asp[/size][/font][font=Arial][size=2], line 88[/size][/font] 

```

code…

```auto
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DSN=main"
set RS = Server.CreateObject("ADODB.Recordset")
RS.Open "SELECT TOP 3 * FROM updates ORDER BY item_when DESC", Conn
If Not(RS.EOF) then 
RS.MoveFirst()
While NOT RS.eof 
 id = RS.Fields.Item("id")
 when = RS.Fields.Item("item_when")
 title = RS.Fields.Item("item_title")
 body = RS.Fields.Item("item_body")
 user = RS.Fields.Item("item_user")
 comments = RS.Fields.Item("item_comments")
response.write "<div class=""asset""><strong><span class=""newstitle"">"& title & "</span></strong><br><br><strong>"& when & "- by </strong>"& user &"<br><br>"& body &" <br><br>Comments(" & comments & ")</div>"
RS.movenext()
wend
end if
RS.close
set RS = nothing
Conn.close
set Conn = nothing
%>

```

i dont know whats happening. i just set up a dsn, so i tried it, and i get an error saying i need an end in there. i really dont get it.

anyone willing to help?

thanks for any help,  
-Naaman