web page to my email

hello guy i need help with my code ,
thank u in advance

ok i have a page that review order it take the curent item that the customer have in his cart from a table call basket_list and the name email ETC from the table that visitor the result is great i have the information on the top of the page and the shopping cart on the btm my question is how can i send this page (AS IS) to my email (HTML format) when the customer click on the order btn.
and not as a link i want to c in my email the table as i c in the asp page reieworder.asp here is the code below

u have a picture attachment to c the result on my browser

pplleeaassee hheellpp mmee !!!


<%

dim keyword
keyword=Request.Form("keyword")

Dim conn2
Set conn2 = Server.CreateObject("ADODB.Connection")
conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("/bookstore.mdb") & ";"

dim rs2, sql2
set rs2=Server.CreateObject("ADODB.recordset")
sql2="select * from visitors where visitor_id=" & session("visitor_id")
rs2.Open sql2, conn2, 3 ' Static, so we can count the results.

Response.Write "<center><table border=1 cellpadding=2 BGCOLOR=Yellow>"
do while not rs2.EOF
Response.Write "<tr>"
response.Write "<td align=center><h3>" & "Please Review Your Order"
Response.Write "<tr>"
Response.Write "<center><table border=1 cellpadding=2 BGCOLOR=Yellow>"
Response.Write "<tr>"
Response.Write "<td align=right width=80></td>"& vbcrlf
Response.Write "<td align=right width=50>Name</td>"& vbcrlf
Response.Write "<td align=right width=80>Email</td>"& vbcrlf
Response.Write "<td align=right width=50>adress</td>"& vbcrlf
Response.Write "<td align=right width=70>phone</td>"& vbcrlf
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td width=100 align=right>"
response.Write "<td align=right>" & rs2("visitor_name") & "</td>"
Response.Write "<td align=right>" & rs2("email") & "</td>"
Response.Write "<td align=right>" & rs2("address") & "</td>"
Response.Write "<td align=right>" & rs2("phone") & "</td>"
Response.Write "</tr>"
rs2.MoveNext
loop

Response.Write "</center></table>"
rs2.Close
set rs2=nothing
conn2.Close
set conn2=nothing
%>
<%
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("/bookstore.mdb") & ";"

dim rs, sql
set rs=Server.CreateObject("ADODB.recordset")
sql="select * from basket_list where visitor_id=" & session("visitor_id")

rs.Open sql, conn, 3 ' Static, so we can count the results.

counter=Request.Form("counter")

if counter<>"" then ' recalculation is needed
counter2=1

do while not rs.EOF
if Request.Form(counter2)="" then
conn.Execute "delete from basket Where basket_id=" & rs("basket_id")

elseif (Request.Form(counter2)="0" or Request.Form(counter2)="" or Request.Form(counter2)=nil) then
conn.Execute "delete from basket Where basket_id=" & rs("basket_id")

elseif rs("quantity")<>Request.Form(counter2) then
conn.Execute "update basket set quantity=" & Request.Form(counter2) & " Where basket_id=" & rs("basket_id")
end if

counter2=counter2+1
rs.MoveNext
loop
rs.close
rs.Open sql, conn ' Open rs again, data has changed!
end if

bookcount=rs.RecordCount

if rs.EOF =true and rs.BOF=true then ' no book found
Response.Redirect "basketisempty.asp"
end if
' Show menu only after (possible) redirection.
session("menu_id")=2%>

<%
Response.Write "<center><h3>" & "You Have:" & " "
Response.Write bookcount & " " & "In Your Cart" & "</h3>"
Response.Write "</center>"
Response.Write "<FORM action=""showbasket.asp"" method=POST id=form2 name=form2>"& vbcrlf
Response.Write "<center><table border=1 cellpadding=2 BGCOLOR=Yellow>"
Response.Write "<tr>"
Response.Write "<td align=right width=50>Remove</td>"& vbcrlf
Response.Write "<td align=right width=80>total</td>"& vbcrlf
Response.Write "<td align=right width=50>Quantity</td>"& vbcrlf
Response.Write "<td align=right width=70>Price</td>"& vbcrlf
Response.Write "<td align=right width=150>Name</td>"& vbcrlf
Response.Write "</tr>"
counter=1
do while not rs.EOF
Response.Write "<tr>"

Response.Write "<td align=right>"
Response.Write "<A HREF=" & "delfrombasket.asp?book_id=" & rs("book_id") & ">"
Response.Write "remove" & "</A></td>"& vbcrlf
Response.Write "<td align=right>" & formatcurrency(rs("total")) & "</td>"& vbcrlf
Response.Write "<td align=right><input type=text name=Q" & counter & " value=" & rs("quantity")
Response.Write " style=""HEIGHT: 22px; WIDTH: 30px"""& "></td>"& vbcrlf
Response.Write "<td align=right>" & formatcurrency(rs("price")) & "</td>"& vbcrlf
Response.Write "<td align=right><A HREF=" & "bookdetail.asp?book_id="
Response.Write rs("book_id") & ">"
Response.Write rs("title") & "</A></td>"& vbcrlf

Response.Write "</tr>"
counter=counter+1
rs.MoveNext
loop
rs.Close
sql="select sum(total) as sumtotal from basket_list where visitor_id=" & session("visitor_id")
rs.Open sql, conn
Response.Write "<tr>"
Response.Write "<td colspan=5 align=center><b>" & formatcurrency(rs("sumtotal")) & " : " & "Grand Total " & "</b></td>"
Response.Write "</tr>"
Response.Write "</center></table>"
rs.Close
set rs=nothing
conn.Close
set conn=nothing
%>
<br>
<input type="hidden" name="counter" value="<%=counter%>">
<center><input type="image" SRC="images/recalc.gif" value="Submit" id="submit1" name="submit1" WIDTH="140" HEIGHT="35"></center>
</form>

<center>
<a HREF="order.asp"><img src="images/cash.gif" border="0" WIDTH="120" HEIGHT="80"></a>
</center>[/COLOR]