stop execution

[led]

hi
i have this sript at the top of the page:
<%


Dim myConnString
Dim myConnection

Dim rs

myConnString = Application("basededados1_ConnectionString")


Set myConnection = Server.CreateObject("ADODB.Connection")


myConnection.Open myConnString

set rs=Server.CreateObject("ADODB.recordset")
rs.Open "Select precos.* from precos where cod_casa=" & request("cod_casa")
& " And livre= false", myConnString

inic=rs.fields.item("inicio")

do while not rs.eof

for i =rs.fields.item("inicio") to rs.fields.item("fim")

inic=i


if inic=dt then
response.write("Este dia já está reservado")

end if



next

rs.movenext

loop

myConnection.Close


Set myConnection = Nothing
response.write(vartype(dt))
response.write("<br>tipos")
response.write(vartype(inic))


%>
and i like to stop all the scripts in the page if the 'if condition=true'
how i do that.
i have database results and so on on the page that have to be stopped
because they are UPdates to a table.
if i use the END statement it give san error

 

[led]

ok it´s response.end