Asp e inputbox

Hola arunchi quiero preguntarte como puedo imprimr en pantalla un valor pedido mediante inputbox a una pagina en asp, es decir algo similar al siguiente codigo bajado de internet
<script language="VBScript">
Dim email
email=InputBox("Please Enter Your Email:","Email")
do while email=""
MsgBox ("You must enter your email address")
email=InputBox("Please Enter Your Email:","Email")
loop
</script>
and I know how to write to a database with a server side script like:
<%
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "select * from EmailAddresses",cn,3,3
rs.addnew
rs(2)=email
rs.update
rs.close
response.write "<br><br><p class='bdy'>Email Entered <br> Your email is :" & email &"</p>"
end if
%>
Gracias
Att HERNAN MARTINEZ
[email protected]