You are too kind, thank you.
<FORM id=FORM1 name=FORM1 action="respondpage.asp?ID=<%=rs("ID"

%>" method=post>
<%
'this determines how much time passed before the customer got a response from us
Dim elapsedtime
intvar= (formatdatetime(now(),2))
Function DiffADate(theDate)
DiffADate = DateDiff("d",(rs("ComDate"

),intvar)
End Function
If rs("ComDate"

<> intvar then
elapsedtime=DiffADate(theDate)
Else
elapsedtime= 0
End If
rs("ElapsedTime"

= elapsedtime
%>
<FONT SIZE=4><B>Customer Service Response Form<BR></font>
<HR>
<font color="#cc66cc" size=4><input type=label id=elapsedtime value=<%=elapsedtime%> name=elapsedtime readonly size=5></font><font size=3> day(s) has elapsed since customer submitted this comment.</FONT>
<label type=text id=date name=respdate value="<%=FormatDateTime(Now(),2)%>">
<font size=2>Date: <%=FormatDateTime(Now(),1)%></font>
<HR>
<font size=3><B>Please enter your response to the customer comments below:</B></font>
<HR>
<Label id=text name=comdate>Date Submitted:
<font color="#6666cc"><%=rs("ComDate"

%></font>
<BR><label id=text4 >ID Number: <font color="#6666cc"><%=rs("ID"

%></font>
<BR><Label id=text1 value="<%=rs("fname"

%>" name=fname>First Name: <font color="#6666cc"><%=rs("fname"

%></font>
<BR><Label id=text2 value="<%=rs("lname"

%>" name=lname>Last Name: <font color="#6666cc"><%=rs("lname"

%></font>
<BR><Label id=text3 value="<%=rs("Email"

%>" name=email>Email Address: <font color="#6666cc"><%=rs("Email"

%></font>
<BR>
<HR>
If this section contains blanks, it is due to the customers preference.
<BR><Label id=text5 value="<%=rs("CompanyName"

%>" name=company>Company Name: <font color="#6666cc"><%=rs("CompanyName"

%></font>
<BR><Label id=text6 value="<%=rs("Address"

%>)" name=street>Street Address: <font color="#6666cc"><%=rs("Address"

%></font>
<BR><Label id=text8 value="<%=rs("City"

%>" name=city>City: <font color="#6666cc"><%=rs("City"

%></font>
<Label id=select1 value="<%=rs("State"

%>" name=state1>State: <font color="#6666cc"><%=rs("State"

%></font>
<Label id=text10 value="<%=rs("Zip"

%>" name=zip>Zip Code: <font color="#6666cc"><%=rs("Zip"

%></font>
<BR><Label id=text11 value="<%=rs("WorkPhone"

%>" name=phone>Phone Number: <font color="#6666cc"><%=rs("WorkPhone"

%></font>
<Label id=text value="<%=rs("URL"

%>" name=URL>URL Address: <font color="#6666cc"><%=rs("URL"

%></font>
<HR>
Customer comments and/or suggestions:
<BR><label id=label1 value="<%=rs("comments"

%>" name=comments>Comments:<BR><font color="#6666cc"><%=rs("comments"

%></font>
<BR>
<HR>
Please specify type of customer:
<INPUT type=radio id=radio1 value="C" name=radio>Current Retailer
<INPUT type="radio" id=radio2 value="N" name=radio>New Retailer
<INPUT type="radio" id=radio3 value="I" name=radio>Individual
<BR>Recommended Storefront#1:
<INPUT id=store1 name=store1>
Storefront#2:<INPUT id=store2 name=store2>
Storefront#3:<INPUT id=store3 name=store3>
<BR>Your name goes here:
<input id=whorespond name=whorespond><BR>
<HR>
Greeting to Customer Goes Here(i.e.Dear Mr. Jones):<BR>
<input id=greeting name=greeting><BR>
<input type=hidden id=respdate name=respdate value="<% = FormatDateTime(Now(),2)%>">
Please enter your response to customer comments here and press "Process" button:
<BR><TEXTAREA id=TEXTAREA1 name=responsetocomments rows=10 cols=90>The body of your response goes here, the costomer's name and your name will automatically be entered.
<TR>
<TD><form method=post action=process>
<INPUT type=submit value=Process id=submit1 name=Submit1>
</form>
</TD>
<TD>
<form method=post action=CustCommentMenu.asp id=form2 name=form2>
<input type="submit" name=menupage value="Back to Menu">
</form>
</TD>
<TD>
<form method=post action=
id=form3 name=form3>
<input type="submit" name=adminpage value="Back to Admin Page">
</FORM>
</TD>
<TD>
<!-- print -->
<script language="JavaScript"><!--
if (window.print)
document.write('<form><input type="button" value="Print" onClick="window.print()"><\/form>');
//--></script>
</TD>
</TR>
</TABLE>
</B>
</FONT>
</td>
</tr>
</table>