Not sure why you would want to do this, but If you use CDOSYS to send the email there is an option to send an entire page.
Here's a simple example:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
If Request.QueryString("submit") = "Submit" then
'Get and validate form data
For Each Field In Request.QueryString
TheString = Field & " = Request.QueryString(""" & Field & """)"
Execute(TheString)
if Request.QueryString(Field) = "" then
error_message = error_message & Field & " is blank.<br>"
end if
Next
If error_message = "" then
'Build query string for creating email message
Dim MyForm
MyForm = "
For Each Field In Request.QueryString
if field <> "submit" then
MyForm = MyForm & "&" & Field & "=" & Request.QueryString(Field)
end if
Next
'Send email message
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Sending email with CDO"
myMail.From="form@mydomain.com"
myMail.To="me@mydomain.com"
myMail.CreateMHTMLBody MyForm
myMail.Send
set myMail=nothing
Response.Redirect("
End if
Elseif Request.QueryString("populate_mailform") = "true" then
'Populate form for emailing
For Each Field In Request.QueryString
TheString = Field & " = Request.QueryString(""" & Field & """)"
Execute(TheString)
Next
End if
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
if error_message <> "" then
response.write(error_message)
end if
%>
<form action="myform.asp" method="get" name="form1">
<p>Field 1:
<input name="field1" type="text" value="<%= field1 %>" size="5" maxlength="5">
</p>
<p>Field 2:
<input name="field2" type="text" value="<%= field2 %>" size="5" maxlength="5">
</p>
<p> <input name="submit" type="submit" id="submit" value="Submit">
</p>
</form>
</body>
</html>
